my $last_60 = substr($str, -60);

substr is the way to go:

use strict;
use warnings;

my $str = '1234567890' x 10;
print substr $str, -60;

Prints:

123456789012345678901234567890123456789012345678901234567890

You want to get a substring, but you don't want to use substr? That's almost as inane as the people that periodically show up posting who want to iterate over the contents of an array but not use foreach or map or while.

I mean you certainly could use substr, but why be explicit when you can obtusely use /(.{1-60})$/ instead.

Re^2: get last characters out of string?

ikegami

created: 2006-05-03 19:48:47

perlmonks

• reply
• node
• thread
• author

• node
• author
• thread

prlmnks

• node
• thread
• author

Maybe he thought he had to do

my $start = length($str) - 60;
$start = 0 if $start < 0;
$substr = substr($str, $start);

and was looking for a simpler right function? True, he should have read the docs closer, but *understanding* the docs can sometimes be hard.

Another possibility. ...this one caters to the irrational fear of [doc://substr]:

my $found;
$string =~ m/(.{60})\z/s and $found = $1;