Perl - cvičení 1

Zdroje: Náplň cvičení: Příklady:
  • 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";