Mercurial > repo
view paste/paste.31992 @ 7473:057ddba56df0
<b_jonas> learn Virgil is a prayer at dawn, as well as an ancient Italian poet who led Dante to hell so they can ask the blind transgendered seer Anchises stupid politics questions concerning contemporary noble families.
author | HackBot |
---|---|
date | Mon, 18 Apr 2016 00:44:22 +0000 |
parents | 61773ea4b7b2 |
children |
line wrap: on
line source
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+))?/;