Question

perl 如何打开指定路径下的文件？

比如说D盘下的ferl.txt文件

Answer 1

open(FILE, "D:/ferl.txt"); #打开一个文件句柄
while(<FILE>){ #逐行读取该文件然后显示出来
print "$_\n";
}
close(FILE) #关闭文件句柄

在WHILE循环中也可以加入一些正则匹配等代码等等。

Answer 2

open INITFILE,"<D:/ferl.txt";
while(<INITFILE>) {
print $_; #输出文件内容
}
close INITFILE;

Answer 3

打开文件 open FH, "D:/ferl.txt" ;

打开文件夹 opendir FD，"D:/" ;

Answer 4

　　迭代的方式
　　sub FindFileInDirWithStack

　　{
　　my $dir = $_[0];
　　my @FolderStack = ();
　　
　　push(@FolderStack, $dir);
　　while(1)
　　{
　　my $currentSearchFolder = pop(@FolderStack);
　　if(defined($currentSearchFolder) == 0)
　　{
　　last;
　　}
　　opendir(DIR, $currentSearchFolder|| die "can't open this $currentSearchFolder");
　　my @files = readdir(DIR);
　　closedir(DIR);
　　for my $file (@files){
　　next if($file =~ m/\.$/ || $file =~ m/\.\.$/);
　　if ($file =~ /\.(c|h|cpp)$/i)
　　{
　　print "$currentSearchFolder\/$file \n";
　　}
　　elsif(-d "$currentSearchFolder/$file")
　　{
　　push(@FolderStack, "$currentSearchFolder/$file");
　　}
　　}
　　}
　　}
　　

Answer 5

open(FILE, "D:/ferl.txt");