convert str -> str 2

[JohnLucania]

chomp(@SeqChar = <STDIN>) will have hundreds of input strings of qw/abce/

How do you convert all of the inputs like below?

a -> u
b -> v
c -> x
e -> y

 

[KevinADC]

tr/abce/uvxy/ for @SeqChar;

 

[JohnLucania]

sub Trans {
return scalar tr/abce/uvxy/ for @SeqChar;
}

print Trans ();

why is this not printing?

jl

 

[KevinADC]

It's not printing anything because there is nothing to print. What's it supposed to print?

 

[JohnLucania]

I need to have the translated strings printed on the screen.

jl

 

[KevinADC]

actually, it might print the number of times the tr/// operator transformed a character, but thats not what you want (I think). Using your method I maybe would do it like this:

sub Trans {
    map {tr/abce/uvxy/, print "$_\n"} @SeqChar;
}
Trans();

but unless you intend to call the Trans() sub a few times in the script there is no need to use a sub routine.

 

[JohnLucania]

fantastic!
That is what I needed.
Thanks a bunch!

jl

 

[KevinADC]

you're welcome jl

 

[ishnid]

Kevin - perfectly good solution. Personally, I'd prefer to use a `for' loop rather than `map' in a void context. (See here for reasons why), which would change that to:

sub Trans {
    for ( @SeqChar ) {
       tr/abce/uvxy/;
       print "$_\n";
    }
}
Trans();

or

# note I'm not adding the newline - if this is the only 
# thing happening to @SeqChar, there's no need to chomp
# it in the first place!
sub Trans {
    map tr/abce/uvxy/, @SeqChar;
}
print Trans();

 

[KevinADC]

I agree with you ishind, but in the this case the print command seems like it makes it obvious what the map function is being used for.