Re^2: regex needed


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re^2: regex needed

by Crian (Curate)

on Nov 18, 2008 at 13:58 UTC ( [id://724270]=note: print w/replies, xml )

Need Help??

in reply to Re: regex needed
in thread regex needed

Perhaps this one is, what you are looking for?

C:\Daten\perl>cat match.pl
#!/usr/bin/perl
use strict;
use warnings;

my $var = 'Sensor30';

while (<DATA>) {
    print if /^>?\Q$var\E$/;
}

__DATA__
>Sensor30
>FooSensor30
> Sensor30
Sensor300
Sensor30
>Sensor3


C:\Daten\perl>perl match.pl
>Sensor30
Sensor30
[download]

Without a regular expression:

C:\Daten\perl>cat match.pl
#!/usr/bin/perl
use strict;
use warnings;

my $var = 'Sensor30';

while (<DATA>) {
    chomp;
    print "$_\n" if $_ eq $var or $_ eq '>' . $var;
}

__DATA__
>Sensor30
>FooSensor30
> Sensor30
Sensor300
Sensor30
>Sensor3


C:\Daten\perl>perl match.pl
>Sensor30
Sensor30
[download]

Comment on Re^2: regex needed Select or Download Code

Replies are listed 'Best First'.
Re^3: regex needed by Anonymous Monk on Nov 18, 2008 at 14:11 UTC
Thats what I was missing...Thank you! I modified it a bit to include the space if it exists: `my $var = 'Sensor30'; while (<DATA>) { chomp; if (/^(>\s*)?\Q$var\E$/) { print "MATCH => $_\n"; } } __DATA__ >Sensor30 >FooSensor30 > Sensor30 Sensor300 Sensor30 >Sensor3` [download]	[reply] [d/l]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://724270]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others goofing around in the Monastery: (4)

As of 2024-04-19 16:02 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found