[tpm] Writing to STDOUT in batches

Indy Singh indy at indigostar.com
Mon Dec 6 07:54:23 PST 2010

Tell us the 'more complicated sed command'.  We might be able to come with a reg expression that would give you equivalent in pure perl.
Something like this:
$x = content();
$x =~ s/some_reg_ex/;
print $x;

Since some us are not sed experts just also explain in words (or pseudo-perl) what you want the command to do.

Indy Singh
IndigoSTAR Software -- www.indigostar.com

  ----- Original Message ----- 
  From: Antonio Sun 
  To: TPM Mongers 
  Sent: Monday, December 06, 2010 10:22 AM
  Subject: [tpm] Writing to STDOUT in batches


  I have the following code in a loop:

      open(OUTFILE, "$cmd >> myfile"); # append write 
     print OUTFILE content();

  The $cmd is a complicated sed command. For simplicity purpose, let's say it is 

    | sed -n '10,20p' 

  I.e., printing only lines 10~20 of the content of each loop. 

  My goal is to write to STDOUT instead of a fixed file. I tried to change the above open statement with

     open(OUTFILE, "$cmd >-");   # write to STDOUT


     open(OUTFILE, "$cmd >>-");   # write to STDOUT

  but didn't get any output. 

  Anyone can help me here? 

  BTW, in case you wonder why the open statement is in the loop -- if I don't do it this way and open outside the loop instead, I'll  get the first 10~20 lines only from the first loop.




  toronto-pm mailing list
  toronto-pm at pm.org
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/toronto-pm/attachments/20101206/1f162c3e/attachment-0001.html>

More information about the toronto-pm mailing list