Perl HTML Parser does not work

[szepesg]

Hi!

If I want to parse this html file (e.g. copy it into an other file using HTML Parser) I only get an empty file.
What am I doing wrong?
Thank you for your answer in advance.

Gábor

[szepesg]

I forgot to mention that if I am working with a much simpler file e.g. an HTML file that has only 5 or 6 rows then everything is fine.

Gábor

[KevinADC]

See where my finger is pointing? That is where you are making a mistake.

[eWish]

Showing use the code would result in KevinADC not having to use his fingers.

--Kevin

[szepesg]

Hello,

This is the code I used:

#!/usr/bin/perl -w
   
 use strict;
 

 # define the subclass
 package IdentityParse;
 use base "HTML::Parser";

 open(OUT,">placid.html");
  
 sub text {
     my ($self, $text) = @_;
     # just print out the original text
     print OUT $text;
 }
 
 #sub comment {
  #   my ($self, $comment) = @_;
   #  # print out original text with comment marker
    # print OUT "";
# }
   
 sub start {
     my ($self, $tag, $attr, $attrseq, $origtext) = @_;
     # print out original text
     print OUT $origtext;
 }
 
 sub end {
     my ($self, $tag, $origtext) = @_;
     # print out original text
     print OUT $origtext;
 }
 my $p = new IdentityParse;
 $p->parse_file("index.html");

Thank you for your help in advance:

Gábor

[szepesg]

Hello Guys,

It was all my mistake. The file's name I wanted to parse was x.htm and not x.html.
Sorry for bothering the forum.
I am new to perl I thought that there is a much complex problem.
Sorry again.

Gábor