Diff for array in Perl


my %tracker = ();
$tracker{$_} .= 1 for @alist;
$tracker{$_} .= 2 for @blist;
for (sort keys %tracker) {
if ($tracker{$_} !~ /1/) { print "$_ has been added to alist\n"; }
elsif ($tracker{$_} !~ /2/) { print "$_ has been deleted from alist\n"; }
else { print "$_ is in both alist and blist\n"; }
}


ref:
http://www.ksknet.net/cat34/post_143.html
2017-07-26 : Work-Linux-Perl : コメント : 0 : トラックバック : 0
Pagetop
コメントの投稿
非公開コメント

Pagetop
« next  ホーム  prev »

プロフィール

zive

Author:zive
大阪在住、男

ブログ検索

月別アーカイブ

FC2カウンター