perl - 如何将字符串作为输入以在 perl 中剪切命令

Question

我有一个字符串说my $str = "Hello Hi Bye"，我想提供这个字符串来剪切命令获取字段。谁能帮我怎么做？

那这个呢？我实际上是想这样做......我有一个数组:

my @str = ("hello hi bye","hello hi you","abc def ghi","abc def jkl");

我想提供这个数组来切割前两个字段并获得其中唯一的一个。类似的输出应该是 "hello hi" 和 "abc def" 并获取这两个字段的这种独特组合的计数，这里是 2..

Answer 1

split

use warnings;
use strict;

my $str = "Hello Hi Bye";
my @fields = split /\s+/, $str;

每当你想要“唯一”时，想想“哈希”:

use warnings;
use strict;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;

my %count;
my @str = ("hello hi bye","hello hi you","abc def ghi","abc def jkl"); 
for (@str) {
    my @flds = (split)[0..1];
    $count{"@flds"}++;
}
print Dumper(\%count);

__END__

$VAR1 = {
          'abc def' => 2,
          'hello hi' => 2
        };