摘要：#!/usr/bin/perl -wuse File::Temp qw(tempdir);use File::Spec::Functions;use LWP::Simple qw(getstore);my ($temp_dir)=tempdir(CLEARUP => 1);my %searches = ( google =>'http://www.google.com/#h1=en&q=perl', yahoo => 'http://search.yahoo.com/search?p=perl', microsoft =>
阅读全文
随笔分类 - perl
摘要：#!/usr/bin/perl -wuse 5.010;open my ($points),'<','points.txt' or die "couldn't read points data: $!\n";while (<$points>) { next if /^\s*#.*$/; #跳过注释 push @xyz,[split];}foreach my $pt (@xyz) { print "point ",$i++,": x=$pt->[0],y=$pt->[1], &
阅读全文
摘要：Parrot是一个虚拟机，旨在有效地编译和执行代码的动态语言。目前，它的主机的各种语言的实现在各个阶段的完成，包括Tcl，使用Javascript ，Ruby，Lua，Scheme， PHP中，Python，以及Perl 6 ，APL，和 .NET 等等超过几十种语言的代码翻译。摘自：http://www.oschina.net/p/parrot
阅读全文
摘要：Perl 与数学：快速指南 一直都有人问讨论有关于 Perl 与数学的问题。有时候一些 perl 玩家问如何使用 perl 做一些高级数学的工作。另一方面，一些数学家又反过来问如何利用 perl 来帮助完成他们本身的工作。所以，现在我提供一些方便的参考文献，比较和说明一些常用的 perl 数学模块，
阅读全文
摘要：本文用Web::Scraper抓取新浪中的文本
#!/usr/bin/perl -w
use strict;
阅读全文
摘要：Perl的第二纪 多少年了，人们一直在说，Perl已经死了或者说正在死。 我甚至也这么说过，虽然我的意思和字面上的并不一样。 今天我自作主张在此宣布，我们已经在Perl的第二纪了，不过这和Perl 6没有关系！ 这并不是说我不喜欢Perl 6/Rakudo，实际上我很喜欢，只是现在我还并不依赖它工作
阅读全文
摘要：摘自：http://www.cnblogs.com/zhangchaoyang 作者:Orisun#!/usr/bin/perluse Bloom::Filter;my $bf=Bloom::Filter->new(capacity => 10,error_rate => .001);my @keys=qw/a s d f g h j k l z/;$bf->add(@keys);while(<>){ chomp; print "Found $_\n" if $bf->check($_);}$bf=Bloom::Filter->
阅读全文
摘要：1、使用find
use strict;
use File::Find;
my @path = 'e:/xampp';
push (@path,'e:/xampp');
push (@path,'d:/eclipse-reporting-galileo-SR2-win32');
sub wanted {
if ( -f $File::Find::name ) {
if ( $File::Find::name =~ /\.xml$/ ) {
print "$File::Find::name\n";
}
}
}
find( \&wanted, @path );
阅读全文
摘要：以下代码可以将SQL语句中的关键字改为大写，如create改为CREATE,Order改为ORDER,disTinCt改为DISTINCT,另外特别注意的是只有perl才支持/U替换选项
阅读全文
摘要：$ cat -n simple1.pl 显示XML的代码
1 #!/usr/bin/perl
2 # simple.pl
3 use Data::Dumper;
阅读全文
摘要：首先安装XML::Writer,XML::Parser等模块
1.执行/usr/bin/perl -MCPAN -e 'install "YAML"' 安装YAML模块
2.进入CPAN模式，进行下载模块操作 $ sudo perl -MCPAN -e shell
3.在CPAN模式下进行安装，nolock_cpan> install XML::Writer XML::Parser
4.Ctrl+Z退出安装
阅读全文
摘要：调用CGI脚本文件的例子
你可以使用以下的语句来执行服务器中的CGI脚本http://localhost/cgi-bin/test.cgi ,而在perl中使用$ENV{QUERY_STRING}来获取传递的参数，并且进行相应处理，并返回浏览器供显示。首先由一test1.html，里面填写表单(Form),代码如下：
阅读全文
摘要：可以用cgi对环境进行读取，直接用pint语句打印出来#!d:/perl/bin/perluse warnings;use strict;print "Content-type:text/html\n\n";print "<HTML><HEAD><TITLE>Request Info</TITLE><HEAD> \n";print "<BODY><BLOCKQUOTE><TABLE BORDER =1>\n";foreach ('R
阅读全文
摘要：使用perl进行CGI开发必须安装WEB服务器，一般用Apache比较好，因为它可跨平台，并且可以经perl、python等模块编译其中，速度更快，下面就简单介绍一下Apache在windows下的安装和配置：
阅读全文
摘要：如果要去掉前导数字和空格，并且sub前保留一个空行可用
use strict;
#use warnings;
阅读全文
摘要：假如有一个从WEB上拷贝下来的文件
01 #!/usr/bin/perl -w
02
03 use Tk;
阅读全文
摘要：在windows中，可以用哪个Win32::OLE来操作excel
阅读全文
摘要：Perl到了第五版增加了模块的概念，用来提供面向对象编程的能力。这是Perl语言发展史上
的一个里程碑。此后，广大自由软件爱好者开发了大量功能强大、构思精巧的Perl模块，极大地
扩展了Perl语言的功能。CPAN（Comprehensive Perl Archive Network）是internet上Perl模块
最大的集散地，包含了现今公布的几乎所有的perl模块。
阅读全文
浙公网安备 33010602011771号