好久没提问了

超级细菌

把一个文件夹中的文件都读在数组中，（文件名的格式为site_0 site_1 site_2等等），
foreach my $onefile (@infiles) {
        my @parts=split(/\_/,$onefile);
        print "@parts\n";
}
但是在循环的过程中只对文件site_3 4 5 6 7等进行了操作，而对于文件site_0 1 2竟然就不好使了，我试着对数组parts进行了输出
居然数组中只含有一个“.”
请教下这是为什么？多谢！

zhlong8

问题不在这儿，另外 _ 不需要转意

超级细菌

回复 2# zhlong8


    谢谢版主！那会是什么原因呢？给点经验，我把后面的数字改了其他的都好使，只有0 1 2 8 9这5个数字的时候出现问题。

zhlong8

回复  zhlong8


    谢谢版主！那会是什么原因呢？给点经验，我把后面的数字改了其他的都好使，只有0  ...
超级细菌 发表于 2011-09-12 14:59

    split 前加个 print $onefile 来看每次是不是都分割对了。应该是你数组内的数据本身就有问题

超级细菌

回复 4# zhlong8


    那应该就是在读取这些文件的时候出现的错误，我刚试了下，当数字是2的时候，
输出：
.
.
Use of uninitialized value in concatenation (.) or string at perl line 14.
Use of uninitialized value $parts[1] in concatenation (.) or string at perl line 17.
当数字为3的时候，输出：
site_3
site 3为正确结果，我的读取文件的代码为：
my $infiledir="/home/desktop/result/site/";
opendir(DIR,$infiledir) or die"Cannot open $infiledir\n";
my @infiles=readdir(DIR);
closedir DIR or die"$!";
难道这里有错？
谢谢！

超级细菌

回复 4# zhlong8


    哦，版主，我好像明白了，我读取用来存放文件的那个数组我试着输出了一下，其结果为
. .. site_2也就是说其中含有目录是吧？该怎么去掉呢？谢谢！

超级细菌

哦，明白了，那是返回了目录项，可以使用grep(!/^\.\.?$/,readdir 目录)进行清除。

jason680

哦，明白了，那是返回了目录项，可以使用grep(!/^\.\.?$/,readdir 目录)进行清除。
超级细菌 发表于 2011-09-12 15:25

试试ls -a.你会知道更多...
$ ls -a
.                 .gconfd          src
..                .gksu.lock       .subversion
awksplit.sh       .gnome2          .sudo_as_admin_successful
.bash_history     .gnome2_private  tmp
...

李大双