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