String Bearbeiten - Wörter extrahieren (Seite 2) (Allgemeines zu Perl)

renee

2007-10-06 20:20

User since
2003-08-04
14371 Artikel
ModeratorIn

RPerl+2007-10-06 17:25:40--

Code (perl): (dl )

my $string = "\$TYPO3_CONF_VARS['EXT']['extList'] = 'css_styled_content,tsconfig_help,context_help'; // Modified....";

Um bei solchen Sachen das Escaping zu vermeiden, sollte man Quote-Operatoren nehmen. Z.B.

Code (perl): (dl )

my $string = q~$TYPO3_CONF_VARS['EXT']['extList'] = 'css_styled_content,tsconfig_help,context_help'; // Modified....~;

(siehe perlop)

Quote
Bei zweiterem kam das split() als erstes zum Einsatz und der Rest wurde nachher mit s/// rausgefischt. Fragt sich was schneller laeuft.... renee?

Da split schneller sein sollte, würde ich sagen, dass zweiteres schneller ist, aber dafür müsste man einen Benchmark machen (ich kann das leider nicht im Kopf ;-) )

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/

renee

2007-10-06 20:28

User since
2003-08-04
14371 Artikel
ModeratorIn

Mein Vorschlag:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

## der entsprechende vorgegebene string
my $string = q~$TYPO3_CONF_VARS['EXT']['extList'] = 'css_styled_content,tsconfig_help,context_help'; // Modified....~;
if( $string =~ /'([^']+)';/ ){ #' Kommentar nur wegen Highlighting-Problemen im Board
    ## teilstrings in je 1 element unterbringen
    my @output = split /,/, $1;
    print $_,"\n" for @output;
}

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

2007-10-06 22:14

User since
2006-11-26
384 Artikel
BenutzerIn

user image

renee
Um bei solchen Sachen das Escaping zu vermeiden, sollte man Quote-Operatoren nehmen. Z.B.

Ok, danke fuer den Tipp.

renee
Da split schneller sein sollte, würde ich sagen, dass zweiteres schneller ist, aber dafür müsste man einen Benchmark machen (ich kann das leider nicht im Kopf ;-) )

RegEx zieht ja meistens den kuerzeren, afaik =)

Code (perl): (dl )

print $_,"\n" for @output;

Wie funktioniert das eigentlich? Steht in $_ das jeweilige Element und mit for() wird @output durchgelaufen, richtig?

Kann sein das ich mich morgen noch mal per PM melden wuerde, hab noch ein paar Fragen. Hab da ein nettes paper von dir gelesen (was mich schon sooft gerettet hat - kein Witz)

Gruß und schoenen Abend

RPerl

renee

2007-10-06 22:18

User since
2003-08-04
14371 Artikel
ModeratorIn

RPerl+2007-10-06 20:14:06--

RegEx zieht ja meistens den kuerzeren, afaik =)

Richtig...

RPerl+2007-10-06 20:14:06--
Code (perl): (dl )
print $_,"\n" for @output;
Wie funktioniert das eigentlich? Steht in $_ das jeweilige Element und mit for() wird @output durchgelaufen, richtig?

Richtig..

RPerl+2007-10-06 20:14:06--
Kann sein das ich mich morgen noch mal per PM melden wuerde, hab noch ein paar Fragen.

kein Problem...

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/