use strict; use warnings; use utf8; my @city = ("tokyo", "osaka"); print "array-->:\n"; for (my $i = 0; $i

($sec,$min,$hour,$mday,$mon,$year)=localtime(time); $mon++; $mon="0$mon" if ($mon

如下文本： 12 23 34 45 56 67 想要得到的结果： 1223 3445 5667 1 perl -pe "chomp if $.%2" file 2 perl -pe "chomp; $_.=" file 3 perl -lpe "$\=--$|?$,:$/" file 第一种解释比较好理解，奇数行chomp去掉“\n”； ...

#!/usr/bin/perl use warnings; use strict; use DBI; my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 ); my %saw; my @out=grep(!$saw{$_}++,@array); print "@out\n";

grep命令练习 文件:datafile Steve Blenheim:238-923-7366:95 Latham Lane, Easton, PA 83755:11/12/56:20300 Betty Boop:245-836-8357:635 Cutesy Lane, Hollywood, CA 91464:6/23/23:14500 Igor Chevsky:385-375-839...

1.用shell求出从1至100的累加和 echo |awk '{for (i=1;i

new ValueFilter( CompareOp.LESS, new BinaryComparator(Bytes.toBytes("a")) ); new QualifierFilter( CompareOp.NOT_EQUAL, new BinaryPrefixComparator(Bytes.toBytes("Column")) ); ...