view paste/paste.31992 @ 12257:1924fe176291 draft

<fizzie> ` sed -e \'s|wisdom|bin|\' < ../bin/cwlprits > ../bin/cblprits; chmod a+x ../bin/cblprits
author HackEso <hackeso@esolangs.org>
date Sat, 07 Dec 2019 23:36:53 +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+))?/;