An command line question!

saimizi

To change the names of abc*.def files to def*.abc, I try to do it by using Perl.
I write the command as following:

%ls
abca.def abcabc.def abcbb.def abcccc.def
%ls *.def | perl -n -e '$a=$_; s/abc/def/; s/\.def/\.abc/; system("mv $a $_"'
mv: no enough parameters
sh:defa.abc: command not found
..
..
..
%

In the "system()", "mv $a $_" was splited into two independent statement.

mv $a
$_

why

I hope that someone will give me the answer. very appreciate for it.
thanks.

apile

因為$a 有\n存在..
你要用 chomp($a)將\n去除...

saimizi

Thanks a lot,

I do it by


ls *.def| perl -n -e 's/\n//g; $a=$_; s/abc/def/; s/\.def/\.abc/; system("mv $a $_)'


but I failed by using chomp, because "chomp($a)" make $a be 1. it is strange.

xbeta

原帖由 "saimizi" 发表：
Thanks a lot,

I do it by


ls *.def| perl -n -e 's/\n//g; $a=$_; s/abc/def/; s/\.def/\.abc/; system("mv $a $_)'


but I failed by using chomp, because "chomp($a)" make $a be 1. it is strang..........

chomp($a) will NOT make $a be 1, but it RETURNs 1