http://qs321.pair.com?node_id=1125946


in reply to Re: Find maximum number in text file and copying its full statement in new text file?
in thread Find maximum number in text file and copying its full statement in new text file?

Hi kcott,

First of all thank you for your reply and Good day to you...I have modified the code, so that it extracts the data from one file and copies those statements to new file...But, its not copying... 

 
use strict;
use warnings;

my $re = qr{ \A \s+ ( \d+ ) }x;
my $high = 0;
my @lines;
open (F1, "<designer.log") or die ;
open (F2, ">>new_lines.txt") or die;
while (<F1>) {
    /$re/ or next;
    my $num = $1;
    next if $num < $high;

    if ($num > $high) {
        $high = $num;
        @lines = ();
    }
    
    push @lines, $_;
    print F2 @lines;
}

print "Highest number: $high\n";

close (F1);
close (F2);

[download]

Correct me if its wrong....

  • Comment on Re^2: Find maximum number in text file and copying its full statement in new text file?
  • Download Code

Replies are listed 'Best First'.
Re^3: Find maximum number in text file and copying its full statement in new text file?
by Anonymous Monk on May 07, 2015 at 06:16 UTC

    If you are going to print inside the loop, then use of @lines is useless (given the code), for the current line would be the only one (1) element of @lines, ever.

    What is your input? What is the highest number printed?

[reply]
[d/l]
[select]

      Yeah its is printing as "Highest number:2", but, its not printing to new file.The following is the input file. 

      High fanout nets in the post compile netlist:
    Fanout  Type          Name
    --------------------------
    2       INT_NET       Net   : c_c
                          Driver: c_pad
    2       INT_NET       Net   : b_c
                          Driver: b_pad
    2       INT_NET       Net   : a_c
                          Driver: a_pad
    1       INT_NET       Net   : sum_c
                          Driver: sum_1_SUM0_0
    1       INT_NET       Net   : N_5
                          Driver: sum_1_CO0_i

      [download]
[reply]
[d/l]

        kcott's version works as you expect. Your modified version (writing lines in a loop to another file) does work here, though output is not what you want.

        Read more... Code repeated; output as expected (3 kB)
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom