Mercurial > repo
view paste/paste.31066 @ 7006:458fca97071d
<b_jonas> perl -e-e($o="bin/culprits-ng") and die; open$O,">",$o or die; print $O qq{#!/bin/sh\\n},q{exec hg log -l 512 --template "{desc}\\0" -- "$@" | perl -0ne \'/^<([^>]*)>/ and!$t{$1}++and print"$1 "\'}; close$O;chmod 0755,$o or die;
| author | HackBot |
|---|---|
| date | Thu, 25 Feb 2016 07:17:36 +0000 |
| parents | f00fe8a0e63c |
| children |
line wrap: on
line source
==> bin/emptylist <== echo -n "$(basename "$0"): "; tail -n+2 "$0" | xargs; exit ==> bin/instalist <== echo $@ ==> bin/list <== #!/bin/sh grep '^..:..:..: <[^>]*> `list' /var/irclogs/_esoteric/201[3-9]-??-??.txt | sed 's/^.*<//;s/>.*//;s/_*$//' | sort -u | tr '\n' ' ' ==> bin/makelist <== cp bin/emptylist bin/"$1" ==> bin/mlist <== echo Seeing a philosopher ==> bin/olist <== echo -n "$(basename "$0"): "; tail -n+2 "$0" | xargs; exit shachaf oerjan Sgeo ==> bin/pbflist <== tail -n+2 "$0" | xargs; exit shachaf Sgeo quintopia ==> bin/slist <== echo -n "$(basename "$0"): "; tail -n+2 "$0" | xargs; exit Taneb atriq Ngevd Fiora nortti Sgeo ThatOtherPerson alot ==> bin/smlist <== echo -n "$(basename "$0"): "; tail -n+2 "$0" | xargs; exit shachaf monqy elliott ==> bin/testlist <== echo foo echo bar