私的良スレ書庫
不明な単語は2ch用語を / 要望・削除依頼は掲示板へ。不適切な画像報告もこちらへどうぞ。 / 管理情報はtwitterでログインするとレス評価できます。 登録ユーザには一部の画像が表示されますので、問題のある画像や記述を含むレスに「禁」ボタンを押してください。
元スレperlスクリプト⇒phpスクリプト移植要望スレ
php スレッド一覧へ / php とは? / 携帯版 / dat(gz)で取得 / トップメニューみんなの評価 :
レスフィルター : (試験中)
前へ
【駱駝】perl2phpを使ってみるスレ【Zend】
http://ex3.2ch.net/test/read.cgi/shar/1054887959/
http://ex3.2ch.net/test/read.cgi/shar/1054887959/
http://cgiroom.nu/list/level_up/html/index.htm
これをPHPにしてください。
これをPHPにしてください。
>>223
ちょちょいとやってみたけど、
よく考えれば勝手にPHPにしてここに書いたりしたらまずいやん。
そこの管理人氏が見たら不快に思うかもしれんし。
改造・再配布OKなとこ以外はちゃんと許可とってくるのが礼儀ちがう？
ちょちょいとやってみたけど、
よく考えれば勝手にPHPにしてここに書いたりしたらまずいやん。
そこの管理人氏が見たら不快に思うかもしれんし。
改造・再配布OKなとこ以外はちゃんと許可とってくるのが礼儀ちがう？
確かに...改造・再配布OKとは一切かかれてないです。
管理人に連絡とりたいのですが、放置プレイ中？メールは送ってみました。
それで、ﾒｰﾙでお願いできないでしょうか...。
http://adgjm.net/ura/mmm.htm この匿名で、よろしければお願いします。
管理人に連絡とりたいのですが、放置プレイ中？メールは送ってみました。
それで、ﾒｰﾙでお願いできないでしょうか...。
http://adgjm.net/ura/mmm.htm この匿名で、よろしければお願いします。
お絵描き掲示板って、まだPHPのやつ無いんだよねぇ。
今配布されてるのって、CGIでスクリプトが巨大なものしか無いから
単純に、絵がうｐできて、ログ管理がしっかりしてるだけのものでも
誰か作成してくれませんか？
今配布されてるのって、CGIでスクリプトが巨大なものしか無いから
単純に、絵がうｐできて、ログ管理がしっかりしてるだけのものでも
誰か作成してくれませんか？
>>231
ｾﾞﾋ作ってくれ
ｾﾞﾋ作ってくれ
#print "Content-type:text/html\n\n";
$datafile = "../random/data/text.txt";
$lockfile = "../random/data/txtlck.dat";
if(! -f $datafile){
open(OUT,">$datafile");
close(OUT);
}
if(!open(IN,"$datafile")){unlink $lockfile; print 'ファイルOPENエラー',"\n"; exit;}
@line = <IN>;
close(IN);
$max = @line;
srand(time ^ ($$ + ($$ << 15)));
$cnt = int(rand($max));
($ct,$date,$midashi,$txt) = split(/<>/,$line[$cnt]);
$ct++;
chomp $color;
$line[$cnt] = "$ct<>$date<>$midashi<>$txt";
if(!open(OUT,">$datafile")){unlink $lockfile; print 'ファイル書きこみエラー',"\n"; exit;}
print OUT @line;
close(OUT);
unlink $lockfile;
$text = "$midashi<p>";
1;
これをPHPにして下さい。よろしくお願いします。
$datafile = "../random/data/text.txt";
$lockfile = "../random/data/txtlck.dat";
if(! -f $datafile){
open(OUT,">$datafile");
close(OUT);
}
if(!open(IN,"$datafile")){unlink $lockfile; print 'ファイルOPENエラー',"\n"; exit;}
@line = <IN>;
close(IN);
$max = @line;
srand(time ^ ($$ + ($$ << 15)));
$cnt = int(rand($max));
($ct,$date,$midashi,$txt) = split(/<>/,$line[$cnt]);
$ct++;
chomp $color;
$line[$cnt] = "$ct<>$date<>$midashi<>$txt";
if(!open(OUT,">$datafile")){unlink $lockfile; print 'ファイル書きこみエラー',"\n"; exit;}
print OUT @line;
close(OUT);
unlink $lockfile;
$text = "$midashi<p>";
1;
これをPHPにして下さい。よろしくお願いします。
perlからphpに移植したいとか、
こういうのって頼んだらやってくれる会社あるのかな？
俺の作ったPHPスクリプトをPerlに移植して欲しいんだけど。
ちなみに中身滅茶苦茶で3000行くらい。結構かねとられそうだな。
こういうのって頼んだらやってくれる会社あるのかな？
俺の作ったPHPスクリプトをPerlに移植して欲しいんだけど。
ちなみに中身滅茶苦茶で3000行くらい。結構かねとられそうだな。
だりかＥＢＳをＰＨＰ化して下さい。
もう既にしてるところもあるけど、奴らとろくてね。
もう既にしてるところもあるけど、奴らとろくてね。
>>242はﾄﾛｲ
どなたか以下のperlをphpにして頂けないでしょうか？
http://www7.big.or.jp/~falcon/cgi/link.htm
http://www7.big.or.jp/~falcon/cgi/link.htm
ソースです
#!/usr/bin/perl
#呼び出されるファイル ***.dat#一行にひとつずつＵＲＬを入れる
#データファイルがＣＧＩと同じフォルダに入れれない場合相対パスで記述します。
$dir = './';#同一フォルダにある場合はこのまま。
#------書き換え不要-------------------
srand(time);#乱数の初期化
$buffer = $ENV{'QUERY_STRING'};
# フォームをデコード
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
}
$FORM{$name} = $value;
if ($FORM{'p'} eq ""){ &error("ファイルの指定がありません。");}
$linkfile = $dir.$FORM{'p'}.".dat";
if (!open(DB,$linkfile)) { &error("ファイルの読み込みに失敗しました。"); }
@links = <DB>;
close(DB);
#!/usr/bin/perl
#呼び出されるファイル ***.dat#一行にひとつずつＵＲＬを入れる
#データファイルがＣＧＩと同じフォルダに入れれない場合相対パスで記述します。
$dir = './';#同一フォルダにある場合はこのまま。
#------書き換え不要-------------------
srand(time);#乱数の初期化
$buffer = $ENV{'QUERY_STRING'};
# フォームをデコード
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
}
$FORM{$name} = $value;
if ($FORM{'p'} eq ""){ &error("ファイルの指定がありません。");}
$linkfile = $dir.$FORM{'p'}.".dat";
if (!open(DB,$linkfile)) { &error("ファイルの読み込みに失敗しました。"); }
@links = <DB>;
close(DB);
続きです
if(@links){#ランダムにデータを一つ選ぶ
$link=$links[rand($#links+1)];
}else{&error("データがありません。");
}
print "Location: $link\n\n";
#エラールーチン
sub error{
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>ERROR</TITLE></HEAD><BODY>\n";
print "エラー発生<BR>\n";
print $_[0];
print "</BODY></HTML>\n";
exit;
}
if(@links){#ランダムにデータを一つ選ぶ
$link=$links[rand($#links+1)];
}else{&error("データがありません。");
}
print "Location: $link\n\n";
#エラールーチン
sub error{
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>ERROR</TITLE></HEAD><BODY>\n";
print "エラー発生<BR>\n";
print $_[0];
print "</BODY></HTML>\n";
exit;
}
ていうかマジでperl2phpを作るかね。
完全なものは大変でも支援程度のものなら可能かと。
文法ファイルさえ出来れば
既存の構文解析器生成系を使ってさ。
完全なものは大変でも支援程度のものなら可能かと。
文法ファイルさえ出来れば
既存の構文解析器生成系を使ってさ。
php スレッド一覧へ類似してるかもしれないスレッド
- フジモト＠PHPマスターを讃えるスレ (99) - [30%] - 2018/5/15 1:15
- 第二回 自作スクリプト発表会【PHP】 (109) - [25%] - 2019/5/9 7:45
- 2ch有志がPHPフレームワークを作るスレ (81) - [24%] - 2019/5/9 7:46
トップメニューへ / →のくす牧場書庫について