Skip to content

Instantly share code, notes, and snippets.

@colomon
Created June 17, 2011 20:23
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save colomon/1032239 to your computer and use it in GitHub Desktop.
Save colomon/1032239 to your computer and use it in GitHub Desktop.
for @*ARGS -> $filename {
my ($count) = open($filename).lines()[1] ~~ /^(\d+) \s+ \d+ \s+ 0 \s+/;
$filename.say if $count > 3;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment