Files को Line by Line पढ़ना

use strict;
use warnings;

my $file = "demo_lines.txt";
open(my $w, '>', $file) or die "Cannot write: $!";
print $w "alpha\nbeta\n\ngamma\n";
close $w;

open(my $fh, '<', $file) or die "Cannot read: $!";
while (my $line = <$fh>) {
    chomp $line;
    next if $line eq '';
    print "$.: $line\n";
}
close $fh;
unlink $file;

# Output:
# 1: alpha
# 2: beta
# 4: gamma

1. chomp भूल जाना और doubled newlines पाना
2. एक huge file के लिए पूरी file को एक array में पढ़ना
3. यह भूल जाना कि last line में शायद newline न हो

• एक while loop में <$fh> line by line पढ़ता है
• chomp newline remove करता है
• $. line number hold करता है
• File के अंत पर loop खत्म होता है