Thread String extrahieren (3 answers)
Opened by tophoven at 2006-01-20 11:28

tophoven
 2006-01-20 11:28
#62099 #62099
User since
2005-12-02
28 Artikel
BenutzerIn
[default_avatar]
Hallo zusammen,

ich muss aus einer eigelesenen Zeile einen Teil extrahieren. Ich schaffe dies auch mittels vieler Umwege. Geht es aber nicht noch einfacher.
Die Zeile sieht wie folgt aus:

$db_pass_word = 'meinPass2';       // Modified or inserted by Install Tool.

Wichtig ist mir hier der Wert >meinPass2<, welchen ich zur Weiterverarbeitung benötige. Den Aufbau der Zeile kann ich leider nicht verändern.

Mein Code: siehe Anhang.

Bin über jede Anregung Dankbar.

Besten Dank im voraus

Franz-Josef
-----------------------------------
...
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# $pwline enthält die ganze Zeile
if (defined($pwline)) {
   ($teil1, $wert) = split ( /\s=\s/, $pwline );
   ($wert, $teil2) = split ( /\s\/\/\s/, $wert );
   $dummy = substr($wert, 0, 1);
   if ( $dummy eq "'" ) {
       $wert = substr($wert,1 );
   }
   $laenge = length($wert);
   $dummy = substr($wert, $laenge-1, 1);
   while ( $dummy eq " ") {
       $wert = substr($wert, 0, $laenge-1);
       $laenge = length($wert);
       $dummy = substr($wert, $laenge-1, 1);
   }
   $laenge = length($wert);
   $dummy = substr($wert, $laenge-1, 1);
   if ( $dummy eq ";" ) {
       $wert = substr($wert, 0, $laenge-2);
   }
   print "Das Passwort lautet: >$wert< \n";
}

...

edit pq: code-tags hinzugefügt\n\n

<!--EDIT|pq|1137755429-->

View full thread String extrahieren