Glen: 2 txt Dateien vergleichen

Hi,
ich habe 2 *.txt-Dateien. Jetzt möchte ich die Wörter die in beiden Textdateien vorkommen aus einer der beiden Dateien löschen.
Wie könnte der reguläre Ausdruck aussehen, um dies zu bewerkstelligen?

Gruß
Glen

  1. Hi,

    Wie könnte der reguläre Ausdruck aussehen, um dies zu bewerkstelligen?

    wieso glaubst Du, ein regulärer Ausdruck könnte Dir hier helfen?

    Cheatah

    --
    X-Self-Code: sh:( fo:} ch:~ rl:° br:> n4:& ie:% mo:) va:) de:] zu:) fl:{ ss:) ls:~ js:|
    X-Self-Code-Url: http://emmanuel.dammerer.at/selfcode.html
    X-Will-Answer-Email: No
    X-Please-Search-Archive-First: Absolutely Yes
    1. wieso glaubst Du, ein regulärer Ausdruck könnte Dir hier helfen?

      Cheatah

      Weil ich nicht wüsste wie es sonst gehen sollte. Ich bin noch nicht so firm in Perl. Wie würdest du es machen? Vielleicht ein Stichwort?

      1. Hi,

        wieso glaubst Du, ein regulärer Ausdruck könnte Dir hier helfen?
        Weil ich nicht wüsste wie es sonst gehen sollte.

        Regular Expressions sind kein Allheilmittel. Sie sind ein teures Werkzeug, welches _nur für bestimmte Zwecke_ sinnvoll eingesetzt werden kann.

        Ich bin noch nicht so firm in Perl. Wie würdest du es machen? Vielleicht ein Stichwort?

        "Hash".

        Cheatah

        --
        X-Self-Code: sh:( fo:} ch:~ rl:° br:> n4:& ie:% mo:) va:) de:] zu:) fl:{ ss:) ls:~ js:|
        X-Self-Code-Url: http://emmanuel.dammerer.at/selfcode.html
        X-Will-Answer-Email: No
        X-Please-Search-Archive-First: Absolutely Yes
      2. hi,

        Weil ich nicht wüsste wie es sonst gehen sollte. Ich bin noch nicht so firm in Perl. Wie würdest du es machen? Vielleicht ein Stichwort?

        Ansatz zum Auslesen der Worte:
        Datei auf ein Scalar lesen,
        Worte, das ist das zwischen den Leerzeichen, also splitten

        $/ = undef;
        open IN, 'datei' or die $!;
        my $body = <IN>;
        close IN;

        my @words = split /\s+/, $body;

        Gruss, Rolf

      3. Hallo Glen.

        Vielleicht ein Stichwort?

        Kein Stichwort, aber vielleicht ein Ansatz:
        http://www.perldoc.com/perl5.8.4/pod/perlfaq4.html#How-can-I-remove-duplicate-elements-from-a-list-or-array-

        Freundschaft!
        Siechfred

        --
        Punk's not dead: http://www.siechfreds-welt.de/badreligion.shtml
        Dankbarkeit, man spürt sie ja so selten bei den Menschen, und gerade die Dankbarsten finden nicht den Ausdruck dafür, sie schweigen verwirrt, sie schämen sich und tun manchmal stockig, um ihr Gefühl zu verbergen. (Stefan Zweig)
        ie:) fl:) br:? va:{ ls:? fo:§ rl:( n4:} ss:? de:µ js:{ ch:° sh:( mo:? zu:}