Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > or {}

Автор: evya 14.1.2013, 14:01

open(FILE, "msg") or $msg="нет файла"; &writeerror;

скажите как реализовать сразу две команды после or , фигурные скобки не работают {} а встрочке выполняется только одной.
или только через условие?

Автор: alezzz 14.1.2013, 14:42

Код


open my $f, "<noname.txt" or (print("0") and print("1") and exit);
print "2";

Автор: Pfailed 14.1.2013, 14:51

open(FILE, "msg") or do { $msg="нет файла"; &writeerror };

Автор: DurRandir 14.1.2013, 16:47

if (!open()){
#bla-bla-bla
}

Автор: Logo 14.1.2013, 20:59

Код


open(FILE,  "msg") or $msg="нет файла", &writeerror;
# or
open(FILE,  "msg") or do {$msg="нет файла"; &writeerror};