BBka_717-CSDN博客

原创 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 6664

原创 Perl_改变读入终止符号_$/

Perl_改变读入终止符号_$/默认为\n$/=">";

2012-04-20 10:38:23 887

原创 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 2313

原创 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 13262 1

原创 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 25211

原创 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 5738

原创 Linux_替换文件内容_sed

Linux_替换文件内容_sedcat /dir/fileA\tB\tC\tD\tE\n例sed 's/\t/,/' /dir/file|catA,B\tC\tD\tE\n例sed 's/\t/,/' /dir/file|sed 's/\t/,/'|catA,B,C\tD\tE\n例sed 's/\t/,/g' /dir/file|catA,B,C,D,

2012-04-20 10:17:37 981

原创 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 18630

原创 Linux_输出文件的某列or某几列_cut_-f

Linux_输出文件的某列or某几列_cut_-f cut -f1,2,3,12 /dir/fil >/dir/out输出/dir/fil的1、2、3、12列并保存到/dir/out中。

2012-04-20 09:50:53 11261

原创 Linux_按某列合并两个文件_join_-j

Linux_按某列合并两个文件_join_-j例cat /dir/file1A\t2\t7\tD\nB\t4\t2\tC\nD\t2\t4\tE\ncat /dir/file2A\t3\t7\tD\nB\t4\t5\tC\nD\t2\t4\tF\nG\t6\t9\tK\njoin -j 1 /dir/file1 /dir/file2A\t2\t7\t

2012-04-20 09:39:07 14181

BBka要黑化！