perl 数组赋值的问题

chenjintao_ii

# ls -l
dr-xr-xr-x.   2 root root  4096 Jan 20 04:23 bin
dr-xr-xr-x.   4 root root  4096 Mar 15 19:48 boot
drwxr-xr-x   18 root root  4020 Mar 18 21:31 dev
drwxr-xr-x. 124 root root 12288 Mar 19 03:50 etc
drwxr-xr-x.   5 root root  4096 Mar 18 17:40 home
dr-xr-xr-x.  13 root root  4096 Jan  6 04:13 lib
dr-xr-xr-x.  10 root root 12288 Mar 16 03:45 lib64
drwx------.   2 root root 16384 Jan  6 00:35 lost+found
drwxr-xr-x.   2 root root  4096 Sep 23  2011 media


$my_string = `ls -l`;
@all_files;

我想从$my_string这里得到所有文件名（bin boot dev etc home这些）,赋值给@all_files这个数组，该怎么做？

thanks in advance

mcshell

@files = glob "*"

jason680

回复 1# chenjintao_ii


How about this to get it easily

@all_files = `ls`;

chenjintao_ii

回复 3# jason680


    我想到的方法是：
$my_string = `ls -l`;
@all_files = split('\n', $my_string);

你的更简单，多谢

chenjintao_ii

回复 2# mcshell


    perl中通过文件操作符glob提供相当于shell中的指定多个文件的“通配符”语法功能，文件操作符glob将返回与所指定的glob文件模式相匹配的所有文件的list。

百度了一下glob，学到一个新的东西，非常感谢~~

rubyish

jason680 发表于 2013-03-26 10:25
回复 1# chenjintao_ii

学到了，十分感谢~~{:3_188:}