HI, I have a file which ends by:
host clin09 {hardware ethernet 00:80:9F:2E:3F:5E;
filename "/bootp/linux/pre3.1/alize/startup.txt";}
}
I have a perl tk application where a user types a MAc Adress in an entry the
variable is $_Globals{MAC_ADDRESS} .
I wanted to replace what's come after hardware ethernet ie in this case
00:80:9F:2E:3F:5E by what the user entered.
I have this code:
my $newline2=qq{host clin09 {hardware ethernet $_Globals{MAC_ADDRESS};\n
filename "/bootp/linux/pre3.1/alize/startup.txt";}\n};
open (VIEUX,"< $_Globals{DHCPDCONF}")
or die "je ne peux ouvrir $_Globals{DHCPDCONF} :$!";
open(NOUVEAU, "> $nouveau")
or die "je ne peux ouvrir $nouveau : $!";
while ($line = <VIEUX>) {
if ($line =~ /^host clin09/) {
print NOUVEAU $newline2 or die "je ne peux écrire dans $nouveau : $!";
}
}
close (VIEUX);
close (NOUVEAU);
But it didn't work could help me please Thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
