くだすれPerl（超初心者用）2

くだすれPerl（超初心 ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

306:nobodyさん
 08/06/21 07:47:06 
minibbsあたりのソースで見ましたね＞余計なエスケープ

307:nobodyさん
 08/06/21 17:19:06 
>>305 
print &autolink($comment); 
 
sub autolink { 
    my $text = $_[0]; 
    $text =~ s{(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)}{<a href="$1">$1</a>}g; 
    return $text; 
} 
 
参考: Perlメモ 
http://www.din.or.jp/~ohzaki/perl.htm#httpURL

308:うっとりハムちゃん
 08/06/21 19:10:28 
できました！！！ 
とても親切で、どうもありがとうございました！！ 
助かりました！　m(_ _)m

309:297
 08/06/21 21:40:03 etCJxH2B
遅くなりました。 
ありがとうございました。

310:nobodyさん
 08/06/23 09:49:20 
遅くなったのは、教わったとおりにsleepしてから書き込んだから

311:nobodyさん
 08/06/23 20:42:58 
だれかボスケテ。 
 
---post_data.cgi--- 
use　CGI::Lite 
 
#read(STDIN,$buff,$ENV{'CONTENT_LENGTH'}); 
$param　=　CGI::Lite->new()->parse_form_data('POST'); 
 
print　"Content-Type:　text/plain\n\n"; 
print　"$buff\n"; 
for　(sort(keys(%$param))){ 
　　　　print　"$_　=　"　.　$param->{"$_"}　.　"\n"; 
} 
つう、なんの変哲もないファイルを書いて、これに、 
 
---test.js--- 
function　reQuested_files(　data,method,fName,async,callback){ 
　　　　var　r_obj　=　crHttpReq(); 
　　　　r_obj.onreadystatechange　=　function(){ 
　　　　if(r_obj.readyState　==　4){　callback(r_obj);　} 
　　　　} 
　　　　r_obj.open(　'POST','post_data.cgi',async　); 
　　　　r_obj.setRequestHeader("Content-Type","application/x-www-form-urlencoded"); 
　　　　r_obj.send(　'a=abcdeFG&b=123.4567&z=zzz'　); 
} 
 
から、javascriptのXMLHttpRequest(所謂ajaxってやつ)でのPOST送信のテストをしたんだけども・・・、

次ページ