String auf Zeichen prüfen!

[Struppi]

Achja, sicher ist das widersprüchlich. *argh* Ich dumm!!!!  :)
Ok, ne korrekte Eingabe wäre natürlich "aaaEccc.zzz".

Wenn ich deine Funktion benutze, dann hab ich immer noch folgendes Problem:

1. Der String kann auch mehrere "E" enthalten! --> Darf nicht sein
2. Der Punkt kann auch direkt hinter dem "E" stehen! --> Darf auch nicht sein

sub check
{
    $_ = shift;
    my @t;
    if(/E[^E]+./ && (@t = /E/g) == 1)
    {
        print "$s ist ok.\n";
    }
    else
    {
        print "$s ist nicht ok.(@t) \n";
    }
}

wobei ich glaube, das die Prüfung auf mehrere 'E's auch einfacher ginge.

Struppi.