про проверки ипроч ...
задача тривиальная и разовая.
писалось все на коленке с жесточайшего похмелья
за пять мин.
и сразу забылось )

а про 30 гиг - интересно.
правда никогда такой задачи не было.
4 гига было.
найду сырц - скину.

лехко.

#!/usr/bin/perl

if ((scalar @ARGV) != 1)
{
print "use: mlogpars.pl file_mail_logs\n";
exit 1;
}

my $c_fn_mlog = $ARGV[0];
my @a_mlog;

open(F_ML, "$c_fn_mlog");
@a_mlog = <F_ML>;
close(F_ML);

my $i_cnt = 0;
my $i_old;
my (@a_buf, @a_buf1, $a_mlog, $c_date, $c_to_uid, $c_from_uid, $i_size, $i_msg_num);

$| = 1;

while ($i_cnt < scalar(@a_mlog))
{
$a_mlog = @a_mlog[$i_cnt];
$a_mlog =~ s/\r//g;
$a_mlog =~ s/\n//g;
@a_buf = split (/ +/, $a_mlog);





etc.
это часть парса логов.
лог был на сколько помнится гиг 30.
kernel 2.4.18.

лехко.

#!/usr/bin/perl

if ((scalar @ARGV) != 1)
{
print "use: mlogpars.pl file_mail_logs\n";
exit 1;
}

my $c_fn_mlog = $ARGV[0];
my @a_mlog;

open(F_ML, "$c_fn_mlog");
@a_mlog = <F_ML>;
close(F_ML);

my $i_cnt = 0;
my $i_old;
my (@a_buf, @a_buf1, $a_mlog, $c_date, $c_to_uid, $c_from_uid, $i_size, $i_msg_num);

$| = 1;

while ($i_cnt < scalar(@a_mlog))
{
$a_mlog = @a_mlog[$i_cnt];
$a_mlog =~ s/\r//g;
$a_mlog =~ s/\n//g;
@a_buf = split (/ +/, $a_mlog);





etc.
это часть парса логов.
лог был на сколько помнится гиг 30.
kernel 2.4.18.

если включить
#define _LARGEFILE64_SOURCE 1
то loff_t должен стать 64 битным (т.е. long long), это даст возможность делать lseek64 за пределы 2G, это все справедливо для block devices, на простых файлах не пробовал.
Но это легко проверить до написания прог, надо глянуть драйверы ext3, и проверить размерность loff_t в реализации seek.