Re^2: Swap the characters

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

Comment on Re^2: Swap the characters Download Code

Replies are listed 'Best First'.
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]