如何在Perl中从ls -lrt的输出中仅查找/剪切文件名

在Perl中，您可以使用正则表达式来从ls -lrt的输出中仅查找/剪切文件名。以下是一个示例脚本，用于执行此操作：

#!/usr/bin/perl

use strict;
use warnings;

# 模拟ls -lrt的输出
my $ls_output = `ls -lrt`;

# 使用正则表达式匹配文件名
my @file_names = $ls_output =~ /(\S+)\s+\d+\s+\w+\s+\w+\s+\d+\s+\d{4}-\d{2}-\d{2}\s+\d{2}:\d{2}:\d{2}\s+(\S+)/g;

# 输出文件名
foreach my $file_name (@file_names) {
    print "$file_name\n";
}

这个脚本首先模拟ls -lrt的输出，然后使用正则表达式匹配文件名，并将它们存储在@file_names数组中。最后，脚本遍历数组并输出每个文件名。

请注意，这个脚本仅适用于ls -lrt的输出格式。如果您的系统上的ls命令的输出格式不同，您可能需要根据实际情况调整正则表达式。