| 無題 投稿者：たっちゃん 投稿日：2023/06/16(Fri) 07:53 No.565 | |
|
 | サツマイモ、ラデッシュ(二十日大根)アフリカで作るべき物。
薪を燃料にして蒸気発電機ポータブル?オプション。
|
| Re: 無題 たっちゃん - 2023/07/13(Thu) 14:56 No.566 | |
|
|
| あれなぁ、謝らない言ってるから、謝ってるのみんな消すのよ。そして読んでみ。謝る必要ないから。
|
| Re: 無題 たっちゃん - 2023/07/13(Thu) 15:39 No.567 | |
|
|
| 最後の方。バカでなかったら、本当の意味が分かるはずだ。となる。
|
| Re: test.cgi たっちゃん - 2023/07/15(Sat) 21:00 No.568 | |
|
|
| #!C:/Perl/bin/perl
$it_time = time;
Tab $my_time = $it_time;
if(-f "./my_control.cgi"){
Tab open(INX,'<',"./my_control.cgi") || die;
Tab $my_timei = <INX>;
Tab $my_count = <INX>;
Tab close(INX);
Tab chomp($my_timei);
Tab chomp($my_count);
Tab if($my_count >= 60){$my_count = 0;}
}else{
Tab $my_time = $it_time;
Tab $my_count = 0;
}
#witefile;
#sub witefile {
Tab $mycount=$my_count;
Tab $my_count++;
Tab open(OUTX,'>',"./my_control.cgi") || die;
Tab print OUTX "$my_time\n";
Tab print OUTX "$my_count\n";
Tab close(OUTX);
Tab $my_count++;
#}Tab
# $mycount =3;
sub err {
Tab $my_time = $it_time;
Tab $my_count = 0;
#Tab witefile;
#Tab return;
}
$my_dir = $mycount % 30;
print "Location: ".'htt p://localhost/test-cgi/'.$my_dir.'/index.html'."\n\n"; # index.html is taget URL.
exit;
|
| Re: 無題 たっちゃん - 2023/07/15(Sat) 22:31 No.569 | |
|
|
| IP検査して、近い所にサテライトあったらアカウントかえられるのや。
.'htt p://localhost/test-cgi/'
そこが、自分のなら、YouTubeがニコニコ動画に助けを借りたり。
|
| Re: 無題 たっちゃん - 2023/07/16(Sun) 18:41 No.571 | |
|
|
| #!C:/perl/bin/perl
#!/usr/local/bin/perl
print "Content-type:text/html; charset=utf-8\n\n";
print <<EOF ;
<!DOCTYPE html">
<html lang="ja">
<head>
<meta charset="utf-8">
<title>test</title>
</head>
<BODY BGCOLOR="#ffffff">
<h1>test</h1>
EOF
print "1<br>";
print "test <br>";
$url1 = "テキスト書き出し https://ja.wikipedia.org/wiki/日本 ここ でhttp://tattyan0-0.sakura.ne.jp/test/さくら.cgi#さくら テキスト終わり<br>http s://もhtt p://moだめや。https://ja.wikipedia.org/wiki/日本%E3%80%80にっぽん https://ja.wikipedia.org/wiki/りんな \n";
print "$url1 <br>";
$url1 =~ s/ / /g;
$url1 =~ s/</ </g;
$url1 =~ s/</ </g;
$url1 =~ s/([^=^\"]|^)(https?\:[\S]+)/$1 <a href=\"$2\" target=\"~_blank\">$2<\/a>/g;
$url1 =~ s/ </</g;
$url1 =~ s/ </</g;
$url1 =~ s/ / /g;
print "$url1 <br>";
print "<br><br><br>\n";
print "<br><br><br>\n";
print "<br><br>\n";
print "<div id=さくら></div>\n";
print "$url1<br>";
Tab $host = $ENV{'REMOTE_HOST'};
Tab $addr = $ENV{'REMOTE_ADDR'};
print " $host $addr<br>\n";
print <<EOF ;
</BODY>
</html>
EOF
exit;
|
| Re: 無題 たっちゃん - 2023/07/16(Sun) 18:48 No.572 | |
|
| Re: 無題 たっちゃん - 2023/07/16(Sun) 23:11 No.573 | |
|
|
| #!C:/perl/bin/perl
#!/usr/local/bin/perl
print "Content-type:text/html; charset=utf-8\n\n";
print <<EOF ;
<!DOCTYPE html">
<html lang="ja">
<head>
<meta charset="utf-8">
<title>test</title>
</head>
<BODY BGCOLOR="#ffffff">
<h1>test</h1>
EOF
$settei = 0; #0 半角空白のみで終わる 1 半角と全角空白で終わる
print "1<br>";
print "test <br>";
$url1 = "テキスト書き出し https://fmv-mypage.fmworld.net/websearch/webSearch.html?q=検索 日本 でhttp://tattyan0-0.sakura.ne.jp/ テキスト終わり<br>http s://もhtt p://moだめや。https://fmv-mypage.fmworld.net/websearch/webSearch.html?q=日本%E3%80%80にっぽん https://www.bing.com/search?q=りんな
(AI)\n";
print "$url1 <br>";
if($settei == 1){
Tab print "\$settei=$settei :1 半角と全角空白と改行で終わる<br>\n";
Tab $url1 =~ s/ / /g;
}else{Tab print "\$settei=$settei :0 半角空白と改行で終わる<br>\n";}
$url1 =~ s/</ </g;
$url1 =~ s/</ </g;
$url1 =~ s/([^=^\"]|^)(https?\:[\S]+)/$1 <a href=\"$2\" target=\"~_blank\">$2<\/a>/g;
$url1 =~ s/ </</g;
$url1 =~ s/ </</g;
if($settei == 1){
Tab $url1 =~ s/ / /g;
}
print "$url1 <br>";
print "<br><br><br>\n";
print "<br><br><br>\n";
print "<div id=さくら></div>\n";
print "$url1<br>";
Tab $host = $ENV{'REMOTE_HOST'};
Tab $addr = $ENV{'REMOTE_ADDR'};
print " $host $addr<br>\n";
print <<EOF ;
</BODY>
</html>
EOF
exit;
|
| Re: 無題 たっちゃん - 2023/07/16(Sun) 23:26 No.574 | |
|
|
| #!C:/perl/bin/perl
#!/usr/local/bin/perl
print "Content-type:text/html; charset=utf-8\n\n";
print <<EOF ;
<!DOCTYPE html">
<html lang="ja">
<head>
<meta charset="utf-8">
<title>test</title>
</head>
<BODY BGCOLOR="#ffffff">
<h1>test</h1>
EOF
$settei = 0; #0 半角空白のみで終わる 1 半角と全角空白で終わる
print "1<br>";
print "test <br>";
$url1 = "テキスト書き出し https://fmv-mypage.fmworld.net/websearch/webSearch.html?q=検索 日本 でhttp://tattyan0-0.sakura.ne.jp/ テキスト終わり<br>http s://もhtt p://moだめや。https://fmv-mypage.fmworld.net/websearch/webSearch.html?q=日本%E3%80%80にっぽん https://www.bing.com/search?q=りんな
(AI)\n";
print "$url1 <br>";
if($settei == 1){
Tab print "\$settei=$settei :1 半角と全角空白と改行で終わる<br>\n";
Tab $url1 =~ s/ / /g;
}else{Tab print "\$settei=$settei :0 半角空白と改行で終わる<br>\n";}
$url1 =~ s/</ </g;
$url1 =~ s/</ </g;
$url1 =~ s/([^=^\"]|^)(https?\:[\S]+)/$1 <a href=\"$2\" target=\"~_blank\">$2<\/a>/g;
$url1 =~ s/ </</g;
$url1 =~ s/ </</g;
if($settei == 1){
Tab $url1 =~ s/ / /g;
}
print "$url1 <br>";
print "<br><br><br>\n";
print "<br><br><br>\n";
print "<div id=さくら></div>\n";
print "$url1<br>";
Tab $host = $ENV{'REMOTE_HOST'};
Tab $addr = $ENV{'REMOTE_ADDR'};
print " $host $addr<br>\n";
print <<EOF ;
</BODY>
</html>
EOF
exit;
|
| Re: 無題 たっちゃん - 2023/07/17(Mon) 09:03 No.576 | |
|
|
| #!C:/perl/bin/perl
#!/usr/local/bin/perl
print "Content-type:text/html; charset=utf-8\n\n";
print <<EOF ;
<!DOCTYPE html">
<html lang="ja">
<head>
<meta charset="utf-8">
<title>test</title>
</head>
<BODY BGCOLOR="#ffffff">
<h1>test</h1>
EOF
$settei = 0; #0 半角空白のみで終わる 1 半角と全角空白で終わる 2 英のみ 3 しない
print "1<br>";
print "test <br>";
$url1 = "テキスト書き出し https://fmv-mypage.fmworld.net/websearch/webSearch.html?q=検索 日本 でhttp://tattyan0-0.sakura.ne.jp/index.htmlテキスト 終わり<br>http s://もhtt p://moだめや。https://fmv-mypage.fmworld.net/websearch/webSearch.html?q=日本%20にっぽん https://www.bing.com/search?q=りんな
(AI)https://www.bing.com/search?q=rinna%20AI%20顔 誕生 \n";
# $url1 = "ht tp://"; #"http://"; #"しないテスト";
print "$url1<br>";
if($url1 !~ m/https?\:[\w\.\~\-\/\?\&\+\=\:\(\)\@\%\;\#\%]/g){$settei = 3;}
if($settei == 0 || $settei == 1 || $settei == 2){
Tab if($settei == 2){
Tab Tab print "\$settei=$settei :2 英字と改行で終わる<br>\n";
Tab Tab $url1 =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\+\=\:\(\)\@\%\;\#\%]+)/$1<a href=\"$2\" target=\"_blank\">$2<\/a>/g;
Tab }else{
Tab Tab if($settei == 1){
Tab Tab Tab print "\$settei=$settei :1 半角と全角空白と改行で終わる<br>\n";
Tab Tab Tab $url1 =~ s/ / /g;
Tab Tab }else{Tab print "\$settei=$settei :0 半角空白と改行で終わる<br>\n";}
Tab Tab $url1 =~ s/</ </g;
Tab Tab $url1 =~ s/</ </g;
Tab Tab $url1 =~ s/([^=^\"]|^)(https?\:[\S]+)/$1 <a href=\"$2\" target=\"~_blank\">$2<\/a>/g;
Tab Tab $url1 =~ s/ </</g;
Tab Tab $url1 =~ s/ </</g;
Tab Tab if($settei == 1){
Tab Tab Tab $url1 =~ s/ / /g;
Tab Tab }
Tab }
}else{ print "\$settei=$settei :3 変換しない<br>\n";}
print "$url1 <br>";
print "<br><br><br>\n";
print "<br><br><br>\n";
print "<div id=さくら></div>\n";
print "$url1<br>";
Tab $host = $ENV{'REMOTE_HOST'};
Tab $addr = $ENV{'REMOTE_ADDR'};
print " $host $addr<br>\n";
print <<EOF ;
</BODY>
</html>
EOF
exit;
|
|
