1

我有以下子将计算每个客户的购买次数。它曾经只有/总是 4 个类别，下面的脚本就足够了。

客户名单：

  • 阿尔法01
  • 阿尔法02
  • 阿尔法03
  • alpha04
  • 布拉沃01
  • 布拉沃02
  • 布拉沃03
  • 布拉沃04

由于列表已经增长到 >4，我需要帮助来修改脚本。我希望脚本灵活。脚本可以继续循环运行，直到找到最后一个/最大的可用数字（只是一个想法），而不是将“MYClientNo”固定为某个数字/值，然后只有它会停止并返回该值。

例如，“alpha”可以达到 06，“bravo”可以达到 22。但我预计它不会很快超过 100。任何人都可以帮忙吗？

sub GetCountMyClient {
    my @Line1 = @_;
    my @Count = (0, 0, 0, 0);
    foreach $myclient (@Line1) {
        my @MYClient       = split(/\s+/, $myclient);
        my @MYClientOutput = split(/:/, $MYClient[4]);
        #print $MYClientOutput[0]. "\n";
        my $MYClientNo     = substr($MYClientOutput[0], -2);
        #print $MYClientNo . "\n";
        if($MYClientNo eq "01") {
            $Count[0]+= 1;
        } elsif($MYClientNo eq "02") {
            $Count[1]+= 1;
        } elsif($MYClientNo eq "03") {
            $Count[2]+= 1;
        } elsif($MYClientNo eq "04") {
            $Count[3]+= 1;
        }
    }
    return @Count;
}

PS：我尽力识别代码，它在文本框中看起来正确，但不是在预览中。

4

2 回答 2

1

使用散列 ( %count)，其中散列键是客户端编号，散列值是计数。或者，您可以使用带有客户端编号的数组作为数组索引。

sub GetCountMyClient {
    my @Line1 = @_;
    my %count;

    foreach $myclient (@Line1) {
        my @MYClient       = split(/\s+/, $myclient);
        my @MYClientOutput = split(/:/, $MYClient[4]);
        #print $MYClientOutput[0]. "\n";
        my $MYClientNo     = substr($MYClientOutput[0], -2);
        #print $MYClientNo . "\n";
        $count{$MYClientNo}++;
    }
    return %count;
}
于 2012-05-23T07:59:23.573 回答
0

你可能会在这里找到count_by对List::UtilsBy你有帮助的东西。

use List::UtilsBy qw( count_by );

my %count = count_by { $_ =~ m/(\d+)$/ } @client_names;

假设该@client_names数组仅包含客户端的名称，这将返回一个散列，给出每种数字字符串的结尾数。

于 2012-05-23T15:19:58.720 回答