麻烦各位帮改改这个 10楼发现个问题

Windows19

ls a*|while read i; do perl -ne 'print unless $seen{$_}++'
麻烦各位帮改改这个
ls下几百个文件是没后缀名txt   现在想经处理出来后变成.txt后缀文件 处理后各文件名和原来不变   请问怎的改  谢谢...

jason680

rename ...

moperyblue

是不是这样 aa => aa.txt

原先的的aa文件要保留吗?

Windows19

jason680 发表于 2016-08-29 21:59
rename ...

不是重命名，是出来后按原件命名，只是变成.txt后缀

Windows19

我不知道这么表达  这样举例看吧
perl -ne 'print unless $seen{$_}++' a1 >a1.txt
但是文件夹下有很多文件 所的我想这样但报错  ls a*|while read i; do perl -ne 'print unless $seen{$_}++' "$i";done

moperyblue

1. ls a*|while read i; do perl -ne 'print unless $seen{$_}++' "$i" > "$i".txt; done

复制代码

回复 5# Windows19

jason680

回复 5# Windows19

perl -ne 'print unless $seen{$_}++' a1 >a1.txt

ls a* | while read i
do
  perl -ne 'print unless $seen{$_}++' $i > $i.txt
done

Windows19

回复 6# moperyblue


正是这样
我竞然忘了加>"$".txt
谢谢...

Windows19

回复 7# jason680


谢谢...

Windows19

perl -ne 'print unless $seen{$_}++' a1 >a1.txt
才发现我这个有最后一行处理不到问题(发现如果最后一行没加回车行是处理不到的) 再问下大家能解决么