创建文件 aa..zz 并使用范围运算符将 AA..ZZ 写入文件

Question

我对 Perl 很陌生，有一个问题。我正在尝试在目录中创建文件并写入这些文件。这是我到目前为止所拥有的，它创建了目录，但没有在其中写入任何内容。我不知道如何写入文件，我已经考虑过创建一个三通或多维数组，但这不起作用。

#!/usr/bin/perl
use strict;
use warnings;

my @alpha = ("aa".."bb");


for my $combo(@alpha)
{
open(DFILE,"+>$combo") || die "die open failed";

while (<DFILE>)
{
   print $_;
}
close(DFILE);
}

Answer 1

下面创建 28 个文件并将文件名的大写写入到文件中。例如，它创建一个名为 aa 的文件，其中包含一行：AA。

use warnings;
use strict;
use File::Slurp;

for ('aa' .. 'bb') {
    write_file($_, uc $_);
}

请参阅File::Slurp。

Answer 2

简而言之，要向使用 DFILE 句柄打开的文件写入内容，您应该使用

 print DFILE 'something to print';

但我对您的目标有点困惑，尤其是您到底要写入这些文件的内容。你能澄清一下吗？

Answer 3

您打开文件用于写入（>），并增强文件用于读取（+）。打开文件后，您可以从其文件句柄中读取内容并将读取的内容打印到默认文件句柄 (STDOUT)。完成后，关闭文件。

如果该文件尚不存在，您将创建该文件，不会有任何内容可供读取（也没有任何内容可打印），并且您将关闭仍然为空的文件。

我不知道你想做什么。如果您尝试向文件添加行，则可以打开它进行追加 (>>)。当您想要打印到该文件句柄时，您必须告诉 print 您要使用哪个文件句柄：

#!/usr/bin/perl
use strict;
use warnings;

my @alpha = ("aa".."ab");

for my $combo ( @alpha ) {
    open my $fh, ">>", $combo or die "die open failed: $!";

    printf $fh "[%s] Here's a new line in $combo\n", scalar localtime;
    }

这会生成具有如下输出的文件：

[Fri Feb 24 09:07:17 2012] Here's a new line in aa
[Fri Feb 24 09:08:52 2012] Here's a new line in aa

如果您尝试打印到文件并打印到标准同时输出（因为您提到了 tee），您可以创建一个多路复用到一个或多个其他文件句柄的文件句柄。 IO::Tee 可以为您做到这一点：

#!/usr/bin/perl
use strict;
use warnings;

use IO::Tee; # get from CPAN

my @alpha = ("aa".."ab");

for my $combo ( @alpha ) {
    open my $fh, ">>", $combo or die "die open failed: $!";
    my $tee = IO::Tee->new( $fh, \*STDOUT );
    printf $tee "[%s] Here's a new line in $combo\n", scalar localtime;
    }

现在每个输出行都转到两个地方：屏幕和文件。