On Dec 5, 2003, at 6:39 PM, Jose Malacara wrote: [..]
write TYPE_1;
that's the sticky bit, where tom is talking about not writing to a filehandle...
[..]
To expand on tom's comments a bit: <http://www.wetware.com/drieux/pbl/perlTrick/Format/funk_the_form.plx>
which generates
Type: type1 Gateway: cow Acct ID: lost_id Start Date: 2003.12.2 Start Time: 1400 #--------------- Type: type2 Gateway: pig Acct ID: new Start Date: 2003.12.2 Start Time: 1400 Disconnect Date: 2003.12.3 Disconnect Time: 1600
one needs to be thinking in terms of
$~ = 'TYPE_1'; write; $~ = ''; print "#---------------\n";
HTH.
ciao drieux
---
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>