Re: How do I handle mid-line carriage returns in a flatfile database?

in reply to How do I handle mid-line carriage returns in a flatfile database?

I believe you should be able to just do something like this:

$entry =~ tr/\r//d;
[download]

This will strip every carriage return from $entry. Alternatively, you may wish to replace carriage returns with spaces (so that you don't get words running together):

$entry =~ tr/\r/ /;
[download]

I'd recommend the latter.

Comment on Re: How do I handle mid-line carriage returns in a flatfile database? Select or Download Code

Replies are listed 'Best First'.
Re: Answer: How do I handle mid-line carriage returns in a flatfile database? by Sol-Invictus (Scribe) on Feb 06, 2004 at 14:12 UTC
I think it's worthwhile pointing out that "\n" really means the local end of line marker, local as in the computer the script is run on. This is not a fixed standard as the following shows: Unix/Linux/OSX use `\012` Win/DOS usually uses `\015\012` for text IO So running a script under (Uni\|Linu\|OS)X containing `tr/\n//` on a file written on windows won't behave the way you might think. You spend twenty years learning the spell that makes nude virgins appear in your bedroom, and then you're so poisoned by quicksilver fumes and half-blind from reading old grimoires that you can't remember what happens next.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Answer: How do I handle mid-line carriage returns in a flatfile database?
by Sol-Invictus (Scribe) on Feb 06, 2004 at 14:12 UTC

This is not a fixed standard as the following shows:
Unix/Linux/OSX use \012
Win/DOS usually uses \015\012 for text IO

So running a script under (Uni|Linu|OS)X containing tr/\n// on a file written on windows won't behave the way you might think.

You spend twenty years learning the spell that makes nude virgins appear in your bedroom, and then you're so poisoned by quicksilver fumes and half-blind from reading old grimoires that you can't remember what happens next.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom