jnthn/generate-longfile.p6 Secret

## generate-longfile.p6
my $fh = open "longfile", :w;
for ^1_000_000 {
    $fh.say("xyz" x 60);
}
$fh.close;

## read-million-lines-utf8.p6
my $fh = open "longfile";
my $chars = 0;
for $fh.lines { $chars = $chars + .chars };
$fh.close;
say $chars

## read-million-lines-utf8.pl
open my $fh, "<:encoding(UTF-8)", "longfile";
my $chars = 0;
while ($_ = <$fh>) { chomp; $chars = $chars + length($_) };
close $fh;
print "$chars\n"
	my $fh = open "longfile", :w;
	for ^1_000_000 {
	$fh.say("xyz" x 60);
	}
	$fh.close;
	my $fh = open "longfile";
	my $chars = 0;
	for $fh.lines { $chars = $chars + .chars };
	$fh.close;
	say $chars
	open my $fh, "<:encoding(UTF-8)", "longfile";
	my $chars = 0;
	while ($_ = <$fh>) { chomp; $chars = $chars + length($_) };
	close $fh;
	print "$chars\n"