Help for this page

Select Code to Download

Select or download this

sub read_file {
    my $url = shift;
...
sub show_size {
    print `top -l 1 | grep perl | awk '{print "MEM="\$8 "\tRPRVT="\$30
+}'`; # Work on Mac OS X 10.10
}

Select or download this

sub read_file {
    my $url = shift;
...
sub show_size {
    print `top -l 1 | grep perl | awk '{print "MEM="\$8 "\tRPRVT="\$30
+}'`; # Work on Mac OS X 10.10
}