Re: Getting unique data from search.


Perl Monk, Perl Meditation
	PerlMonks

Re: Getting unique data from search.

by Three (Pilgrim)

on Nov 14, 2002 at 16:30 UTC ( [id://212897]=note: print w/replies, xml )

Need Help??

in reply to Getting unique data from search.

Simpliy put all titles in a hash as key then print out all keys.
This will elminate all duplicates.

use File::Find;

my %titles;

sub wanted
{
 if( $_ =~ /\.html?$/)
 {
   my $name = $File::Find::name;
   open ( F, $name ) or die "$!: $name\n";
   while($line = <F>)
   {
      if($line =~ /<title>(.+)<\/title>/i)
      {
         $titles{$1} = " ";
      }
   }
close F;
 }
 foreach my $key (keys %titles) { print "Title = $key\n"; }
}


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