automatischer Anhang beim Suchen

[Christian Leipnitz]

Hallo!

»»
Du kannst den . Operator verwenden.
z.B.:

@namensliste = (frank, kurt, emil);
$adr = "@irgendwas.de";
foreach $name (@namensliste)
{
     $emailadresse = $name.$adr;
     if ($emailadresse eq $pruefreferenz)
     {
          print $emailadresse." gibt es schon!\n";
     }
}
»»

Erstmal vielen Dank.

Also ich als Laie finde, dass Dein Beispiel mein Problem löst. :)

Jetzt habe ich ein anderen Problem:
An welcher Stelle setze ich denn den Code ein? Ich habe schon mehrere Varianten ausprobiert, klappen will es aber nicht. :(

Ich mache es zwar ungern, da dagegen verständlicherweise oft protestiert wird, aber anders werde ich wohl nicht weiterkommen.

Hier also doch mal der Code (sorry), in dem meiner Meinung nach die Suche definiert ist.

Dazusagen möchte ich noch, dass das Script nicht von mir, sondern nur angepasst ist. Des weiteren werden mit Hilfe des Scriptes eigentlich normale HTML-Seiten nach Stichwörtern durchsucht.
Also so ganz optimal ist das Script sicher nicht ...

----------------------------------------

@keywords = split(/\s+/,$keyword);

foreach $type (@dirs)
{
chomp($type);
$dir = "$base_dir/$type";

chdir($dir);
opendir (DIR, $dir) &cgiError ("Opening $dir
Failed:", "$!");
@allfiles = readdir(DIR);
$totalnum=@allfiles;
closedir (DIR);

for($i=1; $i<$totalnum; $i++)
  {
  if (-d $allfiles[$i])
   {
   if ($allfiles[$i] ne "." && $allfiles[$i]
   ne ".." && $type ne "" && $subdirs eq "yes")
    {
    push(@dirs,"$type$allfiles[$i]/");
    }
    }
   if (-f $allfiles[$i])
    {
    ($file,$ext) = split(/./, $allfiles[$i]);
    foreach $searchtype (@searchtypes)
     {
      if ($ext =~ /$searchtype/i)
       {
        open (SEARCH,"$allfiles[$i]") &cgiError ("Open $allfiles
        [$i] Failed:", "$!");
        @search = <SEARCH>;
        close(SEARCH);
        $temp_file = "$type$allfiles[$i]";
        foreach $text (@search)
         {
          chomp($text);
          $text =~ s/<([^>]\n)*>//g;
          $text =~ s/&([^;])*;//g;
          $text =~ s/<!--([^-->])*-->//g;
          if ($connector eq "or" && $case eq "insensitive")
           {
            foreach $word (@keywords)
             {
              if (!($text =~ /$word/i)) { $match = 0; }
              else { $matches{$temp_file} = $text; last; }
               }
                }
      if ($connector eq "and" && $case eq "insensitive")
       {
       if (!($text =~ /$keyword/i)) { $match = 0; }
       else { $matches{$temp_file} = $text; last; }
       }
       if ($connector eq "or" && $case eq "sensitive")
       {
       foreach $word (@keywords)
       {
       if (!($text =~ /$word/)) { $match = 0; }
       else { $matches{$temp_file} = $text; last; }
       }
       }
       if ($connector eq "and" && $case eq "sensitive")
       {
       if (!($text =~ /$keyword/)) { $match = 0; }
       else { $matches{$temp_file} = $text; last; }
       }
      }
     }
    }
   }
  }
}
foreach $key (sort(keys %matches))
{
push(@matches,$key);
push(@summary,$matches{$key});
}

----------------------------------------

Würde es reichen, nur bestimmte Stellen anzupassen?
Oder muss ich evtl. alles rausschmeißen?

Gruß und besten Dank,

• Christian -
  PS: Man mag mir meine laienhaften Erklärungsversuche verzeihen. *g*