一些perl脚本

一、常用工具方法
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{$_}