view bin/aseen @ 8195:15385eb12db2

<oerjan> mkx bin/rnooodl//perl -pe \'s/(.)\\1\\1/"@{[$1 x(3+rand 7)]}"/ge\'
author HackBot
date Sun, 29 May 2016 00:46:18 +0000
parents 7914d7e0b500
children
line wrap: on
line source

#!/usr/bin/env bash
n="<${1% }>"; n="${n,,}"
while ((i++ < 30)) && read -r file
do awk -vf="${file##*/}" -vn="$n" 'tolower($2) ~ n{x=$0} END{if(!x) exit 1; print f,x}' "$file" && exit;
done < <(ls -r /var/irclogs/_esoteric/????-??-??.txt)
echo "not lately"