changeset 4198:61773ea4b7b2

<elliott> grep \'?\' bin/* | paste
author HackBot
date Wed, 18 Dec 2013 20:27:47 +0000
parents 930ca08ced81
children 7fe29e5ec9b8
files paste/paste.31992
diffstat 1 files changed, 67 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/paste/paste.31992	Wed Dec 18 20:27:47 2013 +0000
@@ -0,0 +1,67 @@
+bin/?:    else echo "$1? ¯\(°​_o)/¯"; exit 1;
+bin/¿:? "$@" | rev | tac
+bin/؟:? "$@" | rev
+bin/anonlog:    grep -P -i -- "$1" ????-??-??.txt | shuf -n 1| sed "s=<[^>]*> =="
+bin/anonlog:    file=$(shuf -en 1 ????-??-??.txt)
+bin/aseen:done < <(ls -r /var/irclogs/_esoteric/????-??-??.txt)
+bin/bienvenido:if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.es"; } else { exec "bin/?", "welcome.es"; }
+bin/bseen:done < <(ls -r /var/irclogs/_esoteric/????-??-??.txt)
+bin/define:    echo 'Define what?'
+bin/define:    --dump --width=1000 'http://google.com/search?q=define:'"$QUERY" |
+Binary file bin/delvs matches
+bin/e:echo elieser224: ¿por qué con frecuencia altas y bajas?
+bin/ello:  if (!(name != null ? name.length : void 0)) {
+bin/ello:  console.log(consonant_then_o.test(name) ? name.replace(consonant_then_o, function(match, before, consonant, rest) {
+bin/ello:  }) : ell_manglable.test(name) ? name.replace(ell_manglable, function(match, before, middle, rest) {
+bin/ello:  }) : starts_with_o.test(name) ? 'hell' + name : ends_with_consonant_then_vowel.test(name) ? name.replace(ends_with_consonant_then_vowel, function(match, before) {
+bin/ello:  }) : ends_with_consonant.test(name) ? name + 'ello' : "Hello, " + name + "!");
+Binary file bin/emmental matches
+bin/etymology:    echo 'Look up what?'
+bin/etymology:    --dump --width=1000 'http://etymonline.com/?search='"$QUERY" |
+bin/forget:echo "Forget what?"
+Binary file bin/fortune matches
+Binary file bin/fueue matches
+bin/gaseen:arr=(/var/irclogs/_esoteric/????-??-??.txt)
+bin/gccrun:r=$?
+bin/google:    echo 'Google what?'
+bin/google:     --dump --width=1000 'http://google.com/search?q='"$QUERY" |
+bin/?h:? "$@" | perl -pe 's/([aeiouy])([bcdfghjklmnpqrstvxz])\b/$1h$2/ig'
+bin/hatesgeo:perl -n -e '/:(.*?)!.*JOIN/; $j{$1}++; END {print "$_ $j{$_};" for sort {$j{$b} <=> $j{$a}} keys %j}' $@
+bin/?hh:\? "$@" | perl -pe 's/([aeiouy])([bcdfghjklmnpqrstvxz])/$1h$2/ig'
+bin/js:## <http://icedtea.classpath.org/bugzilla/show_bug.cgi?id=179>
+bin/js:## <http://www.openoffice.org/issues/show_bug.cgi?id=91641>
+bin/learn:topic=$(echo "$1" | lowercase | sed 's/^\(a\|the\) //;s/s\? .*//')
+bin/list:grep '^..:..:..: <[^>]*> `list' /var/irclogs/_esoteric/201[3-9]-??-??.txt | sed 's/^.*<//;s/>.*//;s/_*$//' | sort -u | tr '\n' ' '
+bin/log:    grep -P -i -- "$1" ????-??-??.txt | shuf -n 1
+bin/log:    file=$(shuf -en 1 ????-??-??.txt)
+Binary file bin/lua matches
+Binary file bin/luac matches
+bin/luarocks:package.path = [[/hackenv/share/lua/5.2//?.lua;/hackenv/share/lua/5.2//?/init.lua;]]..package.path
+bin/luarocks-admin:package.path = [[/hackenv/share/lua/5.2//?.lua;/hackenv/share/lua/5.2//?/init.lua;]]..package.path
+Binary file bin/macro matches
+Binary file bin/mov matches
+Binary file bin/node matches
+Binary file bin/nooodl: matches
+bin/pastelog:        file=$(shuf -en 1 ????-??-??.txt)
+bin/pastelog:        lines=$(timeout 25 grep -P -i -- "$1" ????-??-??.txt | head -n 301)
+bin/pastelogs:        file=$(shuf -en 1 ????-??-??.txt)
+bin/pastelogs:        lines=$(timeout 25 grep -P -i -- "$1" ????-??-??.txt | head -n 301)
+bin/pastlog:grep -P -i -- "$1" $(ls ????-??-??.txt | head -n -1) | shuf -n 1
+bin/prefixes:echo 'Bot prefixes: fungot ^, HackEgo `, EgoBot !, lambdabot @ or ?, thutubot +, metasepia ~, jconn ) , blsqbot !'
+bin/quine:cd /var/irclogs/_esoteric; cat $(ls ????-??-??.txt | tail -1) | sed 's/[^>]*> //' | grep '^`' | tail -1 #Best cheating quine ever?
+bin/randomanonlog:awk 'sub(/^<[^:]+:[^ ]+ PRIVMSG #esoteric :/,"")' < `ls /var/irclogs/_esoteric/????-??-??-raw.txt | shuf -n1` | shuf -n1
+Binary file bin/rot256 matches
+Binary file bin/searchlog matches
+bin/seen:($n,$e)=split /\s+/, join(" ",@ARGV); $n=~s/ *$//; $c="ls -r /var/irclogs/_esoteric/????-??-??.txt"; $c.=" | head -n 30" unless $e eq "ever"; @f=split /\s+/, `$c`; for $f (@f) { open F,"<$f"; @l=grep(/^..:..:..: <$n>/i,<F>); close F; if (@l) { $b=$f;  $b=~s#.*/(.*?).txt#$1#; print "$b $l[-1]"; exit 1; } } print $e eq "ever" ? "not that I remember" : "not lately; try `seen $n ever";
+bin/seens:find /var/irclogs/_esoteric -mindepth 1 -maxdepth 1 -type f -name '????-??-??.txt' | sort -r | xargs -d'\n' -r tac -- | grep "^..:..:..: <$1>" | head -n 1
+bin/shove:  ? @ARGV : <>;
+bin/shove:my $width = 0; $width = ($width < length $_ ? length $_ : $width) for @program;
+bin/shove:      $cmd eq "'" and ($quotecount += ($lws ? -1 : 1)), ($lws = !$lws);
+bin/shove:      $cmd eq '"' and ($quotecount += ($lws ? 1 : -1)), ($lws = !$lws);
+Binary file bin/tclkit matches
+bin/tell:echo "I think you mean \"@tell $@\" instead?"
+Binary file bin/units matches
+bin/welcome:if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? welcome"; } else { exec "bin/?", "welcome"; }
+bin/wercome:if (defined($_=shift)) { s/ *$//;  s/ +/ @ /g; exec "bin/@", $_ . " ? wercome"; } else { exec "bin/?", "wercome"; }
+bin/wl:    url = 'http://%s.wikipedia.org/w/api.php?format=json&action=query&' \
+bin/word:my $parse_line = qr/(\d*)(?: +(\d+))?/;