- Perl初心者スレ（マジレス回答）
337 ：デフォルトの名無しさん[sage]：2014/11/14(金) 02:49:12.43 ID:FARMtlO3 - >>334
perl -Mvars=%h -ane '$a = $F[1] if @F == 3 ; $h{$a} .= $_ }{ print $h{$_} for sort { $a <=> $b } keys %h’ original.txt
>>336
モジュールの共用は避けるべき
| - Perl初心者スレ（マジレス回答）
339 ：デフォルトの名無しさん[sage]：2014/11/14(金) 20:30:37.37 ID:FARMtlO3 - 単純に逆にするだけか
perl -00pe '$_ = join q{}, reverse ( split /(?=^#)/m)'
|
|