Perl печатает выходные имена файлов с числовой переменной

Question

Я пытаюсь вытащить данные за 1 неделю с сервера sql, а затем попытаюсь записать данные в файлы с отдельными именами. Следующие коды не работают, и я не могу найти способ создания обработчиков файлов с переменной.

Другой вопрос в том, что если размер данных sql огромен (1-2 гигабайта в день, а вся таблица превышает 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; 
}