| main |
スポンサーサイト

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

カテゴリ:- | | - | -
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) | -
スポンサーサイト
カテゴリ:- | 19:54 | - | -
コメント

相手の女がテクニシャンすぎて即イキしちゃったわwwww
でも一回は一回だからな! キッチリ諭吉いただきましたwww
てか女も「かわいい」って笑ってたし、別に俺は悪くないよなー?
| ピュワァーっっっっちゅwwww | 2009/05/10 5:00 PM |

ちょww 普通の口ーションをあんな風に使うなんてどういうテクしてんだよww
ちょっとウソコ漏れたのに5万振り込んでくる金持ちの勢いには参りましたwww
| 大乱交スマッシュブラジャーズ | 2009/06/30 3:49 PM |

相互オナって約束だったけど、いざとなるとやっぱガマン出来ねw


まー相手もチ○ポ欲しがってたし結局セクったんだけど、
つーいウッカリ中 出 ししちゃったo(〃^▽^〃)o
| みんなホントにオナ鑑だけなの? | 2010/02/02 4:14 AM |

チチコスの子の乳をちちくりまくったぞw
したら割れ目からすっげぇ気がいっぱい溢れてきたから、
オラの元気玉をトコトンぶっぱなしてやったぞ!!!!

| オラわくわくしてきたぞw | 2010/02/07 7:07 PM |

騎 乗 位してもらうバ イ トおもろすぐるwwwwww
オレ動かなくても勝手にイって5万くれるし。。。

ちょっと試すだけのつもりだったのになぁ(^^;
| 天職キタ(*´ω`*) | 2010/02/11 12:32 AM |

セ レ ヴ の 巨 乳ちゃんに買ってもらったwwwww

パ イ ズ リとかしてもらって4回ほどヌいてもらったんだが
突然12万も渡されて、マジ腰抜けるかとオモタwwwwww

つか「1 回 3 万 = 1 発 3 万」ってことなのなwwww
住む世界のレヴェルが違いすぎるぜ。。。( ̄▽ ̄;)
http://m-vgbyr.uto.sirusiru.net/
| 佐々木モジ郎 | 2010/07/06 12:49 PM |

http://s3sv3dd.tida.psyrents.net/
ここで何故かオレのメタボディが超人気wwwww
この前も一週間で8人と会って、40万も稼いじまった!!笑
おかげで美味いモンばっか食ってるから、さらにメタボディ増量中wwww
| 見習いの豚 | 2010/07/12 5:34 PM |

竿とバックの同時攻めなんて反則だ押!
耐えられるわけないじゃん!!!
・・・でも、これハマるかもなぁww
http://nhz24r1.gim.uerock.net/
| カドルト | 2011/01/10 9:48 AM |

紳助引退の真相はこちら
http://yk9s0fh.ato.zetto.info/yk9s0fh/
| AtoZ | 2011/08/26 8:05 PM |
コメントする