perl - ファイル内の一意の要素 - perl

Question

メールでさらに送信するファイルから一意の要素 (行) を取得したいと考えています。2 つの方法を試しましたが、どちらも機能しません。

最初の方法:

my @array = "/tmp/myfile.$device";
my %seen = ();
my $file = grep { ! $seen{ $_ }++ } @array;

2 番目の方法:

my $filename = "/tmp/myfile.$device";
cat $filename |sort | uniq > $file

どうすればいいですか？

score 0 · Accepted Answer

引数リストを調整すると、Perl にファイルを自動的に開かせることができます。

perl -n -e 'BEGIN{@ARGV=("/tmp/myfile.device");} print if $count{$_}++ == 0;'

3 に答える 3