| 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