Архив метки: perl

Perl и LWP

Все таки класная это шткука LWP, с  помощью ее можно заходить почти на любые сайты, как будьто ты заходиш браузером… и парсить нужную тебе информацию.

Попробовал тут на днях заходить на аккаунты шаринг-хостингов — легко. Теперь вообще отлично получается — берешь книжку, получаешь каким то образом ее описание, саму книжку заливаеш на шаринг-хостинги (по ФТП) и потом на автомате же получаеш их ссылку… замечательно.. 🙂

Подключаемся к MS SQL из Perl

Если у Вас появилась необходимость работать с базой MS SQL из Perl, то в данном посте я расскажу как это получилось делать у меня.

Для этого нам понадобятся: freetds, DBD::Sybase .

Читать далее

Простейшая конвертация mysql-дампа в текстовый файл с разделителями полей.

Попросили меня сконвертировать данные  из дампа mysql-базы в текстовый файл с разделителем #.

Читать далее

Подсчет ошибок в логе messages.log

Сегодня понадобилось подсчитать количество ошибок по превышению температуры процессора. Данные находятся в messages.log.

Самое простое решение — это написать простенький perl скрипт, который бы брал месяц, число и считало количество появления ошибок в хеше.

Скрипт получилося такой:

 

#!/usr/bin/perl

$filename=’mess4.log’;

open FH,$filename or die $!;

while (<FH>) {

    ~/(\w+)\s*(\d+)\s+(\d+):/;

  #  print «$1 $2 $3\n»;

   if (exists($stat{«$1 $2»})) {$stat{«$1 $2»}+=1;} else { $stat{«$1 $2»}=1;}

}

while (($data,$count)=each(%stat)){

    print «$data\t$count\n»;

}

 

Результат — вывод двух из 3х колонок — МЕСЯЦ, ЧИСЛО, КОЛИЧЕСТВО ОШИБОК.

Скрипт очень прост, поэтому вывод нужно запихнуть в ексель и отсортировать по-человечески. Конечно все это можно сделать в скрипте, но на это пока нет времени.