parse text with Perl - case study

[kkazakos]

Hello,

I am a newbie in perl and i have the following problem.
I have as input a text file in the following format:
================================================== ==============================
[DEBUG] 5/24/07 5:35:50 PM : Finished to read one line : r 250 1006 -63 -65 91 -6 -8 319*
[DEBUG] 5/24/07 5:35:50 PM : Successfully opened DB.
[DEBUG] 5/24/07 5:35:50 PM : Going to read one line.
[DEBUG] 5/24/07 5:35:50 PM : Going to close DB.
[DEBUG] 5/24/07 5:35:50 PM : Successfully closed DB.
[DEBUG] 5/24/07 5:35:50 PM : Going to open DB.
[DEBUG] 5/24/07 5:35:50 PM : Finished to read one line : r 250 1015 -52 -72 91 -6 -8 319*
[DEBUG] 5/24/07 5:35:50 PM : Going to read one line.
[INFO] 5/24/07 5:35:50 PM : Call RaceField constructor.
[INFO] 5/24/07 5:35:50 PM : Opponent has no record of today.
[DEBUG] 5/24/07 5:35:50 PM : Finished to read one line : r 250 1019 -61 -83 92 -7 -8 319*
[DEBUG] 5/24/07 5:35:50 PM : Going to read one line.
[DEBUG] 5/24/07 5:35:50 PM : Going to close DB.
================================================== ===========================

I would like to parse this text file and extract in a new text file the following :

r 250 1006 -63 -65 91 -6 -8 319*
r 250 1015 -52 -72 91 -6 -8 319*
r 250 1019 -61 -83 92 -7 -8 319*

I do not know how to recognize the characters "r.....*" from each line.

please if you can help me

thank you
kk

[KevinADC]

if (/: (r\s+[\d -]+\*)/ ) {
  print $1;
}

beginning perl

[miller]

A slightly cleaner regex would be:

if (/Finished to read one line : (.*)/ ) {
    print $1;
}
 

- Miller