[linux] Re: perl vraag

[Kees Theunissen]

On Wed, 11 Oct 2006, Folkert van Heusden wrote:

>> Is dit niet veel praktischer om \d te gebruiken?
>> Het gehele isdigit kun je vervangen door:
>> if (!substr($regel, 0, 1) =~ m/\d/)
>
>Yup dast blijkt de oplossing!

Dan nog even die hele substr er uit halen.
Een regular expression kun je ook gewoon laten matchen op het
begin van een regel:

  if (! $regel =~ m/^\d/)

of

  if ($regel =~ m/^\D/)


Groeten,

Kees.

-- 
Kees Theunissen
F.O.M.-Instituut voor Plasmafysica Rijnhuizen, Nieuwegein
E-mail: theuniss op rijnh.nl,     Tel: 030-6096724,     Fax: 030-6031204