perl語言使用教程?在很多程序中, 我們需要針對文件,以及文件夾來進行操作,現在小編就來說說關于perl語言使用教程?下面内容希望能幫助到你,我們來一起看看吧!
在很多程序中, 我們需要針對文件,以及文件夾來進行操作。
今天我們就初步學習Perl中文件和文件夾的操作。
我們通過下面例子來看:
my $folder = 'test';
my $file = 'test.txt';
my $file2 = 'test2.txt';
檢查文件夾是否存在, 不存在則新建一個文件夾, -d 是perl中文件檢測命令, 返回是否是一個文件夾。
mkdir可以用來創建一個文件夾
mkdir $folder unless -d $folder;
我們用mkdir來創建, 相反的我們可以用rmdir來删除一個文件夾:
rmdir $folder;
删除文件, 我們使用的是unlink命令, -e用來檢測文件是否存在
unlink $file2 if -e $file2;
-s 命令可以得到文件的大小:
print -s $file;
那麼如何讀取一個文件夾裡面的所有文件呢?
Perl中針對文件夾, 有一個類似于文件句柄的對象---目錄句柄, 我們使用opendir來新建一個句柄, 使用readdir來逐個讀取文件夾中的對象:
opendir my $fd, $folder or die "failed to open folder : $folder\n";
while(my $f = readdir $fd){
忽略所有.開頭的文件, 這裡用了正則表達式來作為判斷條件,具體以後介紹
next if $f =~ /^\./;
print "$f\n";
}
closedir $fd;
更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!