Skrive til fil?

Du bør kunne få en bedre fejlbesked i din error-log i Apache.

jeg plejer at bruge FileHandle ala:
#!C:\perl\bin\perl.exe
use FileHandle;

my $logfile = new FileHandle(">>data.txt") or die ("fil fejl : $!");

print $fh "test hehe\n";

[Fri Sep 23 11:40:54 2005] [error] [client 127.0.0.1] Premature end of script headers: c:/perl/html/site/apache/cgi-bin/add.pl
[Fri Sep 23 11:40:54 2005] [error] [client 127.0.0.1] Can't use an undefined value as a symbol reference at c:\perl\html\site\apache\cgi-bin\add.pl line 6.

[Fri Sep 23 11:41:16 2005] [error] [client 127.0.0.1] Premature end of script headers: c:/perl/html/site/apache/cgi-bin/add.pl


Er de seneste fejl i loggen... hmm... Og er også forsøgt med mfalck's kode nu :)

prøv at sætte "use strict" ind i din kode .. du har en fejl på linie 6.

som regel er det også nemmere at køre perl scriptet i "hånden" (dvs kommandolinie eller ved at klikke på det" ) før du kører det igennem webserveren.

[Fri Sep 23 12:58:16 2005] [error] [client 127.0.0.1] Premature end of script headers: c:/perl/html/site/apache/cgi-bin/add.pl
[Fri Sep 23 12:58:16 2005] [error] [client 127.0.0.1] Global symbol "$fh" requires explicit package name at c:\perl\html\site\apache\cgi-bin\add.pl line 6.

[Fri Sep 23 12:58:16 2005] [error] [client 127.0.0.1] Execution of c:\perl\html\site\apache\cgi-bin\add.pl aborted due to compilation errors.


og koden ser således ud?

#!C:\perl\bin\perl.exe
use FileHandle;
use strict;
my $logfile = new FileHandle(">>data.txt") or die ("fil fejl : $!");

print $fh "test hehe\n";

Mon ikke han mener:

my $fh = new FileHandle(">>data.txt") or die ("fil fejl : $!");
print $fh "test hehe\n";

jo sorry - det var en klippeklistre fejl at den hed noget andet :-)

[Fri Sep 23 13:11:52 2005] [error] [client 127.0.0.1] Premature end of script headers: c:/perl/html/site/apache/cgi-bin/add.pl


Hedder fejlen efter jeg har rettet det :) det er ikk fordi jeg prøver at afvikle det i windows ?

well du skal have noget html-kode ud for at webserveren kan finde ud af det:

ala:

use CGI::Carp qw(fatalsToBrowser);
use CGI;
use FileHandle;
use strict;

my $query = new CGI;

print $query->header;
print $query->start_html('Hello World');
print "Hello, World.";

my $fh = new FileHandle(">>data.txt") or die ("fil fejl : $!");
print $fh "test hehe\n";

print $query->end_html;
exit 0;

Ja, hvis du kører det via en webserver. Du skal selv skrive dine HTML_headers ud.
Mindst en Content-Type: text/plain  - eller lignende. Hvorfor afprøver du det ikke først på en kommandolinie.

OK mange tak for hjælpem :)

Hvem vil ha points.?

Ingen point til mig, tak.

Okay... hva med dig mfalck?

jeps jeps