Помогите плз, у меня затык!

Ситуация такая- есть текстовый файл со статистикой. Но в начале файла есть ненужная инфа о времени и т.д. - 4 строчки.
Как мне их удалить?

или может как обойти эти строчки ?
вот мой cкрипт:

while (<File>){
tr/ / /s;
($stat1,$stat2,$stat3,stat4) = split(/ /,$_);

$result=$result+$stat3;

}
print $result;

Способов как обычно несколько.
1. Воспользуйся следующей конструкцией next if /shablon/;
Например если в каждой из этих четырёх строк есть время в следующем формате 15:34:20, то шаблон будет примерно таким:
next if /\d{1,2}:\d{2}:\d{2}/;

2. Можно также создать переменную, счётчик:
Например:

Код

my $num_of_string = 0; # Переменная счётчик while (<File>){ $num_of_string++;    # Инкрементируем переменную счётчик next if $num_of_string < 4; #Пропускаем первые 4 строки tr/ / /s; ($stat1,$stat2,$stat3,stat4) = split(/ /,$_); $result=$result+$stat3; }

Удачи ;)

Это сообщение отредактировал(а) korob2001 - 2.3.2004, 18:44

а можно и вот так:

Код

open(File, "file.stat");  # откроем файл @lines = <File>;          # прочитаем его close(File);              # закроем chomp @lines;             # отрежем символы \n в конце каждой строки splice(@lines, 0, 4);     # удалим из масива строк 4 строки, начиная с 0-й позиции foreach (@lines) {        # для каждой строки...    tr/ / /s;    ($stat1,$stat2,$stat3,stat4) = split(/ /,$_);    $result=$result+$stat3; } print $result;

Спасибо большое!
Все работает!
Спасли мою грешую голову ))

Цитата

@lines = <File>;

не клева так делать

лучше как korob2001 написал быстрее будет

Код

while (<FILE>) {    next if 1..4; # пропускаем строки   #  ($stat1,$stat2,$stat3,stat4) = split;  по умолчанию тут все если не все        переменные используются то лучше поставить undef    (undef, undef, $stat3, undef)  = split; # или ваще (split)[2]    $result += $stat3; }

преобразуется

Код

while (<File>) {    next if 1..4;    $res += (split)[2]; } print $res;

Как написал ElectricalStorm.

Попробуй заменить строку:

$result=$result+$stat3;

такой строкой

$result += $stat3;

Второй вариант делает те же действия, только быстрее.

Почему?

Потому что, значение переменной $result вычисляется только 1 раз, а в твоем варианте 2 раза.

Но в принципе твой вариант тоже прекрасно работает. Как тебе удобней так и пиши, я только посоветовал. ;)

Удачи.

Это сообщение отредактировал(а) korob2001 - 3.3.2004, 22:56

To korob2001

Принял к сведенью. Спасибо за совет.Я просто не думал над оптимизацией когда писал. Я просто не так давно начал кодить... теперь буду повнимательнее над кодом...

оптимально так

1. cменить признак конца строки
2. считать весь файл в одну переменную
3. заменить =~ /(.+\n){4}//gi
4. записать переменную в файл

Цитата

2. считать весь файл в одну переменную

При условии, что файл не будет слишком большим.

Это сообщение отредактировал(а) korob2001 - 4.3.2004, 19:47

Я поначалу так и сделал ... но так как файлы у меня могут быть мегабайт по 20... и обращений по 5-10 одновременно ... и все это с перспективой роста !


Вобщем боюсь нету у меня денег на такой сервер

GoodBoy дал действительно более действенный вариант !
У меня скрипт стал раза в 3 меньше

зато в 3 раза тормознее

Цитата

У меня скрипт стал раза в 3 меньше

Опртимизировать код, это не значит уменьшить кол-во строк.
При оптимизации в первую очередь необходимо учитывать расход ресурсов, а только потом уменьшение размера кода.

Такой вариант:

Код

open( FILE, "< myfile.txt" ) or die "Can't open file 'myfile.txt': $!";  my @all_file = <FILE>; close( FILE ) or die "Can't close file 'myfile.txt': $!";

подходит только в том случае, если файл будет не слишком большим. Дело в том, что в этом случае сразу содержимое всего файла присваивается массиву @all_file, в котором каждый элемент будет содержать по одной строке. Другими словами, мы записали весь файл в оперативную память. Прошу обратить внимание на то, что оперативная память, конечна, как и всё остальное в этой жизни. ;)

А что касается такого варианта:

Код

open( FILE, "< myfile.txt" ) or die "Can't open file 'myfile.txt': $!"; while( <FILE> ) {    # Обрабатываем каждую строку по очереди } close( FILE ) or die "Can't close file 'myfile.txt': $!";

то, у нас получается такая вот бодяга:

1. Мы открываем файл.
2. Читаем файл построчно, при этом каждая строка присваивается переменной $_. Если такая переменная не устраивает, то можно воспользоваться конструкцией while( my $line = <FILE> ) { блок кода };
3. Закрываем файл.

Можно заметить что во втором варианте мы никогда не загоним в тупик оперативную память, каким большим не был бы наш файл.

Удачи.

Это сообщение отредактировал(а) korob2001 - 5.3.2004, 18:46

korob2001 Согласен. При написании своего варианта я и имел в виде небольшие файла, ибо Klif не сказал изначально о 20 Мб с перспективой роста... :-))))))) Для небольших же файлов это вполне оправдано!

Цитата

Для небольших же файлов это вполне оправдано!

Согласен.
Тем более оперировать массивом гораздо проще, чем файлом. Но при этом, для себя сразу нужно решить, что файл не будет большим.

Это сообщение отредактировал(а) korob2001 - 5.3.2004, 19:08