2007年05月31日

久しぶりに Perl の Programming

ちょっとした検証用で小さい Program を組んでみた。

#!/usr/bin/perl -w
use strict;

my $file = shift(@ARGV);
my $minus_file = shift(@ARGV);

open(FH ,$file) || die("Can't open file: $!\n");
my $csv;
chop(@$csv = );
close(FH);

open(FH ,$minus_file) || die("Can't open file: $!\n");
my $minus_csv;
chop(@$minus_csv = );
close(FH);

my $hash;

for(@$csv){
if(exists($hash->{$_})){
print('<' . $_ . "\n");
}
else{
$hash->{$_} = 1;
}
}

my $minus_hash;

for(@$minus_csv){
if(exists($minus_hash->{$_})){
print('>' . $_ . "\n");
}
else{
$minus_hash->{$_} = 1;
}
}

for(sort(keys(%$hash))){
if(exists($minus_hash->{$_})){
delete($minus_hash->{$_});
next();
}

print('+' . $_ . "\n");
}

for(sort(keys(%$minus_hash))){
print('-' . $_ . "\n");
}

続きを読む


posted by mimic28号 at 18:45| 東京 ☀| Comment(0) | TrackBack(0) | 密かな楽しみ | このブログの読者になる | 更新情報をチェックする
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。