Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re^5: header footer

by Kenosis (Priest)
on Mar 05, 2014 at 01:20 UTC ( #1077030=note: print w/replies, xml ) Need Help??

in reply to Re^4: header footer
in thread header footer

Consider the following instead:

use strict; use warnings; use autodie; open my $FILE1, '<', 'input.txt'; open my $FILE2, '>', 'output.txt'; while (<$FILE1>) { s/^HDR.{47}|FTR.+//; print $FILE2 $_; } close $FILE1; close $FILE2;
  • autodie will trap the file i/o errors (you're not handling these, but you should)
  • Use only lexical (my) file handles
  • Use while to iterate through the file
  • The two substitutions were combined into one

If FTR marks the footer to the end of the line, you can just use FTR.+ to remove it, since in your example there were only 30 characters left--including FTR. However, it's certainly OK to use FTR.{27}, if you prefer.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2023-01-31 12:57 GMT
Find Nodes?
    Voting Booth?

    No recent polls found