0
嗨我有一個tsv文件,我試圖打印標題行和文件的每一行,即在列中。我很困惑如何在打印語句中加入這些行。打印標題行和文件中的每一行文件,並列在列
#!/usr/bin/perl
use strict;
use warnings;
local $" = "'\n'";
my @temp;
while (<DATA>) {
chomp;
my @columns = join "\t", $_;
push @temp, @columns;
}
my $Header_row = shift (@temp);
my @head;
my $abc;
my @abc = split(/\t/,$Header_row);
for my $abc(@abc) {
push @head, $abc ."\n";
}
my @roows;
my $elements;
foreach (@temp){
chomp;
my $line = $_;
my @elements = split ("\t", $line);
for $elements(@elements){
push @roows, $elements ."\n";
}
}
#print @head, $abc ."\n";
#print @roows, $elements ."\n";
__DATA__
Year Tonn Class Cargo Type
88 61 T Rice Truck
89 55 G Corn Train
92 93 S Peas Ship
所需的輸出
輸出
Year 88
Tonn 61
Class T
Cargo Rice
Type Truck
Year 89
Tonn 55
Class G
Cargo Corn
Type Train
Year 92
Tonn 93
Class S
Cargo Peas
Type Ship
這是不是很清楚你想要做什麼。看起來你只是想讀取內容並重新打印出來,而我不明白你爲什麼要修改它們。預期產出的一個例子會有所幫助 – Borodin