The same in Perl:
print getc() for 1..100; [download]
In reply to Re^3: Need to read certain number of chars in a file by ikegami in thread Need to read certain number of chars in a file by ranrodrig