yang5915的专栏

#!perl -w# ===============================================================================# 这一段要放在perl文件的开头部分，不然ARGV使用起来有点问题。$argc = $#ARGV + 1;print"Total command line arguments received: $argc \n";foreach $argument (0 .. $#ARGV) { print"$ARGV[$a..

my $path="D:\\perl";my $file;chomp($path);my $filename;opendir(DIR, "$path") || die "Cannot open it:$!";@filename = grep -f, readdir(DIR);close DIR;@files = sort{ -M "$path/$b" -M "$path//$a

Sorting in PerlJohn Klassa / Raleigh Perl Mongers / June, 2000 IntroductionPerl has a built-in "sort" function.It uses a quicksort algorithm, which has good (in fact, O(n log n)) perfo

use strict;my $path="D:\\perl";my $keyfile;my $keytime;opendir(dir, $path) or die "Cannot open it:$!";print "\n";while(my @count= grep -f, readdir(dir))  # -f表示选出目录中的文件{closedir(di