摘要:
#!/usr/bin/perl use strict; use warnings; open my $fh,"a.out"; open OUT,">a_t.out"; my (@array,$i,$j,$value); while (<$fh>){ my @temp = split; push @a 阅读全文
posted @ 2017-11-24 14:19
Vermont
阅读(172)
评论(0)
推荐(0)
浙公网安备 33010602011771号