Re: Determing if this regex matched

Use an "if" statement to check the return of s/// (returns the number of substitutions made; false otherwise):

use strict;
use warnings;
my @items = ('"Title Text Example1"', 'Title Text Example2', ' Title T
+ext Example3 ',' "Title Text Example4"');
foreach my $title (@items) {
    my $match = 0;
    $match++ if $title =~ s/^[\s"]+//;
    $match++ if $title =~ s/[\s"]+$//;
    print "$title.\n" if $match;
}

__END__

Title Text Example1.
Title Text Example3.
Title Text Example4.
[download]

Updated to match both begin and end.

Comment on Re: Determing if this regex matched Download Code

Replies are listed 'Best First'.
Re^2: Determing if this regex matched by cormanaz (Deacon) on Aug 06, 2011 at 19:57 UTC
Hey! I had no idea s/// returned anything. Also a more straightforward way to write the regex. Problem is, with the or, the second sub doesn't get executed if the first one matches, so there is still the trailing quote on examples 1 and 4. I suppose one could do `my @items = ('"Title Text Example"', 'Title Text Example', ' Title Tex +t Example ',' "Title Text Example"'); foreach my $title (@items) { my $changed = 0; if ($title =~ s/^[\s"]+//) { $changed=1; } if ($title =~ s/[\s"]+$//) { $changed=1; } if ($changed) { print "$title\n"; } }` [download] But that doesn't seem very elegant.	[reply] [d/l]
Re^3: Determing if this regex matched by ww (Archbishop) on Aug 06, 2011 at 20:06 UTC
For the elegant method, try perlretut (and family), "Mastering Regular Expressions," Tutorials, perhaps. But -- IMO -- "elegant" is frequently overrated; the real question, I think, is "does it work, consistently?"	[reply]
Re^4: Determing if this regex matched by cormanaz (Deacon) on Aug 06, 2011 at 20:34 UTC
Well good point. I still wonder why is $& always null in the original example.	[reply]
Re^5: Determing if this regex matched by AnomalousMonk (Archbishop) on Aug 07, 2011 at 10:22 UTC
Re^3: Determing if this regex matched by merlyn (Sage) on Aug 06, 2011 at 20:12 UTC
Too much work! `my @items = ('"Title Text Example"', 'Title Text Example', ' Title Tex +t Example ',' "Title Text Example"'); foreach (@items) { if (s/^[\s"]+// or s/[\s"]+$//) { print "$_\n"; } }` [download] -- Randal L. Schwartz, Perl hacker The key words "MUST", "MUST NOT", "REQUIRED", "SHALL", "SHALL NOT", "SHOULD", "SHOULD NOT", "RECOMMENDED", "MAY", and "OPTIONAL" in this document are to be interpreted as described in RFC 2119.	[reply] [d/l]
Re^4: Determing if this regex matched by cormanaz (Deacon) on Aug 06, 2011 at 20:30 UTC
That's what toolic had before editing the his post. Doesn't work because if the first element of the or evaluates true the second one doesn't get evaluated, so if there's a quote/space at the beginning, quotes/spaces get left at the end.	[reply]