in reply to reading certain lines

I don't get it.

You don't have any lines with '/C1, 2(11)'.

Do you mean 'C1, 2(11)'?

my $pattern = 'C1, 2(11)';
while (<DATA>)
{
 next if not /$pattern/;
 # do something with the line if it has $pattern
}

[download]

Or does the line have to start with 'C1, 2(11)'?

next if not /^$pattern/;

[download]


--
Regards,
Helgi Briem
helgi DOT briem AT decode DOT is

Replies are listed 'Best First'.
Re: Re: reading certain lines
by harry34 (Sexton) on Jun 26, 2003 at 11:55 UTC
    sorry for not being clear.
    the pattern that i want to match from the file is /[A-Z]\sd+,\sd+\(d+\)/
    e.g. C 1, 1(11)

    I want to store them in an array once matched.
    harry
[reply]
[d/l]
      Do you mean something like this? 
      use strict;
use warnings;
my $str = qq/
1 2 3 4
----------
C 2, 2(13) R 2, 2( 8) C 2, 2(13) 
----------
C 2, 2(11) C 2, 2(13) R 2, 2(18) 
----------
C 2, 2(18) C 1, 2(11) C 2, 2(13) 
----------
C 1, 2(11) C 2, 2(18) C 2, 2(11) 
/;

my @match = ($str =~ /([A-Z]\s\d+,\s\d+\(\s*\d+\))/g);
print "$_\n" for @match;

__END__

C 2, 2(13)
R 2, 2( 8)
C 2, 2(13)
C 2, 2(11)
C 2, 2(13)
R 2, 2(18)
C 2, 2(18)
C 1, 2(11)
C 2, 2(13)
C 1, 2(11)
C 2, 2(18)
C 2, 2(11)

      [download]
      To read file into a string you can do: 
      my $str = slurp('file.txt');

sub slurp {
        open(F, shift);
        local $/ = undef;    # undef record seperator
        my $txt = <F>;
        close(F);
        return $txt;
}

      [download]
[reply]
[d/l]
[select]
        I am wanting to read the strings of interest from a file e.g. 
        $in_filename = "test.out"; 
open (IN,"$in_filename") or die "Can't open $in_filename:$!\n";

        [download]
        They are not already stored in an array so I cannot use
        @array = qw (stuff);
        as you have displayed in the start of your solution.
        but yes, the output that you've shown is exactly what I want.
        cheers
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom