Thanks Rob, Much appreciated
Sj
On 6/24/08, Rob Dixon <[EMAIL PROTECTED]> wrote:
>
> Dermot wrote:
> > Welcome,
> >
> >
> > 2008/6/24 jet speed <[EMAIL PROTECTED]>:
> >> Hi,
> >>
> >> I am beginner to perl,
> >>
> >> I have a file name cxout and i want to capture just the LUN 415, LUN 815
> >> into arrray & then print from the array. my idea is to capture different
> >> element form this file and the print form the array. Any help would be
> much
> >> appericated. my sample script looks as below.
> >>
> >>
> >> $filename = "cxout" ;
> >> open (FILE, "< $filename" ) or die "Could not open $filename: $!";
> >>
> >> while (<FILE>) {
> >> if ( $line = (/\^LUN \d+/) ) {
> >> print $line ;
> >> };
> >> };
> >>
> >>
> -------------------------------------------------------------------------------------
> > ...snip
> >
> >
> > This appears to do the job. There may be better ways to do it. In
> > particualar I think a hash might be better here but this should get
> > you going.
> >
> > #!/bin/perl
> >
> > use strict;
> > use warnings;
> >
> > my @luns;
> > while (<DATA>) {
> > chomp;
> > next unless $_ =~ /LUN/;
> > $_ =~ /\[(LUN\s+\d+)\]/;
>
> It is best to combine these two lines, if only because a line containing
> /LUN/
> may not contain /\[LUN\s+\d+\]/. So just
>
> next unless /\[(LUN\s+\d+)\]/;
>
> > print $1,"\n";
> > push(@luns,$1);
> > }
> >
>
> HTH,
>
> Rob
>
>
