Re: Regex improvment needed

[Briac Pilpré]

Jorge Goncalvez wrote:
> Hi, I have this code to parse a file and get the hardware address:
<snip>
> It works fine but if that comes after hardware ethernet contains a..f in 
> lowercase the letter are ommitted.
> How can i get rid of this behaviour.

#!/usr/bin/perl -w
use strict;

use vars qw(%_Globals);

ParseInitDhcpdconf();

print "$_ => $_Globals{$_}\n" for keys %_Globals;

sub ParseInitDhcpdconf {
    while (<DATA>) {
        if (/{hardware ethernet\s+([:0-9a-z]+);/i) {
            print "found $1\n";
            $_Globals{MAC_ADDRESS} = uc($1);
        }
    }
}

__DATA__        
........
host clin09 {hardware ethernet 00:56:9C:6B:8A:15;
...........
but it can be for exemple
.......
host clin09 {hardware ethernet 00:56:9c:6b:8a:15;
.........        

-- 
briac
        Seven trout out of 
        the pool. A flying thrush. A 
        fox walks. A songbird.

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]