Question

perl怎么去掉字串小数点后面的字串?

比如说"2015-dadrl.drl,怎么将后面的“.drl"去掉？
代码是不是这样子？
my $path="f:/gg"; #设置查询的目录
opendir(TEMPDIR, $path) or die "can't open it:$!";
my @files = grep/.txt/g, readdir TEMPDIR; #筛选文件
print "unsorted: @files\n";
for (@files)
{
$stat{$_} = [stat($_)];
print scalar localtime($stat{$_}[9]),"\n";
}
@sort_name = sort @files;
print "sort by name: @sort_name\n";
@sort_time = sort {$stat{$a}[9] <=> $stat{$b}[9]}@files;
print "sort by modify time: @sort_time\n";

Answer 1

$str = "2015-dadrl.drl";
$str =~s/\.\w+//;
print $str;

追问

谢谢！
请问如何按文件创建的时间先后顺序读取目录下的文件名并且将文件名输入到文件里？

比如下目录下有文件：1.txt、4.txt 3.txt 2.txt。
文件创建时间的先后顺序是：1.txt 2.txt 3.txt 4.txt;
我想把文件名读取的时候按创建时间提取，得到结果是：1.txt 2.txt 3.txt 4.txt;；
并且将文件名存放到name.txt里

追答

@files = ;
print "unsorted: @files\n";
for (@files)
{
$stat{$_} = [stat($_)];
print scalar localtime($stat{$_}[9]),"\n";
}
@sort_name = sort @files;
print "sort by name: @sort_name\n";
@sort_time = sort {$stat{$a}[9] $stat{$b}[9]}@files;
print "sort by modify time: @sort_time\n";
找到要用的函数整理下思路就可以了

追问

不行噢，带有英文字母的还是按字母排的

按创建时间排序是：5208-dadrl.drl、5208-dagtsd.drl、5208-dagbsd.drl、5208-dadjd.drl，是按字母A~Z排序排的