您可以在 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 = =================================== @