VPF::Из строки в код - Форум программистов

JamesMorgan

Дата 9.4.2012, 12:48 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Цитата

{ id => 1, path => 65, url => 31 }

Можно ли при чтение файла превратить эту строчку в анонимный хеш?

Если бы строки распологались на каждой строчке и без { } то тогда я бы обработал данные и сделал бы анонимный хеш, но нужно строго в таком варианте. smile

reiserford

Дата 9.4.2012, 12:57 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 22
Регистрация: 20.3.2012

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

eval

Pfailed

Дата 9.4.2012, 13:16 (ссылка)

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

Загрузка ...

Опытный

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

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

А как бы вы сделали если бы они стояли на разных строках?

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

I'm on CPAN
I'm on github

vadiml

Дата 9.4.2012, 13:33 (ссылка)

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

Загрузка ...

Опытный

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

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

JamesMorgan

JSON конверторы именно этим и занимаются.
Можете им строку скормить, предварительно чуть поправив, или посмотреть код в их модулях.

JamesMorgan

Дата 9.4.2012, 14:02 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Pfailed @ 9.4.2012, 13:16)

А как бы вы сделали если бы они стояли на разных строках?

Вот так бы сделал, но это на скорую руку:

Код


@data;

open (DATA, "<data.txt") or die "$!";

while ($line = <DATA>) {
    chomp($line);
    my ($key, $value) = split("=>", $line); 
    push(@data, { $key => $value });
}

Ок, буду смотреть в сторону JSON

Pfailed

Дата 9.4.2012, 14:19 (ссылка)

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

Загрузка ...

Опытный

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

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

Для вашего простейшего случая подойдет регулярное выражение:

Код


my $str = '{ id => 1, path => 65, url => 31 }';
my %hash = $str =~ /(\w+)\s*=>\s*(\w+)/g;

Но если требуется уметь распозновать вложенные хеши и штуки типа {a => "x => {y => z}"}, то задача становится поинтересней. Тут я могу порекомендовать модуль Regexp::Grammars.

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

I'm on CPAN
I'm on github

arto

Дата 9.4.2012, 14:27 (ссылка)

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

Загрузка ...

Эксперт

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

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

# cat > /tmp/tst
{ id => 1, path => 65, url => 31 }
# perl -MData::Dumper -le 'print Dumper do $ARGV[0]' /tmp/tst
$VAR1 = {
          'url' => 31,
          'path' => 65,
          'id' => 1
        };

#

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