Perl与系统管理-1

Perl与系统管理-1

1. 安全的临时文件

use File::Temp qw(tempfile);
my ($fh, $filename)=tempfile();
print $fh "ba...la...ba...la...\n";

2. UNC（Universal Naming Convention）

UNC用于在网络环境中访问文件和目录。UNC文件名中盘符和冒号变为：

\\server\sharename

3. 处理文件系统的差异

use File::Spec;
my $path=File::Spec->catfile(qw{home cindy docs resume.doc});

use Path::Class; 
my $pcfile=file(qw{home cindy docs resume.doc});
my $pcdir=dir(qw{home cindy docs});

4. 读取HOST文件例子

open HOSTS, '<', '/etc/hosts' or die "Unable to open host file:$!\n";
my %addrs;
my %names;
while(<HOSTS>){
	next if /^#/; #跳过注释行
	next if /^\s*$/; #跳过空行
	s/\s*#.*$//; #去除行末注释和空白符
	chomp;
	my($ip, @names)=split;
	die "The ip address $ip already seen!\n" if (exists $addrs{$ip});
	$addrs{$ip}=[@names];
	foreach (@names){
		die "The host name $_ already seen!\n" if (exists $names{lc $_}); #lc函数lower case；uc函数upper case。
		$names{lc $_}=$ip;
	}
}
close HOSTS;

得到的数据结构如下：

$addrs{'127.0.0.1'} = ['localhost'];
$addrs{'192.168.1.2'} = ['baby.org','bee1'];
$addrs{'192.168.30.2'} = ['events.com','bee2'];

$names{'localhost'} = '127.0.0.1';
$names{'baby.org'} = '192.168.1.2';
$names{'bee1'} = '192.168.1.2';
$names{'events.com'} = '192.168.30.2';
$names{'bee2'} = '192.168.30.2';

5. 影响perl对"行"的理解

...
{ #代码块开始
	local $/="-=-\n"; #重新定义行分隔符，且local限定了对变量$/的修改不会影响到｛｝代码块之外的内容。
	...
	my %rows;
	while(<AF>){ #根据重新定义的行分隔符来逐行读入
		chomp; #去掉 $/ = "-=-\n"
		#根据对行的新的理解将输入字符串灌入哈希
		%rows=split /:\s*|\n/;
	}
} #代码块结束
...

6. Perl的常见内置变量

7. say的使用

use 5.0.14;  #指定版本
use feature qw(say); #这个是关键

8. 读取/etc/passwd的内容

#!/usr/bin/perl

use feature qw(say);

@users=getpwuid $<; #读取当前用户的信息
$i=0;
foreach(@users){
    say "$i: $_";
    $i++;
}

9. 对IP地址排序

my @ips = qw(
    212.211.123.1
    142.11.12.155
    12.11.23.41
    12.211.123.1
    68.11.123.1
    68.11.12.1
    68.12.23.21
    21.211.12.1
    21.211.123.1
);
# Computing a single packed-string sortkey
my @sorted_ips = map
    substr($_, 4) =>
    sort map pack('C4' => /(\d+)\.(\d+)\.(\d+)\.(\d+)/)
    . $_ => @ips;

print join("\n", @sorted_ips), "\n";

可以使用如下方法产生随机IPv4地址。

perl -le '$,=".";print map int rand 256,1..4'

10. 管道open运行系统命令并解析回显

#!/usr/bin/perl -w

use feature qw(say);

my $hostname='www.baidu.com';
my $nsserver='114.114.114.114';
my $nslookup='/usr/bin/nslookup';

say &Lookup($hostname, $nsserver, $nslookup);

#sub procedure
sub Lookup{
    my ($hostname, $nsserver, $nslookup)=@_;
    my @results;

    open CMD, '-|', "$nslookup $hostname $nsserver"
        or die "Unable to run nslookup command: $!\n";

    while(<CMD>){
        next until /^Name:/;
        chomp($next_line=<CMD>); #向下多取一行
        $next_line =~ s/Address(es)?:\s+//;
        push @results, $next_line;
    }
    close CMD;
    join ', ', sort @results;
}

