annotate paste/paste.14186 @ 2043:a38473ce31ac
<ais523> echo "#!/bin/sh" >bin/list; echo -n \'oldpwd=`pwd`; cd /var/irclogs/_esoteric; name=$(cat $(ls ????-??-??.txt | tail -1) | tail -1 | sed "s/[^<]*<//; s/>.*//"); cd $oldpwd; fgrep -q "$name" bin/list || echo -n "$name " >> bin/list; echo \' >> bin/list
author |
HackBot |
date |
Thu, 07 Feb 2013 21:47:47 +0000 |
parents |
e037173e0012 |
children |
|
rev |
line source |
0
|
1 import System.Environment
|
|
2 import System.Process
|
|
3 import System.Exit
|
|
4 import Control.Monad
|
|
5 import Control.Applicative
|
|
6 import Data.List
|
|
7
|
|
8 main = do
|
|
9 r <- buildRegex . permuteArgs <$> getArgs
|
|
10 (_, _, _, h) <- createProcess (proc "/hackenv/bin/log" [r])
|
|
11 exitWith <$> waitForProcess h
|
|
12 where
|
|
13 permuteArgs = permutations . join . map words
|
|
14 buildRegex = oBrackets . intercalate ".*" . map (iBrackets . intercalate "|")
|
|
15 iBrackets s = "(?:" ++ s ++ ")"
|
|
16 oBrackets s = "^.*(?:" ++ s ++ ").*$"
|