S
sonet
result:
....
<[email protected]> 12345 8
<[email protected]> 12345 9
<[email protected]> 12345 10
<[email protected]> 12345 2816 <==
<[email protected]> 12345 3072
....
if i set $i=11 or any value.
like:
$i=11;
my $packdata=pack("ia30a30", $i ,$mailaddr,$mailtitle);
the result is ok.
#---------------------------------------------------------------------------
------
#test1.pl
#---------------------------------------------------------------------------
------
#!/usr/local/bin/perl
use strict;
my $mailaddr='<[email protected]>';
my $isread=0;
my $mailtitle='12345';
my $serailno=0;
open FH,">testmdb";
for (my $i=1;$i<=1000;$i++)
{
my $packdata=pack("ia30a30", $i ,$mailaddr,$mailtitle);
print FH $packdata;
}
close FH;
#---------------------------------------------------------------------------
------
#test2.pl
#---------------------------------------------------------------------------
------
#!/usr/local/bin/perl
use strict;
open (FH,"testmdb");
my $r=1;
while(1)
{
seek(FH,($r-1)*64,0);
my $data;
read(FH,$data,64)==64 or last;
my($serialno,$mailaddr,$mailtitle)= unpack("ia30a30",$data);
sleep(1);
print "$mailaddr\t$mailtitle\t$serialno\n";
$r++;
}
close FH;
....
<[email protected]> 12345 8
<[email protected]> 12345 9
<[email protected]> 12345 10
<[email protected]> 12345 2816 <==
<[email protected]> 12345 3072
....
if i set $i=11 or any value.
like:
$i=11;
my $packdata=pack("ia30a30", $i ,$mailaddr,$mailtitle);
the result is ok.
#---------------------------------------------------------------------------
------
#test1.pl
#---------------------------------------------------------------------------
------
#!/usr/local/bin/perl
use strict;
my $mailaddr='<[email protected]>';
my $isread=0;
my $mailtitle='12345';
my $serailno=0;
open FH,">testmdb";
for (my $i=1;$i<=1000;$i++)
{
my $packdata=pack("ia30a30", $i ,$mailaddr,$mailtitle);
print FH $packdata;
}
close FH;
#---------------------------------------------------------------------------
------
#test2.pl
#---------------------------------------------------------------------------
------
#!/usr/local/bin/perl
use strict;
open (FH,"testmdb");
my $r=1;
while(1)
{
seek(FH,($r-1)*64,0);
my $data;
read(FH,$data,64)==64 or last;
my($serialno,$mailaddr,$mailtitle)= unpack("ia30a30",$data);
sleep(1);
print "$mailaddr\t$mailtitle\t$serialno\n";
$r++;
}
close FH;