linux-l: Hallöle

[Steffen Dettmer]

* Manuel Tennert wrote on Wed, Sep 13, 2000 at 13:41 +0200:
> [...] 
> 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

-- 
Dieses Schreiben wurde maschinell erstellt,
es trägt daher weder Unterschrift noch Siegel.