Skip to content

Instantly share code, notes, and snippets.

@aparrish
Created April 20, 2011 11:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save aparrish/931102 to your computer and use it in GitHub Desktop.
Save aparrish/931102 to your computer and use it in GitHub Desktop.
isobel:~ adam$ perl -le 'for(split//,shift@ARGV){$r++;read(STDIN,$c,1);if($c=~/$_/i){print "$c (read $r bytes)";$r=0;next}redo}' everything </dev/urandom
E (read 70 bytes)
v (read 388 bytes)
E (read 15 bytes)
r (read 166 bytes)
y (read 186 bytes)
T (read 180 bytes)
H (read 130 bytes)
I (read 21 bytes)
n (read 56 bytes)
g (read 49 bytes)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment