view bin/bseen @ 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
s="<${1% }>"
while ((i++ < 30)) && read -r file; do
	line=
	while read -r t n m; do [[ $n =~ $s ]] && line="$t $n $m"; done <"$file"
	[[ -n "$line" ]] && { printf '%s:%s\n' "${file##*/}" "$line"; exit; }
done < <(ls -r /var/irclogs/_esoteric/????-??-??.txt)
echo 'well, not lately'