use IO::File;
$fh = new IO::File;
if ($fh->open("< file")) {
print <$fh>;
$fh->close;
}
$fh = new IO::File "> file";
if (defined $fh) {
print $fh "bar\n";
$fh->close;
}
$fh = new IO::File "file", "r";
if (defined $fh) {
print <$fh>;
undef $fh; # automatically closes the file
}
$fh = new IO::File "file", O_WRONLY|O_APPEND;
if (defined $fh) {
print $fh "corge\n";
$pos = $fh->getpos;
$fh->setpos($pos);
undef $fh; # automatically closes the file
}
autoflush STDOUT 1;
IO::File inherits from IO::Handle and IO::Seekable. It extends these classes with methods that are specific to file handles.
IO::File. If it receives any parameters, they are passed to the method open; if the open fails, the object is destroyed. Otherwise, it is returned to
the caller.
IO::File opened for read/write on a newly created temporary file. On systems where
this is possible, the temporary file is anonymous (i.e. it is unlinked
after creation, but held open). If the temporary file cannot be created or
opened, the IO::File object is destroyed. Otherwise, it is returned to the caller.
If IO::File::open receives a Perl mode string (``>'', ``+<'', etc.) or a
POSIX fopen() mode string (``w'', ``r+'',
etc.), it uses the basic Perl open operator.
If IO::File::open is given a numeric mode, it passes that mode and the optional permissions
value to the Perl sysopen operator. For convenience, IO::File::import tries to import the
O_XXX constants from the Fcntl module. If dynamic
loading is not available, this may fail, but the rest of IO::File will
still work.