1

我有一个简单的问题，希望你们能帮助阐明。我正在稳步学习 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 将目录替换为空值，并将 SPACE 值设置为一个数组，并将空间值设置为空并将其设置为第二个数组，并且可以将 1 个数组设置为键给对方。

有没有人对解决这个问题的最佳方法有任何建议？

任何帮助表示赞赏。

谢谢，

迭戈

4

4 回答 4

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];

}
于 2012-06-19T03:41:08.780 回答
1

You can probably try and store them in a hash as follows:

#!/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;

Note that ' ' as the first argument of split will match any whitespace character (so we make the most of it). The output for the above should be something like:

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

You will have to work the original data into $data and check if a hash works for you.

于 2012-06-19T03:44:37.520 回答
0

我相信你们 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？即在哪里可以将字符串输出拆分到第一个制表符分隔的字段？这是我必须探索的问题。

迭戈

于 2012-06-20T08:56:43.623 回答
0

老实说，我不确定您要完成什么。如果你只是想拥有一个包含 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
于 2014-04-12T03:52:05.957 回答