buli
Debianator
Moin!
Ich moechte gerne aus einerTextdatei alle Doppelbuchstaben raussuchen, in Klammern fassen, und anschliessend nur die Zeilen mit den Doppelbuchstaben ausgeben.
Geht auch soweit:
Ich finde aber, der Suchstring ist dummes Zeug. Das muss doch einfacher gehen!
Bringt mir zwar zwei aufeinander folgende Buchstaben, aber keine doppelten.
Ich sitze schon die ganze Nacht davor, und hab grad ne Blockade.
Ich moechte gerne aus einerTextdatei alle Doppelbuchstaben raussuchen, in Klammern fassen, und anschliessend nur die Zeilen mit den Doppelbuchstaben ausgeben.
Geht auch soweit:
Code:
#!/usr/bin/perl -w
$pfad="~/geschichte.txt";
open(DATEI, "<$pfad") || die "Datei nicht gefunden!\n";
while ($line = <DATEI>) {
if ($line =~ s/aa|bb|dd|ee|ff|gg|hh|ii|jj|kk|ll|mm|nn|oo|pp|rr|ss|tt|uu|zz/($&)/g) {
$line =~ /(..)/;
print "$line";
}
}
close(DATEI);
Ich finde aber, der Suchstring ist dummes Zeug. Das muss doch einfacher gehen!
Code:
s/[a-z]{2}/($&)/g
Ich sitze schon die ganze Nacht davor, und hab grad ne Blockade.