slurp mode
- $/
- slurp
#!/usr/bin/perl
use strict;
use warnings;
my $file = "numbers.txt";
# slurp mode
my $all;
{
open(my $fh, '<', $file) or die "Could not open '$file'\n";
local $/ = undef;
$all = <$fh>;
}
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;
my $file = "numbers.txt";
# slurp mode
my $all;
{
open(my $fh, '<', $file) or die "Could not open '$file'\n";
local $/ = undef;
$all = <$fh>;
}