スポンサーサイト

一定期間更新がないため広告を表示しています

カテゴリ:- | | - | -
perlのプログラム作成練習
EXCELを操作しているときに、データを一意にして取り出したいとき、どんな操作があるか。
ピボットを使うと一番早くてほしいデータがとれました。
他の方法として、私はperlを利用してデータを一意にします。


ソースは、これだよ。


open(FILE,'moto_jis.txt') or die "$!";
open(NEWFILE, '> shukei_hush.txt') or die "$!";
@line = <FILE>;
close(FILE);
foreach $line (@line){
$counter{$line}++;
}
foreach $line(sort keys %counter){
print(NEWFILE "$counter{$line}",":","$line");
}
close(NEWFILE);
open(IN,'shukei_hush.txt') or die "$!";
while(<IN>){
$data = $_;
($kazu,$koumoku) = split(/:/,$data);
chop $koumoku;
$newdata = join("¥t",$koumoku,$kazu);
push @all,$newdata;
}
close(IN);
open(OUT,'> kotae.txt') or die "$!";
foreach (@all) {
print OUT $_,"¥n";
}
close(OUT);


一意の集計 掲示板版



カテゴリ:perl | 19:54 | comments(9) | -
| 1/1PAGES |