Zwei Zeichen _gleichzeitig_ in String finden (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-04-16 17:59:17
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]17502[/thread]

submit to reddit

Zwei Zeichen _gleichzeitig_ in String finden [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+20 replies
geloescht

2012-06-20 18:13
User since
2012-06-19
141 Artikel
BenutzerIn
Abend Leute

Ich hab mich ein wenig mit regulären Ausdrücken beschäftigt. Mit...
Code: (dl )

$internetpost =~ /[@.]/;
...durchsuche ich den Skalar $internetpost nach dem Vorkommen von "@"- _oder_ "."- Zeichen. Ich brauche aber beides.

Wie kann die Mustersuche so gestaltet werden, daß max. ein "@" und mindestens ein "." im Skalar enthalten sein muss, damit er gilt?

Sonst müsste ich was mit zwei verschiedenen If-Abfragen basteln und diese beiden Zeichen nacheinander einzeln prüfen.

Nach ausgiebigen Diskussionen steht auf jeden Fall fest: Es soll nur nach einem "@"-Zeichen und mindestens einem Punkt gesuch werden. Die RFC's sind so umfangreich und konfus, daß alles andere keinen Sinn macht!
Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
- +2 replies
- Linuxer
  
  2012-06-20 18:19
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Schnellschuss:
  
  Code (perl): (dl )
  
  1 2 3
  
  # max ein '@' und min. ein '.' im String if ( 1 >= ( $string =~ m/[@]/ ) && $string =~ m/[.]/ ) { }
  
  Man sollte nicht immer alles mit nur einer Regex erschlagen wollen; aber 2 einzelne if-Abfragen braucht es auch nicht unbedingt ;)
  
  Kann es sein, dass Du auf eine Email-Adresse prüfen willst?
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - geloescht
    
    2012-06-20 18:31
    
    User since
    2012-06-19
    141 Artikel
    BenutzerIn
    
    Hi Linuxer
    
    Sieht gar nicht so kompliziert aus. Werd ich testen. Ist das kleine "m" bei der RegEx nicht überflüssig? Hab gelesen, daß man damit die Zeichen für die Mustererkennung ziemlich frei wählen kann. Bin mir aber nicht ganz sicher.
    
    Gruß
    
    HP-User
    
    PS.:
    Zitat:"Kann es sein, dass Du auf eine Email-Adresse prüfen willst? "
    
    -> Yes, schnellmerker ;-)
    Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
