Re: printing a filehandle to another file.

[DBSMITH]

Perl'ers.... nevermind... I had a brain fart.  I got it using a foreach
loop on the file.

Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams




                                                                           
             Derek                                                         
             Smith/Staff/OhioH                                             
             ealth                                                      To 
                                       <beginners@perl.org>                
             03/23/2005 04:52                                           cc 
             PM                                                            
                                                                   Subject 
                                       printing a filehandle to another    
                                       file.                               
                                                                           
                                                                           
                                                                           
                                                                           
                                                                           
                                                                           



Here is my code:

use strict; use warnings;

my $tpexports = qq(/usr/local/bin/ohiohealth/derek);
my $archivedexports = qq(/usr/local/log/9940exports.archived);

                open (FFFF_, "+>$tpexports") || die "could not open file:
$tpexports $!";
                open (FOO, ">>$archivedexports") || die "could not open
file $!";
                print FOO "\n", $tpexports;

close FFFF_;
close FOO;


My goal is to append whats in derek to FOO.


or


print "\n" >> derek ; cat derek >> 9940exports.archived;

thank you,

derek


Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>