# Acest program pune în evidență variabila specială $/
# cu rol de 'input record separator'.
# Parametrul 'input record separator' este stocat în variabila $/
# În mod implicit (default) este newline (\n)
# Acesta este caracterul de control ASCII ce are alocat codul numeric 10

$separator = ord($/);
print STDOUT "Separatorul de inregistrari are codul $separator\n";
print STDOUT "Introduceti un sir de caractere: ";

$sir = <STDIN>;
chomp($sir); #această funcție elimină ultimul caracter dacă el este $/

$lungime = length($sir);
print "Sirul introdus are $lungime caractere\n";

for ($index = 0; $index < $lungime; $index++){
    #$cod_ASCII = ord(substr($sir,$index,1));
    $caracter = substr($sir,$index,1);
    $cod_ASCII = ord($caracter);
    print STDOUT "Caracterul de la pozitia $index are codul $cod_ASCII\n";
}

# Același program dar folosind while (preconditie).
=pod
$index = 0;
while ($index < $lungime){
    $cod_ASCII = ord(substr($sir,$index,1));
    print STDOUT "Caracterul de la pozitia $index are codul $cod_ASCII\n";
    $index++;
}
=cut

# Același program cu do-while dar cu imperfecțiuni datorită postconditiei.
=pod
do{
    $cod_ASCII = ord(substr($sir,$index,1));
    print STDOUT "Caracterul de la pozitia $index are codul $cod_ASCII\n";
    $index++; #incrementarea se face înainte de evaluarea conditiei!!
}while($index < $lungime)
=cut