Where to put the large number of HTML-files, that need to be parsed:

my $HTML_dir="C:\htmlperl";<br>
my $output="C:\htmlperl\output.txt";<br>
my $file = $ARGV[0];<br>
[download]

# folder where the HTML-files (that need to be parsed are stored 
my $html_dir = '/path/to/dir/with/html.files';
# fetch  all.html-files from the directory 
my @html_files = File::Find::Rule->file->name( '*.html')->in( $html_di
+r);

for my $file ( @html_files ) {
    # parse the files
    # store all results  that you got from the HTML-files in only one 
+txt-file.
}
[download]

Where to put the large number of HTML-files, that need to be parsed:

Do i have to call them in the script? How to do that!?

I assume you mean "Do I have to name them all in a script?" No, you don't. You can put them anytwhere you like (but preferably not mixed up with the unrelated rest of your files) and use glob in your script to get a complete list of all those files in your script, in one directory -- or possibly even in adjacent directories":

# all html files in one directory
my @files = glob 'path/to/dir/*.html';
[download]

or

# all html files in all (direct, slibling) subdirectoris in a director
+y
my @files = glob 'path/to/dir/*/*.html';
[download]

If you need an even more elaborate directory structure, then you can use File::Find or one of its derivcatives to find the names of all html files, recursively.

You then continue to parse each file, one at a time.

You can use a regexp substitution to s/\.html$/.txt/ to produce the name for the text file, if you want to put it right beside the original file. You can do a path substitution using abs2rel/rel2abs from File::Spec/File::Spec::Functions to put the new file in a different directory if you want to preserve the directory structure:

use File::Spec::Functions qw(rel2abs abs2rel);
my $txt = rel2abs(abs2rel($file, $htmlroot), $txtroot);  # relocate
$txt =~ s/\.html$/.txt/;  # extension
[download]

If your directory tree is deep, you may have to create the target directory first, for example with mkpath before attempting to open the text file.

If you want all text files to be in one and the same directory, you can just use File::Basename's basename to strip the directory from the path.

To get the email address as well replace my while loop with

my (@text, $found_start);

while (my $t = $p->get_token){
  my $txt;
  if ($t->is_text){
    $txt = $t->as_is;
    for ($txt){
      s/^\s+//;
      s/\s+$//;
    }
    next unless $txt;
    $found_start++ if $txt =~ /^Hit/;
  }
  elsif (
    $found_start 
      and 
    $t->is_start_tag(q{a}) 
      and 
    $t->get_attr(q{href})
  )
  {
    my $href = $t->get_attr(q{href});
    if ($href =~ /mailto:/i){
      $txt = $href;
    }
    else {
      next;
    }
  }
  else{
    next;
  }
  next unless $found_start;
  push @text, $txt;
  last if $txt =~ /Listed since/;
}
[download]

Hit 7 out of 120517
name 1
type: one (for example)
Adress: Paris, 3ne Boulevard Saint Lo
Telefon:048 + 334555664  , Fax: 048 + 334555667
MyWeb-Nummer:  222237520031111
Webmaster:
mailto: webmaster@demosite.fr
master
Listed since: 20.08.2002
[download]

All the output should be written in only one new text file.

Well, open a new text file for writing. :-) See open for how to do that.

Bart has given some excellent tips on how to get a list of HTML files so that you can loop over them.

Good luck!

Hello Bart hello wfsp!

many many thanks for your help! I try out these hints and your code!

i come back and report all results.

untill soon.

best regards
perlbeginner1