perl :hash arrays of array :: create,add array

[Mayor]

perl :hash arrays of array :: create,add array

дан файл для парсинга вида:

1.2.1 Услуга местного завершения вызова на узле связи сети связи другого оператора связи
73432958900-73432958999 73432959000-73432959099 73432959100
73432959300-73432959399 73432959800-73432959899
73433100000-73433100999 73433101000-73433101799 (c 05.09.2007) 73433103000 73433104000-73433105999 (c 14.09.2007) 73433106000-73433106099 73433107000-73433107099 73433107100-73433107199 73433107400-73433107799 73433107800-73433107999 (c 05.09.2007) 73433108000-73433108999 73433109000-73433109999 (c 14.09.2007) 73433219900-73433219999 73433259200

как создать из него хеш списка списков вида:

$table$'1.2.1 Услуга местного завершения вызова на узле связи сети связи другого оператора связи'[1][1]=73432958900
$table$'1.2.1 Услуга местного завершения вызова на узле связи сети связи другого оператора связи'[1][2]=73432958999
$table$'1.2.1 Услуга местного завершения вызова на узле связи сети связи другого оператора связи'[3][1]=73432959100
$table$'1.2.1 Услуга местного завершения вызова на узле связи сети связи другого оператора связи'[3][2]=undef

(c 05.09.2007) - игнорируются

 * почитал hash of arrays получилось только создать:

$table$'1.2.1 Услуга местного завершения вызова на узле связи сети связи другого оператора связи'=73433107000-73433107099

.....

как добавить к существующей ссылке на аррей еще 1 аррей через сплит?

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

.....

как добавить к хешу списков содержащему ссылки на еще 1 список, указатель текущей позиции в первом списке?

( для алгоритма требуется указатель на текущую позицию диапазона номеров в каждой из таблиц маршрутизации )

Код: (Perl)

