使用Perl来进行IP排序

[[email protected] perl]#cat ip.txt
202.168.1.2
192.168.5.1
192.172.2.2
202.172.1.3
192.168.3.5
[[email protected] perl]#perl 1.pl
192.168.3.5
192.168.5.1
192.172.2.2
202.168.1.2
202.172.1.3
[[email protected] perl]#cat 1.pl

#!/usr/bin/perl -w

open (FILE,"<","ip.txt") or die "Can't open the file. $!";
@line = <FILE>;
sub myfunction()
{
        return ($a cmp $b);
}
print sort myfunction @line;