sort排序(以ASCII码顺序输出列表)
#!/usr/bin/perl
@names=qw(fred betty barney dino wilma pebbles bamm-bamm);
chomp(@lines=);
@ascii=sort(@lines);
print "@ascii\n"; #!/usr/bin/perl
@names=qw(fred betty barney dino wilma pebbles bamm-bamm);
chomp(@lines=);
@ascii=sort(@lines);
print "@ascii\n";