大头

标签云

分类

日历

十一月
27	28	29	30	31	1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30

留言

微博

初学Perl之五

loveisbug posted @ 2008年11月18日 01:21 in 娱乐 with tags Perl , 2131 阅读

今天要读取目录中的文件，把所有的txt文件打开用之前的程序分析一下。

先用的是foreach，后来改用while，运行报错，加打印信息看到readdir读进来的文件先是 . 和 .. 。不知道如何筛选目录下读出的文件，搜到一个perl学习笔记，那里找到了实例。

next unless $file =~ /\.TXT$/;

现在可以筛选出所有的txt文件了。

但是有个问题，程序如下：

opendir DH, $dir_to_process;
while($file = readdir DH)
#foreach $file (readdir DH)
{
        print $file, "\n";
        next unless $file =~ /\.TXT$/;
        print "one file in $dir_to_process is $file\n";
        open(FILE, "<$file") or die "open error: $!";
        while(<FILE>)
        {
                #do something.
        }
        close(FILE);
}

readdir读出一个文件，打印出文件名，然后看是否是txt文件，是的话打印“one file in xxx ……”，然后打开这个文件，一行一行读取。现象是这样，读取某一个文件的时候，报出了open error: No such file or directory。

而这个文件是存在，并且之前打印文件名，打印“one file in xxx ……”都有。可是在打开文件时却出错，说文件不存在，为什么？

十一月
日	一	二	三	四	五	六
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30

十一月
日	一	二	三	四	五	六
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30

十一月
日	一	二	三	四	五	六
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24	25	26	27	28	29	30