printing a filehandle to another file.

DBSMITH_at_OhioHealth.com
Date: 03/23/05 

To: <beginners@perl.org>
Date: Wed, 23 Mar 2005 16:52:03 -0500

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