Re: Determining what line a filehandle is on

hey I might as well throw in my two cents worth of code ..

#!/usr/bin/perl 
$|++
use strict;
use warnings;
open(my($fd),q(/usr/dict/words)) or die($!);
print qq(\r$.) while(<$fd>);
print qq(\n);
[download]

Brought to you by that crazy but lovable guy... lindex