- 论坛徽章:
- 307
|
- #!/usr/bin/perl
- use strict;
- use warnings;
- my $hostname = `hostname`;
- my @aHosts = <DATA>;
- my ($pos) = grep {$aHosts[$_] =~ /\b$hostname\b/} 0 .. $#aHosts;
- print $aHosts[$pos];
- splice (@aHosts, $pos, 1);
- print @aHosts;
- __DATA__
- 127.0.0.1 localhost localhost.localdomain localhost4 localhost4.localdomain4
- ::1 localhost localhost.localdomain localhost6 localhost6.localdomain6
- 135.240.146.41 dhp1
- 135.240.146.42 dhp2
- 135.240.146.43 dhp3
- 135.240.146.44 dhp4
- 135.240.146.45 dhp5
- 135.240.146.46 dhp6
- 135.240.146.51 hp1
- 135.240.146.53 hp2
- 135.240.146.55 hp3
- 135.240.146.57 hp4
- 135.240.146.59 hp5
复制代码 |
|