Thread String Bearbeiten - Wörter extrahieren (13 answers)
Opened by tophoven at 2007-10-06 14:27

RPerl
 2007-10-06 19:25
#100415 #100415
User since
2006-11-26
384 Artikel
BenutzerIn

user image
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/usr/bin/perl

use warnings;
use strict;

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

## das regex was die werte extrahiert
my $pattern = " = \'(.*)\'";

## array wo die werte anschliessend gespeichert werden
my @output;

## regex anwenden
$string =~ /$pattern/;

## teilstrings in je 1 element unterbringen
@output = split(/,/, $1);

## erstes Element 0 ausgeben
print $output[0];


renee darf mich aber gerne eines besseren belehren :)
Aber es funktioniert ... *g*

Gruß

rperl

Oder aber

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl

use warnings;
use strict;

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

@output = split(/,/, $string);
($output[0]) =~ s/\$TYPO3_CONF_VARS\[\'EXT\'\]\[\'extList\'\] = \'//;

print $output[0]


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

View full thread String Bearbeiten - Wörter extrahieren