Perl 代码片段记录

概述1、Perl 调用环境中的命令， 如linux 命令，windows 的cmd  命令等，此处使用简单的反引号调用，可以捕捉命令的输出，且每次输出都带一个回车换行: #!/usr/bin/perl use strict; sub main { foreach (@INC) { print "$_ : ".`ls $_`; # call ls comma

1、Perl 调用环境中的命令， 如linux 命令，windows 的cmd  命令等，此处使用简单的反引号调用，可以捕捉命令的输出，且每次输出都带一个回车换行:

 #!/usr/bin/perl  use strict; sub main {      foreach (@INC) {         print "$_ : ".`ls $_`;  # call ls command!     }  }   &main ();

2、 函数 localtime (),返回本地时间的各项时间数据的列表， （seconds,minutes,hours,day of month,month,year,day of week,day of year,daylight savings time）

use strict;use warnings;use POSIx;my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =	localtime (); # List contextmy $Now = scalar (localtime); # scalar context$year += 1900;$mon += 1;

3、 简单的脚本程序，Ping一台主机，是否能在长时间内稳定的Ping上。注意使用管理员权限运行。思路很简单： 连续的Ping这台主机，如果不能Ping上，就记录日志，如果能Ping上，继续Ping

使用到的模块：file::Log      Net::Ping

#!perl# author : ez# date : 2015/3/5# describe : test the host reachable and print # 			the none reachable time;use strict;use warnings;use Net::Ping;use file::Log;package Main;# globalmy $host = "127.0.0.1"; # the remote hostmy $proto = "icmp";     # protocol to Pingmy $logfile = "./log.txt";   # log file namemy $file = undef;   # log file handlemy $pn = undef;     # Ping entitysub _init_log_file {	$file = file::Log -> new ({		deBUG 		=> 4,logfilename => $logfile,logfileMode => ">>",dateTimeStamp => 1,stderrRedirect => 1,defaultfile => 1,logfileDateTime => 0,appname => "reachable.pl",PIDstamp => 0,storeExpText => 1,msgprepend => '',say => 1	});	return $file if $file;	undef;}sub main {	$pn = Net::Ping -> new ($proto);	$file = &_init_log_file;	dIE "i cannot open log file or init Ping entity\r\n" 		unless ($file || $pn);	while (1) {		if (! ($pn -> Ping ($host,2))) {			$file -> msg (2,"$host is not alive.");		}	}}END {	$file -> close () if $file;	$pn -> close () if $pn;}&main;

4、 perl here document： 从标记声明的下一行开始，一直到遇到标记为止的所有字符串，赋值给变量：

#! perluse strict;use warnings;my $a = 100;my $b = 20;my $str = <<__end	hello $a;	hello $b;	this is @INC;__end;print $str;

此处将保留<<__end到__end之间的字符串格式，当输出时，按此格式输出，省事！$a和 $b 都将扩展成值。注意 << 和 标记名称必须靠在一起，且结束标记下一行要加上分号，不能写在同一行，否则perl 解释器会认为结束标记包含分号。

5、 StrawBerry Perl 在windows 7 输出中文：

#! perluse strict;use warnings;use v5.14;use utf8;# use Encode qw(encode decode);# use enCoding "utf8",STDOUT => 'gbk';sub test_chinese  {	my $gb2312_str = "中国";	binmode (STDOUT,':enCoding(gbk)');	print $gb2312_str;}&test_chinese;

windows7 和 xp默认使用的是GBK编码中文，将之转码为GBK即可正常显示中文。 注： 文件编码是用notepad++ ，编码方式为UTF-8,不带BOM。 总结

以上是内存溢出为你收集整理的Perl 代码片段记录全部内容，希望文章能够帮你解决Perl 代码片段记录所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。