Help for this page

Select Code to Download


  1. or download this
    my %conversations;

...
foreach (values %conversations) {
   print(@$_);
}
  2. or download this
    10.10.10.5:1001 -> 10.10.10.10:8000
10.10.10.5:1001 -> 10.10.10.10:8000
...
10.10.10.10:8000 -> 10.10.10.6:1000

10.10.10.7:1000 -> 10.10.10.10:8000
  3. or download this
    while (<DATA>) {
   my ($src, $dst) = (split)[0, 2];
   my $key = $src lt $dst ? "$src $dst" : "$dst $src";
   push(@{$conversations{$key}}, $_);
}