Help for this page

Select Code to Download


  1. or download this
    open (FILE," $htmlfile") || die "Cannot open HTML file for parsing!: $
+!\n";
while(<FILE>) {
  $content="$content$_\n";
}
close(FILE);
  2. or download this
    while(<FILE>) {
  $content .= "$_\n";
}
  3. or download this
    {
  local $/; # undefs $/ for this block of code only

...

  close(FILE);
}