Otnovo Sorry - eto go raboteshto....no iska pamet?
===========================================
#!usr/bin/perl - примерно....!!!!
use warnings;
use strict;
open FILE, "blabla.log" or die $!;
my @newfile;
my $linenumber = 1;
while (<FILE>)
{
push @newfile,$_;
}
while ($linenumber < 10) # kolkoto iskame da otrejem
{
shift @newfile;
}
print @newfile;
===========================================
============================================================================
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
============================================================================
