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

GwenDragon

2013-10-07 15:54

User since
2005-01-17
14748 Artikel
Admin1

Das geht mit CPAN:

File::Basename.

Code (perl): (dl )

use File::Basename;

my $string = "/opt/pmg/ptt/book1_test";
my $dirname  = dirname($string);

Oder so:

Code (perl): (dl )

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 Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten