use File::Temp;
use strict;
my $fh = File::Temp->new(SUFFIX=>'.txt') or die "File::Temp: $!\n";
# $fh is a file handle. You can use it like this
print $fh "This is a test\n";
# or as an object
$fh->print("This is a only a test\n");
$fh->write("Testing 1,2,3\n");
# You can rewind and read it
seek $fh, 0, 0 or die "Seek $fh failed: $!\n";
while (<$fh>) {
print "Guess what I read: $_";
}
# You can also use it as a filename to open it
open ANOTHERFH, "<", $fh or die "Cannot open $fh: $!\n";
while (<ANOTHERFH>) {
print "ANOTHERFH: $_";
}
|