Perl 目錄操作

以下列出了一些操作目錄的標準函數：

opendir DIRHANDLE, EXPR # 打開目錄
readdir DIRHANDLE # 讀取目錄
rewinddir DIRHANDLE # 定位指針到開頭
telldir DIRHANDLE # 返回目錄的當前位置
seekdir DIRHANDLE, POS # 定位指定到目錄的 POS 位置
closedir DIRHANDLE # 關閉目錄

顯示所有的文件

顯示目錄下的所有文件，以下實例使用了 glob 操作符，演示如下：

實例

#!/usr/bin/perl# 顯示 /tmp 目錄下的所有文件$dir = "/tmp/*";my@files = glob($dir);
foreach(@files){print$_ . "
";}# 顯示 /tmp 目錄下所有以 .c 結尾的文件$dir = "/tmp/*.c";@files = glob($dir);
foreach(@files){print$_ . "
";}# 顯示所有隱藏文件$dir = "/tmp/.*";@files = glob($dir);foreach(@files){print$_ . "
";}# 顯示 /tmp 和 /home 目錄下的所有文件$dir = "/tmp/* /home/*";@files = glob($dir);
foreach(@files){print$_ . "
";}

以下實例可以列出當前目錄下的所有文件：

實例

#!/usr/bin/perlopendir(DIR, ".")ordie"無法打開目錄, $!";while($file = readdirDIR){print"$file
";}closedirDIR;

如果你要顯示 /tmp 目錄下所有以 .c 結尾的文件，可以使用以下代碼：

實例

#!/usr/bin/perlopendir(DIR, ".")ordie"無法打開目錄, $!";foreach(sortgrep(/^.*.c$/,readdir(DIR))){print"$_
";}closedirDIR;

創建一個新目錄

我們可以使用 mkdir 函數來創建一個新目錄，執行前你需要有足夠的許可權來創建目錄：

實例

#!/usr/bin/perl$dir = "/tmp/perl";
# 在 /tmp 目錄下創建 perl 目錄mkdir($dir)ordie"無法創建 $dir 目錄, $!";print"目錄創建成功
";

刪除目錄

我們可以使用 rmdir 函數來刪除目錄，執行該操作需要有足夠許可權。另外要刪除的目錄必須的空目錄：

實例

#!/usr/bin/perl$dir = "/tmp/perl";
# 刪除 /tmp 目錄下的 perl 目錄rmdir($dir)ordie"無法刪除 $dir 目錄, $!";print"目錄刪除成功
";

切換目錄

我們可以使用chdir 函數來切換當期目錄，執行該操作需要有足夠許可權。實例如下：

實例

#!/usr/bin/perl$dir = "/home";
# 將當期目錄移動到 /home 目錄下chdir($dir)ordie"無法切換目錄到 $dir , $!";print"你現在所在的目錄為 $dir
";

執行以上程序，輸出結果為：

你現在所在的目錄為 /home

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！