[perl]регэксп

так правильней if ( $r = 1 ) { $r = 'а';} elsif ( $r = 2 ) { $r = 'б';} elsif ( $r = 3 ) { $r = 'г' } else { $r = 'с' } ... ?

Наиболее тупо:

my %replace = (
1 => 'a',
2 => 'b',
);

s/(.)/$replace{$1} || $1/ge;

А вообще там что-то вроде y/a-z/1-8i-z/ можно сделать, если все однобуквенно.

perldoc perlre

"(?(condition)yes-pattern│no-pattern)"

Кстати, а почему именно регексп? Для того, как поставлена задача, вполне достаточно просто хеша.

my %values = (
1 => 'r',
r => 2,
);

$r = $values{$r};