RE: this one's a file utility

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