printing a filehandle to another file.

[DBSMITH]

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>