Perlコーディング初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
148:138 08/03/19 16:21:54 uoUGbd4u ＞147さん　RESありがとうございます。 ＞143さん　おっしゃるとおりでした。 すいません。デバッグしてみますと整数になっていなかった訳ではなくバグでした。 下記のようなプログラムでタブ区切りのファイル内の$filename （フォーマットは「名前\t\t\t\t\t\t\t数\t\n」） でハッシュデータで　$hash{名前}->数 とやろうとして下記のようにプログラムを組んでみました。 ---------------- open(FH,"$filename"); my @data = <FH>; close(FH); my %hash = (); foreach(@data){ my @splitdata= split(/\t/); if(defined $hash{$splitdata[7]}){ print "<>$splitdata[7]no$hash{$splitdata[7]} ha mouaru<><br>"; }else{ $hash{$splitdata[7]} = 0; print "$splitdata[7] wo sengen<br>"; } } my $key; foreach $key ( keys %hash ) { print "$key<br>"; foreach(@data){ my @splitdata= split(/\t/); if($key eq $splitdata[7]){ print "$hash{$key} ni $splitdata[10] tumari $hash{$key} += $splitdata[10];wo tasu<br>"; $hash{$key} += $splitdata[10]; print "$hash{$key} : $hash{$splitdata[7]}<br>"; } } } （続く）

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4955日前に更新/211 KB
担当:undef