就像 ls -tr 一樣,perl 該怎麼作
opendir open_dir , "/etc"; my @dirs = map $_->[0], sort { $a->[1] <=> $b->[1] } map [ $_, +(stat "/etc/$_")[9] ], readdir open_dir; close open_dir; foreach my $file (@dirs) { if (-f "/etc/$file") { print "\n$file"; }
就像 ls -tr 一樣,perl 該怎麼作
opendir open_dir , "/etc"; my @dirs = map $_->[0], sort { $a->[1] <=> $b->[1] } map [ $_, +(stat "/etc/$_")[9] ], readdir open_dir; close open_dir; foreach my $file (@dirs) { if (-f "/etc/$file") { print "\n$file"; }
留言