不使用 `ls` 按 `ls -l` 日期排序

Question 1

datesort从 dateutils 包中可以做到这一点：

$ datesort -i '%b %d %Y' -i '%b %d %H:%M' < FILE

诀窍是使用两种输入格式，因为ls对于最近的日期，省略年份并显示时间。

免责声明：我是该工具的作者。

Answer

datesort从 dateutils 包中可以做到这一点：

$ datesort -i '%b %d %Y' -i '%b %d %H:%M' < FILE

诀窍是使用两种输入格式，因为ls对于最近的日期，省略年份并显示时间。

免责声明：我是该工具的作者。

Question 2

您不必仅仅因为显示的时间不好看（确实如此）而避免使用 ls：

-c 与 -lt 一起：按 ctime（文件状态信息的最后修改时间）排序并显示；与 -l 一起：显示 ctime 并按名称排序；否则：按 ctime 排序，最新的优先

Answer

您不必仅仅因为显示的时间不好看（确实如此）而避免使用 ls：

-c 与 -lt 一起：按 ctime（文件状态信息的最后修改时间）排序并显示；与 -l 一起：显示 ctime 并按名称排序；否则：按 ctime 排序，最新的优先

Question 3

您可以编写一些小脚本来解析日期字符串，然后按日期排序。有些日期字符串实际上并没有说明哪一年，所以我认为“输入文件写入之前最近的发生”是一个合理的猜测。

快速提出概念证明：

#!/usr/bin/perl
use strict;
use Time::ParseDate;

sub extracttimestamp
{
        my $line = shift;
        my $referencepoint = shift;

        if ($line =~ /^(?:\S+\s+){5}(\S+\s+\S+\s+\S+)\s+/)
        {
                return parsedate($1, NOW => $referencepoint, PREFER_PAST => 1);
        }

        print "FAILED TO PARSE $line\n";
        return -1;
}

my $filename = $ARGV[0];
my $mtime = (stat($filename))[9];

open FILE, "<$filename";
my @list = <FILE>;
close FILE;

my @sorted = sort { extracttimestamp($a, $mtime) <=> extracttimestamp($b, $mtime) } @list;

foreach my $x (@sorted)
{
        print $x;
}

Answer

您可以编写一些小脚本来解析日期字符串，然后按日期排序。有些日期字符串实际上并没有说明哪一年，所以我认为“输入文件写入之前最近的发生”是一个合理的猜测。

快速提出概念证明：

#!/usr/bin/perl
use strict;
use Time::ParseDate;

sub extracttimestamp
{
        my $line = shift;
        my $referencepoint = shift;

        if ($line =~ /^(?:\S+\s+){5}(\S+\s+\S+\s+\S+)\s+/)
        {
                return parsedate($1, NOW => $referencepoint, PREFER_PAST => 1);
        }

        print "FAILED TO PARSE $line\n";
        return -1;
}

my $filename = $ARGV[0];
my $mtime = (stat($filename))[9];

open FILE, "<$filename";
my @list = <FILE>;
close FILE;

my @sorted = sort { extracttimestamp($a, $mtime) <=> extracttimestamp($b, $mtime) } @list;

foreach my $x (@sorted)
{
        print $x;
}

不使用 `ls` 按 `ls -l` 日期排序

答案1

答案2

答案3

相关内容