Hi all,

I have a snippet that rename files from:
"sth.txt.out"  into
"sth.out"

Now I am really curious how can I make this
oneliner "even shorter":

$  perl -e '
for(glob ("*.txt.out")){
$out = $_; 
$out =~ s/\.txt(\.out)/\.out/;
 rename ($_,$out);
}'

Hope to hear from you again.

--
Regards,
Edward WIJAYA
SINGAPORE


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to