Perlについての質問箱 43箱目at TECHPerlについての質問箱 43箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト450:デフォルトの名無しさん 10/05/23 23:33:20 現在書いているコードも載せておきます。 http://uploader.moe.hm/cgi-bin/upload.cgi?mode=dl&file=2085 パス：perl 451:デフォルトの名無しさん 10/05/23 23:41:07 while (<IN>){ $line = $_; なんだこれ 452:デフォルトの名無しさん 10/05/23 23:48:02 ああー、そんなこと書いたこともあった 453:デフォルトの名無しさん 10/05/24 00:19:55 テキストファイルだと>>444のようにやるのは無理なのでしょうか？ 454:デフォルトの名無しさん 10/05/24 00:22:31 >>449 こんな感じかな。ネストがちょっと気持ち悪くてどうにかしたいけど http://codepad.org/I7NaSAPC >>450にソース上がってたのね。見てなかったわ 455:デフォルトの名無しさん 10/05/24 00:37:05 綺麗なコード書くなぁ 人の書いたコードは難しくて読めないことが多い俺にはちょうど良い読み易さだった 456:デフォルトの名無しさん 10/05/24 00:53:43 my $name ; while(<>){ $name = $_ if /^NAME/ ; next if ! ( /UOFTOKYO/ .. /^ID/ || eof ); print $name and undef $name if defined $name ; next if !(/^WORKS/ .. /^END/ ) ; print ； } 細かい所は知らん。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch