- 论坛徽章:
- 7
|
shishi:- #!/usr/bin/perl
- open my $id, '/tmp/id';
- open my $bincode, '/tmp/bincode';
- print scalar <$bincode>;
- my %id = map { chomp; $_, $a++ } <$id>;
- my $BIN = '\(^oo^)/';
- my @it;
- sub Print {
- print $_->[1] for sort { $id{ $a->[0] } <=> $id{ $b->[0] } } @_;
- }
- while (<$bincode>) {
- my ( $bin, undef, $id ) = split /'\s+/;
- # for line: 23 < 1.1.1.1' <==> '1.1.1.1' >
- $bin = "'" . $bin if "'" ne substr $bin, 0, 1;
- ($id) = $id =~ /(\w+)/;
- Print splice @it if $BIN ne $bin and @it;
- $BIN = $bin;
- exists $id{ $id || $" } ? push @it, [ $id, $_ ] : print;
- }
- Print @it;
|
|
免费注册
发表于 2015-03-26 16:52
