Форум АНТИЧАТ - Perl с нуля на примере

Perl с нуля на примере

16.03.2006, 00:41

LoFFi

Участник форума

Регистрация: 21.02.2006

Сообщений: 285

Провел на форуме:
1347867

Репутация: 408

Отправить сообщение для LoFFi с помощью ICQ

Perl с нуля на примере

Решил написать статью. Опять таки для начинающих в области языка Perl.
Решил просто подробно описать иногда нужную прогу - парсер, написанный мною.

Надеюсь статья поможет новичкам

Эта програмка расчитана на создание словаря для брутуса в виде логин:логин
используя логины файла /etc/passwd

Вот собственно код:

Код:

#!/usr/bin/perl

$outfilename = 'parced.txt';
  
if ($ARGV[0] eq '') {print "\nsyntax:\n\tperl parcer.pl [filepath]\nExample: \n\tperl parcer.pl passwd";exit 0;}

$filepath = $ARGV[0];
open(inptfl,"< $filepath") or die print "\n\nError opening file!";
open(STDOUT,"> $outfilename") or die print "\n\nError writing file!";
@inputrow = <inptfl>;

foreach (@inputrow) {
$u = index $_,':',0;
$name = substr $_,0,$u;
$i = substr $name,0,1;
(print "$name:$name\n") unless (($i eq '#')or($name eq ''));
}

close(inptfl);
close(STDOUT);

Ну что ж... преступим к описанию.....
Итак. Ну я не буду ничего говорить про первую строку - итак все понятно.

Для удобства объявляем переменную $outfilename, в которой указываем
имя исходящего файла-словаря.
Далее мы оператором if проверяем входящий параметр, и если он не указан,
то выводим сообщение. Еще надо учесть что в перле есть несколько операторов
сравнения. Одни из них это '==' и 'eq'. Отличие в том, что первый сравнивает
численные значения переменных, а 'eq' сравнивает строки.
Мы используем массив ARGV. Это системный массив. В нем указываються все
входящие данные. И так как нам нужно первое, то пишем $ARGV[0], так как счет
всегда начинаеться с нуля.

Далее если ARGV пустой, то 'exit 0;' - выходим из программы, возвращая 0.
Если же нет, то идем далее. Записываем в переменную $filepath путь к файлу,
который откываем для парсинга. После этого открываем этот файл.
Синтаксис такой:

open ДЕСКРИПТОР, ИМЯ_ФАЙЛА;

так же в начале имени файла стоит знак '<' обозначающий, что файл открыт только на чтение
соответсвенно знак '>' - открытие на запись. после оператора OPEN идет OR DIE. Это место
код которого будет выполняться если не получиться открыть файл.

Будем использовать немного не стандартный, но более удобный (для меня =) ) метод записи в файл.
Далее поймете какой. Для начала файлу, куда записываем, присваеваем дескриптор STDOUT. это
указатель на исходящий буффер. То есть таким образом используя функцию вывода на экран (print)
мы будем писать в файл =)

Для удобства работы нужно разбить текст входящего файла по строкам. Для этого пишем:

@inputrow = <inptfl>;

Мы вписываем в массив 'inputrow' построчно данные из файла с дескриптором 'inptfl'
Если кто незнает, что такое дескриптор, то скажу. Дескриптор - это переменная-указатель на
файл.

Далее испрользуем оператор 'foreach'.
Синтаксис:

foreach $i
{
}

Этот оператор берет переменную или массив, и подставляет все значения поочередно в переменную '$_'
и повторяет свой блок пока не дойдет до конца массива.
Очень интересная функция 'index'. Она ищет указанный текст и возвращает его позицию.
Синтаксис:

index EXPR,STR,POS

EXPR - это та переменная, где ищем.
STR - выражение которое ищем.
POS - начальная позиция.

Мы ищем первый в строке элемент ':'. Его позицию записываем в переменную $u.
Теперь же ж нам нужно прочитать текст. Для этого воспользуемся функцией substr.
Синтаксис:

substr EXPR,POS1,POS2

EXPR - понятно...
POS1 - начальная позиция (откуда читать).
POS2 - конеченая позиция.

После всего этого сделаем проверку на наличие коментариев, или пустой строки.
Для этого воспользуемся оператором 'unless'. Этот оператор очень похож на if
но отличаеться тем, что выражение слева от него выполняеться всегда, кроме
случаев описанных справа.

Вообщем как я и говорил, с помощью print мы записываем данные в файл
далее с помощью 'close' закрываем открытые фалы, указывая в аргументе их
дескрипторы.

Запускаем и тестируем =))