Perl技巧
关注
分享
扫一扫
BBka_717
这个作者很懒，什么都没留下…
展开
-
Perl_把字符串分开成单独的字母_split(//,$var)
Perl_把字符串分开成单独的字母_split(//,$var) my $var="ABCDEFG";my @array=split(//,$var);foreach my $num (0..$#array){ print $array[$num]."\n";}output:ABCDEFG原创 2012-04-23 11:43:25 · 4451 阅读 · 0 评论 -
Perl_引用
#about ref nummy $num=10;my $rnum=\$num;$$rnum += 2;print $$rnum."\n";#print 12${$rnum} += 2;print ${$rnum}."\n";#print 14my $rdnum=\10;#ref stringmy $a="string1";my $ra=\$a;原创 2013-10-26 14:18:41 · 1001 阅读 · 0 评论 -
Perl_截取字符串_substr($string,0,4)
Perl_截取字符串_substr($string,0,4) my $string="123456789";my $b=substr($string,0,4);print $b;#1234#0代表起始位置，也就是1，而4代表取多少个。my $b=substr($string,-10);#表示取序列倒数十个my $b=substr($string,-9原创 2012-04-20 10:29:16 · 13085 阅读 · 1 评论 -
Perl_匹配段落前略过的部分$`_匹配段落$&_匹配段落后的部分$'
Perl_匹配段落前略过的部分$`_匹配段落$&_匹配段落后的部分$'$`保存了正则表达式引擎在找到匹配段落前略过的部分。$&保留了匹配成功的部分。而$'保存了字符串中剩下的、从来没有匹配到的部分。my $s="aaaaaa{0,1}bbbbb";if ($s=~/a\{0,1\}/){ print $`."\n";#aaaaa prin原创 2012-10-10 09:28:01 · 1103 阅读 · 0 评论 -
Perl_子程序数据传入传出_哈希
Perl_子程序数据传入传出_哈希第一种方法，传入哈希，哈希转数组，然后进行后面的处理。下面这个是网上别人的一个子程序，直接拿来用了use Array::Compare;sub hashcompare { my @hasharray=@_; my @array1=%{$hasharray[0]}; my @array2=%{$hasharray原创 2012-09-13 17:12:11 · 1744 阅读 · 0 评论 -
Perl_哈希排序_sort
Perl_哈希排序_sort 对哈希的值排序my %hash;$hash{"a"}=1;$hash{"b"}=2;$hash{"c"}=21;$hash{"d"}=4;$hash{"e"}=13;$hash{"f"}=12;my @val =sort values %hash;foreach (@val){ print $_."\n";原创 2012-05-23 14:11:55 · 4763 阅读 · 1 评论 -
Perl_标准输入_STDIN
Perl_标准输入_STDIN #!usr/bin/perl -wuse strict;my @a=; #停止输入的时候按ctrl+Dmy $out="/dir/out";open OUT,">$out" || die "$!\n";foreach $a (@a){ print OUT "$a";}原创 2012-04-20 10:47:31 · 1456 阅读 · 0 评论 -
Perl_默认变量_$_and_@_
Perl_默认变量_$_and_@_ cat file1A\t2\t7\tDB\t4\t2\tCD\t2\t4\tE 例my $fil=/dir/file1;open IN, $fil || die "$!\n";while() { chomp; split(/\n/,$_,2); print $_[0]; print原创 2012-04-20 10:41:07 · 683 阅读 · 0 评论 -
Perl_分割字符串_split(/\t/,$_,4)
Perl_分割字符串_split(/\t/,$_,4) cat file1A\t2\t7\tDB\t4\t2\tCD\t2\t4\tE 例open IN,"/ifs1/ST_MED/USER/oumin/test/file1" or die ;while(){ chomp; my @array=split(/\t/,$_,4);原创 2012-04-20 10:40:02 · 6584 阅读 · 0 评论 -
Perl_控制输出小数点位数_sprintf
Perl_控制输出小数点位数_sprintf 例my $var=123.454789;$var=sprintf "%.2f",$var;print $var."\n";#123.45例my $var=123.455789;$var=sprintf "%.2f",$var;print $var."\n";#123.46默认四舍五入例：输出百分比原创 2012-04-20 10:24:45 · 24920 阅读 · 1 评论 -
Perl_传入值or路径or文件名等_@ARGV
Perl_传入值or路径or文件名等_@ARGV die "usage: $0 [input1] [input2] [out]\n"unless (@ARGV == 3);open IN , "$ARGV[0]" || die "$!\n";open IN1, "$ARGV[1]" || die "$!\n";open OUT, "> $ARGV[2]" || die "$原创 2012-04-20 10:51:16 · 1393 阅读 · 2 评论 -
Perl_哈希数组_$hash{$key}[0]
Perl_哈希数组_$hash{$key}[0] my $key="A";my $two=1;my $three=2;my $four=3;my $five=4;my $six=5;my %hash;$hash{$key}[0]=$two;$hash{$key}[1]=$three;$hash{$key}[2]=$four;$hash{$key}[3原创 2012-04-20 10:31:51 · 2262 阅读 · 0 评论 -
Perl_改变读入终止符号_$/
Perl_改变读入终止符号_$/默认为\n$/=">";原创 2012-04-20 10:38:23 · 851 阅读 · 0 评论 -
Perl_获得字符串长度_length($var)
Perl_获得字符串长度_length($var) 例：my $var='\\'; #此处'与"括着的\\颜色一样my $var1="\\";my $len=length($var);my $len1=length($var1);print $len."\t".$len1."\n";#输出1\t1\n$var='\n'; #此处'与"括着的\\颜色不一样；原创 2012-04-20 10:15:06 · 18521 阅读 · 0 评论 -
Perl_读入输出gz压缩文件_gzip_gunzip
Perl_读入输出gz压缩文件_gzip_gunzipmy $fil="/dir/fil.gz";open IN,"gunzip -c $fil |" or die $!;open IN,"gzip -dc $fil |" or die $!;my $out="/dir/out.gz";open OUT, "| gzip >$out" or die $!;原创 2012-04-20 10:20:27 · 5627 阅读 · 0 评论 -
Perl_子例程调用by引用
#第一种情况，传匿名子例程引用my $rs=\&greet;#$rs=\&greet();#wrong#$rs->('Joan','Kim');#当调用的已经是匿名子例程引用的时候。这行放在这里报错my $hidrs=sub{ my $ele=shift (@_); print "$ele say \"Hello World\".\n";原创 2013-10-28 11:12:04 · 1192 阅读 · 0 评论