Рассылка закрыта
При закрытии подписчики были переданы в рассылку "Раскрутка и оптимизация сайта в Интернете" на которую и рекомендуем вам подписаться.
Вы можете найти рассылки сходной тематики в Каталоге рассылок.
| ← Октябрь 2005 → | ||||||
|
1
|
2
|
|||||
|---|---|---|---|---|---|---|
|
3
|
4
|
5
|
6
|
7
|
8
|
9
|
|
10
|
11
|
13
|
14
|
15
|
16
|
|
|
18
|
19
|
20
|
21
|
22
|
23
|
|
|
24
|
25
|
26
|
27
|
28
|
29
|
|
|
31
|
||||||
Статистика
0 за неделю
RusFAQ.ru: Программирование на языке Perl
| Информационный Канал Subscribe.Ru |
/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Perl
Выпуск № 11
от 12.10.2005, 16:48
| Администратор: | Калашников О.А. |
| В рассылке: | Подписчиков: 106, Экспертов: 12 |
| В номере: | Вопросов: 1, Ответов: 1 |
Вопрос № 27375: Здравствуйте, уважаемые эксперты! Начала изучать perl и наткнулась на непонятную мне пока что проблему. Не работает такой вот скрипт: print ("calling... "); second(); print ("done! "); while ($name ne "h...
| Вопрос № 27.375 |
|
Здравствуйте, уважаемые эксперты! Начала изучать perl и наткнулась на непонятную мне пока что проблему. Не работает такой вот скрипт: print ("calling... "); second(); print ("done! "); while ($name ne "hvatit") { print ("vvedi imya, uznaesh familiyu! "); $name= $name=~s/W.*//; $name=~tr/A-Z/a-z/; $surname=$new{$name}; if ($surname eq "") {$surname="not found!";} if ($name ne "hvatit") {print ("Name: $name, Surname: $surname ");} else {print ("Sschastlivo!");} } sub second { print ("It's me!! "); open (SMTH, "wordlist.txt")|| die "Cannot open file $!"; while (defined ($per1 = { chomp($per1); $per2= chomp($per2); $new{$per1}=$per2; } close (SMTH)|| die "Cannot close file $!"; } Собственно интересует подпрограмма - все данные нормально считываются из файла, но за рамками while почему-то их уже нет. Что не так? Особенно учитывая, что это слегка видоизмененный пример из книжки. :) И если просто будут советы по стилю программирования - буду благодарна. :) Спасибо большое! |
| Отправлен: 07.10.2005, 16:46 Вопрос задала: lupus campestris (статус: Профессионал) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3) |
| Отвечает: Chief Здравствуйте, lupus campestris! Может проблема в разной обработке переноса строки (CR/LF) в версиях перла под unix/win? |
| Ответ отправил: Chief (статус: Студент) Отправлен: 09.10.2005, 11:01 Оценка за ответ: 5 Комментарий оценки: У меня тоже были такие мысли, хотя на юниксовой машине проверяла не я и, соответственно, там файлик создавали заново. Спасибо. :) |
© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки:
comp.soft.prog.perl
Архив рассылки
Отписаться
Вспомнить пароль
| В избранное | ||
