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 将目录替换为空值，并将空格值设置为一个数组，并将空格值设置为空并将其设置为第二个数组，并且可以设置 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);

数组@a1 保存第一个字符串的值，@a2 保存第二个字符串的值。

我对你们的问题是，是否有与 unix 'cut' 实用程序等效的 perl？ IE。在哪里可以将字符串输出拆分到第一个制表符分隔的字段？这是我必须探索的问题。

迭戈

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";
}

产生输出

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