- +6 replies
- bianca
  
  2012-06-20 18:22
  User since
  2009-09-13
  6976 Artikel
  BenutzerIn
  2012-06-20T16:13:26 ?
  Nach ausgiebigen Diskussionen steht auf jeden Fall fest: Es soll nur nach einem "@"-Zeichen und mindestens einem Punkt gesuch werden. Die RFC's sind so umfangreich und konfus, daß alles andere keinen Sinn macht!
  
  Es gibt einen Regex für E-Mails und sogar die Möglichkeit, diese zu prüfen. Sooo kompliziert ist das nicht. Und konfus ist das eigentlich auch nicht.
  Ich nutze derzeit für die Erkennung von E-Mail Adressen das Perl Modul Email::Find
  Und eine einigermaßen taugliche Prüfung auf E-Mail Adressen inkl. Korrekturen könnte man ohne Modul auch so machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
  
  sub checkmail { my $mail = shift; return '' if !defined $mail || ($mail =~ tr/\@//) != 1; my ($user,$serv); if ($mail =~ m/^(.+)@(.+)$/s) { $user = lc $1; $serv = lc $2; } else { return '' } $serv =~ s/\Q$1// while $serv =~ /([\n\r \])>}'";,])$/; return '' if !($serv =~ /^.+\..+$/) || $serv =~ /[^a-z0-9.-]/ || $serv =~ /\.\./g || $serv =~ /\.$/ || (($user =~ tr/"//)/2) =~ /\./ ; $user =~ s/""//g; $user =~ s/\Q$1// while $user =~ /^([\n\r \[{(<';,])/; return '' if $user =~ /[^a-z0-9._+&="-]/; return $user . '@' . $serv; }
  
  Vielleicht kannst du dir da was rausziehen.
  10 print "Hallo"
  20 goto 10
  - +5 replies
  - geloescht
    
    2012-06-20 18:33
    User since
    2012-06-19
    141 Artikel
    BenutzerIn
    
    Hi bianca
    
    Ich war da etwas ausschweifender:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    my $atstatus = "N"; my $dotstatus = "N"; if ($internetpost =~ /@/) { $atstatus = "Y";} if ($internetpost =~ /./) { $dotstatus = "Y";} if ($atstatus eq "Y" and $dotstatus eq "Y") {goto SecondCheckOK;} goto EmailUmfangError; SecondCheckOK:
    
    Aber viele Wege führen ja bekanntlich nach Rom *lol*
    
    Danke an alle. Vielleicht gibt es ja weitere Versionen...
    
    Gruß HP-User
    Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
    - bianca
      
      2012-06-20 18:38
      
      User since
      2009-09-13
      6976 Artikel
      BenutzerIn
      
      2012-06-20T16:33:41 ?
      Danke an alle. Vielleicht gibt es ja weitere Versionen...
      
      Wichtig wäre halt die Festlegung, wonach man prüfen will, falls man sich tatsächlich für eine genauere Prüfung entscheidet.
      Denn es gibt auch funktionierende E-Mail Adressen mit mehreren @ Zeichen, da braucht man nur mal Lotus Notes nutzen, da sieht man das ständig, weil Notes anscheinend teilweise auch den Routingpfad in die Adresse packt. Sieht lustig und vor allem lang aus, funktioniert aber :)
      
      Soweit RFC 822 ausreicht behaupte ich mal, wäre meine Modul-Empfehlung nicht verkehrt.
      10 print "Hallo"
      20 goto 10
    - +2 replies
    - pktm
      
      2012-06-20 18:38
      
      User since
      2003-08-07
      2921 Artikel
      BenutzerIn
      
      GOTO führt dich auf jeden Fall nach Rom :D
      
      Ich finde gerade bei E-Mails Module mittlerweile ganz nett.
      http://www.intergastro-service.de (mein erstes CMS :) )
      - bianca
        
        2012-06-20 18:40
        
        User since
        2009-09-13
        6976 Artikel
        BenutzerIn
        
        2012-06-20T16:38:48 pktm
        GOTO führt dich auf jeden Fall nach Rom :D
        
        Damit wurde er schon in einem anderen Thread aufgezogen, das stellt er bezeiten noch um. Er wächst eben langsam aus Basic heraus :)
        Ich finde das lustig, ist auch Bestandteil meiner Signatur :)
        10 print "Hallo"
        20 goto 10
    - topeg
      
      2012-06-20 19:14
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Dein Code löst aber nicht die von dir gestellte Aufgabe. So wird "tt@@@@example.org" als Valid erkannt. Übrigens musst du "." entwerten ( "\." ), da es in regulären Ausdrücken für ein beliebiges Zeichen steht.
      
      Zudem lässt sich dein Code kürzer schreiben:
      
      Code (perl): (dl )
      
      1 2 3
      
      $atstatus = $internetpost =~ /@/; $dotstatus = $internetpost =~ /\./; if ($atstatus and $dotstatus ) {goto SecondCheckOK;}
      
      Oder noch mehr gekürzt:
      
      Code (perl): (dl )
      
      if ($internetpost =~ /@/ and $internetpost =~ /\./ ) {goto SecondCheckOK;}
      
      Im skalaren Kontext gibt ein Match ein Wahr (1) oder Falsch (0) zurück.
      
      Aber um auf ähnlich weise dein Problem wie gewünscht zu lösen:
      
      Code (perl): (dl )
      
      1 2 3
      
      my @at = $internetpost =~ /@/g; my @dot = $internetpost =~ /\./g; if( @dot > 0 and @at == 1) {goto SecondCheckOK;}
      
      Auch das kann man kürzer schreiben:
      
      Code (perl): (dl )
      
      if(() = $internetpost =~ /\./g > 0 and () = $internetpost =~ /@/g == 1) { goto SecondCheckOK; }
      
      Auffällig ist die Konstruktion () = .... Das erzwingt ein Listenkontext. damit werden die gefundenen Zeichen zurück geliefert. Hier interessiert nur die Anzahl der Funde.
      
      Zudem kann man bei Perl das if auch hinter die Aktion setzen:
      
      Code (perl): (dl )
      
      goto SecondCheckOK if $internetpost =~ /@/ and $internetpost =~ /\./;
      
      Das kommt der normalen Sprache näher.
