diff bin/random-card @ 8000:ea34842a51f6

<b_jonas> `` echo $\'#!/bin/sh\\nexec perl -e\\\'\'\'open$I,"<","share/mtg/allsets.txt"or die$!;$/=""; @c=grep{/(?:$ARGV[0])/}<$I>; print $c[rand($c)];\'\\\'\' "$1"\' > bin/random-card && chmod -v a+x bin/random-card
author HackBot
date Mon, 09 May 2016 08:32:26 +0000
parents
children faebf4569ba3
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/random-card	Mon May 09 08:32:26 2016 +0000
@@ -0,0 +1,2 @@
+#!/bin/sh
+exec perl -e'open$I,"<","share/mtg/allsets.txt"or die$!;$/=""; @c=grep{/(?:$ARGV[0])/}<$I>; print $c[rand($c)];' "$1"