Perlコーディング初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
76:nobodyさん 08/03/10 17:53:13 dzM4A1jo マルチポスト君に応える回答は御座いませぬ 他池 77:75 08/03/10 19:29:36 自己解決出来たので報告です。 >>75のは、「文字コードが意味不明だｺﾞﾗｧ」と言われていたようでした。 （『encode』とは『UTF-8から』sjisやらiso-2022-jpやらにエンコードする機能。 　一度UTF-8に『decode』しなければならなかった。） 　以上、スレ汚し失礼しました。 78:nobodyさん 08/03/10 22:41:42 $lineの内容と同じ行がlog.txtになかったら、$lineをlog.txtの末尾に追記する といったものを作りたいのですが上手く行きません。 症状は、エラーは吐かず、同じ行があっても末尾に追記されてしまいます。 ご教授いただけたら助かります。 foreach my $aaa ( @{$data->{'aaa'}} ) { $line="This is $aaa->{'msg'}"; $chk=0; open( DAT, "./log.txt" ); while ( <DAT> ) { if( $_ == $line ){ $chk++; } } close( DAT ); if( $chk == 0 ){ open(FILE, ">>./log.txt"); $line="$line\n"; print FILE $line; close(FILE); } }

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

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