使用領帶在新行中打印散列值

Question

我有一個有少量鍵的散列，每個鍵有20個值。

%test={ 
a=> 10 14 34 56 .... 
b=> 56 67 89 66 ... 
.. 
} 

@values= {a,b,..} 

我想從這個散列值綁到另一個文件如下圖所示

我輸入file.txt的

ID 
ID 
ID 
... 

file.txt的

ID ,10 ,56 
ID ,14, 67 
ID ,34, 89 
ID ,56, 66 
.. 

我的代碼預期現在將所有的值綁定到我的文件的第一行。請幫助格式化它。

my $match = "ID"; 

tie my @lines, 'Tie::File', 'file.txt' or die "failed : $!"; 

for my $line (@lines) { 

    while ($line =~ /^($match.*)/) { 
     $line = $1 . "," . join ',',@test{@values}; 
    } 
} 
untie @lines; 

現在我的輸出是

file.txt 
ID ,10 ,14, 34, 56,... 56, 67, 89, 66.... 
ID 
ID 
ID 

Answer 1

我有點您的問題困惑......

你有一些模板文件，該文件只包含ID在（N）線的開始？

而你想遍歷每個？

這裏有些東西似乎很腥（我認爲你必須留下一些東西）。還有的將是一個相當一些方法去錯了這種設計...

不管怎麼說，我覺得這是你要什麼：

my $match = "ID"; 
my $test = { 
    a => [ qw(1 3 5) ], 
    b => [ qw(2 4 6) ], 
}; 

tie my @lines, 'Tie::File', 'file.txt' or die "failed : $!"; 

my $i = 0; 
for my $line (@lines) { 
    if($line =~ /^($match.*)/) { 
     my @stuff =(); 
     for my $key (keys %$test) { 
      push @stuff, $test->{$key}[$i]; 
     } 
     $line = $1 . ", " . join(', ', @stuff); 
     $i++; 
    } 
} 
untie @lines; 

假設這是你有什麼/想：

$ cat file.txt 
ID 
ID 
ID 
$ test.pl 
$ !cat 
cat file.txt 
ID, 1, 2 
ID, 3, 4 
ID, 5, 6 

Answer 2

你只是想

my %test = (
    a => [ 10, 14, 34, 56, ... ], 
    b => [ 56, 67, 89, 66, ... ], 
); 

for (0..$#{ $test{a} }) { 
    print(join(',', 'ID', $test{a}[$_], $test{b}[$_]), "\n"); 
} 

---

您可以通過創建使用

文件寫入到文件，而不是STDOUT

open(my $fh, '>', 'file.txt') 
    or die("Can't create file.txt: $!\n"); 

，然後使用

print($fh ...); 

，但它是更好地讓用戶輸出重定向到使用>file.txt文件。

Answer 3

這是我拿，雖然領帶似乎是多餘的對我說：

use strict; 
use warnings; 
use Tie::File; 
my %test=(
    a=> [qw(10 14 34 56)], 
    b=> [qw(56 67 89 66)] 
); 
my @values= qw(a b); 
my $match = "ID"; 
tie my @lines, 'Tie::File', 'file.txt' or die "failed : $!"; 
my $i = 0; 
for my $line (@lines) { 
    if ($line =~ /^($match.*)/) { 
     $line = $1 . "," . join(',', map { $test{$_}->[$i]} @values); 
     $i++; 
    } 
} 
untie @lines; 

輸出（file.txt的）：

ID,10,56 
ID,14,67 
ID,34,89 
ID,56,66