How to print bunch of data in a file without breaking in to new line

[Udhay]

Hi,

I'm new to the perl development. I need to print a bunch of data stored in a variable without breaking in to new line in a file. Please help me to solve this problem.

[toolic]

perldoc -f print

See also perlintro

[Udhay]

Hi,

Thanks, for your quick response.

I have stored all the contents of a HTML file in a variable. While i'm printing the data in a file, the content breaks in to new line exactly where the closing tag </p> or </span> or </div> appears, but it should not.

[zentara]

It can get confusing with html documents, because the html bracket return acts as a newline. Here is a simple way to clean your html.

#!/usr/bin/perl
use warnings;
use strict;

open (FH,"< zz.html") or die "$!\n";
read( FH, $buf, -s FH );
close FH;

#print "$buf\n";
$buf =~ s/\n//g;  # strips out all newlines

open (OH,"> zz_out.html") or die "$!\n";
print OH $buf;
close OH;

# zz_out.html will not have any newlines when viewed with a text edito
+r, but will still be viewable in a web browser

[zentara]

Since you are new to Perl, here is a simple script. Perl only prints a newline if you tell it to. The following prints the numbers 1 to 1000 all on one line, then prints some text on the next line.

#!/usr/bin/perl
use warnings;
use strict;

my $numberstring =  join ' ', (1..10000);
print $numberstring;  # printed without a newline
print "\n";                   # print a newline
print  "ciao\n";           #printed with a newline

[Rudolf]

You say you have stored the entire file into one variable, but perhaps your generalizing? Can you show how you stored it? for example: did you store it in a scalar ($var) or list (@var), and how did you print it to the file? perhaps when you took the html from whatever source, it contained newlines, to be sure there are none you can use

 chomp()

in a loop to write to this new file