Your do is passed along to print as a list which takes the list, inserts a space between the items, and prints it out. Also since you are assiging a value to $i it is passed along to print to be printed also.

Additionally, you are loading the entire file into your programs memory space and then tossing all but the first 30 lines.

#starting from the open
print header;
print start_html('A Simple Example');
my $i=0;
while(<INPUT>)
{
  $i++;
  last if $i>30;
  print;
}
close(INPUT);
print end_html;
[download]

I tried to make this example similar in spirit to the original. This method only reads the first 30 lines and only uses memory for one at a time. The file you are printing is not html though so it will still not look right at all in a browser. You may want:

print header('text/plain');
#the while here
#no start or end html prints
[download]

This will print the contents as a text file in which the line breaks and spacing from the file will be preserved.

I use the apache 2.0.46 server for windows2000 and the IE5.
The problem is that the browser dont print anything.
But in the "view source" there are all i want.
So, the problem can be the header type.

do{
    $array[$i],

    $i=$i+1;
}while($i<30);
[download]

print for @array;
[download]

print start_html('A Simple Example'),
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Since print prints a list, you don't even need the for:

print @array;
[download]

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated

This solution dont resolve my problem.
Now dont print anything in monitor.


#!C:/server/Perl/bin/perl.exe

use CGI qw(:standard);
use XML::Checker::Parser;
use strict;
use warnings;

my $checker = new XML::Checker;

open(INPUT, "dtdversao3.dtd") or die "$!";
my @array=<INPUT>;
close(INPUT);
my $i=0;
     print header;
     print start_html('A Simple Example');


     print for @array;


print end_html;
[download]

Are you sure about that? :) Remember, DTD's get parsed by the browser - try viewing the source.

You probably should use dga's excellent suggestion and

print header('text/plain');
[download]

instead.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)