21 lines
370 B
Perl
21 lines
370 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use autodie;
|
||
|
|
use POSIX qw(strftime);
|
||
|
|
use File::Temp qw/ tempfile tempdir /;
|
||
|
|
use Text::CSV;
|
||
|
|
|
||
|
|
my $file = "widget-18465-20200611.txt";
|
||
|
|
open my $fh, "<", $file;
|
||
|
|
|
||
|
|
my $csv = Text::CSV->new({binary => 1, auto_diag => 1});
|
||
|
|
|
||
|
|
my $header = $csv->getline($fh);
|
||
|
|
|
||
|
|
while (my $row = $csv->getline($fh)) {
|
||
|
|
print "$row->[1]\n";
|
||
|
|
}
|
||
|
|
close $fh;
|
||
|
|
|