Opened by Free Faq at 2004-08-12 22:06
User since
2003-08-04
7321 Artikel
ModeratorIn
2003-08-04
7321 Artikel
ModeratorIn
bit weise wird es schwer... byte weise sollte gehen
in $buffer sollte jetzt alles drin stehen
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
package SeekFile;
use IO::File;
use IO::Seekable;
@ISA = qw(IO::File IO::Seekable);
1;
use Fcntl qw(:seek);
my $startpos = 10;
my $endpos = 20;
my $buffer;
my $fh = SeekFile->new();
if($fh->open("< file"))
{
$fh->seek(SEEK_SET, 0);
$fh->seek(SEEK_SET, $startpos);
$fh->read($buffer, $endpos - $startpos, 0);
$fh->close;
}
in $buffer sollte jetzt alles drin stehen