Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Read from temp file

by Thelonius (Priest)
on Sep 03, 2008 at 21:44 UTC ( #708865=note: print w/replies, xml ) Need Help??

in reply to Read from temp file

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: $_"; }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://708865]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (5)
As of 2017-06-28 07:20 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (628 votes). Check out past polls.