Pattern matching: zahlen aus einem String herauslesen (Allgemeines zu Perl)

[thread]6034[/thread]

Pattern matching: zahlen aus einem String herauslesen

Leser: 1

monetron

2004-01-23 16:13

User since
2003-10-23
15 Artikel
BenutzerIn

Hallo Leute !
Mein Problem: In einer Liste @liste habe ich 1300 strings
die so aussehen: $liste[233]="-- 23 ----------------------"
Diese Zahl kann 1,2 oder mehrstellig sein und beginnt immer an 4 Stelle im String.
Nun möchte ich sie in eine schleife auslesen und damit arbeiten.
ungefähr so:
$liste[$zaehler]=~/^-- \d/;$ergebniss[$zaehler]=$1;
kann mir jemand bei dem PatternMatsch helfen?
Vielen Dank an Euch PerlSuperHirne !!

eisbeer

2004-01-23 16:36

User since
2003-08-29
347 Artikel
BenutzerIn

Code: (dl )

my @strings = ( ...);

for my $digit (@strings) {
    $digit =~ s/^--\s(\d+)\s-*$/$1/;
    # do sth with $digit
}

Ungetestet.
Gehe bei der Regex jetzt davon aus, das der
String aus 2 führenden Bindestrichen, gefolgt
von einem Leerzeichen, 1 bis n Zahlen, wieder
einem Leerzeichen und danach von beliebig vielen
Bindestrichen zusammengesetzt ist.

Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...

monetron

2004-01-23 17:27

User since
2003-10-23
15 Artikel
BenutzerIn

Hallo EISBAER !

der String sieht in Wirklichkeit so aus !
"-- 23 ----------------------------------- 868689"
An Ende befindet sich noch eine beliebig grosse
Zeilennummer aus dem Logfile. Ich habe versucht
Deinen Tip umzusetzen, aber es FUNZT noch net:

$diff=23;
$line='empty';
until ($match eq $diff){
$line=pop @errlist;

$line=~s/^--\s(\d+)\s-*$\s(\d+)/$match/;

unshift @difflist,$line;
}

Sprich hole alles aus @errlist von hinten raus und schreibe es in @difflist bis der String $diff matched.

2004-01-23 17:54

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

Hm, du hast scheinbar noch ein Verständnis-Problem bezüglich der Suchen-und-Ersetzen-Funktion mit regulären Ausdrücken (s///). Das zwischen den beiden ersten Schrägstrichen is der reguläre Ausdruck, mit dem der Ausdruck "gematched" werden soll, das hast du richtig gemacht, aber das zwischen den anderen ist das, mit dem das Gefundene dann ersetzt werden soll. In denem Fall soll nicht's ersetzt werden, sondern etwas gefunden werden, d.h. du brauchst kein s///, sondern ein m//, oder schlichtweg ein //.

Das Ganze konkret an deinem Beispiel:

Code (perl): (dl )

my @errlist = (...);
my @difflist;
my $diff = 23;
my $match;
do {
  my $line = pop @errlist || last;
  $match = ($line =~ /^-- (\d+)/);
  unshift @difflist, $line;
} until $match == $diff;

Und noch a bisserl was formelles: ;)
1. Bitte einrücken!
2. Bitte mit [ code ] [ /code ] oder [ perl ] [ /perl ] (jeweils ohne Leerzeichen) Perl-Code als solchen markieren...\n\n

monetron

2004-01-23 18:08

User since
2003-10-23
15 Artikel
BenutzerIn

>DS
damit komme ich die Meldung

Can't "last" outside a loop block at checklog.pl line 47.

2004-01-23 18:28

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

[quote=monetron,23.01.2004, 17:08]>DS
damit komme ich die Meldung

Can't "last" outside a loop block at checklog.pl line 47.[/quote]
Ups... das kommt davon wenn man's nicht testet... ;)

Ich wußte gar ned, dass man bei nachgestelltem until/while nicht lasten kann... naja... wieder was gelernt...

Zieh das until einfach vor...

Code (perl): (dl )

until ($match == $diff) { ... }

Wenn $diff auch 0 sein kann, dann einfach $match mit -1 oder initialisieren...

Ich hoffe es sind sonst keine Fehler mehr drin... ;)

renee

2004-01-23 18:36

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

my @liste = (...); # halt deine Zeichenketten
my @array = ();
foreach my $string(@liste){
  my (@zahlen) = $string =~ /(\d+)/g;
  push(@array,@zahlen);
}

print $_,"\n" for(@array); # gibt jetzt alle gefundenen Zahlen aus...

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/

eisbeer

2004-01-23 18:47

User since
2003-08-29
347 Artikel
BenutzerIn

suspekt, ich wusste garnet, das man aus
do-schleifen net last-en kann

Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...

2004-01-23 19:56

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

[quote=eisbeer,23.01.2004, 17:47]suspekt, ich wusste garnet, das man aus
do-schleifen net last-en kann[/quote]
Was meinst du mit do-Schleife? Ein do allein macht ja noch keine Schleife also ist do { last }; => Fehler, obwohl ich das ab und zu recht lästig finde...

do { } while (); wäre eine, aber vermutlich fasst er das wie &machwas while (); sub machwas { do {} } auf... naja... nicht wirklich so ;) ... aber getrennt halt, deswegen kein last...

Ich sollte aufhören zu reden/schreiben...

Nachtrag: So kann's nicht stimmen, denn dann müßte do { print 1 } until 1; das selbe machen wie print 1 until 1;, was natürlich nicht so ist, dann genau dazu is ja die Konstruktion do { } while/until (); da... komisch das...\n\n

eisbeer

2004-01-23 20:13

User since
2003-08-29
347 Artikel
BenutzerIn

Ja do alleine ist natürlich keine schleife, ich
habe blos nicht do-while oder do-until geschrieben,
weil ich dachte, es wäre klar :)

Stimme mit deiner "Vermutung" überei :)

Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...

View all threads created 2004-01-23 16:13.