将文件与匹配的扩展名配对

Question

假设我有以下文件列表：

a.1
a.2
a.3
b.1
b.2

是否有一个 bash 单行代码可以找到一个不存在具有相同扩展名的“b”的“a”文件？ （即a.3：不匹配）
我确信我可以编写一个简短的 bash/perl 脚本来执行此操作。
但我想知道是否有任何“技巧”（当然，GNU 工具可供我使用；awk、sed、find ...）

Answer 1

你可以试试这个：

ls -1 [ab].* | sort -t . -k 2 | uniq -u -s2

Answer 2

这是我的 bash 一句话，

for afile in a*; do bfile=${afile/a/b}; test -f $bfile || echo $afile; done

我喜欢上面的解决方案，因为它只使用 bash 而没有其他工具。然而，为了展示 Unix 工具的强大功能，下一个解决方案使用 4 个：ls、sed、sort 和 uniq：

ls [ab]* | sed 's/b/a/' | sort | uniq -u

Answer 3

如果你可以使用 Perl：

perl -le 'for (<a*>) { /(.*)\.(.*)/; print "$1.$2" if !-e "b.$2"}'

Answer 4

bash 版本 4 有关联数组，因此您可以这样做：

declare -A a_files
while read -r filename; do
    ext="${filename##*.}"
    case "${filename%.*}" in 
        a) a_files[$ext]="$filename" ;;
        b) unset a_files[$ext] ;;
    esac
done < <(ls [ab].*)
echo "non-matched 'a' files: ${a_files[@]}"

或者，使用 awk：

ls [ab].* | awk -F. '
    $1 == "a" {a_files[$2] = $0} 
    $1 == "b" {delete a_files[$2]}
    END {for (ext in a_files) print a_files[ext]}
'

Answer 5

红宝石(1.9+)

$ ruby -e 'Dir["a.*"].each{|x|puts x if not File.exist? "b."+x.scan(/a\.(\d+)/)[0][0]}'