reversing substr

DaWolf has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: reversing substr by abstracts (Hermit) on Mar 11, 2002 at 04:41 UTC
Hello, What you want to do probably falls into one of these cases: `# dashes are just for illustration my $str = "123456789"; my $ss = substr ($str,3); print "$ss\n"; # will print ---456789 $ss = substr ($str,-3); print "$ss\n"; # will print ------789 $ss = substr ($str,0,3); print "$ss\n"; # will print 123------ $ss = substr ($str,0,-3); print "$ss\n"; # will print 123456---` [download] Check out perlfunc substr to know more about it since this function in particular has a very informative description with lots of examples. Hope this helps,,, Aziz,,,	[reply] [d/l]
Re: reversing substr by chipmunk (Parson) on Mar 11, 2002 at 04:43 UTC
It's not quite clear what you're trying to do, especially since substr does accept a negative offset. What do you mean when you say "that doesn't work"? If you want the first two characters of the string, try this: `my $str = "12345"; my $ss = substr($str, 0, 2); print $ss;` [download] Or, if you want all but the last two characters, try this: `my $str = "12345"; my $ss = substr($str, 0, -2); print $ss;` [download]	[reply] [d/l] [select]
Re: reversing substr by talexb (Chancellor) on Mar 11, 2002 at 04:33 UTC
Check out perlfunc:substr for information on how substr works -- you can find it on this site by typing in 'substr' in the search field at the top left of your screen. --t. alex "There was supposed to be an earth-shattering kaboom!" --Marvin the Martian	[reply]
Re: reversing substr by davis (Vicar) on Mar 11, 2002 at 09:28 UTC
Hi there, I'm a little unsure as to what you're asking, but if you're asking for the substring you create to be reversed, you can use reverse thusly: `my $str = "1234"; my $ss = reverse substr($str, 2); print $ss;` [download] Hope that helps, davis Is this going out live? No, Homer, very few cartoons are broadcast live - it's a terrible strain on the animator's wrist	[reply] [d/l]
Re: reversing substr by jlongino (Parson) on Mar 11, 2002 at 16:47 UTC
If you're looking for something truncate the string, then you might want to look into the pack function. It has the added advantage of right-padding the string with blanks: `use strict; my $str = "1234"; my $ss = pack "A2", $str; print "'$ss'\n"; ### example shows example of padding blanks $ss = pack "A5", $str; print "'$ss'\n";` [download] Produces: `'12' '1234 '` [download] --Jim	[reply] [d/l] [select]