01.pl

#!/usr/bin/perl
use 5.010;
# Napisati skript koji sabira 3 cela pozitivna jednocifrena i dvocifrena broja. Brojevi su dati kao argumenti komandne linije. Prikazati grešku na standardnom izlazu ako je broj argumenata neodgovarajući ili je broj van propisanog opsega.


if ( @ARGV != 3 )
    {
    say "Pogresan broj argumenata";
    exit 1;
    }
else
    {
    $zbir=0;
    while ( @ARGV > 0 )
        {
        if ( $ARGV[0] >= 0  &&  $ARGV[0] <= 99 )
            {
            $zbir+=shift;
            }
        else
            {
            say "Los argument";
            exit 2;
            }
        }
    }
say "$zbir";