Regex unterstützung (gelöst) (Allgemeines zu Perl)

[thread]17042[/thread]

Regex unterstützung [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+3 replies

crojay

2012-01-05 17:31

User since
2011-03-08
81 Artikel
BenutzerIn
[default_avatar]

Hi,

ich würde gerne sämtliche Sonderzeichen innerhalb einer Datei ermitteln und entfernen. Hierzu verwende ich die Map Funktion, jedoch will die Regex nicht so wie ich möchte.

Angenommen ich habe folgenden Input

Code: (dl )

dasd
ist
ein
test
für
die
input
daß
ok!
b&b
datei
mit
komischen
zeichen:
und
xml
asdf
!!"

Dann würde ich gerne sämtlichen Zeichen wie etwa !"?: usw herausfiltern. Mein Ansatz war folgender, aber dieser liefert mir nur eine Liste mit leeren Strings

Code (perl): (dl )

my @specialchars = map {
  my $line = $_;
  $line =~ s/[^a-z]|[^-_\/ß]//g;
  $line; 
} @inputFileContent;

Also demnach sollten a-z erlaubt sein und -/ und ß sollten auch bleiben, der Rest sollte rausfliegen und in die map.

crojay

2012-01-05 17:40

User since
2011-03-08
81 Artikel
BenutzerIn
[default_avatar]

Hi,

glaube ich habe es, ich lösche einfach alle die ich erlaube, da bleibt der Rest der bösen Zeichen übrig.

Code (perl): (dl )

my @specialchars = map {
  my $line = $_;
  my $retval = undef;
  $line =~ s/[a-z]|[-_\/ß]//g;
  if ($line ne  ""){
     $retval = $line
  }
  defined $retval ? $retval : ()
} @inputFileContent;

dgw

2012-01-05 17:49

User since
2010-08-16
27 Artikel
BenutzerIn

user image

Du verwendest in der Regex zwei durch ein "oder" getrennte Zeichenklassen, und löscht damit alles.

Wieso nicht einfach:

Code (perl): (dl )

use strict ;
use warnings ;
use Data::Dumper ;

my @lines = qw(
dasd
ist
ein
test
für
die
input
daß
ok!
b&b
datei
mit
komischen
zeichen:
und
xml
asdf
!!") ;

my @lines_ohne_sonderzeichen = map { my $l = $_ ;
                                     $l =~ s/[^a-z_\/ß-]//g ;
                                     $l } @lines ;

printf "Vorher:\n%s\nNachher:\n%s\n" ,
       Dumper( \@lines ) ,
       Dumper( \@lines_ohne_sonderzeichen ) ;

Just my 2 cents.
Daniel

View all threads created 2012-01-05 17:31.