たもつまもる

504ですが自己解決しました。
どうやら書き直したスクリプトが間違ってたみたいでした。

【.　 CGI名 　.】MovableType用 携帯電話向け変換プログラム
【配布先URL】　　http://www.hazama.nu/pukiwiki/index.php?MT4i
【. 置き場所 .】http://www.hazama.nu/pukiwiki/index.php?plugin=attach&refer=MT4i%2F%A5%D9%A1%BC%A5%BF%B8%F8%B3%AB%2F2.1%A6%C2&openfile=mt4i21b5.zip　　　　　　　　
【 依頼期限 】　1ヶ月
【. 依頼内容 】　CGIをPHPにして欲しい　宜しくお願いします

ｽﾚﾀｲ・・・

そんなﾈﾁﾈﾁした揚げ足取らなくてもいいだろうに・・・
ｽﾚﾀｲ読めば分かるだろ。

あひょ

たもつまもる

このスレって必要性無い希ガス。。。
だれもperl⇒phpしてないやんけ。

perlとphp両方判るﾔﾂは移植の必要性を感じないからだろう

核心ついちゃったよ

何で一時期PHPがあんなに盛り上がってたんだろうね。。。

とゆーか素朴な疑問なんだけど
日本じゃ　Perl＞＞PHP　って感じだけど
外国で色んなｽｸﾘﾌﾟﾄ紹介してるとこ見ると、PHPｽｸﾘﾌﾟﾄ数の方が多いよな。
外国無料ｽﾍﾟｰｽでもPerlだけ可よりPHPだけ可の方が多いみたいだし
単純にそれだけじゃ計れないとは思うけど、あんま盛り上ってないのって日本だけ？

35.34%

たもつまもる

山崎剛明は雑学の知識はかなり有るが、それ以外のことには正真正銘のバカだ

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";

おながいします。

これをphp化するのに何がわかんないの？

だめでした　動きませんでした

phpの<?php とか書くのがウザいんですけど、どうしたらいいんでしょうか。

>>527　スレ違い

>>527　キ違い

>>527 タネ違い

>>527
腹違い

>>527
・・・。

>>533
スレ違いだボケ。

>>533
適当にcとかjavaで組んでおけ

日本語でおｋ

PHPのロダは沢山あるが、それじゃダメなのかと小一時間。

本当ですね、>>10のヤツにします。
スレ汚しスマンコ

つーか移植の理由も書いてくれんと手の出しようが無い

質問スレから誘導されました。

下記の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のスクリプトって、リンク先もうないみたいなんですが
どなたかお持ちの方いらっしゃいますか？