note
Crian
<p>Perhaps this one is, what you are looking for?</p>
<code>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</code>
<hr>
<p>Without a regular expression:
<code>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</code>
724253
724264