linux-l: Perl: wie geht es schoener

[Holger Paulsen]

Ich habe begonnen, mich ein wenig mit Perl zu beschäftigen;
selbstverständlich stolpere ich gleich über ein Problem.

Ich möchte abfragen, ob eine Textzeile

a) kein leerer String ist

b) anderes als Whitespace enthält und
 
c) kürzer als 20 Zeichen ist.

Funktionieren tut offensichtlich

if (($Zeile ne /\s+/) and ($Zeile ne "") and (length($Zeile) < 20)) { ...

Wie geht das kürzer? Ich stelle es mir als ungünstig auf die
Performance vor - die allerdings nicht erheblich ist - daß
eine Variable dreimal geöffnet und ausgewertet wird.


  Holger