Regex in split (gelöst) (Allgemeines zu Perl) - Perl-Community.de

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

2025-10-28 17:22:27
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
1 Benutzer online

[thread]15629[/thread]

submit to reddit

Regex in split [gelöst]

[gelöst]

Leser: 23

Articles: hide open all | hide show old branches

+15 replies
PETER_PAN2009

2010-11-13 13:44
User since
2009-08-24
111 Artikel
BenutzerIn
Hallo zusammen!

Ich möchte ganz gerne mit SPLIT den Dateinamen und die Endung in Variablen speichern.
Wenn der Dateiname nur aus einem Punkt besteht, klappt das wunderbar!
Code: (dl )

1 2

my $file = 'Perl.exe' my ($text,$endung) = split(/\./, $file);
Wenn der Dateiname aber mehrere Punkte hat, bekomme ich komische Werte. Ich habes auch schon folgendermaßen versucht:
Code: (dl )

1 2

my $file = 'Perl.TEST.exe' my ($text,$endung) = split(/\.$/, $file);
...$endung ist in diesem Fall undef!

Hat jemand ne Idee??

Vielen Dank
Gruß
Peter
- +3 replies
- ich
  
  2010-11-13 13:56
  User since
  2003-09-19
  120 Artikel
  BenutzerIn
  Hallo,
  
  versuch mal folgendes:
  
  Code (perl): (dl )
  
  my ($text,$endung) = $file =~ m/^(.*)\.(.*?)$/;
  
  Das wuerde allerdings nicht funktionieren, wenn garkein "." drin ist. Aber das kann man ja abfangen.
  If you tell the truth you don't have to remember anything.
  -- Mark Twain
  - PETER_PAN2009
    
    2010-11-13 14:04
    
    User since
    2009-08-24
    111 Artikel
    BenutzerIn
    
    Ich...der Vorschlag ist perfekt, prüfe davor einfach ab, ob indem Dateinamen ein Punkt existiert!!
    
    DANKE
  - bianca
    
    2010-11-13 14:28
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    @Hausmeister: das hier bitte löschen.
    Danke
    Last edited: 2010-11-13 14:32:18 +0100 (CET)
    10 print "Hallo"
    20 goto 10
- pq
  
  2010-11-13 14:28
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  HALLO PETER_PAN2009! ES IST NICHT ZU ÜBERSEHEN, DASS DU EIN FAN VON GROSSBUCHSTABEN BIST. ICH WÜRDE DICH ABER BITTEN, AUF TEXTE/ÜBERSCHRIFTEN KOMPLETT IN GROSSBUCHSTABEN ZU VERZICHTEN, DENN DAS BEDEUTET IM NETZ SCHREIEN. AUSSERDEM LENKT ES DIE AUFMERKSAMKEIT VON ANDEREN POSTINGS EHER AB, WAS AUCH UNFAIR IST.
  
  vielen dank
  
  titel geändert von "REGEX in SPLIT" zu "Regex in split"
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- RPerl
  
  2010-11-14 10:26
  User since
  2006-11-26
  384 Artikel
  BenutzerIn
  Oder aber:
  
  Code (perl): (dl )
  
  perl -wle 'my $str="foo.bar.lulz.exe"; my @res=split /\./, $str; print @res[0,-1]'
  
  Prost.
- +9 replies
- renee
  
  2010-11-14 12:24
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Warum nicht mit File::Basename arbeiten?
  
  Code: (dl )
  
  perl -MFile::Basename -e 'my ($file,$path,$suffix) = fileparse( "./hackday.txt", qr/\..*?\z/ ); print "$path -> $file -> $suffix\n" '
  
  Edit: Regex non-greedy gemacht
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - RPerl
    
    2010-11-14 13:19
    
    User since
    2006-11-26
    384 Artikel
    BenutzerIn
    
    OK, fileparse() aus File::BaseName ist natuerlich der Koenigsweg. Wieso bin ich darauf nicht schon frueher gekommen? ;-)
  - +7 replies
  - GwenDragon
    
    2010-11-14 13:28
    
    User since
    2005-01-17
    14868 Artikel
    Admin1
    
    2010-11-14T11:24:37 renee
    Warum nicht mit File::Basename arbeiten?
    
    Mögliche Antworten:
    a) Lernhunger wie regexe so sich benehmen
    b) Just for speed
    c) Programmierer hasst Module
    
    Ich empfehle auch immer Standard-Module zu verwenden, wo sie doch sowieso schon in Perl 5 drin sind.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - RPerl
      
      2010-11-14 13:54
      
      User since
      2006-11-26
      384 Artikel
      BenutzerIn
      
      b und c sind keine Gruende, imo.
    - +5 replies
    - topeg
      
      2010-11-14 14:51
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Wenn es nur um die Geschwindigkeit ginge kann man so was machen:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      my $file = 'Perl.TEST.exe'; my ($text,$endung)=($file,''); if(my $pos=rindex($text,'.')) { $endung=substr($text,$pos,(length($text)-$pos),'');} print "$text , $endung\n";
      
      Das ist gegenüber einer RegExp fast doppelt so schnell.
      - +4 replies
      - RPerl
        
        2010-11-14 17:43
        
        User since
        2006-11-26
        384 Artikel
        BenutzerIn
        
        Eben. Und wer weiss wie das ueberhaupt in File::Basename selbst implementiert ist. Vielleicht ist das ja sogar schneller als die Eigenimplementierung. Somit ist b auf jeden Fall zweifelhaft. :-)
        
        +3 replies
        
        topeg
        
        2010-11-14 22:52
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        File::Basename implementiert es über eine RegExp.
        
        +2 replies
        
        Crian
        
        2010-11-15 12:02
        
        User since
        2003-08-04
        5878 Artikel
        ModeratorIn
        
        Seltsam, aber normalerweise sollte sowas eh kein Flaschenhals sein.
        s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
        
        use strict; use warnings; Link zu meiner Perlseite
        
        topeg
        
        2010-11-15 12:54
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Normalerweise ist das wirklich kein Problem. Nur wenn man mit großen Datenmengen hantiert sollte man sich auch über so was Gedanken machen. Wenn es nur um 1000 oder 5000 Dateinahmen geht ist das auf heutigen Systemen problemlos.

View all threads created 2010-11-13 13:44.