Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^2: Find maximum number in text file and copying its full statement in new text file?

by sumathigokul (Acolyte)
on May 07, 2015 at 05:16 UTC ( #1125946=note: print w/replies, xml ) Need Help??


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);

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?

      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

        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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1125946]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2020-12-04 05:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How often do you use taint mode?





    Results (58 votes). Check out past polls.

    Notices?