Reguläre Ausdrücke suchen (gelöst) - #157626 (Allgemeines zu Perl)

Bionerd

2012-04-19 07:53

User since
2012-04-18
35 Artikel
BenutzerIn
[default_avatar]

Das Programm ist wirklich super und ich hoffe,dass ich es im Verlauf des Tages abschließen kann. Ein grundsätzliches Missverständnis, wofür ich mich entschuldige, ich hätte mich klarer ausdrücken sollen...Das Programm sucht nach G[A-Z]{2}G, das ist gewollt, jedoch hätte ich für die Ausgabe liebend gern die Ausprägung also den darauf passenden String im File z. Bsp. GAAG *lieb guck*....UND: Kann man auch schauen, ob zwei Muster auf der selben Zeile vorkommen???

20: my %all_match;
Habe ich schon ergänzt,da package gefordert wurde.
28: my $outpath="$out_dir/$motive1$motive2.txt"; #meckert sonst
Ansonsten hakt nur noch das Hochzählen....
Use of uninitialized value in printf at Prog.pl line 35 ist die "Fehler"meldung.

die alternative für den Code von Zeile 72-83 konnte ich nicht einfügen, es kamen Fehlermeldungen über Fehlermeldungen.

Code (perl): (dl )

      if($motive1 eq $motive2)
      {
        my @list=@{$match{$motive1}};
        for my $pos1 (0 .. $#list-1)
        {
          for my $pos2 ($pos1+1 .. $#list)
          {
            push(@found,[$motive1,$motive1,$list[$pos1],$list[$pos2]]);
          }
        }
      }
      else
      {
        for my $line1 (@{$match{$motive1})
        {
          for my $line2 (@{$match{$motive2}})
          {
            push(@found,[$motive1,$motive2,$line1,$line2]);
          }
        }