OpenForum RSS: ��

�� (creapt)

Tue, 09 Oct 2007 12:10:19 GMT

>
>>$/ - �� -��
>
>man perlvar. �� . �
>�� } ��
>>\x0A - ��, �� 0A
>
>�� , �� \n. ��
>�� dos/win ��, �� \r\n �� \x0D\x0A, ��
>�� - \x0D.

��, ��

�� (angra)

Mon, 08 Oct 2007 18:55:15 GMT

>$/ - �� -��

man perlvar. �� . � �� } ��
>\x0A - ��, �� 0A

�� , �� \n. �� dos/win ��, �� \r\n �� \x0D\x0A, �� - \x0D.

�� (creapt)

Mon, 08 Oct 2007 13:08:47 GMT

�� !
�� .
�� :
$/ ="}\x0A";

$/ - �� -��
\x0A - ��, �� 0A

�� (andy)

Mon, 08 Oct 2007 04:55:16 GMT

[admin@comm perl]$ ls -l dh*
-rw-r--r-- 1 admin wheel 193 �� 8 12:50 dhcpd.conf
-rwxr-xr-x 1 admin wheel 576 �� 8 12:46 dhcp_parse
[admin@comm perl]$
[admin@comm perl]$ cat ./dhcpd.conf
host 192.168.1.98 {
hardware ethernet 00:50:22:b0:39:c7;
fixed-address 192.168.1.98;
}
host 192.168.1.99 {
fixed-address 192.168.1.99;hardware ethernet 00:50:02:e0:00:17;
}

[admin@comm perl]$ ./dhcp_parse
192.168.1.98 00:50:22:b0:39:c7 192.168.1.98
192.168.1.99 00:50:02:e0:00:17 192.168.1.99
[admin@comm perl]$
[admin@comm perl]$ cat ./dhcp_parse
#!/usr/bin/perl
use strict;
use warnings;
use vars qw( $config %hosts );
sub parse_host_record($$);

undef $/;

open(F, '<', 'dhcpd.conf') or die($!);
$config = <F>;
close( F );

parse_host_record( $1, $2 ) while $config =~ /\b host \s+ (\S+) \s* { ([^}]+) } /gsix;

foreach my $key ( sort keys %hosts ) {
printf( "%s %s %s\n", $key, $hosts{$key}{'hardware ethernet'}, $hosts{$key}{'fixed-address'} );
}

sub parse_host

�� (NuINu)

Sun, 07 Oct 2007 11:35:42 GMT

>��, �� :
>192.168.1.98 00:50:22:b0:39:c7 192.168.1.98
>192.168.1.99 00:50:02:e0:00:17 192.168.1.99

#!/usr/bin/perl -w

use strict;

#�� , �� "}" �� - ��
$/ ="}\x0A";
my $dd;
my $name_shabl = '[^\s]+'; #�� IP
my $ip_shabl = '\d{1,3}.\d{1,3}.\d{1,3}.\d{1,3}';
my $mac_shabl = '([a-fA-F0-9]{2}:){5}[a-fA-F0-9]{2}';
#my $parse_regx = "host\\s+($ip_shabl)\\s+.+ethernet\\s+($mac_shabl)\\s*;.+fixed-address\\s+($ip_shabl);";
my $parse_regx = "host\\s+($name_shabl)\\s+.+ethernet\\s+($mac_shabl)\\s*;.+fixed-address\\s+($ip_shabl)\\s*;";

my ($name, $addr, $mac);
open (PRT, "<", "dhcpd.conf");
#print "search shablon: $parse_regx\n";
while($dd = <PRT>){
$dd =~ s/\x0A//g;
#print "read: '$dd'\n";
if($dd =~ m/$parse_regx/g) {
$name = $1;
$mac = $2;
$addr = $4;
print "$name $mac $addr\n";
#print "$mac $addr\n";
} else {
print "undefined format\n";
}
};

�� (angra)

Fri, 05 Oct 2007 23:00:40 GMT

��
1) �� , ��
2) ��
� � �� . ��

OpenForum RSS: ����� �����

����� ����� (creapt)

����� ����� (angra)

����� ����� (creapt)

����� ����� (andy)

����� ����� (NuINu)

����� ����� (angra)

OpenForum RSS: ��

�� (creapt)

�� (angra)

�� (creapt)

�� (andy)

�� (NuINu)

�� (angra)