2

我是 Shell 脚本的新手，我需要使用 Shell 脚本从目录中选择最新文件

目录名称：FTPDIR

此目录中的文件将是

APC5502015VP072020121826.csv
APC5502015VP082020122314.csv
APC5502015VP092020121451.csv
CBC5502015VP092020122045.csv
CBC5502015VP102020122045.csv
S5502015VP072020121620.csv
S5502015VP072020122314.csv
S5502015VP092020122045.csv

注意：（需要从每个组中选择一个最新的）- 下面是我执行 shell 脚本后需要得到的输出

APC5502015VP092020121451.csv
CBC5502015VP102020122045.csv
S5502015VP092020122045.csv

例如：在最新的文件APC5502015VP092020121451.csv中，没有 092020121451 是格式中的日期部分：MMDDYYYYHHMM 并且字符串部分是 APC5502015VP（字符串部分中的长度不固定）

我需要使用 shell 脚本从目录中选择这三个文件

你能帮我解决这个问题吗？

4

3 回答 3

2

仅在 bash 中安全地执行此操作将是非常有问题的。正如乔纳森所说，空格或换行符等“特殊”字符可能会破坏您的脚本。

如果我们可以假设不会有任何这些，那么我们可以在 bash 中完成大部分工作，而无需涉及其他工具。

# Make an associative array to record types, in the second loop...
declare -A a

for file in *.csv; do
    # First, we convert the filenames into something that can be sorted.
    # The next three lines account for your "unknown length" in the first part
    # of the filename. We assume the date+time is the 12 chars before ".csv".
    new="$(rev <<<"$file")"
    new="${new:4:12}"
    new="$(rev <<<"$new")"
    new="${new:4:4}${new:0:2}${new:2:2}${new:8:4}"
    len=$(( ${#file} - 16 ))
    echo "$new ${file:0:$len} $file"
done | sort | while read date type file; do
    # Next, we print only the first of each "type"...
    if [[ ${a[$type]} -eq 0 ]]; then
        a[$type]=1
        echo "$file"
    fi
    # And stop once we have collected three types.
    if [[ ${#a[*]} -ge 3 ]]; then
        break
    fi
done

正如我所说，这不处理文件名中的换行符。

另请注意，这使用revand sort，它们不是 bash 内置的。这些rev部分可以在内部完成，使用更多代码，这可能会使它们执行得更快，但您只会在非常极端的情况下看到差异。我们无能为力sort，因为 bash 中没有内置的。

于 2012-11-22T00:20:43.967 回答
1

这个 Perl 脚本适用于给定的数据。毫无疑问，它可以改进。

#!/usr/bin/env perl
use strict;
use warnings;

my %bases;

while (<>)
{
    chomp;
    my $name = $_;
    my($prefix, $mmdd, $yyyy, $hhmm) = ($name =~ m/(.*)(\d{4})(\d{4})(\d{4})\.csv/);
    #print "$name = $prefix $yyyy $mmdd $hhmm\n";
    my $stamp = "$yyyy$mmdd$hhmm";
    if (!exists($bases{$prefix}) || ($stamp > $bases{$prefix}->{stamp}))
    {
        $bases{$prefix} = { name => $name, stamp => $stamp };
    }
}

foreach my $prefix (sort keys %bases)
{
    print "$bases{$prefix}->{name}\n";
}

输出：

APC5502015VP092020121451.csv
CBC5502015VP102020122045.csv
S5502015VP092020122045.csv
于 2012-11-20T08:38:45.270 回答
0

这是 awk 解决方案：

cd FTPDIR
ls -1|awk -F"VP" '{split($2,a,".");if(a[1]>b[$1]){b[$1]=$2}}END{for(i in b)print i"VP"b[i]}'

测试如下：

> cat temp
APC5502015VP072020121826.csv
APC5502015VP082020122314.csv
APC5502015VP092020121451.csv
CBC5502015VP092020122045.csv
CBC5502015VP102020122045.csv
S5502015VP072020121620.csv
S5502015VP072020122314.csv
S5502015VP092020122045.csv
> awk -F"VP" '{split($2,a,".");if(a[1]>b[$1]){b[$1]=$2}}END{for(i in b)print i"VP"b[i]}' temp
CBC5502015VP102020122045.csv
S5502015VP092020122045.csv
APC5502015VP092020121451.csv
于 2012-11-20T09:32:35.957 回答