11. 配置文件的操作

• Config::Std
  操作的配置文件格式：
  https://metacpan.org/pod/Config::Std#Configuration-language
  支持ini配置文件风格。

1) 注释
# This is a comment
; Ywis, eke hight thilke
2) 节
[SECTION1]        # Almost anything is a valid section label
[SECTION 2]       # Internal whitespace is allowed (except newlines)
[%^$%^&!!!]       # The label doesn't have to be alphanumeric
[ETC. ETC. AS MANY AS YOU WANT]
3) 配置变量
name: George
 age: 47
 
his weight! : 185
或者
       name= George
        age=  47
his weight! = 185
4) 在新建键值对时给定默认分割符
use Config::Std { def_sep => '=' };

使用说明

use Config::Std;
 
# Load named config file into specified hash...
read_config 'demo2.cfg' => my %config;
 
# Extract the value of a key/value pair from a specified section...
$config_value = $config{Section_label}{key};
 
# Change (or create) the value of a key/value pair...
$config{Other_section_label}{other_key} = $new_val;
 
# Update the config file from which this hash was loaded...
write_config %config;
 
# Write the config information to another file as well...
write_config %config, $other_file_name;

• Config::General
  使用说明
  https://metacpan.org/pod/Config::General
  支持ini格式及Apache配置文件风格。支持在程序中读写配置。
• Config::Scoped
  使用说明
  https://metacpan.org/pod/Config::Scoped
  支持BIND，DHCP及其他复杂配置格式的配置风格。支持在解析数据时做合法性校验，同时还能检查配置文件的读写权限。支持数据缓存功能。支持二进制存储提速。但无法在程序中动态更新配置内容。

12. 操作XML文件

• 基本方法
  涉及的模块

use XML::Generator;
use XML::Writer;

输出XML文件
https://metacpan.org/pod/XML::Writer

use XML::Writer;
use IO::File;

my %hosts=(
	'name'=>'agatha',
	'addr'=>'192.168.1.10',
);
my $FH=new IO::File('>netconfig.xml');
	or die "Unable write to netconfig.xml: $!\n";
my $xmlw=new XML::Writer(OUTPUT => $FH);
$xmlw->xmlDecl("UTF-8");
$xmlw->startTag('network');
print $FH "\n ";
$xmlw->startTag('host');
#没有设定输出顺序
foreach my $field (keys %hosts){
	print $FH "\n   ";
	$xmlw->startTag($field);
	$xmlw->characters($hosts{$field});
	$xmlw->endTag;
}
print $FH "\n  ";
$xmlw->endTag;
print $FH "\n  ";
$xmlw->endTag;
$xmlw->end;
$FH->close();

• XML::Simple
  主要适用于XML格式的配置文件。
  https://metacpan.org/pod/XML::Simple

use XML::Simple;

my $config=XMLin('config.xml');
my $config=XMLin('/etc/foo.xml', NormalizeSpace => 2);
#使用 $config->{stuff} 读取配置参数
#写入配置
XMLout($config, OutputFile => $configfile);

模块将XML转化为Perl的数据结构

<config logdir="/var/log/foo/" debugfile="/tmp/foo.debug">
  <server name="sahara" osname="solaris" osversion="2.6">
    <address>10.0.0.101</address>
    <address>10.0.1.101</address>
  </server>
  <server name="gobi" osname="irix" osversion="6.5">
    <address>10.0.0.102</address>
  </server>
  <server name="kalahari" osname="linux" osversion="2.0.34">
    <address>10.0.0.103</address>
    <address>10.0.1.103</address>
  </server>
</config>

use Data::Dumper;
use XML::Simple qw(:strict);
 
