Perlについての質問箱 30箱目at TECHPerlについての質問箱 30箱目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト122:デフォルトの名無しさん 07/03/23 10:24:01 >>119 ググレカス http://module.jp/blog/monday_module_HTML-LinkExtor.html 123:デフォルトの名無しさん 07/03/23 17:56:12 突然DOMで対抗してみたり javascript:a=document.getElementsByTagName('a');b='';for(i=0;i<a.length;i++)b+=a[i].href+'<br>';document.write(b); 124:デフォルトの名無しさん 07/03/26 16:19:01 >>117 pasv() しても駄目か? ファイヤーウォールがある場合は passive mode にしないと駄目なことがあるぞ。 125:デフォルトの名無しさん 07/03/28 11:20:00 初心者質問で申し訳ないのですが、perlでコロン単体にはどのような意味があるのでしょう。 リファレンスを引いても載ってないし...。 126:デフォルトの名無しさん 07/03/28 11:49:02 三項演算子? 127:デフォルトの名無しさん 07/03/28 11:54:00 >>126 下記（*）の$_の手前にあるヤツなんですが・・ # CSV形式の $line から値を取り出して @values に入れる { my $tmp = $line; $tmp =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/; @values = map {/^"(.*)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_} …（*） ($tmp =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g); } Perlメモ http://www.din.or.jp/~ohzaki/perl.htm#CSV2Values 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch