Perl：ファイルをソートしたファイルに出力する

Question

私のperlコードのヘルプが必要です。私は、各行に最低50行で1単語のファイルを読み込むことができる必要があります。私はファイルから各行を出力するコードを持っていますが、これらの項目をどのように並べ替えてから新しいファイルに書き出すのですか？

while(<>){ 
chomp; 
print "$_ :is in the file"; 
} 

私は別のファイルにそれを置くファイルに取る方法を見つけ出すのに苦労して（私は<>は行ごとにファイルを解析すると思います）しています。

Answer 1

からperlコマンドの出力をリダイレクトソートされたリスト：

perl -e '$, = "\n"; print sort map { chomp; $_ } <>' input.txt > output.txt 

このprintssortedバージョンmapping各行はchompを通り、改行で（$,）分けられます。

#/usr/bin/env perl -w 

$, = "\n"; 

open(my $output, ">", "output.txt") 
    or die "Cannot open output.txt: $!\n"; 

print $output sort map { chomp; $_ } <>; 

close $output; 

Answer 2

perl -we 'print sort <>' input.txt > output.txt 

内訳：我々はリストコンテキストでダイヤモンド演算子 <>

<>を使用する場合、ファイルinput.txtが読み込みのために開かれた

• はsort
• sortにファイル内のすべての行を返します。行をアルファベット順にソートし、リストをprint
に返します。枚の
• printプリントワンライナーとして
• シェルはファイルより機能的アプローチを output.txt