Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
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
You can’t perform that action at this time.
You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session.