【ノートン】インターネットセキュリティ Ver.18【2003】
おしえて
以下に記すPerlのサブルーチンayayaに、
a0YaAya56m1a23yaiay5Aka4ya0Ay1AiaY2ata00yata4Yay
このような文字列を引数として渡すとその戻り値は何になるか。
$pass = &ayaya('a0YaAya56m1a23yaiay5Aka4ya0Ay1AiaY2ata00yata4Yay');
sub ayaya{
$string = @_[0];
$string =~ s/\d+//g;
$string =~ s/aya//ig;
return $string;
}