Help for this page

Select Code to Download

Select or download this

$VAR1 = \[
            {
...
            ${$VAR1}->[0],
            ${$VAR1}->[0],
            ${$VAR1}->[0],

Select or download this

foreach my $line ( split( /\n/, $c ) ) {
    if ( $line =~ m/someregex/ ) {
...
    push @{ $lag_detail{"ports"} }, \%port_detail;
}
}