starten zwei Subs - Eingabe / Ausgabe (Allgemeines zu Perl)

[thread]17027[/thread]

starten zwei Subs - Eingabe / Ausgabe

Tags: perl5 Subroutinen regex Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+5 replies

Mara

2011-12-29 11:45

User since
2011-12-29
3 Artikel
BenutzerIn
[default_avatar]

Huhu, ich versuch mich grad in Algorithmen, die Anstelle von bloßer Theorie einmal zu implementieren und dabei einen Schritt weiter zugehen, als nur kleine Miniprogramme in Perl zu schreiben die mit Fakutäten oder Mittelwerte berechnen.

Als Übung wollte ich KMP implementieren - dazu habe ich mir erstmal überlegt von der Theorie auszugehen, auf die der Algo basiert und hab, zwei Subs gemacht, die einmal das Präfix berechnen für das Muster und dann eine zweite Sub, in dem dann der Schritt passiert, wo Text und Muster geprüft werden soll, um so ein Match oder Mismatch zu erhalten.

Das war meine Überlegung, die hab ich soweit in 2 Subs implementiert, doch jetzt komm ich in dem Schritt - wie rufe ich die beiden auf und bringe das Ganze zum laufen nicht mehr weiter. Hier scheitert ich grad an mir selber. Denn ich weiß nicht wie ich dem Programm verklickern soll, das Ganze zu starten, sprich es scheitert grad bei dem Punkt:

Einlesen des Musters und des Textes, die unterschiedlich groß sein können und dann durch die Subs bearbeitet werden sollen. Und am Ende der Ausgabe.

