RE: RE: this one's a file utility

Replies are listed 'Best First'.
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]

Replies are listed 'Best First'.

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]