Komentář: Nefunguje

$ perl testulULQEIII.pl
Bareword found where operator expected at testulULQEIII.pl line 7, near "//vytis
kne"
        (Missing operator before vytiskne?)
String found where operator expected at testulULQEIII.pl line 7, near "vytiskne
' AbcDEF aBCdef '"
        (Do you need to predeclare vytiskne?)
Bareword found where operator expected at testulULQEIII.pl line 9, near "//vytis
kne"
        (Missing operator before vytiskne?)
String found where operator expected at testulULQEIII.pl line 9, near "vytiskne
' ABCDEF abcdef '"
        (Do you need to predeclare vytiskne?)
Bareword found where operator expected at testulULQEIII.pl line 11, near "//vyti
skne"
        (Missing operator before vytiskne?)
String found where operator expected at testulULQEIII.pl line 11, near "vytiskne
' a\+b=1 '"
        (Do you need to predeclare vytiskne?)
Bareword found where operator expected at testulULQEIII.pl line 13, near "//vyti
skne"
        (Missing operator before vytiskne?)
String found where operator expected at testulULQEIII.pl line 13, near "vytiskne
' A\+B\=1 a\+b\=1 a+b=1 '"
        (Do you need to predeclare vytiskne?)
syntax error at testulULQEIII.pl line 7, near "//vytiskne "
syntax error at testulULQEIII.pl line 9, near "//vytiskne "
syntax error at testulULQEIII.pl line 11, near "//vytiskne "
syntax error at testulULQEIII.pl line 13, near "//vytiskne "
Execution of testulULQEIII.pl aborted due to compilation errors.

User@acer-6e40e97492 ~
$ cat testulULQEIII.pl
$x = ' abcDEF ' ;

$y = ' ABCdef ' ;

$z = ' a + b = 1 ' ;

print " \u $x \l $y "; //vytiskne ' AbcDEF aBCdef '

print " \U $x \L $y "; //vytiskne ' ABCDEF abcdef '

print " \Qz "; //vytiskne ' a\+b=1 '

print " \Q\U$z \E$z \E$z "; //vytiskne ' A\+B\=1 a\+b\=1 a+b=1 '

User@acer-6e40e97492 ~
$