perl - 删除打印到 csv 的重复条目

Question

我有一个打印到 csv 的文件。

我已经设法删除重复的label.

我无法为service_name或重新创建此过程total_price。

输出进入 csv。

这是一项学习任务，所以我选择不使用额外的模块。

my @all_costs = all_shipping_costs();

foreach my $info(@all_costs) {
  foreach my $rate(@ {
    $info - > {
      'rates'
    }
  }) {}
}

my $filename = "beans.csv";
my @headings = ("Country", "Shipping Description", "Price");

#
Write out to the csv file
open(my $fh, '>', $filename) or die "Could not open file '$filename' $!";

print $fh join(",", @headings).
"\n";

my $current_label = "";
my $current_name = "";
my $current_price = "";

foreach my $info(@all_costs) {
  foreach my $rate(@ {
    $info - > {
      'rates'
    }
  }) {

    print $fh($info - > {
        'label'
      }
      ne $current_label ? "\n" : "");
    print $fh($rate - > {
        'service_name'
      }
      ne $current_name ? "" : "");
    print $fh($rate - > {
        'total_price'
      }
      ne $current_price ? "" : "");

    print $fh($info - > {
        'label'
      }
      ne $current_label ? $info - > {
        'label'
      } : "").
    ",".$rate - > {
      'service_name'
    }.
    ",".$rate - > {
      'total_price'
    }.
    "\n";

    #
    print Dumper $info;
    $current_label = $info - > {
      'label'
    };

  }
}

Answer 1

I feel compelled to clean this up

use strict;
use warnings;
use feature 'say';

# it seems like your data structure is something like this:
my @all_costs = (
    {
        label => 'label1',
        rate => {
            service_name => 'name1',
            total_price => 42
        }
    },
    {
        label => 'label2',
        rate => {
            service_name => 'name2',
            total_price => 43
        }
    }
);

my $fh = *STDOUT;
say {$fh} join ',', 'Country', 'Shipping Description', 'Price';
for my $info (@all_costs) {
    say {$fh} join ',', $info->{label}, $info->{rate}->{service_name}, $info->{rate}->{total_price};
}

change $fh to your filehandle

Answer 2

使用经过验证的模块，例如Text::CSV来创建文件。不要重新发明轮子。