OpenForum RSS: ��

�� (��)

Tue, 10 Jul 2018 16:43:31 GMT

> �� -�� , ��? �� XML �� , ��
> �� XML - ��
> � ��.

�� , �� !
� � ��, �� ))

��, �� , � ��!
�� !

��, ��, �� , �� XML
�� ӣ �� ,

�� - � �� ,
�� (��)

�� XML

� �� ͣ� �� -�� !?
�� ? �� !
�� - �� (�� ))))

[code]
#!/usr/bin/perl

use strict;
use warnings;
use XML::LibXML;
use File::Temp qw(tempfile);

my $host = "host";
my $ip = "ip";

## �� ))
my (@hostname, @addr, @short, @proxy, @group, %unic);

## ��
my (@f, @f_pre, @f1, @f2);

open ( F

�� (��)

Tue, 10 Jul 2018 16:29:23 GMT

��, ��!
��-��, �� .

�� (��)

Tue, 10 Jul 2018 15:48:23 GMT

#!/usr/bin/perl

my $hosts = {};
my $ips = {};

for( do{ local $/ = "--"; <STDIN> } ){
next unless( my( $ip ) = m/<ip>([^<]+)/ );
if(/<group>/){
$ips->{$ip} = { map { $_ => 0 } m/<name>([^<]+)/g } ;
next ;
}
$hosts->{$ip} = [ m/<host>([^<]+).*<name>([^<]+)/s ];
}

for my $ip ( sort{ $hosts->{$a}->[0] cmp $hosts->{$b}->[0] } keys %$hosts ){
my( $short, $long ) = @{ $hosts->{$ip} };
printf qq|hostname: %s\nip: %s\nshort: %s\nproxy: %s\ngroup: %s\n--\n|,
$long, $ip, $short, $long, join(", ", sort keys %{ $ips->{$ip} });
}

��
cat host ip | perl script.pl

�� (Pahanivo)

Tue, 10 Jul 2018 08:36:35 GMT

�� -�� , ��? �� XML �� , �� XML - �� .

�� (��)

Fri, 06 Jul 2018 13:30:28 GMT

��, �� ..
� ��, �� XML ��

��, ��ģ�� ))
��
[code]
#!/usr/bin/perl

use strict;
use warnings;

my $host = "host";
my $ip = "ip";

open ( FH1, $host ) or die "couldn't open $host : $!";
open ( FH2, $ip ) or die "couldn't open $ip : $!";

my (@hostname, @addr, @short, @proxy, @group, %unic);

{ local $/ = undef;

while ( <FH1> ) {

@hostname = m|<host>(.*)</host>|g;
@addr = m|<ip>(.*)</ip>|g;
@short = m|<name>(.*)</name>|g;
@proxy = m|<proxy>.*?>(.*?)</.*?</proxy>|gs;
}
}

my $count = 0;
while ( <FH2> ) {

$count++ if /--/;
if (m|<name>(.*)</name>|) {push @{$group[$count]}, $1 unless $unic{$1}++;}
}

close FH1;
close FH2;

for (my $i=0; $i<@addr; $i++) {

print "--\n";
print "hostname: $hostname[$i]\n";
print "ip: $addr[$i]\n";
print "short: $short[$i]\n";
print "proxy: $proxy[$i]\n

�� (Pahanivo)

Thu, 05 Jul 2018 06:30:32 GMT

> � �� 1 �� 1
> �� .

��, ��, � �.�. - �� ...
�� - �� XML, � �� , �� , �� .

�� (��)

Wed, 04 Jul 2018 15:24:54 GMT

> �� xml � �� .

��-�-�?? Whiskey Tango Foxtrot ??

�� xml �� ?
� �� , �� ݣ �� ! WTF!?

�-��, ��, �� )))

�� (��)

Wed, 04 Jul 2018 12:23:59 GMT

>[�� ]
>> --
>> hostname: host1.fullname
>> ip: 721.0.0.1
>> short: host1.shortname
>> proxy: proxy1.fullname
>> group: GROUP1
>> �� ? �� !!
>> ��.
> � ��
> �� ?

��
> � �� "--" ?

��
> ��... �� "--", ��
> �� , � �� - �� ,
> �� .

�� 1 �� 2-��!!
<name>host1.fullname</name>
--
<dns>host1.fullname</dns>

�� (��)

Wed, 04 Jul 2018 12:20:36 GMT

>> �� .
>> �� 2 �� :
> �� .

�� xml � �� .

>> ��
>> short: host1.shortname
> �� ?

��
test.hostname.su (full)
test (short)

>> �� , �� ip � ��
>>
>> <group>
>> <name>GROUP1</name>
>> <name>GROUP1</name>
>> </group>
>> GROUP1=GROUP1 ��
> �� , ��
> �� , �� ?

�� group � �� 1 �� name ��
<group>
<name>GROUP1</name>
<name>GROUP2</name>
</group>
�� group : GROUP1, GROUP2, ��
<name>GROUP1</name>
<name>GROUP1</name>
�� group: GROUP1

>> �� ? �� !!
> ��

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

������ ���� ������ (�������)

������ ���� ������ (�������)

������ ���� ������ (������)

������ ���� ������ (Pahanivo)

������ ���� ������ (�������)

������ ���� ������ (Pahanivo)

������ ���� ������ (�������)

������ ���� ������ (������)

������ ���� ������ (������)

OpenForum RSS: ��

�� (��)

�� (��)

�� (��)

�� (Pahanivo)

�� (��)

�� (Pahanivo)

�� (��)

�� (��)

�� (��)