2008-01-18から1日間の記事一覧
#!/usr/bin/perl use strict; use warnings; if(scalar(@ARGV) != 2){ warn('usage: ' . $0 . ' TEXT1 TEXT2' . "\n"); exit(); } my $file = shift(@ARGV); my $minus_file = shift(@ARGV); open(FH ,$file) || die("Can't open file: $!"); my $csv; chop(…