小编Cor*_*rni的帖子

我开始喜欢Perl,但我不明白这里发生了什么.

为什么这样做

my @cmd = ();
push @cmd, 'find';
push @cmd, 'data/path/';
push @cmd, "-name";
push @cmd, '*.xml';
push @cmd, '-exec';
push @cmd, 'mv';
push @cmd, '{}';
push @cmd, 'junk/path/';
push @cmd, '\;';    
say join (' ', @cmd);       
system(join(' ', @cmd));

产量

find data/path/ -name *.xml -exec mv {} junk/path/ \;

找不到错误!虽然这不起作用

my @cmd = ();       
push @cmd, 'find';
push @cmd, 'data/path/';
push @cmd, "-name";
push @cmd, '*.xml';
push @cmd, '-exec';
push @cmd, 'mv';
push @cmd, '{}';
push @cmd, 'junk/path/'; …