But I was just wondering if there's a more Perlish way to do it that's not occurring to me?
This is one way to do exactly the same thing you are. I think it is a bit more "Perlish."
my $string = 'thisisatest'; for my $i (0 .. length($string)-2) { (my $tmp = $string) =~ s/(.{$i})(.)(.)/$1$3$2/; print $tmp, "\n"; }
-sauoq "My two cents aren't worth a dime.";
In reply to Re: Transposition of each letter pair in string
by sauoq
in thread Transposition of each letter pair in string
by Cody Pendant
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |