RegExp (Allgemeines zu Perl) - Perl-Community.de

joey

2003-09-24 01:19

User since
2003-09-24
3 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich bin auf der Suche nach einem regulären Ausdruck, der für mich folgendes erledigt.

Ich habe mit meinem Skript ein File gesucht und den Pfad, in dem ich das File gefunden habe, in einem String gespeichert.

Code (perl): (dl )

$file = /windows/d/Perl/test/3/5/23/7

Jetzt möchte ich einen Teilausdruck davon verwenden und einen neues File anlegen. Dieses soll die Form test-3-5-23-7.txt oder nur 3-5-23-7.txt haben.
Dazu müßte ich die Buchstaben aus meinem String löschen und die / in - umwandeln.

Also meine Frage ist, gibt es eine RegExp die diese Aufgabe meistert.

Ich danke Euch im Voraus für Eure Hilfe.

Gruß joey

format_c

2003-09-24 01:28

User since
2003-08-04
1706 Artikel
HausmeisterIn

Hi
So in etwa:

Code: (dl )

#!/usr/bin/perl
use warnings;
use strict;


my $var = "/windows/d/Perl/test/3/5/23/7";

$var =~ s%(\d+)/%$1-%g;
$var .= ".txt";

print $var;

Gruß Alex

Effizente Linuxshell

format_c

2003-09-24 01:32

User since
2003-08-04
1706 Artikel
HausmeisterIn

Besser noch so fallst auch buchstabenund Zahlen als Pfad ignoriert werden:

Code: (dl )

#!/usr/bin/perl
use warnings;
use strict;


my $var = "/windows/d/Perl/test/a3/5/23/7";

$var =~ s%(?<=/)(\d+)/%$1-%g;
$var .= ".txt";

print $var;

Gruß Alex

Effizente Linuxshell

havi

2003-09-24 01:37

User since
2003-08-04
2036 Artikel
BenutzerIn

... oder so:

Code: (dl )

#!/usr/bin/perl

use warnings;
use strict;

my $var = "/windows/d/Perl/test/3/5/23/7";

$var =~ s%\D*(\d+)/%$1-%g;
$var .= ".txt";

print $var;

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

format_c

2003-09-24 01:52

User since
2003-08-04
1706 Artikel
HausmeisterIn

Ja nur dein RegExt mach aus dem String das:

Code: (dl )

format_c@linux:~/perl_samples> perl
my $var = "/windows/d/Perl/test/a3/5/23/7";

$var =~ s%\D*(\d+)/%$1-%g;

$var .= ".txt";

print $var,"\n";

3-5-23-7.txt
format_c@linux:~/perl_samples>

Das sind die Vorteile von look-ahead's und look-behind's
;)
Gruß Alex

Effizente Linuxshell

format_c

2003-09-24 01:54

User since
2003-08-04
1706 Artikel
HausmeisterIn

OK man könnte sich jetzt streiten was die Fragestellung eigentlich war aber ist mir jetzt eigentlich auch egal ich geh nämlich jetzt ins Bett.

Gruß Alex

Effizente Linuxshell

havi

2003-09-24 01:56

User since
2003-08-04
2036 Artikel
BenutzerIn

[quote=format_c,23.09.2003, 23:52]Ja nur dein RegExt mach aus dem String das:

Code: (dl )

format_c@linux:~/perl_samples> perl
my $var = "/windows/d/Perl/test/a3/5/23/7";

$var =~ s%\D*(\d+)/%$1-%g;

$var .= ".txt";

print $var,"\n";

3-5-23-7.txt
format_c@linux:~/perl_samples>

Das sind die Vorteile von look-ahead's und look-behind's
;)
Gruß Alex[/quote]
Genau das war ja auch die Anforderung...

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

havi

2003-09-24 01:58

User since
2003-08-04
2036 Artikel
BenutzerIn

[quote=format_c,23.09.2003, 23:54]OK man könnte sich jetzt streiten was die Fragestellung eigentlich war aber ist mir jetzt eigentlich auch egal ich geh nämlich jetzt ins Bett.

Gruß Alex[/quote]
Oh - da hast du es eh schon angesprochen!
Naja, er fragte ja eigentlich nach beide... :)

Gute Nacht!

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

format_c

2003-09-24 02:00

User since
2003-08-04
1706 Artikel
HausmeisterIn

Er kanns sich ja aussuchen was er will.

Nacht!

Effizente Linuxshell

havi

2003-09-24 02:06

User since
2003-08-04
2036 Artikel
BenutzerIn

Genau!

Gute Nacht!

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/