Perl：將字符串的內容加載到數組中

Question

我有一個簡單的問題，我希望你們可以幫忙解釋一下。我正在穩步學習Perl。

說我有一個非常大的字符串，例如採取的輸出：

our $z = `du -B MB /home` 

這將產生一個字符串，如下所示：

1MB  /home/debug/Music 
1MB  /home/debug/Downloads 
20MB /home/debug 
20MB /home/ 

我想知道什麼是，我怎麼去加載這個字符串到一個有兩列的數組中，並且n行（其中n是du輸出中的行數）？

我試圖像下面這樣：

my $z1 = `du -B MB /home | tail -4`; 
my @c0 = split (/n/, $z1); 
my $z2 = join (/\t/, @c0); 
my @c2=split(/\t/, $z2); 
print @c2; 

將會產生以下的輸出：

1MB/home/debug/Music1MB/home/debug/Downloads20MB/home/debug20MB/home 

我想我可以使用替代函數s /// g到substitue的目錄空值，並將SPACE值設置爲一個數組，並將空值設爲空值並將其設置爲第二個數組，並將1個數組設置爲另一個數組的鍵。

有沒有人有任何建議，以最好的方式來解決這個問題？

任何幫助表示讚賞。

感謝，

迭戈

Answer 1

#!/usr/bin/perl; 
my $z= `du -h -d 1 /home/*`; 
my @array = split("\n",$z); 
foreach my $ar(@array) { 
my @ar = split("\t",$ar); 
$ar = \@ar; 
} 

foreach my $entry(@array) { 
print $entry->[0]; 
print $entry->[1]; 

} 

Answer 2

你或許可以嘗試，並把它們存儲在一個散如下：

#!/usr/bin/perl 

use strict; 
use warnings; 

my $data = '1MB /home/work 4MB /user/bin'; 
my %values = split(' ', $data); 
foreach my $k (keys %values) { 
    print "$k: $values{$k}\n"; 
} 
exit 0; 

注意' '爲split第一個參數將匹配任何空格字符（所以我們充分利用它）。對於上面的輸出應該是這樣的：

1MB: /home/work 
4MB: /user/bin 

您必須將原始數據工作納入$data並檢查是否哈希你的作品。

Answer 3

我相信你的perl老兵不會喜歡這個解決方案，但我基本上解決了我的nix根。我之前在for循環中遇到了麻煩，但我意識到我可以利用管道通過shell進行評估，只要答案存儲在一個字符串中即可。

my $z1; my $z2; 

$z1 = `du -B MB /home | cut -f1` 
$z2 = `du -B MB /home | cut -f2` 

my @a1; my @a2; 

@a1 = split("\n", $z1); 
@a2 = split("\n", $z2); 

Array @ a1保存來自第一個字符串的值，@ a2保存來自第二個字符串的值。

我給你們的問題是，是否有一個perl等同於unix'cut'工具？即我可以在哪裏將字符串輸出分割爲第一個製表符分隔的字段？這是我必須探索的一個問題。

Diego Diego

Answer 4

我真的不知道你在做什麼。如果你只是想有n個元素，每個裏面有一兩米欄的字符串數組，你需要看起來距離不超過

my @z1 = `du -B MB /home | tail -4`; 

例如，文件的第三行可以訪問（記住perl的陣列爲基礎的0）：

print $z1[2]; 

產生輸出

20MB /home/debug 

更多有用。將捕獲每個目錄的大小在哈希：

my %dir2size; 
foreach (@z1) { 
    my @line = split /\s+/; 
    $dir2size{$line[1]} = $line[0]; 
} 
foreach my $key (sort keys %dir2size) { 
    print "$key: $dir2size{$key}\n"; 
} 

產生第一`split`應該使用`z1`作爲第二個參數的輸出

/home/: 20MB 
/home/debug: 20MB 
/home/debug/Downloads: 1MB 
/home/debug/Music: 1MB