くだすれPerl（超初心者用）2at PHPくだすれPerl（超初心者用）2 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト50:nobodyさん 08/04/05 16:02:34 >>49 use strict; my $joined = join "", <>; my @matches = $joined =~ m{(<h\d>.*?</h\d>|<span>.*?</span>)}isg; print map "$_\n", @matches; モジュールは探したけどわからんかった。すまん それと、書いといて難なんだが勉強不足で>>47さんのコードがよく分からないけど こっちのコードだと、でかいファイルを処理するときにjoinで全部繋げてからやってるから たぶん、>>47さんのコードより表示するのが遅くなる キーボード打つ回数も多くなるし 51:nobodyさん 08/04/05 16:21:20 お世話になります>>45です 早速教えていただいたことを取り入れようとしてみたのですが 上手くいきませんでした 2種類あるタグは変数も２つに分けたほうがいいのでしょうか？ 格納の仕方を教えて下さい my $fileに<h1>～</h1>を格納 my $file2に<span>～</span>（複数行にわたる）を格納 ２つの変数が格納された後 $file と $file2 の２つの変数をmy @files取り入れるのはどうすればいいですか ハッシュは%linksとしたいです 書き込む時の事も２つになればどうすればいいのか？よくわかっていません foreach my $file (sort keys %links) { print FH qq|\t<li><a href="$file">$links{$file}</a></li>\n| } foreach my $file2 (sort keys %links) { print FH qq|\t<li>$file2</li>\n| } でいいのか変数格納できていないので確かめていないです どなたかよろしくお願い致します 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch