PERL Beginners - removing line feeds

Author

removing line feeds

Bruce Bowen

2006-01-21, 6:56 pm

I have files with this format

text
text
|fs

text
text
text
|fs

The goal here is to make this data into a flat file of continuous text (including the |fs). texttext|fstexttexttext|fs

I know how to get rid of the carriage returns using s/\n//g, but haven't had any luck in finding the way to get rid of the line feeds following the |fs.

Thanks,
Bruce Bowen

Shawn Corey

2006-01-21, 6:56 pm

Bowen, Bruce wrote:
> I know how to get rid of the carriage returns using s/\n//g,
> but haven't had any luck in finding the way to get rid
> of the line feeds following the |fs.

Sorry, \n means a line feed. Try:

s/\n//g; # Remove line feeds
s/\r//g; # Remove carriage returns

See:
perldoc perlre
perldoc perlretut
perldoc perlrequick

--

Just my 0.00000002 million dollars worth,
--- Shawn

"Probability is now one. Any problems that are left are your own."
SS Heart of Gold, _The Hitchhiker's Guide to the Galaxy_

* Perl tutorials at http://perlmonks.org/?node=Tutorials
* A searchable perldoc is available at http://perldoc.perl.org/

Xavier Noria

2006-01-21, 6:56 pm

On Jan 21, 2006, at 17:28, Bowen, Bruce wrote:

> I have files with this format
>
> text
> text
> |fs
>
> text
> text
> text
> |fs
>
> The goal here is to make this data into a flat file of continuous
> text (including the |fs). texttext|fstexttexttext|fs
>
> I know how to get rid of the carriage returns using s/\n//g, but
> haven't had any luck in finding the way to get rid of the line
> feeds following the |fs.

Perhaps that file has mixed newline conventions? Does

$entire_file_content =~ tr/\015\012//d;

do what you need?

-- fxn

Xavier Noria

2006-01-21, 6:56 pm

On Jan 21, 2006, at 21:43, Bowen, Bruce wrote:

> Perhaps that file has mixed newline conventions? Does
>
> $entire_file_content =~ tr/\015\012//d;
>
> do what you need?
>
> -- fxn
>
> That did not work. I've looked into the file with a hex editor it
> that's telling me there's a
> hex 0D 0A 0D 0A after each |FS. I've tried all of the combinations
> I can think of, none of which had any effect. The process seems to
> work up to the first time it gets to that hex data.

Looks like you've got a bug or some wrong assumption, would you
please send the code?

-- fxn

Tom Phoenix

2006-01-21, 9:55 pm

On 1/21/06, Bowen, Bruce <Bowenb@diebold.com> wrote:

> I know how to get rid of the carriage returns using s/\n//g, but
> haven't had any luck in finding the way to get rid of the line feeds
> following the |fs.

Have you tried using a substitution? A line feed is often the
character "\x0A", in case that helps. Good luck with it!

--Tom Phoenix
Stonehenge Perl Training

Sponsored Links