# にゃんこ戦争友達ID抽出用。にちゃんの
open LOG, "log"; while(<LOG>) { if (/\d+:/../ID:/) { next; } while(1) { last unless /(\w\w\w\w\w)/ ; $id{$1}++; s/(\w\w\w\w\w)//; } ; } print "$_ " foreach(keys %id)
open LOG, "log"; while(<LOG>) { if (/\d+:/../ID:/) { next; } while(1) { last unless /(\w\w\w\w\w)/ ; $id{$1}++; s/(\w\w\w\w\w)//; } ; } print "$_ " foreach(keys %id)