this one's a file utility

#!/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]

Comment on this one's a file utility Download Code

Replies are listed 'Best First'.
RE: this one's a file utility by da w00t (Sexton) on May 11, 2000 at 12:00 UTC
this takes 2 arguments ex: ./script 0-100 file	[reply]
RE: RE: this one's a file utility by raflach (Pilgrim) on May 15, 2000 at 23:25 UTC
Can you make it work with use strict?	[reply]
use stricted by da w00t (Sexton) on May 17, 2000 at 19:06 UTC
`#!/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] ;)	[reply] [d/l]