in reply to Re: Parsing a file to print multiple times
in thread Parsing a file to print multiple times



From the first code I am getting the output :-


print from this line 1
lets print the following line too 1
Okay lets close it now 1
closing

And from the second code I am getting the output :-


print from this line 1
lets print the following line too 1
Okay lets close it now 1
closing at this line 1
this was fine
closing at this line 1
but now is the problem
2nd line to ignore
print from this line as well 2
lets print the following line too 2
Okay lets close it too now 2
closing at this line 2
No I dont want to print this line
closing at this line 2
bye

  • Comment on Re^2: Parsing a file to print multiple times

Replies are listed 'Best First'.
Re^3: Parsing a file to print multiple times
by Anonymous Monk on Sep 26, 2015 at 08:14 UTC
    Try to fill in the blanks (...) to this 
    my @nums = 1 .. 10;
my $start = 3;
my $end = 5;
my $go = 0;
for my $num ( @nums ){
    ...
    if( $go ){
        print "$num\n";
    }
}

    [download]
[reply]
[d/l]

      Thanks a lot Anonymous Monk.You rock!!!
      This logic worked.Below is the final code :- 

          open (FILE, '<', 'sample.txt') or die "Could not open sample.txt: 
+$!";
    open (FILE1, ">output1.txt") or die "Could not open sample.txt: $!
+";

    
    my @nums = <FILE>;  
my $start = "print from";
my $go = 0;
       my $sizeconf = scalar @nums;

for my $num ( @nums ){
    if ($num =~ /$start/)
    {
        
        $go = 1;
        
    }
   
    if($go){
       print FILE1 "$num";
    }
my $end = "closing";    
    if ($num =~ /$end/ && $num !~ /$start/)
    {
        $go = 0;
    }
}

      [download]


      The last point of "$num =~ /$end/ && $num !~ /$start/" because in my actual input file $start conatins the staring $end.

      I will intergrate this logic with my tool and update you.
[reply]
[d/l]

        Yes..this works fine when integrated.

[reply]

In Section Seekers of Perl Wisdom