|
4198
|
1 bin/?: else echo "$1? ¯\(°_o)/¯"; exit 1;
|
|
|
2 bin/¿:? "$@" | rev | tac
|
|
|
3 bin/؟:? "$@" | rev
|
|
|
4 bin/anonlog: grep -P -i -- "$1" ????-??-??.txt | shuf -n 1| sed "s=<[^>]*> =="
|
|
|
5 bin/anonlog: file=$(shuf -en 1 ????-??-??.txt)
|
|
|
6 bin/aseen:done < <(ls -r /var/irclogs/_esoteric/????-??-??.txt)
|
|
|
7 bin/bienvenido:if (defined($_=shift)) { s/ *$//; s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.es"; } else { exec "bin/?", "welcome.es"; }
|
|
|
8 bin/bseen:done < <(ls -r /var/irclogs/_esoteric/????-??-??.txt)
|
|
|
9 bin/define: echo 'Define what?'
|
|
|
10 bin/define: --dump --width=1000 'http://google.com/search?q=define:'"$QUERY" |
|
|
|
11 Binary file bin/delvs matches
|
|
|
12 bin/e:echo elieser224: ¿por qué con frecuencia altas y bajas?
|
|
|
13 bin/ello: if (!(name != null ? name.length : void 0)) {
|
|
|
14 bin/ello: console.log(consonant_then_o.test(name) ? name.replace(consonant_then_o, function(match, before, consonant, rest) {
|
|
|
15 bin/ello: }) : ell_manglable.test(name) ? name.replace(ell_manglable, function(match, before, middle, rest) {
|
|
|
16 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) {
|
|
|
17 bin/ello: }) : ends_with_consonant.test(name) ? name + 'ello' : "Hello, " + name + "!");
|
|
|
18 Binary file bin/emmental matches
|
|
|
19 bin/etymology: echo 'Look up what?'
|
|
|
20 bin/etymology: --dump --width=1000 'http://etymonline.com/?search='"$QUERY" |
|
|
|
21 bin/forget:echo "Forget what?"
|
|
|
22 Binary file bin/fortune matches
|
|
|
23 Binary file bin/fueue matches
|
|
|
24 bin/gaseen:arr=(/var/irclogs/_esoteric/????-??-??.txt)
|
|
|
25 bin/gccrun:r=$?
|
|
|
26 bin/google: echo 'Google what?'
|
|
|
27 bin/google: --dump --width=1000 'http://google.com/search?q='"$QUERY" |
|
|
|
28 bin/?h:? "$@" | perl -pe 's/([aeiouy])([bcdfghjklmnpqrstvxz])\b/$1h$2/ig'
|
|
|
29 bin/hatesgeo:perl -n -e '/:(.*?)!.*JOIN/; $j{$1}++; END {print "$_ $j{$_};" for sort {$j{$b} <=> $j{$a}} keys %j}' $@
|
|
|
30 bin/?hh:\? "$@" | perl -pe 's/([aeiouy])([bcdfghjklmnpqrstvxz])/$1h$2/ig'
|
|
|
31 bin/js:## <http://icedtea.classpath.org/bugzilla/show_bug.cgi?id=179>
|
|
|
32 bin/js:## <http://www.openoffice.org/issues/show_bug.cgi?id=91641>
|
|
|
33 bin/learn:topic=$(echo "$1" | lowercase | sed 's/^\(a\|the\) //;s/s\? .*//')
|
|
|
34 bin/list:grep '^..:..:..: <[^>]*> `list' /var/irclogs/_esoteric/201[3-9]-??-??.txt | sed 's/^.*<//;s/>.*//;s/_*$//' | sort -u | tr '\n' ' '
|
|
|
35 bin/log: grep -P -i -- "$1" ????-??-??.txt | shuf -n 1
|
|
|
36 bin/log: file=$(shuf -en 1 ????-??-??.txt)
|
|
|
37 Binary file bin/lua matches
|
|
|
38 Binary file bin/luac matches
|
|
|
39 bin/luarocks:package.path = [[/hackenv/share/lua/5.2//?.lua;/hackenv/share/lua/5.2//?/init.lua;]]..package.path
|
|
|
40 bin/luarocks-admin:package.path = [[/hackenv/share/lua/5.2//?.lua;/hackenv/share/lua/5.2//?/init.lua;]]..package.path
|
|
|
41 Binary file bin/macro matches
|
|
|
42 Binary file bin/mov matches
|
|
|
43 Binary file bin/node matches
|
|
|
44 Binary file bin/nooodl: matches
|
|
|
45 bin/pastelog: file=$(shuf -en 1 ????-??-??.txt)
|
|
|
46 bin/pastelog: lines=$(timeout 25 grep -P -i -- "$1" ????-??-??.txt | head -n 301)
|
|
|
47 bin/pastelogs: file=$(shuf -en 1 ????-??-??.txt)
|
|
|
48 bin/pastelogs: lines=$(timeout 25 grep -P -i -- "$1" ????-??-??.txt | head -n 301)
|
|
|
49 bin/pastlog:grep -P -i -- "$1" $(ls ????-??-??.txt | head -n -1) | shuf -n 1
|
|
|
50 bin/prefixes:echo 'Bot prefixes: fungot ^, HackEgo `, EgoBot !, lambdabot @ or ?, thutubot +, metasepia ~, jconn ) , blsqbot !'
|
|
|
51 bin/quine:cd /var/irclogs/_esoteric; cat $(ls ????-??-??.txt | tail -1) | sed 's/[^>]*> //' | grep '^`' | tail -1 #Best cheating quine ever?
|
|
|
52 bin/randomanonlog:awk 'sub(/^<[^:]+:[^ ]+ PRIVMSG #esoteric :/,"")' < `ls /var/irclogs/_esoteric/????-??-??-raw.txt | shuf -n1` | shuf -n1
|
|
|
53 Binary file bin/rot256 matches
|
|
|
54 Binary file bin/searchlog matches
|
|
|
55 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";
|
|
|
56 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
|
|
|
57 bin/shove: ? @ARGV : <>;
|
|
|
58 bin/shove:my $width = 0; $width = ($width < length $_ ? length $_ : $width) for @program;
|
|
|
59 bin/shove: $cmd eq "'" and ($quotecount += ($lws ? -1 : 1)), ($lws = !$lws);
|
|
|
60 bin/shove: $cmd eq '"' and ($quotecount += ($lws ? 1 : -1)), ($lws = !$lws);
|
|
|
61 Binary file bin/tclkit matches
|
|
|
62 bin/tell:echo "I think you mean \"@tell $@\" instead?"
|
|
|
63 Binary file bin/units matches
|
|
|
64 bin/welcome:if (defined($_=shift)) { s/ *$//; s/ +/ @ /g; exec "bin/@", $_ . " ? welcome"; } else { exec "bin/?", "welcome"; }
|
|
|
65 bin/wercome:if (defined($_=shift)) { s/ *$//; s/ +/ @ /g; exec "bin/@", $_ . " ? wercome"; } else { exec "bin/?", "wercome"; }
|
|
|
66 bin/wl: url = 'http://%s.wikipedia.org/w/api.php?format=json&action=query&' \
|
|
|
67 bin/word:my $parse_line = qr/(\d*)(?: +(\d+))?/;
|
