【Perl 】初心者コーナーPart5
335 ：324：
度々すみません。>>325 でrubbish_listerさんに教えていただいた
#!/usr/bin/perl
use IO::File;
use strict;
IO::File->new('a.csv');
chomp(my @b = grep{ (split/,/)[3] eq 'ok' } IO::File->new('a.csv')->getlines);
IO::File->new('>b.csv')->print( map{ join("\t", (split/,/)[2, 5]) . "\n" }@b );
__END__
で、6番目の項目が重複していたら b.csv に書き出さない、
とするにはどうしたら良いでしょう?
#!/usr/bin/perl
use IO::File;
use strict;
IO::File->new('a.csv');
chomp(my @b = grep{ (split/,/)[3] eq 'ok' } IO::File->new('a.csv')->getlines);
IO::File->new('>b.csv')->print( map{ join("\t", (split/,/)[2, 5]) . "\n" }@b );
__END__
で、6番目の項目が重複していたら b.csv に書き出さない、
とするにはどうしたら良いでしょう?
|
|
|