perlスクリプト⇒phpスクリプト移植要望スレ
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/10/27 15:41ID:Q6Y/Bw9n随時受付中
どんなperlなCGIから、PHPへの移植要望が
続発するのか？ （ｗ
0232sage
03/08/29 20:42ID:EhnIE/Mjｾﾞﾋ作ってくれ
0233nobodyさん
03/08/29 20:44ID:???0234nobodyさん
03/08/30 14:18ID:???0235nobodyさん
03/09/09 18:22ID:???PHP化をお願いしたい・・・
どっか有料でしてくれる所がないかな・・・
0236nobodyさん
03/09/12 05:38ID:kw0njE6khttp://www.futomi.com/library/acc.html
PHP+MySQLで移植希望
0237nobodyさん
03/09/16 23:39ID:???移植ｷﾎﾞﾝ
0238nobodyさん
03/09/17 10:40ID:???Perlならそのまま動かせばいいじゃん・・・
0239nobodyさん
03/09/17 14:34ID:???$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にして下さい。よろしくお願いします。
0240nobodyさん
03/09/21 05:45ID:Uj25FMvSこういうのって頼んだらやってくれる会社あるのかな？
俺の作ったPHPスクリプトをPerlに移植して欲しいんだけど。
ちなみに中身滅茶苦茶で3000行くらい。結構かねとられそうだな。
0241nobodyさん
03/09/21 07:20ID:kPJ/tg2ZPHP覚えたようにPerlも覚えたらどうかね？
省略が分かりにくいのと、なにかと回りくどい
（同じ事をPHPでやるのと比べて）のをなんとかすれば
後は楽勝でそ？
0242nobodyさん
03/09/21 16:52ID:PsiyiBRnもう既にしてるところもあるけど、奴らとろくてね。
0244nobodyさん
03/09/25 06:49ID:???http://www.endlessbattle.net/
0245nobodyさん
03/09/29 22:36ID:???http://www7.big.or.jp/~falcon/cgi/link.htm
0246245
03/09/29 22:38ID:???#!/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);
0247245
03/09/29 22:38ID:???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;
}
0248nobodyさん
03/09/30 03:28ID:???0250nobodyさん
03/10/08 02:24ID:RQatr+Qg完全なものは大変でも支援程度のものなら可能かと。
文法ファイルさえ出来れば
既存の構文解析器生成系を使ってさ。
0252nobodyさん
03/10/12 03:43ID:???http://bach.istc.kobe-u.ac.jp/metcha/
0253nobodyさん
03/10/20 19:33ID:NiEPHFZIどなたかお願いします。
$salt = &createSalt;
sub createSalt {
local( $salt_paire, $salt1, $salt2, $salt);
$salt_paire =
"./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
srand(time/$$);
$salt1 = int( rand(63) );
srand(time|$$);
$salt2 = int( rand(63) );
$salt1 = substr( $salt_paire, $salt1, 1);
$salt2 = substr( $salt_paire, $salt2, 1);
$salt = "$salt1$salt2";
return ($salt);
}
$passwd = crypt($newkey, $salt);
0254nobodyさん
03/10/20 21:16ID:???$salt_paire = array_merge(array('.','/'),range(0,9),range('a','z'),range('A','Z'));
$salt = $salt_paire[ rand(0,63) ].$salt_paire[ rand(0,63) ];
$passwd = crypt($newkey, $salt);
元のPerl文いまいちｽﾏｰﾄじゃなくない？
0255nobodyさん
03/10/21 04:33ID:rJx6CyQOこれからは完全無料のメール受信で稼ぐ時代です。
これらは登録無料でかつメール受信（メール中のリンクをクリック）とHPのPaid2Clickのバナーをクリックするだけでお金がもらえます。
また紹介者を増やすことで収入は格段に上がっていきます！
月に100万も夢ではありません！！！
詳しくは↓↓↓をクリック！
http://www.geocities.jp/hajimenotamago/hajimenotamago.html
0256253
03/10/21 04:48ID:FV15MSqpおおー！ちゃんとできました！
ありがとうございました！
0257nobodyさん
03/11/11 23:19ID:gljdUyGkttp://ragnarok.osakazu.net/php/tmp_index.php
ttp://neco.st/cgi/ro/bbs/01/index.cgi?sch=%5B285%5D
0258nobodyさん
03/11/12 05:16ID:???ラグナロクというﾈﾄｹﾞは評判悪いようだ
KENT作品のpetitをPHP化+トリップ機能+画像アップロダ
ログデータはDB使わないでログファイルに保存するタイプ
作者が割れサイト関係者方面にお友達がいて提供しているのが影響しているのかラブマシーンというもので偽装されている
http://www.nemu.to/file/lovema110b22.zip
0259nobodyさん
03/11/12 09:26ID:???>KENT作品のpetitをPHP化+トリップ機能+画像アップロダ
ここのもそうだな。DB版もあるみたいだが配布してない。
ttp://beam.to/duria/
0260nobodyさん
03/11/12 09:36ID:???http://www.punyu.net/php/oekaki.php
0261nobodyさん
03/11/13 00:58ID:MlLAIdXPresでお絵かきできねーだろ禿げ！
0262nobodyさん
03/11/13 07:04ID:???な ん で お 絵 か き 掲 示 板 ご と き で 必 死 に な る の だ ?
0263nobodyさん
03/11/13 07:05ID:???0265nobodyさん
03/11/15 00:14ID:lQJOiappのTOS BBSのPHP化を誰かお願いしますm(__)m
0266nobodyさん
03/11/15 08:51ID:???>>259
これは個人サイトで使用するには最適な掲示板だな
最近はWeblogサイトを構築するためにXOOPSとか採用しているところ多いけどログインするのめんどくさいしKENT作品のような容易さが良いな
ただ、偽装ってなんだ？
なんで偽装しなきゃわからないのが違法とかhackとかしてるの？
0267nobodyさん
03/11/17 00:37ID:ISZnZrBv0268nobodyさん
03/11/17 09:08ID:???0269nobodyさん
03/11/17 11:56ID:???0270nobodyさん
03/11/17 20:15ID:???無料レンタルサービスが出る前だったら、
お絵かきCGIを設置してあるってだけで
客が来たりしたもんだがな。
0272nobodyさん
03/11/23 14:55ID:???0273nobodyさん
03/11/30 11:39ID:pC46kKiS↑だれか頼む・・・
0274nobodyさん
03/12/03 00:09ID:4vORf0o6おねがいします
###########################################################;
##;【設置＆使用方法】
##; まずBBSやCHATのCGIスクリプトを用意し、そのCGIの書き込み用サブルーチンに
##; require 'user-agent.pl';
##; ↑を追加します。
##; その後、ログに書きこむ為の@lines(連想配列)に$type(スカラー変数)を足して下さい。
##;《参考例です》
##; while ($maxline <= @lines) {
##; pop(@lines);
##; }
##; unshift(@lines,"$no,$date,$in{'name'},$in{'mail'},$in{'sub'},$in{'comment'},
##; $type,$host\n");
##; ↑↑↑
##; こんな感じで$typeを追加します。。。
##; open(OUT,">$logfile") || &error("ファイルが無いっス。。。");
##; print OUT @lines;
##; close(OUT);
##; これでログの書きこみは完了です。
0275つづき
03/12/03 00:10ID:4vORf0o6##; 逆に表示させる場合は、記事表示サブルーチン内に
##; if(!open(OUT,"$logfile")){&error("ファイルが無いっス。。。");}
##; @DATA = <OUT>;
##; close(OUT);
##; 〜中略〜
##; ($no,$date,$name,$mail,$sub,$com,$host) = split(/\,/,$line);
##; の様な記述があるので、この行に
##; ($no,$date,$name,$mail,$sub,$com,$type,$host) = split(/\,/,$line);
##; の様に$typeを追加して、あとは表示させたい場所に
##; print "《$type》<BR>\n";
##; print文で出力すれば終わりです。
##; このファイルの拡張子.txtを.plに変更、くれぐれも.cgiにしない様に。。。
##; 最後はそれぞれのファイルをアップロードして下さい。
##; user-agent.plのパーミッションは【644】です。
###########################################################;
0276つづき
03/12/03 00:13ID:4vORf0o6# 通常
$agent_type = $ENV{'HTTP_USER_AGENT'};
# J-PHONE
$agent_j_type = $ENV{'HTTP_X_JPHONE_MSNAME'};
############## ドコモ
# 209ｼﾘｰｽﾞ
if($agent_type =~ /D209i/) {
$type = "D209i";
}elsif($agent_type =~ /ER209i/) {
$type = "ER209i";
}
1;
0277nobodyさん
03/12/03 00:49ID:???$newmsg[] = getenv('HTTP_USER_AGENT');
$newmsg[] = getenv('HTTP_X_JPHONE_MSNAME');
0278nobodyさん
03/12/03 00:54ID:???0279nobodyさん
03/12/03 21:43ID:???PHPに書き直してくれって言ってんだよ。
よく読めよ文盲。
0280nobodyさん
03/12/03 22:07ID:???0281nobodyさん
03/12/03 23:04ID:???0282nobodyさん
03/12/03 23:04ID:Uo7o1eBu##; pop(@lines);
##; }
##; unshift(@lines,"$no,$date,$in{'name'},$in{'mail'},$in{'sub'},$in{'comment'},
##; $type,$host\n");
この部分が難しいなぁ
後は簡単だが
0284nobodyさん
03/12/04 00:40ID:???0285nobodyさん
03/12/06 13:25ID:IKOEKrdy冗談がうまいですね
0286nobodyさん
03/12/06 18:50ID:???0287nobodyさん
03/12/06 22:49ID:uyPRofae0288nobodyさん
03/12/08 21:47ID:WImG1BEKif($1 ne ''){
$HlocalImageFileDir = $1;
$HlocalImageFileDir =~ s/\\/\//g;
$HlocalImageFileDir =~ s/:/|/g;
$imageDir = "file:///" . $HlocalImageFileDir;
}
}
↑ここのＰＨＰ化が分かりません。
どなたか、教えてくれませんか？
0289nobodyさん
03/12/09 07:39ID:IrWTYwOe$hour = (localtime(time))[2];
if(time ？ (stat("check.txt"))[9] + 60){#1分以上やってくれてない場合
open(WRITE, "？？ check.txt");
if(flock(WRITE, 6) != 0){
print WRITE localtime(time) . "\n";
--------俺がやらせたいこと---
}
close(WRITE);
}
こんな風にcheck.txtに最後にやった時間記録してスクリプトが呼ばれるたびに
最後にやった時間チェックして一分以上やってなかったら仕事やらせて
やらせた時刻をcheck.txtに記録ってふうにしてるPERLスクリプトがある。
これをPHPにしたいんだがさっぱりわかりませぬ。
どなたかご教授を。m(--)n
おねがいしやす。
0291nobodyさん
03/12/09 10:00ID:???0292nobodyさん
03/12/11 22:25ID:feYyVlVBもらおうと考えてるんですが、時間的、料金的にどれぐらいになるものでしょうか？
0294nobodyさん
03/12/13 03:45ID:???0295nobodyさん
03/12/13 03:57ID:???来年度末ぐらいかな。
0296すいません
03/12/13 23:32ID:SXyf0EfrPerlとPHP出来る方にちょっとした仕事を依頼したいんですが。
興味のある方、下のページ見てください。m(_ _)m
http://ayu.zone.ne.jp/php.html
0297nobodyさん
03/12/13 23:59ID:???0299nobodyさん
03/12/14 00:47ID:???0300nobodyさん
03/12/14 01:05ID:???0301nobodyさん
03/12/14 01:22ID:???あぶない匂いを嗅ぎ分ける能力なｗ
0303nobodyさん
03/12/15 18:56ID:???http://openlab.jp/k16/htmllint/htmllint.html
0304nobodyさん
04/01/04 13:31ID:???だれかiMonaのスクリプトPHPにする香具師はいないか？
鯖は立てられるがPHPが全くわからん。
0305nobodyさん
04/01/05 15:43ID:???0308nobodyさん
04/02/06 18:38ID:???ここの天空リンク集とかってPHPにしてもらえないかな
0309nobodyさん
04/02/06 21:27ID:wSDCh3fwhttp://taurus.kake.info.waseda.ac.jp/wikip/joyful/joyful.u.cgi?mode=res&no=827
0310nobodyさん
04/02/16 10:31ID:???http://minicgi.net/cgi2/list.html
これのPHP移植とかありますか？
0311nobodyさん
04/02/29 20:45ID:???ここにあるNARRATION BBSをPHPに是非とも。
0312nobodyさん
04/05/13 20:26ID:I7ENa8K6MySQL+強力不正防止機能付きで
移植してくれる神はいないかな？
0313nobodyさん
04/05/14 02:27ID:???やっても良いけどさぁ。なさそうだし。
こんな俺って嫌なヤツ？
0316nobodyさん
04/05/19 16:55ID:???0317nobodyさん
04/06/02 18:01ID:???値のリストからCSVデータ形式に変換することを考えているのですが、
値にダブルクォートやコンマを含む場合、それらを置き換えたり、
"値"形式にする必要があります。
でそのための変換 Perl スクリプト
# 値の配列 @values から CSV形式の行 $line に変換する by Perl メモ
$line = join ',', map {(s/"/""/g or /[\r\n,]/) ? qq("$_") : $_} @values;
を PHPにする場合、どのようになるのでしょうか？
どなたか、移植お願いします。
0318nobodyさん
04/06/03 09:19ID:???PHPは関数が多いのでjoin_csvみたいな関数もあるかもと探したけど見つからなかった。
function enclosure($w) {
$w = str_replace('"', '""', $w);
if (preg_match("/[\r\n,]/", $w)) $w = '"'.$w.'"';
return $w;
}
$line = join(',', array_map("enclosure", $values));
0319317
04/06/07 02:09ID:???ありがとうございました。
さて、果たして fgetcsv() はこの変換を施した
csvファイルを正しく読むのでしょうか…。
これから試してみます。
0320nobodyさん
04/06/12 02:17ID:???ttp://webclap.com/
0321nobodyさん
04/06/12 21:51ID:???0322nobodyさん
04/06/13 02:56ID:???0323nobodyさん
04/06/17 10:26ID:CwgxAXD9を、PHPに移植してください…
0324nobodyさん
04/06/17 23:44ID:???0325nobodyさん
04/06/21 00:29ID:n/vxj8n50326nobodyさん
04/06/21 11:46ID:???配布はもう少し待たれよ！
0327nobodyさん
04/06/21 13:45ID:7u+AFuIShttp://www.kemokemo.com/products/picchabo/
0328nobodyさん
04/06/23 20:59ID:???0329nobodyさん
04/07/13 08:16ID:tslXQhc60330nobodyさん
04/08/01 23:44ID:???全部？1つ2つならやってやってもいいが
>>327
微妙だからやだ
>>328
別にできなくもないが、ｿｰｽが微妙なので俺は拒否
>>329
ｿｰｽ出したらしてやるよ
■ このスレッドは過去ログ倉庫に格納されています