my $i = "";
if (defined($i)) {
print "defined";
} else {
print "not defined";
}

 defined

 not defined

 зависит от реализации Perl

$a = "0";
if ($a) {
print "A";
} else {
print "B";
}

 A

 B

 зависит от реализации Perl

 при выполнении интерпретатор выдаст ошибку, т.к. нельзя однозначно интерпретировать выражение вусловии

$a = "000";
if ($a) {
print "A";
} else {
print "B";
}

 A

 B

 зависит от реализации Perl

 при выполнении интерпретатор выдаст ошибку, т.к. нельзя однозначно интерпретировать выражение вусловии

@a = (10, 1, 2);
print join(" ", sort(@a));

 10 1 2

 1012

 1 2 10

 1210

 1 10 2

 1102

 1

$title = "Happy new 2004 year";
$title =~ m/^.*(\d+) year$/;

 Happy new

 appy new 2004

 Happy new 2004

 2

 4

 2004

 reverse(sort(@strings));

 sort {$b <=> $a} (@strings);

 sort {$b <> $a} (@strings);

$title = "Lambada 2004";
$title =~ m/([0-4]*)/;

 4

 004

 2

 2004

 пустой строке

Дана строка, представляющая собой корректное арифметическое выражение языка C. В выражении допускаются только целые числа, переменные, состоящие только из букв,операции +, -, *, /, круглые скобки и вызовы функций. Имя функции может состоять только из букв, параметры функций могут состоять из описанных выше арифметических выражений. Известно, что круглые скобки в данном выражении имеют уровень вложенности<= 1. Требуется выделить из строки выражения в круглых скобках (например, дано f(x, y(z));, нужно выделить x, y(z) ).

(для наглядности в приведённых выражениях опущены сохраняющие скобки)

 \([^()]*?\)

 \([^()]*\)

 \(.*\)

 \(.*?\)

 \[\([^()]*\*\)

 \([^()]*(\([^()]\))*\)

 \([^()]*(\(.*\))*\)

Дан скрипт:

#!/bin/sh -e
action1
action2
action3

action${i} — некоторые существующие в системе программы, прописанные в $PATH. Известно, что action1 и action2 никак не зависят друг от друга и могут выполняться параллельно, однако action3 требуется, чтобы и action1, и action2 успешно завершили свою работу.