1#! /usr/bin/perl -w 2# MD5: ddd4b0caafd5cc25cbabb43d9d55cd11 3# TEST: ./rwuniq --pmap-file=servhost:../../tests/ip-map.pmap --fields=dst-servhost --sort-output ../../tests/data.rwf 4 5use strict; 6use SiLKTests; 7 8my $rwuniq = check_silk_app('rwuniq'); 9my %file; 10$file{data} = get_data_or_exit77('data'); 11$file{ip_map} = get_data_or_exit77('ip_map'); 12my $cmd = "$rwuniq --pmap-file=servhost:$file{ip_map} --fields=dst-servhost --sort-output $file{data}"; 13my $md5 = "ddd4b0caafd5cc25cbabb43d9d55cd11"; 14 15check_md5_output($md5, $cmd); 16