join函数

利用字符将数组中的元素分割开.

[root@localhost ~]# find `perl -e '@array=join( " ", "@INC");print "@array";'` -name *.pm|wc -l

547

这个例子是利用空格分开了要查找的路径,然后find可以查找所有的路径下匹配*.pm的文件,我一共查到了547个模块.