my $config = XMLin(undef, KeyAttr => { server => 'name' }, ForceArray => [ 'server', 'address' ]);
print Dumper($config);
=======================================================
{
    'logdir'        => '/var/log/foo/',
    'debugfile'     => '/tmp/foo.debug',
    'server'        => {
        'sahara'        => {
            'osversion'     => '2.6',
            'osname'        => 'solaris',
            'address'       => [ '10.0.0.101', '10.0.1.101' ]
        },
        'gobi'          => {
            'osversion'     => '6.5',
            'osname'        => 'irix',
            'address'       => [ '10.0.0.102' ]
        },
        'kalahari'      => {
            'osversion'     => '2.0.34',
            'osname'        => 'linux',
            'address'       => [ '10.0.0.103', '10.0.1.103' ]
        }
    }
}
=================================================================
读取配置
print $config->{logdir};
print $config->{server}->{kalahari}->{address}->[1];

• XML::LIbXML
  Perl官方默认推荐的XML解析工具。
  https://metacpan.org/pod/XML::LibXML
  同时支持XPath和DOM定位元素。
  DOM方式：

use XML::LibXML;
my $prsr=XML::LibXML->new();
$prsr->keep_blanks(0);  #忽略空白节点
my $doc=$prsr->parse_file('config.xml');
my $root=$doc->documentElement();

#逐层遍历
my @children=$root->childNodes;
foreach my $node (@children){
	print $node->nodeName()."\n";
}

#深入下一层
my $current=$children[2]; #第二个元素
@children=$current->childNodes();
$current=$children[1]; #第一个元素
print $current->textContent();
#同层的兄弟节点
$current=$current->nextSibling;

#通过TagName读取
my @interface_nodes=$current->getChildrenByTagName('interface');
my @interface_nodes=$root->getElementsByTagName('interface');

#返回所有文本子节点的内容
foreach my $node (@interface_nodes){
	$node->textContent();
}

#遍历属性
foreach my $attribute ($node->attributes()){
	print $attribute->nodeName.":".$attribute->getValue()."\n";
}
#读取特定属性
print $node->getAttribute('name') if $node->hasAttribute('name');

#写入
my $textnode=$node->firstChild
	if ($node->firstChild->nodeType == XML_TEXT_NODE);
$textnode->setData('new info');

块信息挂载

my $root=$doc->documentElement();
my $xml2insert= <<'EOXML';
<meta>
	<type name="production">This is a production network</type>
</meta>
EOXML

my $meta=$prst->parse_balanced_chunk($xml2insert);
$root->insertBefore($meta, $root->firstChild);

open my $OF, '>', $filename or die "Can't open $filename for writing: $!\n";
print $OF $doc->toString;
close $OF;

XPath方式：

my @children=$doc->findnodes('/network/*');
foreach my $node (@children){
	print "$node->nodeName()\n";
}

my ($tnode)=$doc->findnodes('/network/host[2]/service[1]/text()');
print $tnode->data."\n";

foreach my $tnode ($doc->findnodes('/network/host[2]/service[1]/text()')){
	print $tnode->data."\n";
}

my @multiservices=$doc->findnodes('//host[count(service)>1]');

foreach my $anode ($doc->findnodes('//host[count(service)>1]/@name')){
	print $anode->value."\n";
}

#读取所有服务器并返回它们的<addr></addr>元素节点。
@nodes=$doc->findnodes('/network/host[@type="server"]//addr/text()');
foreach my $node(@nodes){
	print $node->find('normalize->space(./text())')."\n";
}
或者
foreach my $node(@nodes){
	print $node->textContent()."\n";
}
XPath擅长于定位和查询文档中满足一定条件的节点，但它并不善于修改或处理文档内容，而DOM却精于此道。

注意名字空间在XPath中的应用。
/x:html/x:body

• XML::SAX
  使用SAX2（Simple API for XML version 2）解析XML。适用于数据量比较大的XML文件（不能一次性读入内存）。适用于时间驱动编程模型中。SAX2将XML文档数据当做一系列事件流来处理。

小贴士：
C的XML解析库是expat。
事件驱动编程模型中通过事件来触发处理例程（event handler）的执行。这个处理例程称回调例程（callback routine）——预定义的子程序在满足特定条件时，比如侦听到某个事件时，才“回来调用该例程”。

• Config::Context