07/07/11 12:07:19
質問スレから誘導されました。
下記の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";