Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

comment on

( #3333=superdoc: print w/replies, xml ) Need Help??

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.

Run first as perl program.pl -BUG_MODE=0 (kcott's version); then as perl program.pl -BUG_MODE=1 (your version) ...

#!/usr/local/bin/perl -s use warnings; use strict; our $BUG_MODE; printf "** Running in bug mode: %s **\n\n" , map uc( $_ ) , $BUG_MODE +? 'yes' : 'no'; my $re = qr{ \A \s+ ( \d+ ) }x; my $high = 0; my @lines; my $filtered; my $in_fh = \*DATA or die qq[Cannot open DATA: $!]; open (my $out_fh, '>' , \$filtered ) or die qq[Cannot open \$filtered +to write: $!]; while (<$in_fh>) { /$re/ or next; my $num = $1; next if $num < $high; if ( $num > $high ) { $high = $num; @lines = (); } push @lines , $_; $BUG_MODE and print $out_fh @lines; } close ($in_fh); print "Highest number: $high\n"; $BUG_MODE or print $out_fh @lines; close ($out_fh); printf "Filtered output ...\n%s\n" , $filtered ; __DATA__ 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
# Output. perl x.pl -BUG_MODE=0 ; perl x.pl -BUG_MODE=1 ; ** Running in bug mode: NO ** Highest number: 2 Filtered output ... 2 INT_NET Net : c_c 2 INT_NET Net : b_c 2 INT_NET Net : a_c ** Running in bug mode: YES ** Highest number: 2 Filtered output ... 2 INT_NET Net : c_c 2 INT_NET Net : c_c 2 INT_NET Net : b_c 2 INT_NET Net : c_c 2 INT_NET Net : b_c 2 INT_NET Net : a_c

In reply to Re^5: Find maximum number in text file and copying its full statement in new text file? by parv
in thread Find maximum number in text file and copying its full statement in new text file? by sumathigokul

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Are you posting in the right place? Check out Where do I post X? to know for sure.
  • Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
    <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
  • Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
  • Want more info? How to link or or How to display code and escape characters are good places to start.
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2021-10-23 11:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (88 votes). Check out past polls.

    Notices?