Help for this page

Select Code to Download


  1. or download this
    while (my @X=<CFGFILE>)
{
...
   print "$machine, $default, $type, $connect";
  }
}
  2. or download this
    while (<CFGFILE>) {  # read each line in turn to $_
   next unless /^\w/i;
...
   print "$machine, $default, $type, $connect";
  }
}
  3. or download this
    #!/usr/bin/perl
use strict;
...
__DATA__
printserver1,default,cups,cups
printserver2,no,aix,rsh
  4. or download this
    printserver1, default, cups, cups
printserver2, no, aix, rsh
...
'
                            }
        };