5.6. slurp

Example 5-5. examples/files/slurp_csv_file.p6

#!/usr/bin/perl6

my $filename = shift @*ARGS err die "Usage: $PROGRAM_NAME file\n";

my %phonebook = map {split ",", $_}, slurp $filename;

print "Name:";
my $name = readline;
say %phonebook{$name};

Example 5-6. examples/files/phonebook.txt

Foo,123
Bar,78
Baz,12321