一、常用工具方法
1、哈希
my %hash = ("a"=>1, "b"=>2, "c"=>3, "d"=>4);
foreach my $key (sort keys %hash)
{
my $value =$hash{$key};
print "$key=$value\n";
}
2、读文件
sub readFile(){
my $line;
my $username;
my $password;
open FH, "new("icmp");
my $a=0;
my $c=0;
my $count;
foreach $b (78..100){
my $ip="192.168.81.".$b;
if ($pinghost->ping($ip)){
print "$ip Connected!.\n";
$a++;
}
else {
print "$ip Disconnected.\n";
$c++;
}
}
$count=$a+$c;
print "一共$count台计算机,$a台联通,$c台断开!";
$pinghost->close();
}
testConnection();
4、telnet远程登录并执行操作
sub testTelnet(){
my $hostname=$_[0];
my $usename=$_[1];
my $password=$_[2];
my $command=$_[3];
my $timeout=90,
my $telnet=Net::Telnet->new(Timeout=>10,Prompt="hello");
$telnet->open($hostname);
$telnet->login($usename,$password);
my @result=$telnet->cmd("$command");
print @result;
$telnet->close;
}
testTelnet('127.0.0.1','AT','123456','rubyD:/filefield_test.rb');
5、测试http
sub testHttp(){
my $user_agent = new LWP::UserAgent;
my $request = new HTTP::Request('GET','http://www.163.com');
my $response = $user_agent->request($request);
open FILEHANDLE, ">E:/result.txt";
print FILEHANDLE $response->{_content};
close FILEHANDLE;
}
testHttp();
6、发email
sub testMail(){
my $mailhost = "smtp.163.com";
my $mailfrom =$_[0];
my @mailto =$_[1];
my $subject = 'Test:';
my $text = 'E:/patch.txt';
open(FILE,$text) || die "can't open file";
undef $/;
$text=<file>;
my $smtp = Net::SMTP->new($mailhost,Hello=gt;'localhost',Timeout=gt;120,Debug =gt;1);
$smtp->auth('user','pass');
foreach my $mailto (@mailto) {
$smtp->mail($mailfrom);
$smtp->to($mailto);
$smtp->data();
$smtp->datasend("To:$mailto");
$smtp->datasend("From:$mailfrom");
$smtp->datasend("Subject:$subject");
$smtp->datasend("");
$smtp->datasend("$text");
$smtp->dataend();
}
$smtp->quit;
}
testMail('sambafeng@163.com','sambafeng@163.com')
7、利用ftp上传文件
sub testFtp(){
my $ftpServer=$_[0];
my $username=$_[1];
my $password=$_[2];
my @path=$_[3];
my @filename=$_[4];
my $ftp = Net::FTP->new("$ftpServer", Passive =gt; 0)
or die "Cannot connect to some.host.name: $@";
$ftp->login("$username",'$password')
or die "Cannot login ", $ftp->message;
$ftp->cwd("@path")
or die "Cannot change working directory ", $ftp->message;
$ftp->get("@filename")
or die "get failed ", $ftp->message;
# $ftp->put("@filename")
# or die "get failed ", $ftp->message;
$ftp->quit;
}
testFtp("127.0.0.1","sambafeng","123456","E:/","test.txt");</file>
8、for循环和字符串操作
my @array = (1, 2, 3, 4);
my %i;
print my $scalar = $array[2];
$i{$_}++ for @array;
for (@array) {
print if $i{$_}
分享到:
相关推荐
perl脚本perl脚本perl脚本perl脚本
oracle数据库同步perl脚本示例 其中有2个文件,一个是 perl同步脚本,另一个是存储过程; 大致思路是:perl脚本从数据库A同步数据至库B的临时表中,再通过存储过程将库B中的临时数据过滤导入正式数据当中。
perl脚本自动生成UVM验证框架
perl脚本了解及学习,学会简单的perl脚本
perl脚本学习范例
在Java中运行Perl脚本 JERL
适合Linux学习,Perl脚本开发基础学习,相信对你有帮助
linux加密perl 脚本工具
讲述的是linux下的perl脚本的详细情况。
ActivePerl一个perl脚本解释器。其包含了包括有 Perl for Win32、Perl for ISAPI、PerlScript、Perl Package Manager四套开发工具程序,可以让用户编写出适用于unix,windows,linux系统的CGI程序来。
推荐一篇好文章:关于利用perl 脚本产生状态机的verilog代码和DC 脚本的
perl脚本大全
与脚本语言一样,Perl不需要编译器和链接器来运行代码,你要做的只是写出程序并告诉Perl来运行而已。这意味着Perl对于小的编程问题的快速解决方案和为大型事件创建原型来测试潜在的解决方案是十分理想的。 .Perl...
编写的shell 脚本、perl 脚本、python 脚本 等如果不想被别人看到原文件,可以使用该工具shc ,对脚本文件加密,
用Perl/Tkx写的genesis2000板边脚本
适用于materials studio,用于计算两体系/层与层/单分子与总体系的相互作用能,计算轨迹文件中每一帧的相互作用能。
设置网卡别名perl脚本,设置网卡别名perl脚本,设置网卡别名perl脚本。
perl 脚本语言学习! perl 入门到精通学习。perl 高级脚本语言。
好用就完了
Perl脚本语言中的瑞士军刀 perl资源包 Perl