如何在Perl中將文件的行讀入數組中？

Question

我有一個文件名爲的test.txt是這樣的：

測試
富
酒吧

但是我希望把每行陣列和打印線像這樣：

一號線2號線3號線

但我該怎麼做？

Answer 1

#!/usr/bin/env perl 
use strict; 
use warnings; 

my @array; 
open(my $fh, "<", "test.txt") 
    or die "Failed to open file: $!\n"; 
while(<$fh>) { 
    chomp; 
    push @array, $_; 
} 
close $fh; 

print join " ", @array; 

Answer 2

最基本的例子是這樣的：

#!/usr/bin/env perl 

use strict; 
use warnings; 

open(F, "<", "test.txt") or die("Cannot open test.txt: $!\n"); # (1) 
my @lines =(); 
while(<F>) { chomp; push(@lines, $_); } # (2) 
close(F); 

print "@lines"; # (3) stringify 

（1）是文件被打開的地方。 （2）文件句柄在列表環境中很好地工作（標量/列表環境由左值定義），所以如果你將一個數組賦值給一個文件句柄，所有的行都被映射到這個數組中。這些行由輸入記錄分隔符$/的值分隔（結束）。如果你use English;，你可以使用$IRS或$INPUT_RECORD_SEPARATOR。該值默認爲換行符\n;

雖然這似乎是一個不錯的主意，但我忘記了如果您打印所有行，結尾\n也將被打印。拜阿姨。

原來的代碼是：

my @lines = <F>; 

，而不是while循環。這仍然是一個可行的替代方案，但應與chomp ING然後印刷/字符串化所有元素交換（3）：

for (@lines) { chomp; } 
print "@lines"; 

（3）字符串化裝置的陣列轉換爲字符串，並插入之間的值$"數組元素。這默認爲一個空格。

參見：the perlvar page。

所以實際的第二次嘗試是：

#!/usr/bin/env perl 

use strict; 
use warnings; 

open(F, "<", "test.txt") or die("Cannot open test.txt: $!\n"); # (1) 
my @lines = <F>; # (2) 
close(F); 
chomp(@lines); 

print "@lines"; # (3) stringify 

Answer 3

還有一個答案供你選擇：

#!/usr/bin/env perl 

open(FILE, "<", "test.txt") or die("Can't open file"); 
@lines = <FILE>; 
close(FILE); 
chomp(@lines); 
print join(" ", @lines); 

Answer 4

這裏是我的單排：

perl -e 'chomp(@a = <>); print join(" ", @a)' test.txt 

說明：

• 讀取的文件由線成@a陣列
• chomp(..) - 刪除EOL符號用於使用空間作爲分隔
• 打印結果
• 通文件名作爲參數的每一行
• 串連@a

Answer 5

如果您發現自己經常啜食文件，則可以使用CP中的File::Slurp模塊AN：

use strict; 
use warnings; 
use File::Slurp; 

my @lines = read_file('test.txt'); 
chomp @lines; 
print "@lines\n"; 

Answer 6

這是我能想出的最簡單的版本：

perl -l040 -pe';' < test.txt 

---

這大致相當於：

perl -pe' 
    chomp; $\ = $/; # -l 
    $\ = 040;  # -040 
' 

和：

perl -e' 
    LINE: 
    while (<>) { 
     chomp; $\ = $/; # -l 
     $\ = " ";  # -040 
    } continue { 
     print or die "-p destination: $!\n"; 
    } 
' 

Answer 7

這是做到這一點（假設內部script.pl下面的代碼）的代碼：

scirpt.pl [your file]