Help for this page

Select Code to Download

Select or download this

>perl -wMstrict -MO=Deparse,-p -le
"my ($node, $disk, %vxdgs) = (0, 0);
...
my($vxdg);
((exists($vxdgs{$node}{$disk}) ? ($vxdg = $vxdgs{$node}{$disk}) : $vxd
+g) = '');
-e syntax OK