perl 對行sort

kfcdog0419

請問各位大大
我今天假使有一份文件如下  我要對行開頭sort

aafwfqef
wgwrgwgwqg
xscsvdsvsvg
s2wer32ff


我想要對這文件做sort.  那sort的方式隨易. 因為我要把兩份文件sort後比較
所以sort的方式都可以

該怎麼寫呢!!?

先謝謝了

靜女，其姝

問題沒描述清楚，應(yīng)寫出期望的結(jié)果

rubyish

biru:

1. open my $A, 'a';
   
2. open my $B, 'b';
   
3. 
   
4. my @A = sort <$A>;
   
5. my @B = sort <$B>;

復(fù)制代碼

104359176

對字符串進(jìn)行排序用

1. my @sort_lines = sort { $a cmp $b } @lines;

復(fù)制代碼