linux-l: Perl: wie geht es schoener

[Sebastian Krueger]

Holger Paulsen wrote:
> 
> 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+/) 

??? Schreibfehler ? 

>  and ($Zeile ne "") and (length($Zeile) < 20)) { ... 
>

Falls gar kein Whitespace auftauchen darf:

if ($Zeile =~ /^\S{1,19}$/) { ...

( siehe auch `man perlre` )

sk.