Re:Regex improvment needed

[Jorge Goncalvez]

Hi, I have this code to parse a file and get the hardware address:
sub ParseInitDhcpdconf() {
open VIEUX,"$_Globals{DHCPDCONF}" or die "je ne peux ouvrir
$_Globals{DHCPDCONF} :$!";
        while (<VIEUX>) {

                if (/hardware ethernet /) {
                        $_=(split/\{/)[1];
                        s/[^\d:A-F]//g;         # remove anything not 0..9,A..F 
or :
                        print "$_\n";
                        $_Globals{MAC_ADDRESS}="$_";

                }
        }
        close VIEUX;
        
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.
my file looks like this:
.........
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;
..........       
        
Thanks  
        


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