Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Perl

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Раскрутка и оптимизация сайта в Интернете" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Август 2006   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Калашников О.А.

Статистика

3 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Perl


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Perl

Выпуск № 64
от 10.08.2006, 15:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 150, Экспертов: 9
В номере:Вопросов: 1, Ответов: 2

Вопрос № 51240: Здравствуйте, у меня такой вопрос?: Существует-ли в Perl оператор аналогиный оператору GOTO в других языках программирования. Мен надо чтобы программа, в зависимости от того какой ответ даст пользователь переходла в начало, т.е. начиналась заново...

Вопрос № 51.240
Здравствуйте, у меня такой вопрос?:
Существует-ли в Perl оператор аналогиный оператору GOTO в других языках программирования. Мен надо чтобы программа, в зависимости от того какой ответ даст пользователь переходла в начало, т.е. начиналась заново, в паскале например, я бы поставил в начале программы метку, а там где требуется вернуться воспользовался бы GOTO <label>;. как это можно сделать в Perl.
Спасибо за внимание.
Отправлен: 05.08.2006, 15:08
Вопрос задал: Lperw (статус: 2-ой класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Muad Dib
Здравствуйте, Lperw!

Оператор goto в паскалевском понимании существует:


#!/usr/bin/perl -w
$s=5;
$s > 2 ?goto LABEL : die "NO ";
LABEL: print "yes ";


Правда в вашей задаче разумней использовать либо операторы if:

#считаем что read возвращает ввод пользователя.
print "Do you want exit?(y/n)"
$s = read();
if($s eq "y"){
die "Good buy";
}else{
...
}

Либо же что-то типа:

do {
print "Do you want exit? (y/n)";
$s = read();
if($s eq ".."){
...
}elsif($s =~ m/../){
...
}else{
}
}while $s eq "n";


Ответ отправил: Muad Dib (статус: Студент)
Ответ отправлен: 05.08.2006, 15:58
Оценка за ответ: 4
Отвечает: dianacode
Доброе время суток, Lperw

perldoc -f goto

с уважением, удачи

---------
There is more than one way to do it
Ответ отправила: dianacode (статус: 2-ой класс)
Ответ отправлен: 06.08.2006, 01:12
Оценка за ответ: 4

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.35 от 27.07.2006 		Яндекс Rambler's Top100
В избранное