Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
/0:2/ and /2:D/ and push @matches, @{$table{$_}}  for keys %table;

print "Element ids @matches contain elements: 0:2 2:D";

Select or download this

c:\test>218070
$VAR1 = {
...
Element ids 2 1 contain elements: 0:2 2:D

c:\test>