本教程旨在使用 c++ 代码将三对角阵的上行与下行交换。此外，如果三对角阵是一个输入，那么令人垂涎的结果必须像这样；为此，行动方案在算法中说明如下：算法步骤 1：输入对角阵步骤 2：将其传递给 Swap() 方法步骤 3：遍历外循环直到 3 步骤 4：递增内循环中的 j = i+ 1 直到 3 步骤 5：将阵列值放入临时变量中步骤 6：交换值 arr[i][j]= arr[j][i] 步骤 7：将临时数据放入 arr[j][i]步骤 8：... 阅读更多

您可以使用一系列被称为 -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 中使用 to tell 函数找出文件当前位置，并使用 seek 函数指向文件中的某个具体位置。Perl tell 函数首先需要找出你在文件中的位置，使用 tell 函数即可 −tell FILEHANDLE tell如果指定了 FILEHANDLE，则返回 FILEHANDLE 中文件指针的位置（以字节为单位）；如果没有指定，则返回当前选定的默认文件句柄。Perl 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" );此函数 renames 接受两个参数，并且它仅重命名现有文件。删除现有文件这是一个示例，它展示了如何 ... 了解更多

你在 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 "无法打开文件 file.txt，$!"；一个双大于 >> 用于以追加方式打开文件，将文件指针放置... 阅读更多

尽管 $^ 或 $FORMAT_TOP_NAME 包含 Perl 中当前的页眉格式的名称，但没有相应机制可为页脚自动执行相同操作。如果你有固定大小的页脚，可以通过在每次 write() 之前检查变量 $- 或 $FORMAT_LINES_LEFT 来获取页脚，必要时可以使用另一个按照如下方式定义的格式来打印页脚 - format EMPLOYEE_BOTTOM = End of Page @<           $% . 对于与格式相关的变量的完整集合，请参阅 Perl 专用变量部分。

如果你的报表占用了多页该怎么办？在 Perl 中，你有很好的解决方案来创建分页。我们只需使用 $% 或 $FORMAT_PAGE_NUMBER 变量以及页眉，如下所示 - format EMPLOYEE_TOP = =================================== 名称                   年龄 页码 @< $% =================================== . 现在，你的输出将如下所示： ===================================== 名称                  年龄 页码 1 ===================================== ===================================== Ali                   20 2000.00 ===================================== ===================================== Raza                  30 2500.00 ===================================== ===================================== Jaffer                40 4000.00 =====================================

有时候你会想要向报表中添加页眉。该页眉将打印在每一页的顶部。使用 Perl 可以非常简单地做到这一点。除了定义模板之外，你还必须定义页眉并将其赋值给 $^ 或 $FORMAT_TOP_NAME 变量 - 示例实时演示#!/usr/bin/perl format EMPLOYEE = =================================== @

为了在 Perl 脚本中调用格式声明，我们将使用 write 关键字 - write EMPLOYEE；问题在于格式名称通常是打开文件句柄的名称，并且 write 语句会将输出发送到此文件句柄。由于我们希望将数据发送到 STDOUT，因此我们必须将 EMPLOYEE 与 STDOUT 文件句柄关联起来。但是，我们首先必须确保 STDOUT 是我们选中的文件句柄，使用 select() 函数。select(STDOUT)；然后，我们将通过使用专用变量 $~ 或 $FORMAT_NAME 将新格式名称设为 STDOUT，将 EMPLOYEE 与 STDOUT 关联起来，如下所示... 阅读更多