File::Slurp
#!/usr/bin/perl
use strict;
use warnings;
use File::Slurp qw(slurp);
my $filename = $ARGV[0];
if (not defined $filename) {
die "Usage: $0 FILENAME\n";
}
my $text = slurp($filename);
my @lines = slurp($filename);
Press ← or → to navigate between chapters
Press S or / to search in the book
Press ? to show this help
Press Esc to hide this help
#!/usr/bin/perl
use strict;
use warnings;
use File::Slurp qw(slurp);
my $filename = $ARGV[0];
if (not defined $filename) {
die "Usage: $0 FILENAME\n";
}
my $text = slurp($filename);
my @lines = slurp($filename);