in reply to Perl Substr

Why do you exclude a simple regexp? Marte' example becomes: 
use strict;
use warnings;
my $string1 = "ABCDEFderp12345";
my $string2 = "derp";
if ($string1 =~ m/$string2(.*)$/  ){
    print $1, "\n";
}else{
    print "$string2 does not occur within $string1";
}

[download]
Bill

Replies are listed 'Best First'.
Re^2: Perl Substr
by AnomalousMonk (Archbishop) on Jun 17, 2013 at 12:56 UTC

    Better to meta-quote  $s2 to avoid strange effects from regex metacharacters in it ( //p regex modifier available with 5.10+): 

    >perl -wMstrict -le
"my $s1 = 'foo not *UN*known but bar is';
 my $s2 = '*UN*known';
 ;;
 die qq{'$s2' not in '$s1'} unless $s1 =~ m{ \Q$s2\E }xmsp;
 print qq{all after: '${^POSTMATCH}'};
"
all after: ' but bar is'

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom