Help for this page

Select Code to Download


  1. or download this
    open(DATA,"myfile") or die "No, can't open the file";
while(<DATA>) {
   my @elements = split('\|',$_);
   # do something with the elements here
}
  2. or download this
    open(INPUT,"myfile") or die "Can't open file";
print "<html><head><title>My page</title></head><body>";
...
  print "</tr>";
}
print "</table></body></html>";