1.从标准输入进行输入2.从钻石操作符进行输入3.参数调用@ARGV4.向标准输出进行输出5.用printf进行格式化输出1.while() { print "I saw $_"; }while(defined($_ = )){ print "I saw $_"; }NOTE:行输入操作符和Perl...
分类：
其他好文 时间：
2014-12-25 09:56:48
阅读次数：
205
（1）用perl来ls一个目录：
写perl的时候，经常要调用到系统命令，perl有很多等价的函数可以用，但是，不小心任性了，就想用system来实现了，好吧，来个ls把，列出指定的一个目录，直接上代码
sub ls{
my ($dir) = @_;
system("ls -al '$dir' ");
}
不做参数校验了，直接ls一个目录，这个...
分类：
其他好文 时间：
2014-12-24 22:48:59
阅读次数：
196
http://cn.perlmaven.com/how-to-read-a-csv-file-using-perlhttp://search.cpan.org/~hmbrand/Text-CSV_XS-1.09/CSV_XS.pm读取并处理文本是 Perl 的强项。有时候你有一个CSV(Comma-...
分类：
其他好文 时间：
2014-12-24 11:44:13
阅读次数：
134
#!/usr/bin/perl#use strict;open(FILE1,"C:/Perl/BX/BX-Users.csv");open(FILE2,"C:/Perl/BX/BX-Books.csv");open(FILE3,"C:/Perl/BX/BX-Book-Ratings.csv");op...
分类：
其他好文 时间：
2014-12-24 11:38:01
阅读次数：
351
1.unless/if结构 unless 条件为假的时候 才执行语句块。 eg: unless($fred =~ /^[A-Z_]\w*$/i){ print "The value of \$fred doesn't look like a Perl indentifier name.\n"; } ...
分类：
其他好文 时间：
2014-12-24 09:55:02
阅读次数：
131
1.system function && user function system fucntion:chomp reverse print... user function: &+indetifier2.define a subroutinesubsubroutine_name { body; }...
分类：
其他好文 时间：
2014-12-23 23:55:28
阅读次数：
210
$ ed <- 激活 ed 命令 a <- 告诉 ed 我要编辑新文件 My name is Titan. <- 输入第一行内容 And I love Perl very much. <- 输入第二行内容 . <- 返回 ed 的命令行状态 i <- 告诉 ed 我要在最后一行之前插入内容 I am...
分类：
系统相关 时间：
2014-12-23 12:12:23
阅读次数：
312
正则表达式定义了字符串的模式。正则表达式可以用来搜索、编辑或处理文本。正则表达式并不仅限于某一种语言，但是在每种语言中有细微的差别。Java正则表达式和Perl的是最为相似的。java.util.regex包主要包括以下三个类：Pattern类：pattern对象是一个正则表达式的编译表示。Patt...
分类：
编程语言 时间：
2014-12-23 12:11:11
阅读次数：
294
无中间文件计算fdr
#!perl
use warnings;
use strict;
die "perl $0 \n" if @ARGV != 2;
my (%va, %out);
open FA, $ARGV[0] or die $!;
while()
{
chomp;
my @tmp = split;
$va{$tmp[0]} = $tmp[...
分类：
其他好文 时间：
2014-12-23 10:26:55
阅读次数：
201
