Perl 使用数字变量打印输出文件名

Question

我正在尝试从 sql server 中提取 1 周的数据，然后尝试将数据写入具有不同名称的文件中。 以下代码不起作用，我找不到使用变量创建文件处理程序的方法。

另外一个问题是，如果sql数据量很大（每天1-2G，整张表超过1年），那么这种月取方式比每天取快吗？

    my $sqlGetEid = "select trunc(datetime, 'DD') truncdate, x, y from z
        where DATETIME between TO_DATE('$dt1','YYYY-MM-DD') and TO_DATE('$dt1','YYYY-MM-DD')+7";

    for ($day=1; $day<=7; $day++){
        open('dayfile_$day', "> ./temp/Wireless_$day.csv");  
    }

    while ( my ($tday,$x,$y) = $curSqlEid->fetchrow_array() ) 
    {
        printf {'dayfile_$tday'} ("%s,%d\n", $x,$y);
    }

    for ($day=1; $day<=7; $day++){
        close('dayfile_$day');  
    }

Answer 1

您不能像尝试那样使用纯字符串作为变量。

我能想到的最简单的方法是使用散列来映射文件名和文件句柄。

下面是一个示例，说明如何做到这一点：

use strict;
use warnings;

my %files;

foreach my $i (1..7) {
    my $fh;
    open($fh, '>', "day_$i.log") || die "Ooups: $i: $!";
    $files{$i} = $fh;
}

foreach my $i (1..7) {
    my $fh = $files{$i};
    print $fh "hello $i\n";
}

foreach my $i (1..7) {
    my $fh = $files{$i};
    close $fh;
}