perl - auslesen->in variable schreiben (Allgemeines zu Perl)

[thread]6484[/thread]

perl - auslesen->in variable schreiben

Gast Gast

2004-08-10 17:46

Hallo Zusammen,

Ich weiss, dass das für viele sicher überhaupt kein Problem ist...aber ich krieg das ned hin.

Ich habe einen String:CONFIG{asdasdasdsda}

Jetzt will ich nach CONFIG{ suchen, das in eine Variable schreiben, dann den Rest noch in eine andere Variable, wie mache ich das?

Für eure Hilfe bin ich sehr Dankbar.

renee

2004-08-10 17:51

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

my $string = 'CONFIG{asdasdasdsda}';

my ($conf,$val) = $string =~ /(CONFIG){([^}]+)}/;
print $conf,"\t",$val;

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/

frodus

2004-08-10 18:27

User since
2003-09-26
147 Artikel
BenutzerIn
[default_avatar]

[quote=renee,10.08.2004, 15:51]

Code: (dl )

my $string = 'CONFIG{asdasdasdsda}';

my ($conf,$val) = $string =~ /(CONFIG){([^}]+)}/;
print $conf,"\t",$val;

[/quote]
Hi Renee,

kannst du mal Deine RegExp ein wenig neher erlaeutern?
Insbesonder den Teil:

Code: (dl )

([^}]+)

ptk

2004-08-10 18:37

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Ich wuerde stattdessen

Code: (dl )

/(CONFIG){(.+?)}/

schreiben --- das macht ungefaehr das gleiche, ist aber etwas lesbarer.

2004-08-10 18:52

User since
2003-08-04
247 Artikel
BenutzerIn
[default_avatar]

Wußte gar ned, daß man { und } in diesem Fall nicht quoten muss... wieder was gelernt... :)

Crian

2004-08-11 12:50

User since
2003-08-04
5873 Artikel
ModeratorIn

Ich ziehe explizite Zeichenklassen eigentlich immer dem . vor. Da kann einfach weniger bei schief gehen. In diesem Beispiel ist es wirklich egal, aber das ist es nicht immer.

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

View all threads created 2004-08-10 17:46.