Help for this page

Select Code to Download

Select or download this

while ( my $line = <DATA> ) {
    print qq!modelCombo.addItem("$1");\n! if $line =~ m/"([^"]+)"/;
...
       "HP LaserJet 5L" {set model "net_lj4x"}
       "HP LaserJet 5MP" {set model "net_lj4x"}
       "HP LaserJet 5P" {set model "net_lj4x"}<p>