Perl语言入门(11 系统之间互操作)

2016-09-19 11:42:09来源:CSDN作者:haoweilaizoule人点击

由于公司需要,本人最近在学习Perl这种脚本语言,本文是我在学习Perl的过程中总结出来的一些心得和笔记,希望能够帮助也在学习Perl的各位同僚。废话不多说直接上干货!!!

————————————————— 干货分割线 —————————————————

1.System()函数

system command;

若要运行非P e r l的命令,可以使用该函数。command是要运行的命令,正常运行返回0,非正常运行返回非0值.

Exp:

a.[UNIX系统下]:

System(“ls -lF”);if(system(“perldoc -f system”)){   Print “Your documentation isn’t installed /n”;}

[DOS/WIN]:

System(“dir /w”);If(system(“perldoc -f system”)){   Print “Your documentation isn’t installed /n”;}


b.[UNIX系统下]:

$file = “myfile.txt”;

System(“vi $file”);

 

[DOS/WIN]:

$file = “myfile.txt”;

System(“edit $file”);

 

c.[UNIX系统下]:

System(“xclock -update 1”);

 

d.[DOS/WIN]:

System(“notepad.exe myfile.txt”);

 

e.捕获文件输出:

system(perldoc perlfaq5 > faqfile.txt);

 

f.按照文件中的名字排序,并输出

system(sort $f | lp);

 

g.后台运行xterm命令

system(xterm $);

 

2.捕获输出

[原始版]

System(“dir > outfile”);

Open(OF,”outfile”);

@data = <OF>;

Close(OF);

 

[升级版]

$dir = `dir`;

<===>   $dir = qx{dir};

PS:

1.``等价于qx{}.任何字符均可用来取代{ },成对的字符如< >,()和[ ]等均可以使用。

2.<===> 表示等价于符号,本人自创,源于数学中,下同

 

$complex = `sort /’grep -l’conf’*/``;

  <===>$complex = qx{sort ’grep -l’conf’*`};

 

为了避免外部系统变量和perl内部变量混淆,可以在不想让P e r l进行内插替换的变量前面加上一个反斜杠,如:

$myhome = `ls /$HOME;

$windows = `dir %windir%`;

现在,$HOME是UNIX shell的HOME变量,% windir%是commcand.com的winddir变量。另一种方法是用q x { }表示法来代替反引号,并用单引号来限定q x,如:

$myhome = qx’ls $HOME’;

$windows = qx’dir %winddir%’;

PS:

PERL将qx’ ’视为特殊标号,且不展开它里面的P e r l变量,因此,你可以使用反引号,并且不必用反斜杠对命令中出现的其他反引号进行转义。

 

3.管道

[原始版]

Dir >outfile

Sort outfile > newfile

More newfile

d i r的输出在outfile中集中,然后使用sort对outfile排序,同时sort的输出被存放在newfile中。接着m o r e命令显示newfile的内容,每次显示一屏内容。

管道允许你执行与上面相同的命令序列,但是不带o u t f i l e和n e w f i l e,如:

[升级版]

dir |sort|more

d i r的输出被赋予s o r t,然后s o r t对数据进行排序。s o r t的输出被赋予m o r e每次显示1页。它不需要重定向(>)或临时文件。

这种命令行称为管道命令行,两个命令之间的竖线称为管道

Exp:

#!/usr/bin/perluse strict;  use warnings; my $dir;open(RHANDLE,"dir /B|sort |");while($dir = <RHANDLE>){    print "$dir/n";}

4.可移植性

Perl可以在任何系统上运行,但是要遵守一定的原则:

• 始终使警告特性处于打开状态,并使用use strict命令。

• 始终都要检查来自系统请求的返回值,如:应该用open || die,而不使用open。

• 输出表义性强的出错消息。

• 使用P e r l的内置函数,执行你要用s y s t e m函数或反引号(` `)来执行的操作。

• 将依赖系统执行的操作(文件I/O,终端I/O、进程控制等)封装在函数中,检查以确保

这些操作受当前操作系统的支持。

 

Exp:

寻找可用的磁盘空间

[WIN系统]

#!/usr/bin/perluse strict;  use warnings; my (@dir,$free);@dir = `dir`;$free = $dir[$#dir];$free =~ s/.*([/d,]+)/w+ free/$1/;  #.*任何数值./d数字$free =~ s/,//g;print $free;

可能输出:

PS:上面这个代码段取出@ dir中的目录列表的最后一行信息,使用正则表达式删除不包括数字(即bytes free前面的数字和逗号)在内的其他信息。最后逗号被删除,这样,$ f r e e只包含原始的空闲磁盘空间.

[LINUX系统]

#!/usr/bin/perluse strict;  use warnings; my (@dir,$free);@dir = `df -k .`;$free = (split(//s+/,$dir[$#dir]))[3]; $free = $free * 1024;print $free;

[包括DOS/WIN和Linux]

#!/usr/bin/perluse strict;  use warnings; Sub freespace{    my (@dir,$free);    if($^o eq 'MSWin32'){        @dir = `dir`;        $free = $dir[$#dir];        $free =~ s/.*([/d,]+)/w+ free/$1/;         $free =~ s/,//g;    }elsif($^o eq 'linux'){        @dir = `df -k .`;        $free = (split(//s+/,$dir[$#dir]))[3];         $free = $free * 1024;    }elsif{        $free = 0;        warn "Cannot determine free space on this machine/n";    }    return $free;}



最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台