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

Add examples to documentation for sysread()

Browse Source
This commit is contained in:
Scott Baker 2025-02-04 15:32:55 -08:00 committed by Karl Williamson
parent fecfa476eb
commit 368556a98d
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
pod/perlfunc.pod
View File

@ -9572,6 +9572,17 @@ the string. A positive OFFSET greater than the length of SCALAR
results in the string being padded to the required size with C<"\0">
bytes before the result of the read is appended.
open(my $FH, "<", "input.txt") or die("Cannot open file: $!");
my $buf = "";
my $num = 0;
# Read up to 64 bytes
$num = sysread($FH, $buf, 64);
# Read up to 32 bytes into position 512 of $buf
$num = sysread($FH, $buf, 32, 512);
There is no syseof() function, which is ok, since
L<C<eof>|/eof FILEHANDLE> doesn't work well on device files (like ttys)
anyway. Use L<C<sysread>|/sysread FILEHANDLE,SCALAR,LENGTH,OFFSET> and