Spuštení perlového skriptu z příkazového řádku
perl -e 'for $p (a..z) {print "$p => ", ord($p), ", "}'
To samé se zapnutými varováními
perl -we 'for $p (a..z) {print "$p => ", ord($p), ", "}'
perl -we 'for $p ("a".."z") {print "$p => ", ord($p), ", "}'
Test různých hodnot na pravdivost
sub f {
return 0;
}
for (0, 0.0, -0e000, "0", "0.0", "-0", 'abc', f, \0) {
if ($_) {
print "$_ je pravdive\n"
} else {
print "$_ je nepravdive\n"
}
}
Načtění dvou čísel s kontrolou správnosti zadání, vypsání jejich podílu s
kontrolou na dělení nulou
print "Program na deleni dvou cisel\n";
print "zadej prvni cislo: ";
chomp($x=<>);
while ($x !~ /^\d+$/) {
print "blbe, znova:";
chomp($x=<>);
}
print "zadej druhe cislo: ";
chomp($y=<>);
while ($y !~ /^\d+$/) {
print "blbe, znova:";
chomp($y=<>);
}
print "zadali jste $x a $y\n";
if ($y != 0) {
print "podil je ",$x/$y, "\n";
} else {
warn "\upokus o deleni nulou\n";
}
Pokud je výsledek kladný, přidejte před výsledek znak +.
Modifikujte program tak, aby výsledkem byl celočíselný podíl + zbytek po dělení.
Různé chování skalárů, seznamů a polí v seznamovém a skalárním kontextu
$x = (5, 6, 7);
print '$x = 5, 6, 7', " \$x je $x\n";
@pole = (5, 6, 7);
$x = @pole;
print '$x = @pole', "\$x je $x\n";
@pole = 1;
print 'obsah @pole je ', join(', ', @pole), "\n";