New to PERL - i.e. five days! Hope the following is appropriate for this forum.

I have a simple task, but after a few hours of searching, cannot spot the answer, which I am sure is obvious.

I have PERL running on WinXP and I have text files like that shown at the bottom stored in MS Word.

I would like to read each line into a variable and then use regex to search for a string and extract the info. contained - it's a list of poker hands, so I want to know which hands I played, what was the result etc.

Question is what marks the line boundary - my little script seems to read about 20lines as one string, instead of each. In word, the end of each line seems to have a paragraph mark, but I can't search and replace for the ^p so, the only real paragraph mark is the one at the end of the document. NB. In word the following are displayed on consecutive lines, not with a double-line space as marked-up here.

What do I need to do to make PERL recognise the end of a line? In my little PERL book all the examples talk about manually inputted text, and not text read from a .txt file or something similar.

Thanks in advance for your help!

P.

------HAND 1------

Game #871100404: Texas Hold'em No Limit (15/30) - 2005/09/11 - 21:14:01 (UK)

Table "Tourney 1066310 - 21" Seat 9 is the button.

Seat 1: jaynos (1500 in chips)

Seat 2: Stev04055 (1480 in chips)

Seat 3: StevieD. (1360 in chips)

Seat 4: Lanc02061 (4870 in chips)

Seat 5: dutchsam (910 in chips)

Seat 6: Kreskin (1570 in chips)

Seat 8: richie200 (730 in chips)

Seat 9: carbonstu (1290 in chips)

Seat 10: TEXAN2000 (1290 in chips)

TEXAN2000: posts small blind 15

jaynos: posts big blind 30

----- HOLE CARDS -----

dealt to Stev04055 [Qs 8s]

Stev04055: folds

StevieD.: folds

Lanc02061: calls 30

dutchsam: calls 30

Kreskin: calls 30

richie200: raises to 730 and is all-in

carbonstu: folds

Hi,

Should be \n

I'm not really sure exactly what you're trying to do, or else I would have given you a bit more example code <G>

Hope that helps.

Cheers

Andy (mod)
andy@ultranerds.co.uk

---

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

It could be either "\n\r|\n" depending on the text editor... Some editors format the text file in UNIX ASCII (UltraEdit32, Notepad++) format instead of M$ ASCII (Notepad, Word(pad)). Or something like that...

An alternative is to use while (<DATA>) { chomp; ... } which will strip off new line characters. ;)

Is it not normally \r\n instead of \n\r?

s/\r?\n//sg;

FWIW, recently I had get rid of the \r even after chomp - not sure why...

chomp($Line);
$Line =~ s/\r//g; #strips off hard returns