Ich hab das was.. ich bisher gemacht hab mal eingefügt, wäre lieb, wenn mir jemand erklären könnte, wie man die Sache zum laufen kriegt und ob die Subs so stimmen. :(

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use interger;


# Allgemein: 
# w /P  = Wort oder Muster (Pattern)
# i = Anfangposition des Suchwortes s im Text t
# j = Position im Suchwort (Länge des Präfixes)
# t  =Text
# n  = Länge des Textes
# s = Suchtwort
# m = Länge des Suchwortes
# s = Suchwort
# m= Länge des Suchwortes 



#        Berechnung der Präfix                                           

sub ermorde_Knuth_next{              
        my($P)=@_;                        # das Muster

        my ($m;$i,$j)=(lenght $P,0,-1);   
        my @next;                         # Array 


        for ($next[0] = -1; $i < $m; ) {
        while ( $j > -1 &&
                substr( $P, $i, 1 ) ne substr( $P, $j, 1 ) ) {
            $j = $next[ $j ];
        }
        $i++;
        $j++;
        $next[ $i ] =
            substr( $P, $j, 1 ) eq substr( $P, $i, 1 ) ?
                $next[ $j ] : $j;
     }
        return ($m,@net);     # Länge des Musters und der Prefix Funktion
}


                                                        #Matcher                                                

        sub ermorde_Knuth  {         
         my ( $T, $P ) = @_;            # Text und Muster.
    
    my $m = ermorde_Knuth_next( $P );   
    my ( $n, $i, $j ) = ( length($T), 0, 0 );
    my @next;
        
        while ( $i < $n ) {
          while ( $j > -1 &&
                substr( $P, $j, 1 ) ne substr( $T, $i, 1 ) ) {
            $j = $next[ $j ];
        }
        $i++;
        $j++;
        return $i - $j if $j >= $m; # Match - Hurra wir haben einen Treffer.
    }
    return -1; # Mismatch - Shit - daneben getroffen.
}

Last edited: 2011-12-29 11:51:30 +0100 (CET)

+3 replies

GwenDragon

2011-12-29 11:56

User since
2005-01-17
14748 Artikel
Admin1

Hast du das Programm überhaupt mal aufgerufen?
Das hat ein paar Fehler drin.
Bitte kompiliere es doch mal mit Perl
perl -cw meinprogramm.pl
und verbessere erst die Fehler.

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

Mara

2011-12-29 12:46

User since
2011-12-29
3 Artikel
BenutzerIn
[default_avatar]

Das mit dem kompilieren kannte ich noch gar nicht. Vielen dank für den Tipp! Das ist wirklich hilfreich. *freu*

Das hab ich mal gemacht, zu Beginn kam dann:

Can't locate interger.pm in

--- war also der erste Fehler use interger - rausgenommen, dann diesen Fehler auch bei den Subs behoben, dann gin die Matchersub soweit - aber die Präfix - Sub nicht, die hab ich dann einzeln überarbeitet und geprüft und jetzt sagt er das die Syntax soweit ok ist. und es kommen keine weiteren Fehlermeldungen wie vorher.

So hab ich folgenden Code für die Subs nun *grübel*

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use warnings;


#   Berechnung des Präfix  ######                                         

sub ermorde_Knuth_next{              
        my($P)=@_;                        # das Muster

        use integer;
        
        my$m=(0..lenght($P)-1); 
        my$i=0;
        my$j=-1;
        
        my @next;                         # Array 


        for ($next[0] = -1; $i < $m; ) {
        while ( $j > -1 &&
                substr( $P, $i, 1 ) ne substr( $P, $j, 1 ) ) {
            $j = $next[ $j ];
        }
        $i++;
        $j++;
        $next[ $i ] =
            substr( $P, $j, 1 ) eq substr( $P, $i, 1 ) ?
                $next[ $j ] : $j;
     }
        return ($m,@next);     # Länge des Musters und der Prefix Funktion
}


##############################################

#               ########                                                                        Matcher                                                

    
        sub ermorde_Knuth  {         
         my ( $T, $P ) = @_;            # Text und Muster.
    
    use integer;
    
    my $m = ermorde_Knuth_next( $P );   #knuth_morris_pratt_next
    my ( $n, $i, $j ) = (length($T), 0, 0 );
    my @next;
        
        while ( $i < $n ) {
          while ( $j > -1 &&
                substr( $P, $j, 1 ) ne substr( $T, $i, 1 ) ) {
            $j = $next[ $j ];
        }
        $i++;
        $j++;
        return $i - $j if $j >= $m; # Match - Hurra wir haben einen Treffer.
    }
    return -1;}

Mara

2011-12-29 12:48

User since
2011-12-29
3 Artikel
BenutzerIn
[default_avatar]

*grummel* da war noch ein fehler.. # stand nicht vor Matcher.. -.- so nun stimmt es wohl...

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use warnings;


#   Berechnung des Präfix  ######                                         

sub ermorde_Knuth_next{              
        my($P)=@_;                        # das Muster

        use integer;
        
        my$m=(0..lenght($P)-1); 
        my$i=0;
        my$j=-1;
        
        my @next;                         # Array 


        for ($next[0] = -1; $i < $m; ) {
        while ( $j > -1 &&
                substr( $P, $i, 1 ) ne substr( $P, $j, 1 ) ) {
            $j = $next[ $j ];
        }
        $i++;
        $j++;
        $next[ $i ] =
            substr( $P, $j, 1 ) eq substr( $P, $i, 1 ) ?
                $next[ $j ] : $j;
     }
        return ($m,@next);     # Länge des Musters und der Prefix Funktion
}


##############################################

                                                #Matcher                                                

    
        sub ermorde_Knuth  {         
         my ( $T, $P ) = @_;            # Text und Muster.
    
    use integer;
    
    my $m = ermorde_Knuth_next( $P );   #knuth_morris_pratt_next
    my ( $n, $i, $j ) = (length($T), 0, 0 );
    my @next;
        
        while ( $i < $n ) {
          while ( $j > -1 &&
                substr( $P, $j, 1 ) ne substr( $T, $i, 1 ) ) {
            $j = $next[ $j ];
        }
        $i++;
        $j++;
        return $i - $j if $j >= $m; # Match - Hurra wir haben einen Treffer.
    }
    return -1;}

Last edited: 2011-12-29 12:50:00 +0100 (CET)

GwenDragon

2011-12-29 14:04

User since
2005-01-17
14748 Artikel
Admin1

Du kannst auf der Kommandouzeile doch Dateinamen und Muster einlesen.
Das geht mit dem Modul CPAN:

Getopt-Long.

Code (perl): (dl )

use Getopt::Long;

my $filename   = "";
my $pattern = "";

my $result = GetOptions ("file=s"   => \$filename,      # string
                        "pattern=s"  => \$pattern);  # flag
);

my $text;
# Daten einlesen
open (my $fh, "<", $filename) or die "ERROR: File $filename not opened: $!\n";
while ($text = <$fh>) { # zeilenweise Text aus Datei $filename einlesen
  my $ret = ermorde_Knuth($text, $pattern);
  if ($ret != -1) {
    print "Treffer $ret von $pattern in $text\n";
  }
}
close($fh) or die "ERROR: File $filename not closed: $!\n";

Dein Programm wird dann so aufgerufen in der Kommandozeile:
ermordeknuth.pl -file text.txt -pattern "PA3TteRn"

Probier das mal selbst und schau mal noch in deinen Programmcode, da sind immer noch Fehler drin.

Editiert von GwenDragon:
Tippfehler in Modulnamen; Variable $filename; Ausgabe des Treffers

Last edited: 2011-12-29 14:14:56 +0100 (CET)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-12-29 11:45.