RemComm
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vimaret
Artur Shakirov
Сейчас не выложу, на выходных смогу - далеко от работы, отпуск у мну, но там, похоже, единственный кусок, представляющий ценность - это парсинг ini-файла:
Код:
my ($lstr,$p_start,$p_end);
foreach (@{$content}) {
$lstr = $_;
if ($lstr =~ m/^\[ZIP\]$/) {$p_start = 1; next;}
if ($lstr =~ m/^\[.+$/ and $p_start) {$p_end = 1; last;}
if ($p_start and !$p_end) {
$rfile{path} = $1 if ($lstr =~ m/^FilePath=(.+)$/);
$rfile{name} = $1 if ($lstr =~ m/^FileName=(.+)$/);
$rfile{size} = $1 if ($lstr =~ m/^FileSize=(.+)$/);
$rfile{ver} = $1 if ($lstr =~ m/^DATVersion=(.+)$/);
}
}
|
$content - ссылка на масив с построчно вычитанным ini-файлом и порубленными "хвостами"
Киньте в личку, чтоб не забыл выложить на выходных.
|
