Help ! Unable to create tmp file using a CGI script

[Arun]

This is the code that I am using to create the file and am
failing.Please help.
thanks

#!/opt/bin/perl -wT
use strict;
use IO::File;

$file = "$ENV{'PWD'}" . "$ENV{'PATH_INFO'}";
$tmp = $file . ".tmp";
$tmp =~ s/\//@/g; # make a unique tmp file name from the path
$tmp = "/tmp/$tmp";

$fh = IO::File->new("> $tmp")
or die "Couldn't open $tmp for writing: $!\n";

while (<STDIN>)
{
if(defined $fh)
{
print $fh "$_\n";
}
}
$fh->close;

 

[Sherm Pendley]

$file = "$ENV{'PWD'}" . "$ENV{'PATH_INFO'}";
$tmp = $file . ".tmp";
$tmp =~ s/\//@/g; # make a unique tmp file name from the path

Wow, two FAQs in three lines of code. That takes talent.

Have a look at:

perldoc -q always quoting
perldoc -q temporary

$fh = IO::File->new("> $tmp")
or die "Couldn't open $tmp for writing: $!\n";

Why did you include an error message if you're not going to read what it
prints? The message in $! will tell you why it couldn't open $tmp.

sherm--

 

[Martin Kissner]

Arun wrote :

#!/opt/bin/perl -wT
use strict;
use IO::File;

$file = "$ENV{'PWD'}" . "$ENV{'PATH_INFO'}";
$tmp = $file . ".tmp";
$tmp =~ s/\//@/g; # make a unique tmp file name from the path
$tmp = "/tmp/$tmp";

$fh = IO::File->new("> $tmp")
or die "Couldn't open $tmp for writing: $!\n";
[...]

besides your problem of opening the file:

use strict;
[...]
my file
my tmp
[...]
my $fh
[...]

HTH

 

[Martin Kissner]

Arun wrote :

#!/opt/bin/perl -wT
use strict;
use IO::File;

$file = "$ENV{'PWD'}" . "$ENV{'PATH_INFO'}";
$tmp = $file . ".tmp";
$tmp =~ s/\//@/g; # make a unique tmp file name from the path
$tmp = "/tmp/$tmp";

$fh = IO::File->new("> $tmp")
or die "Couldn't open $tmp for writing: $!\n";
[...]

besides your problem of opening the file:

use strict;
[...]
my $file
my $tmp
[...]
my $fh
[...]

HTH