Re: Newbie - convert carriage return in a variable

I have tried with HTML::Parser

I wonder why, since there is no HTML to parse. Instead see this solution using s///:

use strict;
use warnings;

use Test::More tests => 1;

my $have = 'foo
bar';
my $want = 'foo<br />bar';

$have =~ s/\n/<br \/>/;

is $have, $want;
[download]

Hopefully you will see here that I have included nothing which is superfluous to the task at hand.

Comment on Re: Newbie - convert carriage return in a variable Download Code

Replies are listed 'Best First'.
Re^2: Newbie - convert carriage return in a variable by Balawoo (Novice) on Feb 17, 2019 at 17:50 UTC
Thanks hippo, In this case the script will just replace the first end of line found. If I want to replace more than one as `use strict; use warnings; use Test::More tests => 1; my $have = 'foo bar'; my $want = 'foo<br /><br />bar'; $have =~ s/\n/<br \/>/; is $have, $want;` [download] I think I need to us chomp function but It's not clear how to use it. `use strict; use warnings; use Test::More tests => 1; my $have = 'foo bar'; my $want = 'foo<br /><br />bar'; $have =~ s/\n/<br \/>/; is $have, $want; my @data=split(/\n/<br \/>/); foreach my $have (@data) { $want = $have; }` [download] But it's not working :(	[reply] [d/l] [select]
Re^3: Newbie - convert carriage return in a variable by poj (Abbot) on Feb 17, 2019 at 18:09 UTC
Add the g modifier to your regex `#!perl use strict; my $text = 'foo bar'; $text =~ s/\n/<br \/>/g; print $text;` [download] poj	[reply] [d/l]
Re^4: Newbie - convert carriage return in a variable by Balawoo (Novice) on Feb 17, 2019 at 19:06 UTC
Thanks @poj It's solved	[reply]