diff options
Diffstat (limited to 'tests/langbench/hash.pl')
-rw-r--r-- | tests/langbench/hash.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/langbench/hash.pl b/tests/langbench/hash.pl new file mode 100644 index 0000000..46e1b9a --- /dev/null +++ b/tests/langbench/hash.pl @@ -0,0 +1,5 @@ +while (<>) { + $hash{$_} = 1; +} +open(FD, "/proc/$$/status"); +while (<FD>) { print if /^Vm[RD]/; } |