while (<$tf>) {     # assigns each line in turn to $_
        if ( /У/ ) {
                $service=$_;
                next;
        }
        if ( /7343/ ) {
                s/\(c /\(c/g;
                $hash{$service}=  $hash{$service} . " " . $_;
                next;
        }
        print $gf $_;

}

my %telhash;

foreach my $service ( keys %hash) {
        my @fields= split " ",$hash{$service};
        $telhash{$service}=[@fields];
}

что можно почитать из бесплатной документации в pdf html.tar.bz2 форматах пригодных для распечатки, кроме pleaс и мануала идущего с перлом?

[RXL]

Mayor1, не понимаю проблемы и того, что ты пытаешься сделать...

$table$'1.2.1 Услуга местного завершения вызова на узле связи сети связи другого оператора связи'[1][1]=73432958900

Бред, по моему...
Вот так можно:

Код:

$table{'1.2.1 Услуга местного завершения вызова на узле связи сети связи другого оператора связи'}[1][1] = 73432958900;

Только сперва нужно последовательно создать массивы:

Код:

$section = '1.2.1 Услуга местного завершения вызова на узле связи сети связи другого оператора связи';
$table{$section} = [];
$table{$section}[1] = [];
$table{$section}[1][1] = 73432958900;

Иначе будет ошибка. Вторую инициализацию ($table{$section}[1] = [];) логично создавать через push().

как добавить к существующей ссылке на аррей еще 1 аррей через сплит?

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

как добавить к хешу списков содержащему ссылки на еще 1 список, указатель текущей позиции в первом списке?

Все очень не ясно. Вроде и понятно, но и нифига не понятна.
Напиши еще раз, но только по-русски.
Не забудь прочесть перед нажатием кнопки "Отправить"!

[Mayor]

$table$'1.2.1 Услуга местного завершения вызова на узле связи сети связи другого оператора связи'[1][1]=73432958900

Бред, по моему...
Вот так можно:

Код:

$table{'1.2.1 Услуга местного завершения вызова на узле связи сети связи другого оператора связи'}[1][1] = 73432958900;

дак что ты от меня хочешь я на перле уже лет 5 ничего не писал, просто синтаксис с каким то другим языком смешался

Только сперва нужно последовательно создать массивы:
Иначе будет ошибка. Вторую инициализацию ($table{$section}[1] = [];) логично создавать через push().

вроде и без этого все работает, хотя мб из-за того, что я какой нить uses забыл вставить

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

как добавить к хешу списков содержащему ссылки на еще 1 список, указатель текущей позиции в первом списке?

Все очень не ясно. Вроде и понятно, но и нифига не понятна.
Напиши еще раз, но только по-русски.
Не забудь прочесть перед нажатием кнопки "Отправить"!

да я обычно всегда читаю, вот только когда только начинаю изучать проблемму, не совсем ясно излагаю мысли для тех, кто может мне помоч ее решить ( в синтаксе путаюсь, термины неправильно употребляю и тп )

имелось ввиду как сделать нечто вроде этого:

Код:

while (<$tf>) {     # assigns each line in turn to $_
	if ( /У/ ) { 
		$service=$_;
		next;
	}
	if ( /7343/ ) {
		s/\(c /\(c/g;
		$hash1{$service}=[(@{$hash1{$service}}, split)];
		next;
	}
	print $gf $_;

}

но только $hash1{$service} должен ссылаться на аррей, а не содержать в себе объединяющую его элементы строку

[RXL]

Два дня голову ломал и наконец-то понял, что ты имел в виду по "аррей"... Я ж говорю - лучше по-русски писать... Тоже самое с терминами: если затрудняешься, то лучше общими словами описать.

Mayor1, ты уж меня извини, но вопрос так и остался не ясен: что ты хочешь узнать?

Вот вопросы, которые видно:

как добавить к хешу списков содержащему ссылки на еще 1 список, указатель текущей позиции в первом списке?

( для алгоритма требуется указатель на текущую позицию диапазона номеров в каждой из таблиц маршрутизации )

Не могу ничего посоветовать, пока не пойму, что и для чего делается.

что можно почитать из бесплатной документации в pdf html.tar.bz2 форматах пригодных для распечатки, кроме pleaс и мануала идущего с перлом?

Ты имеешь в виду доки по перлу или что?

но только $hash1{$service} должен ссылаться на аррей, а не содержать в себе объединяющую его элементы строку

Если я правильно понял вопрос, то во втором варианте у тебя получается то, что ты хочешь. Или опять не то?..


В общем, как и в любом проекте, нужено четкое ТЗ. Иначе - то, что видим...

[Mayor]

Mayor1, ты уж меня извини, но вопрос так и остался не ясен: что ты хочешь узнать?

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

как добавить к хешу списков содержащему ссылки на еще 1 список, указатель текущей позиции в первом списке?
( для алгоритма требуется указатель на текущую позицию диапазона номеров в каждой из таблиц маршрутизации )

Не могу ничего посоветовать, пока не пойму, что и для чего делается.

это я уже сделал и запостил код:
ссылка на список заменяется ( уничтожая старый безымянный список ), на ссылку которая формируется путем сложения содержимого уничтоженного списка и нового списка:
$hash1{$service}=[(@{$hash1{$service}}, split)];

что можно почитать из бесплатной документации в pdf html.tar.bz2 форматах пригодных для распечатки, кроме pleaс и мануала идущего с перлом?

Ты имеешь в виду доки по перлу или что?

да мануал идущий с перлом слишком трудно усваивается: порядка 17-35 страниц за 1 выходной день, при моей средней скорости 200 страниц англ или 150 стр рус за выходной

требуются доки в удобном формате для распечатки и содержащие кроссреференс для удобства навигации

$hash1{$service}=[(@{$hash1{$service}}, split)];

но только $hash1{$service} должен ссылаться на аррей, а не содержать в себе объединяющую его элементы строку

Если я правильно понял вопрос, то во втором варианте у тебя получается то, что ты хочешь. Или опять не то?..

нада еще после сверки значений ареев с маской, разбить каждый элемент списка на еще 1 список, содержащий начальный и конечный номер с удалеными кодами города, теоретически это будет решаемо после того как я осилю еще 5-7 мануалов ...

В общем, как и в любом проекте, нужено четкое ТЗ. Иначе - то, что видим...

я не трачу время на тз, до тех пор пока не изучу в достаточной степени язык, выбраный для его реализации, потому что постоянно требуются изменения в реализации или даже смена\добавление еще 1 языка к решению

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

Добавлено через 13 дней, 20 часов, 51 минуту и 12 секунд:

как создать из него хеш списка списков вида:

   $th1{$service}[$c][1]=$s; # %th1 - базовый хеш, благодаря автовивификации инициация не требуется

как добавить к существующей ссылке на аррей еще 1 аррей через сплит? :

$hash1{$service}=[(@{$hash1{$service}}, split)]; # %hash1 требуется инициализация : $hash1{$service}=[()];

как добавить к хешу списков содержащему ссылки на еще 1 список, указатель текущей позиции в первом списке? :

некоректный вопрос проще и производительней создать еще 1 хеш