Re: How do i get string between

Others have pointed out problems with your code.

Here is another way to do it:

use strict;
use warnings;

my $item1 = 'this is a test /test123?';
my ($content) = $item1 =~ m{ / (.*) \? }x;
print "$content\n" if defined $content;
[download]

Using alternate delimiters m{} allows you to avoid escaping the slash /
Using the x modifier allows you to separate the components of your regular expression with whitespace for clarity.
It is a good practice to check if your match succeeded. I used defined.

Comment on Re: How do i get string between Select or Download Code

Replies are listed 'Best First'.
Re^2: How do i get string between by GrandFather (Saint) on May 04, 2010 at 05:09 UTC
Better to test the match result. Consider: `#!/usr/bin/perl use strict; use warnings; for my $str ('Matched', 'No match') { $str =~ /(\wed)/; print "defined: Matched $1 for '$str'\n" if defined $1; } for my $str ('Matched', 'No match') { print "match: Matched $1 for '$str'\n" if $str =~ /(\wed)/; }` [download] Prints: `defined: Matched Matched for 'Matched' defined: Matched Matched for 'No match' match: Matched Matched for 'Matched'` [download] True laziness is hard work	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: How do i get string between
by GrandFather (Saint) on May 04, 2010 at 05:09 UTC

Better to test the match result. Consider:

#!/usr/bin/perl
use strict;
use warnings;

for my $str ('Matched', 'No match') {
    $str =~ /(\w*ed)/;
    print "defined: Matched $1 for '$str'\n" if defined $1;
}

for my $str ('Matched', 'No match') {
    print "match: Matched $1 for '$str'\n" if $str =~ /(\w*ed)/;
}
[download]

Prints:

defined: Matched Matched for 'Matched'
defined: Matched Matched for 'No match'
match: Matched Matched for 'Matched'
[download]

True laziness is hard work

[reply]
[d/l]
[select]