外壳脚本:具有相同字母的文件名

Question

任务是列出目录中包含相同字母的所有文件名，唯一的区别是字母的顺序如asd.txt和dsa.txt

powershell中有一个工作代码：

 for i in `ls -v $dir`; 
do
 temp=$(grep -o . <<<"$i"|sort|tr -d "n")
 temper=$i
 for j in `ls -v $dir`; 
 do
    temp2=$(grep -o . <<<"$j"|sort|tr -d "n")  
    if [ "$temp" = "$temp2" ] && [ "$temper" != "$j" ];
    then
        echo $temper
        echo $j
    fi
 done;
done;

这是一个几乎可以工作的代码，问题是列出正确的文件2次，有什么想法可以纠正吗？

Answer 1

bash

这将中断名称中有空白的文件：

getchars () { echo "$1" | sed 's/./&n/g' | sort | tr -d 'n'; }
declare -A files
for file in *; do files["$(getchars $file)"]+="$file "; done

在包含文件asdf.txt、fdsa.txt、foo、foobar、tadxfst. 的目录中进行测试

for key in "${!files[@]}"; do printf "%st%sn" "$key" "${files[$key]}"; done

foo foo 
.adfsttx    asdf.txt fdsa.txt tadxfst. 
abfoor  foobar 

根据您对组所做的操作，我会使用类似perl:的东西

perl -e '
    opendir $dir, ".";
    while (readdir $dir) {
        next if /^..?$/;
        push @{$files{join "", sort split //}}, $_;
    } 
    # now do something with the files
    use Data::Dumper;
    print Dumper %files
'

$VAR1 = {
          '.adfsttx' => [
                          'asdf.txt',
                          'fdsa.txt',
                          'tadxfst.'
                        ],
          'foo' => [
                     'foo'
                   ],
          'abfoor' => [
                        'foobar'
                      ]
        };