Help for this page

Select Code to Download


  1. or download this
    foreach my $line (@arr) {
        if( $line =~ m/^([^=]+)=(.*)/ ) {
    ...
            warn "Unhandled line '$line'";
        };
    };