Re: Swap the characters

The regex solutions seem to be simplest but here are a couple of alternatives. Using split, join and a slice.

$ perl -le '
$str = q{yands};
$str = join q{}, ( split m{}, $str )[ -1, 1 .. length( $str ) - 2, 0 ]
+;
print $str;'
sandy
$
[download]

Using substr.

$ perl -le '
$str = q{yands};
substr( $str, 0, 1 ) = substr $str, length( $str ) - 1, 1, substr $str
+, 0, 1;
print $str;'
sandy
$
[download]

I hope this is of interest.

Cheers,

JohnGG

Comment on Re: Swap the characters Select or Download Code

Replies are listed 'Best First'.
Re^2: Swap the characters by jwkrahn (Abbot) on Apr 14, 2009 at 13:21 UTC
`$ perl -le ' $str = q{yands}; ( substr( $str, 0, 1 ), substr $str, -1 ) = ( substr( $str, -1 ), subs +tr $str, 0, 1 ); print $str; ' sandy` [download]	[reply] [d/l]
Re^3: Swap the characters by johngg (Canon) on Apr 14, 2009 at 13:54 UTC
I don't know how I came to forget about using a negative offset with `substr`. Thanks for pointing it out. `$ perl -le ' $str = q{yands}; substr( $str, 0, 1 ) = substr $str, -1, 1, substr $str, 0, 1; print $str;' sandy $` [download] Cheers, JohnGG	[reply] [d/l] [select]