2014年（13）
发布时间：2014-05-14 15:26:52
#!/usr/bin/perluse strict;my %hash;my @array = (1..10,5,20,2,3,4,5,5);#grep 保存符合条件的元素@array = grep { ++$hash{$_} < 2 } @array;print join(" ",@array);print "\n";......【阅读全文】
发布时间：2014-03-19 14:32:34
#!/usr/bin/perl -w use strict;use File::Find;my $path = 'G:\生物\调控粒径的基因\调控粒径的基因\基因';#路径，在同一目录下的路径sub chaxun { if ( -f $File::Fin.........【阅读全文】
