in reply to Re: How can I print part of a line between two different lines
in thread How can I print part of a line between two different lines

#!/usr/bin/perl -w

open IN, "data";

while($file=<IN>)

{

@line = split(/ \= /,$file);

if ($line[0] =~ m/^sample$/g)

{

@sample = $line[1];

foreach (@sample)

{

print @line; unable to proceed from here

}

}

}

Replies are listed 'Best First'.
Re^3: How can I print part of a line between two different lines
by madtoperl (Hermit) on Jan 27, 2017 at 14:09 UTC 
    #!/usr/bin/perl
use strict;
use warnings;

my @finalArray = ();
while(<DATA>){
        if ($_=~/^sample_char/){
        my @line = split(/\=/,$_);
        #push (@finalArray, $line[1]);
        push @finalArray, $line[1];
       }
}
print "Final data ::  @finalArray";

__DATA__
sample = 123
sample_sub = info
sample_char = abc
sample_char = abc1
sample_char = abc2
sample_end
sample = 124
sample_sub = info
sample_char = bbc
sample_char = bbc1
sample_char = bbc2
sample_end
sample = 125
sample_sub = info
sample_char = cbc
sample_char = cbc1
sample_char = cbc2
sample_end

    [download]
    OUTPUT 
    Final data ::   abc
  abc1
  abc2
  bbc
  bbc1
  bbc2
  cbc
  cbc1
  cbc2

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom