VPF::Парсинг фалйла - Форум программистов

Zubilo

Дата 22.5.2008, 00:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 13.11.2007
Где: Химки

Репутация: нет
Всего: нет

Всем доброго времени суток!

Затупил в следующей ситуации:

есть текстовый файл такой структуры:

Код


Поле1: здесь  многострочный текст, который заканчивается точкой с запятой;
...
ПолеN: многострочный текст, который заканчивается точкой с запятой;

надо получить все поля и соответствующее им содержание(многострочный текст) в соответствующие переменные.

поля получаю так:

Код


my @polya;
my $currString;

open(F,"<file.txt");

while($currString=<F>){
      if($currString=~/(.+):/g){
         push(@polya,$1);
      }
}

получить текс не получается т.к. файл считывается построчно.
Есть у кого-нибудь идеи как можно получить многострочный текст из файла?

DaemonSuw

Дата 22.5.2008, 00:54 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 11.3.2008

Репутация: нет
Всего: 3

Можно прочитать весь файл за одну операцию в скалярную  переменную, если присвоить значение  undef специальной переменной $/, в которой задается разделитель записей текстовых файлов. После прочтения файла в скаляр можно восстановить прежнее значение этой переменной  "\n", которую она имела по умолчанию.
Пример:

open(F,"<file.txt");
$/=undef;
$sfile = <F>;
$/="\n" ;

$sfile =~ /регулярка/

KSURi

Дата 22.5.2008, 01:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 5
Всего: 27

Код


D:\>type t.txt
Pole1: some text here;
Pole2: multi
line text;
Pole3: some text again;

D:\>

Код


open(my $fh, 't.txt') || die $!;
my @data;
{ local $/ = undef; @data = <$fh> =~ /[\w\d]+:(.+?)/gs }
close $fh;

Это сообщение отредактировал(а) KSURi - 22.5.2008, 01:07

--------------------

Died at Life.pl line 21

amg

Дата 22.5.2008, 08:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

Репутация: 9
Всего: 50

Еще вариант, менее изящный, но не требующий зачитывать файл целиком в память

Код

open(my $fh, 't.txt') || die $!;
while (<$fh>) {
  if (/^Pole\d+:/ .. /;$/) {
    $pole .= $_;
    next;
  }
  $pole =~ /^(Pole\d+):\s*(.*);$/s;
  print "$1 => $2\n";
  $pole = '';
}
close $fh;

yura_nev

Дата 22.5.2008, 12:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 28.12.2007

Репутация: нет
Всего: нет

Код

local $/ = ";"; # Бедная эта переменная, почему над ней все только и знают что undef ??
open my $h, '<', 't.txt' or die $!;
my $data = { map { m/:/ ? ($` => $') : () } <$h> }; # Получаем хеш вида (ПолеN => Значение), если поля поля одинаковые, то возьмется последнее значение
close $h;

Zubilo

Дата 22.5.2008, 13:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 13.11.2007
Где: Химки

Репутация: нет
Всего: нет

Странно, но первые два варианта у меня работают не правильно, в чем затык не пойму :(
последний вариант работает .
Всем огромное спасибо.

Код


local $/ = ";"; # Бедная эта переменная, почему над ней все только и знают что undef ??
open my $h, '<', 't.txt' or die $!;
my $data = { map { m/:/ ? ($` => $') : () } <$h> }; # Получаем хеш вида (ПолеN => Значение), если поля поля одинаковые, то возьмется последнее значение
close $h;
my %hash=%$data;
print map{"$_=$hash{$_}"} keys(%hash);

Это сообщение отредактировал(а) Zubilo - 22.5.2008, 13:33

ginnie

Дата 22.5.2008, 13:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 6
Всего: 49

yura_nev, может

Код


m/:/ ? ($` => $') : ()

заменить на

Код


split(/:\s+/, $_, 1)

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

Zubilo

Дата 22.5.2008, 13:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 13.11.2007
Где: Химки

Репутация: нет
Всего: нет

Цитата(ginnie @ 22.5.2008, 13:27)

yura_nev, может

Код


m/:/ ? ($` => $') : ()

заменить на

Код


split(/:\s+/, $_, 1)

получается что лучше менять на

Код


split(/:\s+/, $_, 2)

nitr

Дата 22.5.2008, 13:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 2
Всего: 84

yura_nev, я не встречал случая где надо было именно undef или присвоить что-либо, всегда достаточно было объявить local.

Поправьте меня, вот чтиво perldoc perlsub Temporary Values via local() http://perldoc.perl.org/perlsub.html#Tempo...ues-via-local()

--------------------

I love ArchLinux

ginnie

Дата 22.5.2008, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 6
Всего: 49

Zubilo, Вы правы, я ошибся! smile

--------------------

KSURi

Дата 22.5.2008, 14:29 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 5
Всего: 27

Цитата

A local just gives temporary values to global (meaning package) variables. It does not create a local variable.

Поэтому с явным присваиванием undef'a просто немного логичнее выглядит имхо: ты временно присваиваешь глобальной переменной новое значение, которое по выходу из блока будет восстановлено обратно. Конструкция {local$/} тоже присвоит undef, только неявно.

Если бы local создавал копию переменной для блока, тогда логичнее было бы делать так, как вы предложили.
Во всяком случае я так думаю)

--------------------

Died at Life.pl line 21

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »