use strict;
  use File::Find;

  my %seen;

  sub wanted
  {
   if ( /\.html$/)
   {
     open F, "< $File::Find:name" 
        or die "read $File::Find::name: $!\n";
     local $_;
     while (<F>)
     {
        if ( /<title>(.*?)<\/title>/si )
        {
           print "Title = $1\n" unless $seen{$1}++;
        }
     }
     close F;
   }
  }

  find( \&wanted, "/unixpath/webfiles" );
[download]

jdporter
...porque es dificil estar guapo y blanco.

thanks, but not sure what and how this works???


print "Title = $1\n" unless $seen{$1}++;
[download]

Can someone explain it to me?

Sure. We have this little section:

        if ( /<title>(.*?)<\/title>/si )
        {
           print "Title = $1\n" unless $seen{$1}++;
        }
[download]

The first line uses a regex to find things enclosed by <title> tags. Because of the grouping parentheses, whatever is matched gets magically assigned to the special $1 variable. (Note, that's the numeral one, not a lower-case ell.) (If you had more paren groups, what they matched would be assigned to $2, $3, etc.)

The stuff inside the if block is really just a fancy (compact) way of writing

    $seen{$1}++;
    if ( ! $seen{$1} ) {
        print "Title = $1\n";
    }
[download]

Now is it clearer, I hope?

Footnote: Why the /s and /i modifiers on the regex? Well, the /i is so we can match <title>, <TITLE>, or any other variant of case. The /s is so the dot in the pattern can match linebreak characters, in case someone cleverly wrote something like

    <title>This is a very
       Long Title</title>
[download]

jdporter
...porque es dificil estar guapo y blanco.