Help for this page

Select Code to Download


  1. or download this
    open(FILE, $file) or die "Cannot open $file: $!\n";
while(<FILE>) {
chomp;($creg, $cname, $attribs) = split(/,/);
}
close(FILE);
  2. or download this
    UNIQUE ID, NAME, ATTRIBS
UNIQUE ID, NAME, ATTRIBS
  3. or download this
    foreach $line(@file) {
chomp;($creg, $cname, $attribs) = split(/,/);
...
$object->creg($creg);
...
}