Perl
马灯
小菜中
展开
-
初学Perl中的几个困惑
<br />? 双引号中有“变量替换功能”,单引号没有?<br /> 变量替换:使用字符串时,将字符串内的变量名称替换成该变量当前的纸,数值也可以吧<br /> <br />? Perl的内置警告信息<br /> <br />? **的用法? 乘幂操作符<br /> <br />? 试验 printf "%12f/n",6*7+2/3;<br /> printf "%12.3f/n",6*7+2/3;<br /> printf "%12.0f/n",6*7+原创 2011-04-02 14:41:00 · 308 阅读 · 0 评论 -
perl 中 ping的小用法
use Net::Ping; $pinghost = Net::Ping->new("tcp");#Protocol for ping must be "icmp", "udp", "tcp", "syn", "stream", or "external" $domain = "sohu.com"; $ip = "184.22.37.92";# if ($pinghost->ping转载 2011-12-27 15:27:15 · 991 阅读 · 0 评论 -
聚淘宝查询
use Data::Dumper;use LWP::Simple;use LWP::UserAgent;my $a =0;use LWP::Simple;use LWP::UserAgent;use HTTP::Request::Common;use Socket;my $ua = new LWP::UserAgent;$ua->agent("Mozilla/4.0 (co原创 2011-12-14 17:52:18 · 767 阅读 · 0 评论 -
关于日期查询的一个小问题
类型为datetime和varchar的区别datetime:2011-12-05 和 2011-12-5 相同varchar: 2011-12-05 和 2011-12-5 不同做个记录。MySQL数据库中的Date,DateTime和TimeStamp类型http://tech.ddvip.com/2008-01/120060777640649.ht原创 2011-12-12 10:59:57 · 352 阅读 · 0 评论 -
Win32::IEAutomation包的认识
http://blog.sina.com.cn/s/blog_4acca98f0100g8u3.html对于网络上海量的数据,如何高效的大批量自定义获取一直是像我们这些从事数据处理的必备技能之一。大多数人可能都掌握了至少一门编程语言,而这其中Perl由于其超强的文本处理能力一直受到大家的追捧。Perl非常擅长于对网页的获取和处理。之前用过一个LWP::Simple包,可以利用get()函数转载 2011-12-09 16:19:25 · 742 阅读 · 0 评论 -
win32下perl操控IE的几种方法
http://nightsailer.com/2008/09/03/285.html假设需要使用perl自动调用IE来干些坏事,有哪些方法?1. 经典途径:使用Win32::Ole这是最常见的,使用ole创建一个IE application,然后就可以调用其activex的方法了。2.辅助的CPAN模块如果需要调用IE自动执行一系列的动作,比如跟随某些链接,填入某些内容,自转载 2011-12-08 17:24:50 · 1208 阅读 · 2 评论 -
域名反转
文件夹中以下内容:com.sohu.wwwcn.com.sina.wwwcom.163.wwwcom.qq以上内容变为: www.sohu.comwww.sina.com.cnwww.163.comqq.com源代码如下:原创 2011-07-18 19:24:01 · 2666 阅读 · 0 评论 -
计算银行还款 等额本金 85折 20年
<br />#print "111/n";<br />$tax_1=5.94; <br />$tax_2=6.14; #20101019<br />$tax_3=6.40; #20101226<br />$tax_4=6.60; #20110209<br />$tax_5=6.80; #20110406<br /># $tax_2010_2=6.14;<br />$tax_2010_2=$tax_2010_1*(1+0.025);<br />#print "$tax_20原创 2011-04-14 13:53:00 · 592 阅读 · 0 评论 -
从文本中找到匹配的行
#!/usr/bin/perlopen FILE, "C:/d.txt ";open OUT1,'>>C:/data.txt';foreach () {@pairs=split //n/, $_;$count=@pairs;#print $count,"/n";#print $pairs[$count-1];if($pairs[$count-1] =~ m/^Pinging/) {print OUT1 $_,"/n";} }close(FILE);clos原创 2011-04-02 15:27:00 · 680 阅读 · 3 评论 -
遍历指定目录
#windows下的版本 遍历指定目录#!/usr/bin/perl -wuse warnings;my $dir_path = "C:\\pbotnew"; # 注意"\\"的写法opendir DH, $dir_path or die "Can not open \n";@filelist = readdir DH;foreach $file (@filelist) {原创 2012-04-10 16:41:13 · 369 阅读 · 0 评论