Perl I/O Operators Guide — readline, read, sysread, and seek Operations

In this tutorial, you will learn about Perl I/O Operators Guide. We cover key concepts, practical examples, and best practices to help you master this topic.

Perl I/O operators provide low-level control beyond basic file handles -- readline (<>) for line-based input, read for buffered binary reads, sysread/syswrite for unbuffered system calls, and seek/tell for random file position access.

readline Operator

-- wait, I need to use Perl code:

open(my $fh, "<", "file.txt");

# Read one line
my $line = readline($fh);
chomp $line;

# Or using diamond operator
my $line = <$fh>;

# Read all lines
my @lines = <$fh>;

Fixed-Size Reads

# Read exactly N bytes
my $buffer;
my $bytes_read = read($fh, $buffer, 1024);

# Read into scalar
open(my $fh, "<", "data.bin");
my $header;
read($fh, $header, 8);  # read 8-byte header

Unbuffered I/O

# sysread - no buffering, more efficient for large data
my $buf;
my $count = sysread($fh, $buf, 8192);

# syswrite - unbuffered write
syswrite($fh, "data block", 10);

# Error handling
if (!defined $count) {
    die "sysread failed: $!";
}

File Position

# tell - current position
my $pos = tell($fh);
print "Current position: $pos\n";

# seek - move position
seek($fh, 0, 0);    # start of file
seek($fh, 0, 2);    # end of file
seek($fh, 100, 0);  # 100 bytes from start
seek($fh, -50, 1);  # 50 bytes back from current

Common Mistakes

1. Mixing buffered and unbuffered I/O

Don't mix read()/< > with sysread() on the same handle. Buffered operations skip the system buffer that sysread reads from.

2. Not checking return values

read() and sysread() return undef on error. Always check: defined(read($fh, $buf, 1024)) or die "Error: $!".

3. Assuming read fills the buffer

read() returns fewer bytes than requested if EOF is reached. Loop until you have all needed data.

Practice Questions

1. What is the difference between readline and sysread? readline is buffered and reads until newline. sysread is unbuffered and reads raw bytes.

2. How do you seek to the beginning of a file? seek($fh, 0, 0) sets position to the start of the file.

3. What does tell return? tell($fh) returns the current byte position in the file handle.

FAQ

{{< faq question="What is the advantage of sysread?" >}} sysread bypasses Perl's internal buffering. It's more efficient for large binary reads and gives direct system call semantics. {{< /faq >}}

{{< faq question="Can I read a specific number of bytes from a file?" >}} Yes: read($fh, $buf, $bytes) attempts to read exactly $bytes. Returns number of bytes actually read. {{< /faq >}}

{{< faq question="How do I check if I am at end of file?" >}} eof($fh) returns true if the next read would return EOF. Use after a read returns 0 bytes. {{< /faq >}}

What's Next

Now learn about references in Perl.