perl修改数组中的每个元素

修改数组中的每个元素

@filename = glob '/root/*';

方法一 map:

map {s/(.*)/'$1'/;$_}@filename;

方法二 foreach：

s/^(.*)$/'$1'/ foreach @filename;

修改后进行验证:

use Data::Dumper;

print Dumper(@filename);

$VAR1 = '\'/root/1.txt\'';

$VAR2 = '\'/root/2.txt\'';

$VAR3 = '\'/root/a.log\'';

$VAR4 = '\'/root/a.pl\'';

$VAR5 = '\'/root/accountlogout.sql\'';

$VAR6 = '\'/root/all.sql\'';

$VAR7 = '\'/root/all_add.sql\'';

$VAR8 = '\'/root/all_skip.sql\'';

$VAR9 = '\'/root/anaconda-ks.cfg\'';

$VAR10 = '\'/root/ar.pl\'';

$VAR11 = '\'/root/arr.pl\'';