くだすれPerl（超初心 ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
512:nobodyさん 07/11/28 00:29:11 スレタイと>>1読んで反省した。 スタンダードな書き方で書くべきでした。 my $table = <<'EOF' ; 1,A,B,C 2,A,C,B 3,C,A,D EOF my %table ; foreach my $line ( split /\n/, $table ){ my @dat = split /,/, $line, 2 ; $table{$dat[1]} = $dat[0] ; } foreach my $line ( split /\n/, $log ){ my @dat = split /,/, $line, 2 ; print $dat[0] . ',' . $table{$dat[1]} . "\n" ; } 513:509 07/11/28 11:28:52 なるほど，これなら理解できそうです． この例では，一致させる列が順番になってますが，現在扱っているデータでは 順番にはなっていないのですが，整列してから処理したほうが良いですかねぇ？ わざわざ有難うございます． 助かりました． 514:509 07/11/28 13:38:32 何回も申し訳ありませんが， $tableないし$logデータは別ファイルに保存されているので，ファイルから 読み出しを行ったので，配列として読み出したのですがこの場合処理は どうなるのでしょうか．
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4295日前に更新/307 KB
担当:undef