mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

[doc] Update FileHandle synopsis

Browse Source 
Add `my` to examples for better practice.
This commit is contained in:
Elvin Aslanov 2022-08-30 11:32:25 +04:00 committed by Karl Williamson
parent ce789034b8
commit 047c4f3375
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lib/FileHandle.pm
View File

@ -4,7 +4,7 @@ use 5.006;
use strict;
our($VERSION, @ISA, @EXPORT, @EXPORT_OK);
$VERSION = "2.04";
$VERSION = "2.05";
require IO::File;
@ISA = qw(IO::File);
@ -111,36 +111,36 @@ FileHandle - supply object methods for filehandles
use FileHandle;
$fh = FileHandle->new;
my $fh = FileHandle->new;
if ($fh->open("< file")) {
print <$fh>;
$fh->close;
}
$fh = FileHandle->new("> FOO");
my $fh = FileHandle->new("> FOO");
if (defined $fh) {
print $fh "bar\n";
$fh->close;
}
$fh = FileHandle->new("file", "r");
my $fh = FileHandle->new("file", "r");
if (defined $fh) {
print <$fh>;
undef $fh; # automatically closes the file
}
$fh = FileHandle->new("file", O_WRONLY|O_APPEND);
my $fh = FileHandle->new("file", O_WRONLY|O_APPEND);
if (defined $fh) {
print $fh "corge\n";
undef $fh; # automatically closes the file
}
$pos = $fh->getpos;
my $pos = $fh->getpos;
$fh->setpos($pos);
$fh->setvbuf($buffer_var, _IOLBF, 1024);
$fh->setvbuf(my $buffer_var, _IOLBF, 1024);
($readfh, $writefh) = FileHandle::pipe;
my ($readfh, $writefh) = FileHandle::pipe;
autoflush STDOUT 1;