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