您可以使用 Perl 中的 `mkdir` 函式來建立一個新目錄。您需要具有建立目錄所需的許可權。 `#!/usr/bin/perl $dir = "/tmp/perl"; # 這會在 /tmp 目錄中建立 perl 目錄。 mkdir( $dir ) or die "Couldn't create $dir directory, $!"; print "Directory created successfully";` 刪除目錄 您可以使用 Perl 中的 `rmdir` 函式來刪除目錄。您需要具有刪除目錄所需的許可權。此外，在嘗試刪除目錄之前，該目錄應為空。 `#!/usr/bin/perl $dir = "/tmp/perl"; # 這會從 /tmp 目錄中刪除 perl 目錄。 rmdir( $dir ) or die "Couldn't ... 閱讀更多

有多種方法可以使用 Perl 列出特定目錄中所有可用的檔案。首先，讓我們使用簡單的方法來獲取和列出使用 `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 ... 閱讀更多

您可以使用一系列統稱為 -X 測試的測試運算子，在 Perl 中快速測試某些功能。例如，要對檔案的各種許可權進行快速測試，您可以使用如下指令碼：`#/usr/bin/perl my $file = "/usr/test/file1.txt"; my (@description, $size); if (-e $file) {    push @description, 'binary' if (-B _);    push @description, 'a socket' if (-S _);    push @description, 'a text file' if (-T _);    push @description, 'a block special file' if (-b _);    push @description, 'a character special file' if (-c _);    push @description, ... 閱讀更多

您可以使用 Perl 中的 `tell` 函式來了解檔案的當前位置，並使用 `seek` 函式來指向檔案內的特定位置。Perl 的 `tell` 函式 第一個要求是在檔案中找到您的位置，您可以使用 `tell` 函式來實現：`tell FILEHANDLE tell` 如果指定了 `FILEHANDLE`，則返回檔案指標在 `FILEHANDLE` 中的位置（以位元組為單位）；如果沒有指定，則返回當前選擇的預設檔案控制代碼。Perl 的 `seek` 函式 `seek` 函式將檔案指標定位到檔案內的指定位元組數：`seek FILEHANDLE, POSITION, WHENCE` 該函式使用 `fseek` 系統函式，您可以 ... 閱讀更多

這是一個 Perl 示例，它開啟一個現有的檔案 file1.txt 並逐行讀取它，然後生成另一個副本檔案 file2.txt。`#!/usr/bin/perl # 開啟要讀取的檔案 open(DATA1, "file2.txt"); # 將資料從一個檔案複製到另一個檔案。 while() {    print DATA2 $_; } close( DATA1 ); close( DATA2 );` 重新命名檔案 這是一個 Perl 示例，它顯示瞭如何將檔案 file1.txt 重新命名為 file2.txt。假設檔案位於 /usr/test 目錄中。`#!/usr/bin/perl rename ("/usr/test/file1.txt", "/usr/test/file2.txt" );` 此函式重新命名採用兩個引數，它只是重新命名現有檔案。刪除現有檔案 這是一個示例，它顯示瞭如何 ... 閱讀更多

在 Perl 中擁有開啟的檔案控制代碼後，您需要能夠讀取和寫入資訊。有多種不同的方法可以將資料讀取和寫入檔案。運算子 從開啟的檔案控制代碼讀取資訊的主要方法是運算子。在標量上下文中，它從檔案控制代碼返回一行。例如：`#!/usr/bin/perl print "What is your name?"; $name = ; print "Hello $name";` 當您在列表上下文中使用運算子時，它將從指定的檔案控制代碼返回一個行列表。例如，要匯入所有 ... 閱讀更多

以下是具有多種形式的兩個函式，可用於在 Perl 中開啟任何新的或現有的檔案。`open FILEHANDLE, EXPR open FILEHANDLE sysopen FILEHANDLE, FILENAME, MODE, PERMS sysopen FILEHANDLE, FILENAME, MODE` 這裡 `FILEHANDLE` 是 `open` 函式返回的檔案控制代碼，`EXPR` 是包含檔名和開啟檔案模式的表示式。`open` 函式以下是以只讀模式開啟 `file.txt` 的語法。小於號 `<` 表示檔案必須以只讀模式開啟。`open(DATA, ">file.txt") || die "Couldn't open file file.txt, $!";` 雙大於號 `>>` 以追加模式開啟檔案，將檔案指標 ... 閱讀更多

雖然 `$^` 或 `$FORMAT_TOP_NAME` 包含 Perl 中當前頁首格式的名稱，但沒有相應的機制可以自動對頁尾執行相同的操作。如果您有固定大小的頁尾，則可以在每次 `write()` 之前檢查變數 `$-` 或 `$FORMAT_LINES_LEFT` 來獲取頁尾，如果需要，可以使用如下定義的另一個格式自己列印頁尾：`format EMPLOYEE_BOTTOM = End of Page @<           $% .` 有關與格式相關的完整變數集，請參閱 Perl 特殊變數部分。

如果您的報表佔用了不止一頁怎麼辦？Perl 提供了一個很好的解決方案來建立分頁。我們只需使用 `$%` 或 `$FORMAT_PAGE_NUMBER` 變數以及頁首，如下所示：`format EMPLOYEE_TOP = =================================== Name                   Age Page @< $% =================================== .` 現在您的輸出將如下所示：`=================================== Name                  Age Page 1 =================================== =================================== Ali                   20 2000.00 =================================== =================================== Raza                  30 2500.00 =================================== =================================== Jaffer                40 4000.00 ===================================`

有時您可能希望向報表中新增頁首。此頁首將列印在每一頁的頂部。使用 Perl 執行此操作非常簡單。除了定義模板外，您還必須定義頁首並將其分配給 `$^` 或 `$FORMAT_TOP_NAME` 變數：示例 即時演示 `#!/usr/bin/perl format EMPLOYEE = =================================== @`