[linux] perl vraag

[Folkert van Heusden]

Hi,

Ik heb een perl-script dat een bepaalde file inleest. Nu moeten regels
waarin een '?' staat weggegooid worden. Ik dacht zoiets te doen:

sub isdigit
{
        if ($_[0] >= '0' && $_[0] <= '9')   # *1
        {
                print "$_[0] 1\n";
                return 1;
        }

        return 0;
}

...
if (!isdigit(substr($regel, 0, 1)))
{
	...parse...
}

Het gekke alleen is nu dat die regel *1 altijd naar true evalueerd!
Ziet iemand wat ik fout doe?


Folkert van Heusden

-- 
Looking for a cheap but fast webhoster with an excellent helpdesk?
http://keetweej.vanheusden.com/redir.php?id=1001
----------------------------------------------------------------------
Phone: +31-6-41278122, PGP-key: 1F28D8AE, www.vanheusden.com