【PHP】初心者コーナー 3 Released【スローモード】

[0327 nobodyさん 03/07/04 21:18 ID:???]

Perlから移植したいのですが

$in{'FROM'} =~ s/◆/◇/g;
　　if ($in{'FROM'} =~ /#(.+)/){
　　　　　my $key = $1;
　　　　　my $salt = substr($key."H.", 1, 2);
　　　　　$salt =~ s/[^\.-z]/\./g;
　　　　　$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
　　　　　$trip = ' ◆</b>' . substr(crypt($key, $salt), -8) . '<b>';


はどうすればよいでしょうか？

$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;

でつまってしまいました。厨な質問で申し訳ないですがよろしくお願いします