- +11 replies
- payx
  
  2012-06-20 18:27
  
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  
  Hallo HP-User,
  
  auch ein Schnellschuss zu Deiner anfänglichen Fragestellung: /\@\S*\./ findet ein @ und einen Punkt einer Zeichenkette, wenn sie in dieser Reihenfolge stehen und zwischen den beiden Zeichen kein Whitespace ist.
  
  Zur Extraktion oder Validierung von E-Mail-Adressen ist das natürlich viel, viel zu wenig, aber das deutest Du ja selbst an (vgl. auch Beitrag von Bianca).
  
  HTH
  Grüße
  payx
  - +10 replies
  - geloescht
    
    2012-06-20 19:18
    User since
    2012-06-19
    141 Artikel
    BenutzerIn
    
    Hi payx
    
    2012-06-20T16:27:45 payx
    ... wenn sie in dieser Reihenfolge stehen und zwischen den beiden Zeichen kein Whitespace ist...
    
    payx
    
    Whitespace? Gutes Stichwort. Hab ich glatt vergessen! Zusammenfassung meiner Filteraktionen:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
    
    $internetpost =~ s/;//g; $internetpost =~ s/<//g; $internetpost =~ s/>//g; $internetpost =~ s/\*//g; $internetpost =~ s/|//g; $internetpost =~ s/\[//g; $internetpost =~ s/\]//g; $internetpost =~ s/{//g; $internetpost =~ s/}//g; $internetpost =~ s/&//g; $internetpost =~ s/\\//g; $internetpost =~ s/\015\012|\015|\012//g; chomp($internetpost);
    
    Wenn aber einer Leerzeichen eingibt? Die hätte ich gerne auch abgeschnitten.
    
    Beispiel A)geht nur bei einem Leerzeiche in Folge?
    
    Code: (dl )
    
    $internetpost =~ s/ //g;
    
    Beispiel B) soll auch Space, space,space, usw. entfernen können?
    
    Code: (dl )
    
    $internetpost =~ s/\s+//g;
    
    Wo ist der Unterschied?
    
    Eine E-Mail soll gar keinen Freiraum haben...
    
    Gruß HP-User
    Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
    - topeg
      
      2012-06-20 19:32
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Erlaubt sein sollen also "a-z" "A-Z" "0-9" "." "@" "-" "_" nicht wahr? Schreib doch so:
      
      Code (perl): (dl )
      
      $internetpost=~s/[^\w.@-]//g;
      
      [^ ... ] heißt das Gegenteil der aufgeführten Zeichen. \w sind Zeichen die in Worten vor kommen ("a-z" "A-Z" "0-9" "_")
    - +7 replies
    - bianca
      
      2012-06-20 20:04
      
      User since
      2009-09-13
      6976 Artikel
      BenutzerIn
      
      2012-06-20T17:18:52 ?
      Eine E-Mail soll gar keinen Freiraum haben...
      
      Hast du meine sub checkmail mal probiert?
      Die korrigiert eigentlich schon einiges.
      10 print "Hallo"
      20 goto 10
      - +6 replies
      - geloescht
        
        2012-06-20 20:57
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        Hallo bianca
        
        Nein, deine "sub" hab ich noch nicht probiert. Ich - ähm - bin bis jetzt ohne "subs" ausgekommen. Ich hab das mit den Subroutinen (oder sagt man Subprogramme?) noch nie angewendet und kenne weder Funktion, Syntax noch Verwendung.
        
        Topeg hat mir vor kurzem versucht, ein wenig darüber beizubringen. Aber ich bin noch nicht wirklich sicher darin. Und ich habe ja schon an anderer Stelle gesagt, daß wenn ich einen Code nicht verstehe, nehm ich diesen auch nicht ins Programm. Nur Copy-Paste ist nichts für mich ;-)
        
        Mein Lerntempo ist auch begrenzt. Ich kann nicht die gesammte Perl-Doc in 1h erlernen. Bei mir geht das "learning by doing". Und da ich auch einen stressigen Job habe, bleibt mir unter der Woche nur ein schmales Zeitfenster am Abend. Wochende ist meist mehr Raum fürs "perlen" übrig - zumindest ein wenig mehr :-)
        
        Gruß HP-User
        
        BTW:Ich habe jetzt 778 Zeilen Code geschrieben - alles für Überprüfung und Sicherheit, sowie für Ausgabetests! Und noch nicht wirklich eine relevante Zeile für die eigentliche Funktion des Scriptes! Verrückt oder...
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        topeg
        
        2012-06-20 22:00
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Ich vermute du hast etwas Erfahrung in BASIC.
        
        Dort gibt es den Befehl GOSUB.
        Falls du das nicht kennst der funktioniert wie GOTO mit dem unterschied das bei einem RETURN an die Stelle zurück gesprungen wird wo das GOSUB war.
        
        Um es in etwas Pseudocode auszudrücken:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8
        
        GOTO ANKER_SUB ANKER_BACK: ... ANKER_SUB: ... GOTO ANKER_BACK
        
        GOSUB verkürzt das:
        
        Code: (dl )
        
        1 2 3 4 5 6 7
        
        GOSUB ANKER_SUB ... ANKER_SUB: ... RETURN
        
        Wohin will ich damit.
        
        Funktionen oder "SubCode" funktioniert ganz ähnlich. Du definierst eine Schlüsselwort und packst dahinter etwas Code der angesprungen werden soll, wenn dieses Schlüsselwort auftaucht. Wenn der CodeBlock ausgeführt wurde kehrt das Programm an die Stelle zurück an der die Funktion aufgerufen wurde.
        Der Schlüssel um ein Stück Subcode zu definieren lautet sub gefolgt vom Schlüssewort und einem Codeblock ({ ... }).
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        hallo(); #... sub hallo { print "hallo\n"; }
        
        das ist ganz ähnlich zu:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        goto hallo; BACK: #... hallo: do { print "hallo\n"; goto BACK; }
        
        Funktionen machen das doch übersichtlicher, oder?
        Aber natürlich gibt es Unterschiede. Der Code innerhalb einer Funktion wird nur ausgeführt wenn die Funktion angesprungen wird. Funktionen kann man an mehreren Stellen nutzen und Perl kehrt immer an die richtige zurück.
        
        Meist übergibt man Werte an Subcode, die verarbeitet werden sollen und das Ergebnis soll wider wo anders Verwendung finden.
        Bei GOTO oder GOSUB macht man das Über globale Variablen. Man definiert z.B ein Array "funktions_werte" und packt da alles rein was man in einem Stück Subcode haben will. Ein anderes Array "funktion_returns" nutzt man um Werte an den Ort des Aufrufs zurück zu geben. Als Code:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
        
        my @funktions_werte; my @funktion_returns; #... @funktions_werte=('Etwas text',2); goto ausgabe; ausgabe_return: if($funktion_returns[0] == 1) { print "Erfolgreich\n"; } else { print "FEHLER\n"; } #... ausgabe: do { my $text=$funktions_werte[0]; my $wiederholungen=$funktions_werte[1]; my $ok=0; for(my $i=0; $i<$wiederholungen; $i++) { print "$i : $text\n"; $ok++; } @funktion_returns=($ok); goto ausgabe_return; }
        
        Das ist eine Menge Tipperei und zudem kann dabei einiges Schief gehen. Was ist wenn man vergisst die Arrays zu leeren, wenn man einen neuen Codeblock anspringt.
        Aber es gibt noch eine Interessante Frage. Wie kann man den Code an mehreren Stellen nutzen?
        Man könnte mit übergeben wohin zurück gesprungen werden soll:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
        
        my @funktions_werte; my @funktion_returns; my $return_to; #... $return_to='ausgabe_return1'; @funktions_werte=('Etwas text',2); goto ausgabe; ausgabe_return1: if($funktion_returns[0]) { print "Erfolgreich\n"; } else { print "FEHLER\n"; } $return_to='ausgabe_return2'; @funktions_werte=('Anderer Text',1); goto ausgabe; ausgabe_return2: #... ausgabe: do { my $text=$funktions_werte[0]; my $wiederholungen=$funktions_werte[1]; my $ok=0; for(my $i=0; $i<$wiederholungen; $i++) { print "$i : $text\n"; $ok++; } @funktion_returns=($ok); goto $return_to; }
        
        Aber auch hier. Wie verhindert man Fehler? Man Muss immer drei Variablen im Auge behalten.
        Perl nimmt einem mit Funktionen die ganze Arbeit ab. Der Befehl return erlaubt es Werte an die Stelle zurück zu geben, an der die Funktion aufgerufen wurde. Das in Perl vordefinierte Array @_ nimmt die Werte auf die an eine Funktion übergeben werden sollen. Dazu braucht man die Werte nur in einer Klammer hinter den Namen der Funktion zu schreiben. Es wird immer Passend gefüllt und gelehrt.
        
        Also nun das selbe wie oben. Nur diesmal mit einer Funktion:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
        
        #... my @funktion_returns = ausgabe ('Etwas text',2); if($funktion_returns[0]) { print "Erfolgreich\n"; } else { print "FEHLER\n"; } ausgabe('Anderer Text',1); #... sub ausgabe { my $text=$_[0]; my $wiederholungen=$_[1]; my $ok=0; for(my $i=0; $i<$wiederholungen; $i++) { print "$i : $text\n"; $ok++; } return ($ok); }
        
        Und wieder hat man sich viel Tipperei und Fehlerquellen gespart.
        
        Wie du siehst sind Funktionen nicht schwer zu verstehen, sie sind Abkürzungen für das was du schon machst. Funktionen können noch mehr aber das sollte für den Anfang reichen.
        
        +3 replies
        
        topeg
        
        2012-06-20 22:03
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        2012-06-20T18:57:12 ?
        BTW:Ich habe jetzt 778 Zeilen Code geschrieben - alles für Überprüfung und Sicherheit, sowie für Ausgabetests! Und noch nicht wirklich eine relevante Zeile für die eigentliche Funktion des Scriptes! Verrückt oder...
        
        Mit goto kein Wunder. Ich wette zwei drittel ist dublzierter Code, den man zusammenfassen kann. Es hat schon Gründe warum sich Programmiersprachen verändern. Programmierer sind von Natur aus Tippfaul. :-)
        
        +2 replies
        
        geloescht
        
        2012-06-20 23:14
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        Hi topeg
        
        Erst mal vielen, vielen Dank für deine Ausführungen. Du hast dir wirklich sehr viel Mühe gemacht und alles ganz toll erklärt! Gosub und Return hatte ich noch wage im Kopf. *g*
        
        Also das mit dem sub ist jetzt doch noch mal klarer geworden. Man baue sich eine Funktion:
        
        Schreibwas(); <- Das wäre die Definition der Funktion. Wenn das auftaucht, springt Perl zu:
        
        sub Schreibwas
        Und hier dann die Arbeit des Programms...
        
        Bei return (der zu übergebende Inhalt) springt dann Perl zur Aufrufstelle zurück und hat den Wert auch schon dabei - klingt gut!
        
        Das mit verschiedene Stellen anspringen ist dann aber wieder doch etwas schwerer *g*.
        
        Danke nochmals - ich weiß es zu schätzen -Merci!
        
        Gruß
        
        HP-User
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        topeg
        
        2012-06-20 23:29
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Damit du mit den Termini nicht durcheinander kommst:
        
        Das ist die Funktions Definition: sub name { ... }
        Das ist der Funktions Aufruf: name( ... );
        
        2012-06-20T21:14:07 ?
        Das mit verschiedene Stellen anspringen ist dann aber wieder doch etwas schwerer *g*.
        
        Was meinst du? Das man schreiben kann
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
        
        funktion(); # ... funktion($wert1,$wert2); # ... if($bedingung) { funktion($wert); } # ... sub funktion { # ... }
        
        und Perl weiß immer wohin es zurück kehren muss? Stell dir einfach vor Perl hat jeden FunktionsAufruf durchnummeriert und merkt sich von wo es zum Code der Funktion gesprungen ist. Dahin kehrt es dann zurück, wenn der Code abgearbeitet ist. Ich habe dir ja gezeigt wie man so was mit goto machen kann.
        
        bianca
        
        2012-06-21 05:52
        
        User since
        2009-09-13
        6976 Artikel
        BenutzerIn
        
        2012-06-20T18:57:12 ?
        BTW:Ich habe jetzt 778 Zeilen Code geschrieben - alles für Überprüfung und Sicherheit, sowie für Ausgabetests! Und noch nicht wirklich eine relevante Zeile für die eigentliche Funktion des Scriptes! Verrückt oder...
        
        Verrückt nicht aber mit Sicherheit zuviel Code.
        Mein Vorschlag ist, zeige diese 778 Zeilen hier erst einmal, bevor du weiter machst.
        Dann könnte man dir diese Zeilen schon mal zusammen kürzen und du hättest gleich noch was gelernt. Denn wenn du mit diesem Code-Nutzen Verhältnis weiter machst wird dein Programm entweder nie fertig oder es ist nicht mehr wartbar. :)
        10 print "Hallo"
        20 goto 10
    - payx
      
      2012-06-21 09:40
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo HP-User,
      
      2012-06-20T17:18:52 ?
      Beispiel A)geht nur bei einem Leerzeiche in Folge?
      
      Code: (dl )
      
      $internetpost =~ s/ //g;
      
      Beispiel B) soll auch Space, space,space, usw. entfernen können?
      
      Code: (dl )
      
      $internetpost =~ s/\s+//g;
      
      Wo ist der Unterschied?
      
      Deine beiden Beispiele löschen beide alle Leerzeichen aus der Zeichenkette, so gesehen auf den ersten Blick kein Unterschied. Du könntest auch schreiben s/ +//g oder s/\s//g.
      
      Es gibt aber (zumindest) folgende Unterschiede:
      
      \s löscht außer Leerzeichen auch alle anderen Arten von Whitespace, also auch Tabs usw., vgl. perlretut: \s matches a whitespace character, the set [\ \t\r\n\f] and others.
      
      Wenn die Regexp mehr als ein Zeichen prüft, macht es trotz des g-Modifiers einen Unterschied, ob Du den +-Metacharacter verwendest oder nicht, z.B. s/€\s+/€/g löscht nach allen EUR-Zeichen alle Whitespacezeichen (alle anderen Whitespacezeichen im String bleiben aber unberührt). Oder s/^(\d+)\s+/$1\t/ ersetzt nach einer Ziffernfolge am Zeilenanfang alle Whitespacezeichen durch einen Tab. Beide würden ohne den +-Metacharacter (nach dem \s) jeweils nur das erste Whitespacezeichen nach dem EUR-Zeichen oder der Ziffernfolge ersetzen.
      
      HTH
      Grüße
      payx

View all threads created 2012-06-20 18:13.