Problem mit Match Anweisung und RegEx (gelöst) - #187276 (Allgemeines zu Perl)

GwenDragon

2017-08-21 11:24

User since
2005-01-17
14533 Artikel
Admin1

Wenn bei Split das Regex in Klammern ist, wird das auch mitgefangen.

Das kannst du mit Data::Dumper sehen.

Code (perl): (dl )

use Data::Dumper;

my $normalText= "Bla bla blabla bla. Timo macht sein Zimmer sauber. Er vergisst das Staubsaugen.";

my @saetze = split( /([.,:;?!])/,$normalText );

print Dumper \@saetze;

ergibt:
$VAR1 = [ 'Bla bla blabla bla', '.', ' Timo macht sein Zimmer sauber', '.', ' Er vergisst das Staubsaugen', '.' ];

Das gefangene Satzzeichen ist also nicht weg.

Was du tun musst, ist das wieder zusammenzufügen.
Ein Beispiel (mir fällt gerade nix anderes ein, kann sein, dass CPAN:

List::Util das besser kann).

Code (perl): (dl )

my @saetze = split /([.,:;?!])/,$normalText;

{ # hier beginnt der lokale Code-Block
  my @temp;
  while (scalar @saetze) { # solange noch was im Array
    my $satz = shift @saetze;    # hole Satz
    my $sz = shift @saetze;      # hole Satzzeichen
    $satz .= $sz if defined $sz; # füge beide zusammen
    push @temp, $satz;           # zwischenspeichern
  }
  @saetze = @temp;  # zusammengefügtes wieder in Sätze-Array zurückspeichern 
} # Ende des lokalen Blocks

Last edited: 2017-08-21 11:36:24 +0200 (CEST)

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel