#!/usr/bin/perl -w

# Dato un array di stringhe cerca una stringa letta
# in input su console

use strict;
my(@arrayString, $el, $i, $trovato);

print "Inserisci le stringhe nell'array\n";
@arrayString = <STDIN>;
chomp(@arrayString);
print "Inserisci la stringa da cercare\n";
$el = <STDIN>;
chomp($el);
print "Elementi dell'array: @arrayString\n";
print "Lunghezza dell'array: ".@arrayString."\n";
print "Stringa da cercare: ".$el."\n";

$trovato = 0;
$i = 0;
while (($i < @arrayString) && !$trovato) {
    if ($arrayString[$i] eq $el) {
        $trovato = 1;
    }
    $i++;
}

if ($trovato) {
    print "Trovata!\n";
}
else {
    print "Non trovata!\n";
}