◆ 全サーバトリップ統一作戦

[8 未承諾広告※ ◆aiY4htt2.2 03/10/27 21:13 ID:kCrk2mEm]

>>7
#!/usr/local/bin/perl

$a = "triptrip";
$b = substr($a, , 3) . "H";

printf "[$a] [$b] %s",substr(crypt($a, $b), -8);
exit;
# 結果は [triptrip] [ptripH] eOG.wRhM

実際に動かしてみると、2 番目の引数が undef になるので省略されたとして、
3 番目の引数が offset にされちゃうようです。＠ Perl 5.6.1 の場合