#!/usr/bin/env unliner
#echo "hello world blah zzzz blah" | perl -I lib unliner docs/EXAMPLE_FILE
#include Some::Package;
/*
* Scratch program to exercise unliner grammar
*/
def
/* hi */ main # sup
{
|
grep hello\ world | grep_out_bad_stuff | grep world | perl -ne 's/blah/bluh/g; print'
# HI!
| head -n # ROFL! | coptz
1 | }
def grep_out_bad_stuff( o|omg=f,blah!,(foo=i)
,(bar=s "hello \"world\""),
(rofl'asdfkd fd "f"dfdfd')) : perl -ne : env {
print if /blah/ && /world/;
};
def tally (l|limit=i) : template {
sort | uniq -c | sort -rn
[% IF limit.defined %]
| head -n $limit
[% END %]
}