1#! /usr/bin/perl -w 2# MD5: d0e6ae79dd2ebc04325ad7c04b6ece38 3# TEST: ../rwfilter/rwfilter --sport=20000-25000 --pass=- ../../tests/data.rwf | ../rwsplit/rwsplit --basename=/tmp/rwuniq-many-presorted-onerec --flow-limit=1 && find `dirname /tmp/rwuniq-many-presorted-onerec` -type f -name `basename /tmp/rwuniq-many-presorted-onerec`'*' -print | ./rwuniq --fields=sport --values=packets,flows,distinct:sip --presorted-input --ipv6-policy=ignore --xargs=- 4 5use strict; 6use SiLKTests; 7 8my $rwuniq = check_silk_app('rwuniq'); 9my $rwfilter = check_silk_app('rwfilter'); 10my $rwsplit = check_silk_app('rwsplit'); 11my %file; 12$file{data} = get_data_or_exit77('data'); 13my %temp; 14$temp{onerec} = make_tempname('onerec'); 15my $tmpdir = $temp{onerec}; 16$tmpdir =~ s,^(.*/).*,$1,; 17my $basename = $temp{onerec}; 18$basename =~ s,^.*/(.+),$1,; 19my $cmd = "$rwfilter --sport=20000-25000 --pass=- $file{data} | $rwsplit --basename=$temp{onerec} --flow-limit=1 && find $tmpdir -type f -name '$basename*' -print | $rwuniq --fields=sport --values=packets,flows,distinct:sip --presorted-input --ipv6-policy=ignore --xargs=-"; 20my $md5 = "d0e6ae79dd2ebc04325ad7c04b6ece38"; 21 22check_md5_output($md5, $cmd); 23