|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Andrey Chernomyrdin 2:5020/400 14 Oct 2002 21:47:42 To : Sergey Nepsha Subject : Re: hash -------------------------------------------------------------------------------- On Sun, 13 Oct 2002 20:21:34 +0400, Sergey Nepsha <Sergey.Nepsha@f82.n5083.z2.fidonet.org> wrote: SN> Hi There ! What's -u-u-p? All ! SN> SN> есть хэш, например след. вида: SN> %fidoechos = ( 1 => fido.82.point.talk, SN> 2 => fido.ru.linux, SN> 3 => fido.ru.modem ); SN> SN> как мне данные (values) из этого хэша преобразовать и вписать в сл. виде в SN> файл: file.lst SN> 82.POINT.TALK fido.82.point.talk fido SN> RU.LINUX fido.ru.linux fido SN> RU.MODEM fido.ru.modem fido open( local *OUT, '> file.lst' ) and do { foreach ( values %fidoechos ) { my ($first, $last) = split(/\./, $_, 2 ); print "\U$last\E\t$_\t$first\n"; } close( OUT ); } SN> и чтобы по мере поступления новых данных в хэш, скрипт проверял, если в SN> файле такие данные есть , то он их удалял из хэша или просто не вписывал в SN> файл, и новые данные должны вписываться в конец файла. Так-же как и в обычных языках, объявляется функция add_to_hash, которая проверяет/добавляет/вписывает. То есть тебе нужно в начале считать file.lst в какой-то другой хеш ну и проверять. Просто я не телепат и не знаю что является ключами хеша %fidoechos SN> ЗЫ: сильно не пинайте в ПЕРЛЕ новичок. Умение правильно ставить вопросы не имеет к перлу ни какого отношения. SN> mailto:Sergey Nepsha <ghostik@citynet.kz> -- With Best, Andrey <andrey@excom.spb.su> --- ifmail v.2.15dev5 * Origin: X-Com Online (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/64261ff79fc2.html, оценка из 5, голосов 10
|