perlスクリプト⇒phpスクリプト移植要望スレ
■ このスレッドは過去ログ倉庫に格納されています
perlで書かれたCGIをPHPへの移植を希望するスレ。
随時受付中
どんなperlなCGIから、PHPへの移植要望が
続発するのか? (w >無視せずに反応するお前らも荒らし
こんな事を言うやつってネットの世界にどっぷりって感じだな。
CGIスクリプトをPHPスクリプトに変換するツールみたいのがありませんでしたっけ?
どなたかご存知じゃありませんか? >>466
無いんじゃない? 妙な変換してエラー潰していくよりは書いたほうが早いし。 >>467
そうですか…
どっかで見た気がしたもんで...
有難うございました 【CGI名】 THREAD BOARD
【配布先URL】 http://children.cside5.jp/web/
【依頼期限】 特に問いません
【依頼内容】 PHP化をお願いします 【CGI名】 urlmemo
【配布先URL】 ttp://derangeworld.hp.infoseek.co.jp/source
【依頼期限】 半年ぐらいなら待てます
【依頼内容】 PHPにして頂きたいです
多少機能を落としても構いませんので、どうかよろしくお願いします。 >>470
機能落としたら1行掲示板とどう違うの? >>471
1行掲示板ではタイトルを自動取得出来ません。
説明不足でしたが、タイトルを自動取得の機能はどうしても欲しいです。 >>470
タイトル取得関数だけ作った
PHP5以上が必要
ニュースサイトはソースが変わって取れなくなっているところがある
最初は修正してたけど結局いつかは使えなくなるわけで途中でやめた。
ttp://syobon.com/mini/src/mini11187.txt >>473
こんなに早く作って頂けるとは、思いませんでした。
本当にどうも有難うございます! >>474
いや、関数だけなので使えないと思うんだけど。 【CGI名】 Web Forum
【配布先URL】 ttp://www.kent-web.com/bbs/wforum.html
【依頼期限】 一ヶ月ぐらい。
【依頼内容】 多少の改造&PHP化
今まで蓄積した過去ログが勿体ないので、閲覧専用にした上でPHP化して頂けないかと思っています。
よろしくお願いします。 【CGI名】Lacerta
【配布先】http://cardplay.hp.infoseek.coLacerta.jp/cgi-lab.shtml
【依頼期限】問いません。
【依頼内容】PHP化のみ
Parlじゃ動作しなかったのでPHP化よろしくお願いします。 【CGI名】BBQ for PHP
【配布先】http://bbq.uso800.net/code.html
【依頼期限】問いません。
【依頼内容】PHP化 if(gethostbyname(join('.',array_reverse(explode( ".", $_SERVER['REMOTE_ADDR'])).'.niku.2ch.net') == "127.0.0.2") {
DispError("ERROR!","ERROR:PROXY規制中!");
}
こんな漢字化? >>477
表計算ソフトに放り込んで、データ構造を変えて保存汁
>>478
404 依頼者はPHPのバージョン書いたほうがいいと思うぞ DSBLをPHPでも使いたいので、お願いします。
# --- DSBL・・・
printf splice(@Out_String, 0, 1), $ip;
my $ip0 = join '.', unpack 'C4', gethostbyname(sprintf qq|%s.list.dsbl.org|, join '.', reverse split /\./, $ip);
$str = $ip0 =~ /^127/ ? qq|<span class="alert">LISTされてますよ( ̄ー ̄)ニヤリッ</span><em>
<a href="http://dsbl.org/listing?$ip">more details</a></em><br>\n| : qq|<span class="safe">まだ大丈夫。(^o^)</span><br>\n|;
ソースはhttp://sv2ch.baila6.jp/chk_proxy.cgi?sourceです。
PHP化を是非よろしくお願いします。バージョンは4.4.2です。 >>483
if (dsbl($_SERVER['REMOTE_ADDR'])) {
echo '<span class="alert">LISTされてますよ( ̄ー ̄)ニヤリッ</span><em>
<a href="http://dsbl.org/listing?' . htmlspecialchars($_SERVER['REMOTE_ADDR']) . '">more details</a></em><br>';
} else {
echo '<span class="safe">まだ大丈夫。(^o^)</span><br>';
}
function dsbl($dnsbl_target) {
$dnsbl_check = array('list.dsbl.org',
// 'niku.2ch.net'
);
if ($dnsbl_target) {
$rip = implode('.', array_reverse(explode('.', $dnsbl_target)));
for ($i = 0; $i < count($dnsbl_check); $i++) {
if (checkdnsrr($rip . "." . $dnsbl_check[$i] . '.', 'A')) {
$listed .= $dnsbl_check[$i] . ' ';
}
}
if ($listed) { return $listed; } else { return false; }
}
}
>>488
デバッグ中だったがお前の態度が気に入らないのでやめた
ttp://lint.s1.x-beat.com/up/img/up11291.gif >>491
やめろ
>>489
騙されずに最後までおねがい こんにちは。西口と申します。
現在私は情報商材の紹介ホームページを作成しています。
ホームページの全体像はできています。
そこで、そのホームページの中心ともいえるプログラムを組んでいただきたいと思っています。
ご協力お願いします。報酬として、アフェリエトノウハウなどを5本ほど(10万円相当)
を提供します。 >>494
10万でプログラムか。最低30万は用意しないと。
それにアフィリエイト1本で2万て終わってるでしょ。
どうしてもと言うならsohoビレッジへどうぞ。 2ちゃんでせんでんするなら
ひろゆきにおかねはらいましょうね(はぁと
亀レスだったorz >>483-484
PEAR使っていいなら
このほうが楽じゃない?
<?php
require_once('Net/DNSBL.php');
$dnsbl = new Net_DNSBL();
$dnsbl->setBlacklists(array('list.dsbl.org', 'xbl.spamhaus.org', 'sbl.spamhaus.org'));
if ($dnsbl->isListed($_SERVER['REMOTE_ADDR'])) {
die('block!!');
}
?> >>501
black listのモジュールもあるのか $html =~ s/&(?!#[0-9]+;|#x[0-9a-fA-F]+;|amp;|quot;|gt;|lt;)/&amp;$1/gi;
Perlで上記のようにして特定の&以外の&を&amp;に変換していますが
これをPHPに移植したいと思います。どう書けば良いでしょうか?
preg_replaceを使ってそのまま
$html = @preg_replace("/&(?!#[0-9]+;|#x[0-9a-fA-F]+;|amp;|quot;|gt;|lt;)/i", "&amp;\\1", $html);
と書いてみましたが、全ての&が&amp;に変換されてしまいました。
504ですが自己解決しました。
どうやら書き直したスクリプトが間違ってたみたいでした。
そんなネチネチした揚げ足取らなくてもいいだろうに・・・
スレタイ読めば分かるだろ。 このスレって必要性無い希ガス。。。
だれもperl⇒phpしてないやんけ。 perlとphp両方判るヤツは移植の必要性を感じないからだろう 何で一時期PHPがあんなに盛り上がってたんだろうね。。。 とゆーか素朴な疑問なんだけど
日本じゃ Perl>>PHP って感じだけど
外国で色んなスクリプト紹介してるとこ見ると、PHPスクリプト数の方が多いよな。
外国無料スペースでもPerlだけ可よりPHPだけ可の方が多いみたいだし
単純にそれだけじゃ計れないとは思うけど、あんま盛り上ってないのって日本だけ? 日本でもとっくにPHP>Perlですが
太古の財産にperlが多いだけで未だにperl使ってんのは2chとmixiくらい 業務レベルでWEBシステムだとServletに移ってきているからPerlもPHPも・・・ 山崎剛明は雑学の知識はかなり有るが、それ以外のことには正真正銘のバカだ 2chトリップ
#perl
$tripkey = "#istrip";
$tripkey = substr($tripkey,1,);
$salt = substr($tripkey.'H.',1,2);
$salt =~ s/[^\.-z]/\./go;
$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
$trip = crypt($tripkey,$salt);
$trip = substr($trip,-10);
$trip = sprintf("◆%s",$trip);
print "$trip";
おながいします。 >>523
$salt =~ s はpreg_replace
$salt =~ tr はstrtr
あとはそのまま phpの<?php とか書くのがウザいんですけど、どうしたらいいんでしょうか。
2500のフォルダーの中のファイルをファイル単位で
一定時間経過したファイルを自動削除するスクリプトを教えてください
素人より <?php
echo "hello";
?>
を出力するperlスクリプト募集してます。
30分で書き直しますよ。はやいですよ! ranklinkおながいしまつ。
あとphp Learnsっていうとこは閉鎖したんですかね?
MYSQL LINKRANKっていうの配布してたと思うんですが・・・ http://sugachan.dip.jp/download/
Sn UploaderのPHP化はできますでしょうか。
PHP4.xでもPHP5.xでも構いません。 PHPのロダは沢山あるが、それじゃダメなのかと小一時間。 本当ですね、>>10のヤツにします。
スレ汚しスマンコ 誘導されましたのでこちらで、、
【cgi名】metcha.cgi
【配布元】ttp://bach.istc.kobe-u.ac.jp/metcha/help.html
【依頼内容】phpへスクリプト移植おねがいします
UTF-8などでも文字化けがないとうれしいです
metcha.cgi
1500行+モジュール一部をPHP化・・・大人しくPerlで使った方がよくね? つーか移植の理由も書いてくれんと手の出しようが無い 【cgi名】upppu.cgi
【cgi内容】アルバム風、画像アップロード掲示板
【配布先】ttp://tackysroom.com/cgi_upppu.htm
【利用規約】http://tackysroom.com/page_cgi_hajimeni.htm
>>■再配布・無料レンタルに関しては、各スクリプトソース内部にある「著作権表記」を削除しなければ
どんなにカスタマイズされようがオッケーと致します。
PHPにリメイクをどなたかお願いできませんでしょうか?
cgiで動作させていましたが、高負荷で、PHPにしたら少しは
マシになるかなと思ったのですが、移植されているサイトさんなどは
ない様子なので、ゼヒお願いします。
質問スレから誘導されました。
下記のperlスクリプトをphpで書き直したいのですが、perlはわからないのでどなたかphpに直して頂けないでしょうか。
phpでプログラムを書いていてわからない所があり、参考になるプログラムを探した所perlしか見当たりませんでした。
下記のperlスクリプトは私が必要としているスクリプトの一部を書き出しました。
# IMG タグを変換する(cid方式にまとめる)
my $filelist = {};
$content =~ s#(< (?:IMG|INPUT) \s[^>]*? SRC=)
('[^'>]+'|"[^">]+"|[^">\s]+)
((?:\s+[^>]*)? >)
#&conv_img_tag( $1, $2, $3, $filelist )#gexi;
$content =~ s#(< (?:BODY|TABLE|TR|TD) \s[^>]*? BACKGROUND=)
('[^'>]+'|"[^">]+"|[^">\s]+)
((?:\s+[^>]*)? >)
#&conv_img_tag( $1, $2, $3, $filelist )#gexi;
$DEBUG and print STDERR "[img=",scalar(keys %$filelist)," tags]\n"; sub conv_img_tag {
my( $prefix, $src, $suffix, $imghash ) = @_;
return unless ref $imghash;
# "" で囲まれていたら
$src = $1 if ( $src =~ /^["'](.*)["']$/s );
# cid は img01 からカウントアップ
my $cnt = scalar keys %$imghash;
my $cid = sprintf( "cid%02d", $cnt + 1 );
# 既に同じ画像を使っていたら同じ cid とする
foreach my $prev ( sort keys %$imghash ) {
if ( $imghash->{$prev} eq $src ) {
$cid = $prev;
last;
}
}
$imghash->{$cid} = $src;
my $ret = sprintf( '%s"cid:%s"%s', $prefix, $cid, $suffix );
$ret;
}
引用元:Kawa.net xp (http://www.kawa.net/)
http://www.kawa.net/works/perl/i18n-emoji/i18n-emoji.html
>>65のスクリプトって、リンク先もうないみたいなんですが
どなたかお持ちの方いらっしゃいますか? >>548
それほど難しい表現してるわけでもなし、phpが書けるならわかりそうなもんだが
どこがわからんの? 【 スクリプト 】 PcMonster2
【 配布先URL 】 http://game1.openspc2.org/~yasu/pm3/
「■PcMonster2 DL」のところ
よろしくお願いします。
>>553
報酬といいますと?
やっぱり金品ですか? >>555
僕工房なんでお金とか出せないんですけど… >>557
どうすればやっていただけるでしょうか? >>552
ちょっと興味があったので、見てみたんだけど、なんていうか
これをまともなwebアプリにするのは骨が折れるわ。
トップページの更新履歴で簡単につかえるものがない。
埋め込み式で。
ttp://php.s3.to/simple/#update
のUTF-8版がほしい。 ■ このスレッドは過去ログ倉庫に格納されています