Re: Generalising string in pattern


Perl: the Markov chain saw
	PerlMonks

Re: Generalising string in pattern

by bichonfrise74 (Vicar)

on Nov 13, 2009 at 08:49 UTC ( [id://806899]=note: print w/replies, xml )

Need Help??

in reply to Generalising string in pattern

Based on how I interpret your request, I think this is what you want.

#!/usr/bin/perl

use strict;

my $pattern = qr/Latest \d+ Items in /
            . qr/Feed & \d New Fetched items/;

while (<DATA>) {
    print if /$pattern/;
}

__DATA__
Latest 29 Items in Feed & 0 New Fetched items
Testing
Latest 28 Items in Feed & 0 New Fetched items

Latest 100 Items
Latest 28 Items in Feed & 0 New Fetched items
[download]