Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
skarsnik@vps300582:~/perl6/benchmark$ ./rakudo-2017.05/install/bin/perl6 -I p6-linux-proc-statm/lib/ ../testshell.p6 shell
Before shell call : 65.996 kb
html is 258974 chars
After shell call : 66.860 kb
After sleep 5 : 66.860 kb
skarsnik@vps300582:~/perl6/benchmark$ ./rakudo-2017.07/install/bin/perl6 -I p6-linux-proc-statm/lib/ ../testshell.p6 shell
Before shell call : 78.812 kb
html is 258974 chars
After shell call : 106.104 kb
After sleep 5 : 107.192 kb
use Linux::Proc::Statm;
sub mem($a) {
say $a ~ get-statm<data>.flip.comb(/.**1..3/).join('.').flip ~ ' kb';
}
mem("Before shell call : ");
my $html;
if @*ARGS[0] eq "qqx" {
$html = qqx{wget -o /dev/null -O - https://www.fimfiction.net/bookshelf/149291/};
}
if @*ARGS[0] eq "shell" {
my $proc = shell "wget -o /dev/null -O - https://www.fimfiction.net/bookshelf/149291/", :out;
$html = $proc.out.slurp;
}
if @*ARGS[0] eq "run" {
my $proc = run "wget", "-o", "/dev/null", "-O", "-", "https://www.fimfiction.net/bookshelf/149291/", :out;
$html = $proc.out.slurp;
}
say "html is " ~ $html.chars ~ " chars";
mem("After shell call : ");
sleep 5;
mem("After sleep 5 : ");
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.