■掲示板に戻る■ 検索 全部 1- 101- 201- 301- 401- 501- 601- 701- 最新50


SEX画像応募
ログファイルのサイズが300(kb)を超えているので、これ以上投稿できません。
12 名前：たけもと 2007/01/13 15:13 ID:uOze5mYx
q{\xff\n\015"]*(?:\\\\[^\x80-\xff][^\\\\\x80-\xff\n\015"]*)*"))*@(?:[^(} .
q{\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\\\[\]\0} .
q{00-\037\x80-\xff])|\[(?:[^\\\\\x80-\xff\n\015\[\]]|\\\\[^\x80-\xff])*} .
q{\])(?:\.(?:[^(\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,} .
q{;:".\\\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\\\x80-\xff\n\015\[\]]|\\\\[} .
q{^\x80-\xff])*\]))*};
&jcode'convert(*str,'euc');
$result = '';
$skip = 0;
while ($str =~ /($text_regex)($tag_regex)?/gso) {
last if $1 eq '' and $2 eq '';
$text_tmp = $1;
$tag_tmp = $2;
if ($skip) {
$result .= $text_tmp . $tag_tmp;
$skip = 0 if $tag_tmp =~ /^<\/[aA](?![0-9A-Za-z])/;
} else {
$text_tmp =~ s{($http_URL_regex|$ftp_URL_regex|($mail_regex))}
{my($org, $mail) = ($1, $2);
(my $tmp = $org) =~ s/"/"/g;
$org1 = $org;
if (($linkurl == 1) && ($mail eq '')) { $org = $ulink_text; }
elsif (($linkurl == 1) && ($mail ne '')) { $org = $mlink_text; }
elsif (($linkurl == 2) && ($mail eq '')) { $org = "<img src=\"$ulink_gif\" alt=\"$org1\" border=\"0\" align=\"absmiddle\">"; }
elsif (($linkurl == 2) && ($mail ne '')) { $org = "<img src=\"$mlink_gif\" alt=\"$org1\" border=\"0\" align=\"absmiddle\">"; }
'<a href="' . ($mail ne '' ? 'mailto:' : '') . "$tmp\"". ($mail ne '' ? '':' target="_blank"').">$org</a>"}ego;
$result .= $text_tmp . $tag_tmp;
$skip = 1 if $tag_tmp =~ /^<[aA](?![0-9A-Za-z])/;
if ($tag_tmp =~ /^<(XMP|PLAINTEXT|SCRIPT)(?![0-9A-Za-z])/i) {
$str =~ /(.*?(?:<\/$

305/300k

- Flash CGI/Mini Thread Version 3.33βi -