regex von bis string (gelöst) (Allgemeines zu Perl)

[thread]18657[/thread]

regex von bis string [gelöst]

Tags: perl5 regex Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+6 replies
Gast Martin

2013-10-07 15:47

Hallo, ich lese mich gerade in regex ein bißchen ein brauche mal einen Tipp, wie ich an einen Teil des Strings, der ein Pfad ist komme.

my $string = "/opt/pmg/ptt/book1_test";

Ich möchte jetzt den Substring von Anfang des Strings bis inklusive book haben. Also "/opt/pmg/ptt/book".

Der Pfad vor book ist variabel (also unbekannt). Das "book" ist immer bekannt. Was danach folgt ist variabel.

Für Tipps wäre ich dankbar.

LG
Last edited: 2013-10-07 15:51:45 +0200 (CEST)
- GwenDragon
  
  2013-10-07 15:54
  User since
  2005-01-17
  14533 Artikel
  Admin1
  Das geht mit File::Basename.
  
  Code (perl): (dl )
  
  1 2 3 4
  
  use File::Basename; my $string = "/opt/pmg/ptt/book1_test"; my $dirname = dirname($string);
  
  Oder so:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my $string = "/opt/pmg/ptt/book1_test"; my @path = split /\//,$string; delete @path[-1]; my $path = join '/',@path;
  
  oder so:
  
  Code (perl): (dl )
  
  1 2 3
  
  my $string = "/opt/pmg/ptt/book1_test"; my ($path) = ($string =~ m|^(/.+/)|); print $path;
  
  //EDIT: Oh, du willst gar nicht den Pfad sondern Pfad+Dateinamensteil. OK. Dann gehts so nicht.
  Ich verstand unter Pfad technisch was anderes.
  
  Als Regex sähe es so aus:
  
  Code (perl): (dl )
  
  1 2
  
  my $string = "/opt/pmg/ptt/book1_test"; my ($path) = ($string =~ m|^(/.+/book)|);
  
  Last edited: 2013-10-07 16:06:32 +0200 (CEST)
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- martin.g
  
  2013-10-07 15:55
  User since
  2013-09-20
  40 Artikel
  BenutzerIn
  Code: (dl )
  
  1 2 3 4
  
  my $string = "/opt/pmg/ptt/book1_test"; my ($path, $name) = ($string =~ m~^(.+/book)(.*)$~); print $path; # /opt/pmg/ptt/book print $name; # 1_test
- FIFO
  
  2013-10-07 15:58
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  Naja, wenn nach dem konstanten 'book' nicht noch eins kommt:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my $string = "/opt/pmg/ptt/book1_test"; my $path_incl_book; if ( $string =~ / (.* book) /x ) { $path_incl_book = $1; }
  
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
- +2 replies
- Muffi
  
  2013-10-07 16:04
  
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  
  Wenns nicht explizit eine Regex-Übung sein soll würd ichs wohl auch mit File::Basename machen, ansonsten
  /(.*\/book)/
  1 + 1 = 10
  - Gast Martin
    
    2013-10-08 07:28
    
    Vielen lieben Dank!!
    
    Grüße
    Last edited: 2013-10-08 08:21:14 +0200 (CEST)

View all threads created 2013-10-07 15:47.