如何處理使用散列在Perl從文件數據

Question

#input data 
11000000,  1637,  -7.8737,  -20.15022 
11000001,  1634,  -710.377,  -20.150137 
11000002,  1639,  -709.87366, -20.150133 
11000003,  1631,  -7.1737,  -22.650156 
11000004,  1639,  709.87366, -20.150133 
11000005,  1630,  -710.6,  -22.650074 

我想此輸出，將來自第二塔，其是相等的打印值，從第三塔它們是相等的，但具有相反的符號，並且還打印值打印從第四列中的值這是平等的。

輸出應該是這樣的：

1639,   709.87366,  -20.150133 

Answer 1

也許是這樣的：

while (<DATA>) { 
    chomp; 
    @datas = split/,\s+/; 
    $k = sprintf "%s:%s:%s", $datas[1], abs $datas[2], $datas[3]; 
    print join(",\t", @datas[1..3]), "\n" if (++$hash{$k} > 1); 
} 

__DATA__ 
11000000,  1637,  -7.8737,  -20.15022 
11000001,  1634,  -710.377,  -20.150137 
11000002,  1639,  -709.87366, -20.150133 
11000003,  1631,  -7.1737,  -22.650156 
11000004,  1639,  709.87366, -20.150133 
11000005,  1630,  -710.6,  -22.650074 

Answer 2

你可以簡單地逐行讀取文件中的行，然後

@numbers = split /\s+/, $line; 

或

# includes comma in the split pattern to select just the number 
@numbers = split /,\s+/, $line; 

，並選擇

$numbers[1], $numbers[2], $numbers[3] 

---

一個簡單的腳本whichi打印出你的要求，這可能是：

#!/usr/bin/perl -w 

use strict; 

open FILE, '<', 'input.txt'; 

foreach my $line (<FILE>) 
{ 
    my @numbers = split /,\s+/, $line; 
    printf "%d,\t%f,\t%f\n", $numbers[1], -1*$numbers[2], $numbers[3]; 
} 

close FILE;