[perl][asp] wegschrijven naar textfile

[sharkzor]

ik wil gewoon simpel wat regels naar een textfile wegschijven. Dit om verkochte producten naar een bestand te schijven die het boekhoudpakket kan importeren.
Nu heb ik wat gezocht op google, en dat bleek heel makkelijk met

use IO::Handle;
open OUTPUT, ">export.txt";
print OUTPUT "blablatekst\n";
close OUTPUT;

nu heb ik dat getest in de console, werkt prima. een .pl bestandje gemaakt en uitvoeren maar.

maar in een asp pagina (dus perl script) wil hij maar niet wegschrijven. Er gebeurt niks.
heb al geprobeert een dir export te maken en daar everyone full controll op te geven.
maar als ik dan 'open OUTPUT, ">e:\export\export.txt";' doe
gebeurt er niks...

weet iemand wat er mis is?

[NMe]

Heb je de schrijfrechten op die map goed ingesteld? Volgens mij moet het account IUSR_computernaam dan schrijfrechten krijgen op die map, maar pin me er niet op vast, want ik ben niet zo'n ASP-er.

[sharkzor]

-NMe- schreef op maandag 22 augustus 2005 @ 21:39:
Heb je de schrijfrechten op die map goed ingesteld? Volgens mij moet het account IUSR_computernaam dan schrijfrechten krijgen op die map, maar pin me er niet op vast, want ik ben niet zo'n ASP-er.

ook al geprobeerd. in de directory waar het .asp bestand ook in staat.

btw, ik merk nu op dat als ik via de commandline een test.pl naar e:\export\export.txt laat wegschrijven er ook niks gebeurt. terwijl ook op die dir iedereen full controll heeft.
open OUTPUT, ">e:\export\export.txt";
werkt dus niet
open OUTPUT, ">export.txt";
wel (alleen in de console dan)


edit:
ffe wat error output laten genereren, dit krijg ik terug van de browser:
Permission denied

en via de command line naar e:\export\export.txt wegschrijven vind hij weer een illegal argument... joepie! ik vermaak me weer kostelijk

[ Voor 18% gewijzigd door sharkzor op 22-08-2005 22:08 ]

[Juup]

1. De backslash is een escape karakter dus die moet je dubbel doen
2. Zorg dat je altijd de output van het open() commando controleert
3. Doe dit:

Perl:

#!/usr/bin/perl
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser); # alleen bij het testen, uitzetten voor productiecode

my $fileName = "c:/file.txt";
if (open (my $fh, '>', $fileName))
{
  print $fh "Aap\n";
  close ($fh);
}
else
{
  die "Could not open file $fileName for writing: $!";
}

[sharkzor]

Juup schreef op dinsdag 23 augustus 2005 @ 17:55:
1. De backslash is een escape karakter dus die moet je dubbel doen
2. Zorg dat je altijd de output van het open() commando controleert
3. Doe dit:

Perl:

#!/usr/bin/perl
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser); # alleen bij het testen, uitzetten voor productiecode

my $fileName = "c:/file.txt";
if (open (my $fh, '>', $fileName))
{
  print $fh "Aap\n";
  close ($fh);
}
else
{
  die "Could not open file $fileName for writing: $!";
}

damn, ik ben ook echt een aap. backslash helemaal vergeten ja!
tnx, ga het vanaaf gelijk testen