#!/usr/bin/perl ($a,$b)=@ARGV;($c,$d)=split/[^\d]/,$a;if(!-f$b){die"$b $!\n";}else{ope +n (F,$b)||die"$b $!\n";seek(F,$c,0);$f=0;$e=$d-$c;while($f!=$e){$g=$e-$f +; if($g>=512){read(F,$h,512);$f+=512}else{read(F,$h,$g);$f+=$g}print$h;} +} [download]
#!/usr/bin/perl use strict;my($a,$b)=@ARGV;my($c,$d)=split/[^\d]/,$a;if(!-f$b){die"$b +$!"}else {open(F,$b)||die"$b $!";seek(F,$c,0);my$f=0;my$e=$d-$c;my$h;while($f!= +$e){my$g =$e-$f;if($g>=512){read(F,$h,512);$f+=512}else{read(F,$h,$g);$f+=$g}pr +int$h;}} [download]
www.com | www.net | www.org
No recent polls found
