Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

RE: this one's a file utility

by da w00t (Sexton)
on May 11, 2000 at 12:00 UTC ( [id://11138]=note: print w/replies, xml ) Need Help??


in reply to this one's a file utility

this takes 2 arguments ex: ./script 0-100 file

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

In Section Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://11138]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others browsing the Monastery: (1)
As of 2024-04-18 23:28 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found