AW: linux-l: Hallöle

[Manuel Tennert]

> > [...]
> > if ((not $n1 eq "") and (not $n1 eq " ") and (not $n2 eq"") and (not $n2
> > eq " ") and (not $n3 eq "") and (not $n3 eq " ") and (not $n4 eq "") and
> > (not $n4 eq " ") and (not $n5 eq "") and (not $n5 eq " ") and (not $n5
> > eq "[a-z]"))  {
> > [...]
>
> Oh Gott! Wie übersichtlich ;)
>
> Magst Du "ne" nicht? Würde schon mal etwas vereinfachen :)
> Wie sieht da die Logik aus? $n1 (netter Name...) soll nicht leer
> sein? Dann vielleicht
> ($n1 !~ m/^\s*$/)
>
> Soll "[a-z]" ne character class sein? Sicher, daß eq das so
> versteht? Ich denke, es muß
> ($n5 !~ m/^[a-z ]$/)
> heißen. Verstehe aber den Sinn dieses Vergleiches nicht, BTW ;)
>
> Vielleicht wäre hier auch ne Funktion nett, und ne Datenstruktur,
> z.B. ein Feld n, dann
>
> sub valid_array(@)
> {
> 	my @n = @_;
> 	if ($n[0] !~ m/^\s*$/) {
> 		return 0;
> 	}
> 	if ($n5 !~ m/^[a-z ]$/) {
> 		return 0;
> 	}
> 	...
> }
>
> if (valid_array(n)) {
> 	...
> }
>
> Das macht das dann auch besser debug-bar (achso: perl -d bzw.
> "ddd" (DataDisplayDebugger) kennst Du?).
>
> oki,
>
> Steffen

Habe eben Eure Vorschläge ausprobiert, Danke für die Hilfe !! Großer Dank
auch noch mal an Guido !!!!

MFG Manuel