Programming Forums > Script Programming > Perl

kruptof · Jul 27th, 2006, 2:30 PM

i wrote this script on my windows box:

use CGI;
$results=new CGI;

$comment=$results->param("comments");
$name=$results->param("name");
open(DAT,">>Comments.txt");
$i=60;
$j=0;
$szlen=length $comment;
print DAT $name;
print DAT "\n";

if($szlen<60)
{
	print DAT $comment."\n";
}
else
{
	
	while($i<=$szlen)
	{
		print DAT substr($comment,$j,$i)."\n";
		$j=$i;
		$i+=60;
	}
	if($i<$szlen)
	{
		print DAT substr($comment,$i,$$szlen-$i)."\n";
	}
}
close(DAT);

print "Content-type:text/html\n\n";

and i uploaded to my hosting company's linux server, but instead of getting a newline were i was expecting a new line i got this small rectangle between the texts, for example this the output on my windows box:

(Toggle Plain Text)

Test
Test

and this is the output on my server's linux box:

(Toggle Plain Text)

Test
Test

even when i type it in here it converts to a newline...any ways this is how the above is supposed to look "Test [] Test" (something like that). So
can some please tell me why this is. I thank you in advance for your replies.

kruptof · Jul 27th, 2006, 5:17 PM

okay after some googling and alot of cursing and head scatching i found an alternative to this problem, which seemed to help, so decided to test this, so halfway through my testing i said "i wonder if i refresh the page what would happen", well i found out, it wrote to the file again and the same thing was outputted twice, then i thought how about i redirect the user to another page, so i tried, but no matter what page i redirected the user to i ke getting the 404 page not found page, i even tried using full paths, but still 404,does any body know what on earth is happening here, any help is greatley appreciated.

Regards, Kruptof

Arevos · Jul 28th, 2006, 9:26 AM

Windows uses "\r\n" as its linebreak. Linux and other Unix-like systems use "\n". A simple substitution should convert between the two (s/\n/\r\n/g).

As for the redirect - can I see your redirection code?

kruptof · Jul 28th, 2006, 12:32 PM

thanks Arevos......................ok here is the code for the redirection.....no matter what address i put in i will always get the 404 error:

(Toggle Plain Text)

#!/usr/bin/perl
use CGI;
$results=new CGI;

$comment=$results->param("comments");
$name=$results->param("name");
open(DAT,">>Comments.txt");
$i=60;
$j=0;
$szlen=length $comment;
print DAT $name."<br>";
print DAT "\n";

if($szlen<60)
{
	print DAT $comment."<br>";
}
else
{
	
	while($i<=$szlen)
	{
		print DAT substr($comment,$j,$i)."<br>";
		$j=$i;
		$i+=60;
	}
	if($i<$szlen)
	{
		print DAT substr($comment,$i,$$szlen-$i)."<br>";
	}
}
close(DAT);
open(DAT,"Comments.txt");
my @cont=<DAT>;
close(DAT);
print "location: home.html"; #<- this is the RELOCATion PART
print "Content-type:text/html\n\n";

Arevos · Jul 28th, 2006, 12:40 PM

Try:

 Perl Syntax (Toggle Plain Text) 
print "Status: 302 Moved\nLocation: $url";
print "Status: 302 Moved\nLocation: $url";

Where $url is the URL you wish to which you wish the user to be redirected.

kruptof · Jul 28th, 2006, 1:01 PM

still gettting the same error, here is the new code:

(Toggle Plain Text)

#!/Perl/bin/perl
use CGI;
$results=new CGI;

$comment=$results->param("comments");
$name=$results->param("name");
open(DAT,">>Comments.txt");
$i=60;
$j=0;
$szlen=length $comment;
print DAT $name."<br>";
print DAT "\n";

if($szlen<60)
{
	print DAT $comment."<br>";
}
else
{
	
	while($i<=$szlen)
	{
		print DAT substr($comment,$j,$i)."<br>";
		$j=$i;
		$i+=60;
	}
	if($i<$szlen)
	{
		print DAT substr($comment,$i,$$szlen-$i)."<br>";
	}
}
close(DAT);
open(DAT,"Comments.txt");
my @cont=<DAT>;
close(DAT);
$url="/test\.html";
print "Status: 302 Moved\nLocation: $url";
print "Content-type:text/html\n\n";

kruptof · Jul 28th, 2006, 1:30 PM

after some googling and some trails and errors i have found this:

(Toggle Plain Text)

print "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 3.2//EN'>";
print "<html><head><title>$page_title</title>";
print "<META HTTP-EQUIV='Refresh' CONTENT='0; URL=http://www.somedomain.com'>";
print "</HEAD><BODY></BODY></HTML>";

there is still some thing wrong with this html but i will post that in the html forum.......thank you everyone for the help.

Arevos · Jul 28th, 2006, 1:50 PM

What happens if you put the full URL in? And what happens when you go to said URL normally?

kruptof · Jul 28th, 2006, 2:34 PM

i got an error 404

Arevos · Jul 28th, 2006, 2:38 PM

In both cases? Then surely it's nothing to do with the redirect script, but because the URL you're going to does not exist.

Jul 28th, 2006, 12:40 PM	#5
Arevos Programming Guru Join Date: Aug 2005 Location: England Posts: 1,499 Rep Power: 4	Try: Perl Syntax (Toggle Plain Text) print "Status: 302 Moved\nLocation: $url"; print "Status: 302 Moved\nLocation: $url"; Where $url is the URL you wish to which you wish the user to be redirected.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
C# corruption!!!	Kilo	C++	32	May 21st, 2006 8:44 PM
Masm	rsnd	Assembly	4	May 20th, 2006 9:05 PM
cgi/perl script + IE problem	joyceshee	Perl	2	Jan 24th, 2006 11:10 AM
libraries	matko	C	1	Jan 22nd, 2006 2:12 PM
Problem with Perl script	eclipsed4utoo	Perl	1	Dec 2nd, 2005 1:33 PM

Jul 28th, 2006, 9:26 AM	#3
Arevos Programming Guru Join Date: Aug 2005 Location: England Posts: 1,499 Rep Power: 4	Windows uses "\r\n" as its linebreak. Linux and other Unix-like systems use "\n". A simple substitution should convert between the two (s/\n/\r\n/g). As for the redirect - can I see your redirection code?

Jul 28th, 2006, 1:50 PM	#8
Arevos Programming Guru Join Date: Aug 2005 Location: England Posts: 1,499 Rep Power: 4	What happens if you put the full URL in? And what happens when you go to said URL normally?

Jul 28th, 2006, 2:38 PM	#10
Arevos Programming Guru Join Date: Aug 2005 Location: England Posts: 1,499 Rep Power: 4	In both cases? Then surely it's nothing to do with the redirect script, but because the URL you're going to does not exist.

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Script Programming > Perl

Script problem or platform conversion error