perl -e 'open(IN, "<$ARGV[0]") or die "file can not open, $!"; my @array=<IN>;my @new=reverse @array;foreach my $el(@new){print "$el"}' file
perl -e 'open(IN, "<$ARGV[0]") or die "file can not open, $!"; my @array=<IN>;my @new=reverse @array;foreach my $el(@new){print "$el"}' file
本文标题：[perl-oneline]倒序排序文件行
本文链接：https://www.haomeiwen.com/subject/rvimdctx.html
网友评论