Diff nach bestimmter Anzahl von Zeichen (Allgemeines zu Perl)

[thread]6525[/thread]

Diff nach bestimmter Anzahl von Zeichen

Anthy

2004-08-23 17:08

User since
2004-08-12
11 Artikel
BenutzerIn
[default_avatar]

Hey Leutz,

folgendes...
zur zeit mache ich das so

Code: (dl )

    $reference =~ s/\n/§¤/gim;
    $result =~ s/\n/§¤/gim;
    @a = split('§¤',$model->reduce($reference));
    @b = split('§¤',$model->reduce($result));
    traverse_sequences( \@a,\@b,
            { MATCH => \&match,
              DISCARD_A => \&dis_a,
              DISCARD_B => \&dis_b,
            } );

(edit: das nicht lesbare zeichen hinter dem § ist ein "eurozeichen"

sprich er ersetzt die newlines durch eine symbolfolge, die glaube ich nicht in einem html dok so vorkommen wird *G* splittert dort und wendet dann das diff an.

Das klappt eigentlich wunderbar und es is besser als wenn er bei ' ' splittet denn dann schaut er sich jedes zeichen an und das dauert dann ewig zum diffen.
Das Problem ist dadurch das ich die \n ersetzte ist es mir jetzt bei einem Testfall passiert, dass er wo anders fehler findet obwohl keiner fehler vorhanden sind also tüftle ich gerade an ein merkmal das nicht diesen fehler hervorruft und hab sachen wie statt \n einfach "</td>", aber es wäre ideal wenn ich ihm sagen könnte, das er nach einer bestimmten anzahl zeichen egal ob wörter etc splitten würde und diese anzahl zeichen dann differenziert.
kann mir da einer helfen?

wie immer im voraus vielen dank :)

regards Anthy\n\n

ptk

2004-08-23 20:19