我的平面文件文件的路径是错误的吗？从Linux到Windows服务器

我是一个Perl新手。我正在尝试学习基于以前的人的工作和书籍，如Learning Perl和Modern Perl。我正在尝试更新此脚本，该脚本解释来自HTML表单的数据并将其写入文本文件，因为我们的实验室有兴趣重新启动并运行它。原始脚本是为在Linux服务器上使用而编写的，但我们已经从Linux切换到Windows服务器。 我没有管理员权限以查看错误消息的服务器是带有ActivePerl的Windows服务器。我很难搞清楚Windows等效路径，告诉Perl脚本在哪里写信息。从与管理员交谈看来，我们的内部网似乎映射在
E:
驱动器上，尽管这可能不是致命的错误。 当我在表单上输入数据后尝试在浏览器中运行此脚本时，它只返回一个泛型： 
CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers.
任何提示，文档，教程表示赞赏。谢谢。 
#!C:perlbinperl.exe -w -t

# Good programming practice dictates...
use strict;
use warnings;

# CGI.pm -- makes life easy
#Carp qw(fatalsToBrowser); outputs the error messages to the browser since there is no terminal to output error messages to. Should be removed before script is used in production.
use CGI::Carp qw(fatalsToBrowser) or die "Problems loading CGI.pm";

# Initialize the CGI Interface
my($cgi) = new CGI;

# Print the Header
print $cgi->header();

#The dbmopen call is now de-appreciated. IE: it no longer works
#Kept for archival reasons
#if (! dbmopen(%DB, "/vol/research/docs/old_site_files/eyesignup/data/eyesignup_NEW.dat", 0666))
#   {
#   print "Error -- Cannot open database.n";
#   exit;
#   }
# Tie is the correct way to do it now. But first we are going to experiment with writing to a flat .txt file.
open (Datastore, '>>',"E:/intranet/sds/research/docs/data.txt") or die "Can't open file: $!";



# Store variables and increment access count for this user
# So param('VARIABLE') is the name of the variables used in the HTML form while $custVARIABLE is the input for the database

my($custFirst) = $cgi->param('firstname');
my($custLast) = $cgi->param('lastname');
my($custGender) = $cgi->param('gender');
my($custAge) = $cgi->param('age');
my($custDiv) = $cgi->param('division');
my($custPhone) = $cgi->param('phone');
my($custEmail) = $cgi->param('email');
my($custEmployee) = $cgi->param('employee');
my($custInternet) = $cgi->param('internet');
my($custwww) = $cgi->param('www');
my($custDemographic) = $cgi->param('demographic');
my($custProjects) = $cgi->param('projectsworked');
my($custExperience) = $cgi->param('experience');
my($custWeekdays) = $cgi->param('Weekdays');

#Kept for archival reasons
#my($custName) = $cgi->param('name');
#my($custGender) = $cgi->param('gender');
#my($custDiv) = $cgi->param('division');
#my($custPhone) = $cgi->param('phone');
#my($custEmail) = $cgi->param('email');
#my($custInternet) = $cgi->param('internet');
#my($custwww) = $cgi->param('www');
#my($custDemographic) = $cgi->param('demographic');
#my($custExperience) = $cgi->param('experience');
#my($custTimes) = $cgi->param('times');
#my($custStudies) = $cgi->param('studies');
#$custTimes =~ s/rn/~/g;

#This takes the input and places it into an array, starting with the individual's
@InfoDB = $custFirst."|".$custLast."|".$custGender."|".$custAge."|".$custDiv."|".$custPhone."|".$custEmail."|".$custEmployee."|".$custInternet."|".$custwww."|".$custDemographic."|".$custProjects."|".$custExperience."|".$custWeekdays;
print Datastore (@InfoDB);
print "n";

#Kept for archivival reasons.
#$DB{$custName} = $custGender."|".$custDiv."|".$custPhone."|".$custEmail."|".$custInternet."|".$custwww."|".$custDemographic."|".$custExperience."|".$custTimes."|".$custStudies;

#Kept for archival reasons. dbmclose is de-appreciated
#dbmclose(%DB);
#Instead use untie. But first we're just going experiment with using a flat storage system.
#untie(%DB);
close (Datastore) or die;

#Now inform the person their data has been saved. This is terribly ancient code so I haven't gotten around to fixing this part yet.
print "Content-type: text/htmlnn";

print "<HTML>
<HEAD>
<TITLE>Thank you!</TITLE>
</HEAD>
<BODY>";

print "<H1><U>Thank You ".$custFirst."!</U></H1>
<P>We appreciate your assistance.</P>
<HR width="75%">";

print "<P><H3>The following information has been recorded:</H3>
Name: <I>".$custFirst."</I></p><P>
Gender: <i>".$custGender."</i></p><p>
Division: <i>".$custDiv."</i></p><p>
Phone: <i>".$custPhone."</i></p><p>
Email: <i>".$custEmail."</I></p><P>
How often do you use the internet?: <i>".$custInternet."</i></p><p>
How often do you visit the website?: <i>".$custwww."</i></p><p>
Are you familiar with demographic data?: <i>".$custDemographic."</i></p><p>
Do you have work experience in economics, business, or a related field?: <i>".$custExperience."</i></p><p>
Weekdays that you are available: <i>".$custWeekdays."</i></p><p>
";

print "
</BODY>
</HTML>";
我做了一些更改以弥补我正在使用的一些限制。例如，暂时将错误输出到浏览器，直到我开始工作。从旧的
dbmopen
调用（不再工作）转移到平面文件存储。     
2019-11-01 6 条评论
分享

没有找到相关结果

    已邀请:

    醒荒捆府绣 

    use CGI::Carp qw(fatalsToBrowser) or die "Problems loading CGI.pm";
    是你的问题。 
    $ perl -wle 'use CGI::Carp qw(fatalsToBrowser) or die "Problems loading CGI.pm";'
syntax error at -e line 1, near "qw(fatalsToBrowser) or"
Execution of -e aborted due to compilation errors.
    你的程序正在编译时死亡，所以你没有有用的语法错误。通常你可以在你的日志中看到这个，但你不能。 
    or die
    在
    use
    语句中是不必要的（和语法错误）。它已经抛出一个错误。 你真的需要在你工作的本地机器上使用Perl的副本来测试你的程序。用这个作为弹药。如果他们仍然不允许您使用工具，请使用不需要安装程序的草莓Perl便携版。 您还需要访问错误日志。向管理员询问。它们可以让您只访问日志，而无需授予您对服务器的完全访问权限。     
    2019-11-01 0 0
    分享

    吐兄

    您有以下几行： 
    # Print the Header
print $cgi->header();
    进一步向下： 
    #Now inform the person their data has been saved. This is terribly ancient code so I haven't gotten around to fixing this part yet. 
print "Content-type: text/htmlnn";
    两者都做同样的事情 - 你打印两次相同的内容类型标题。您可以删除一个或另一个
    print
    电话。另请快速浏览
    CGI.pm
    docs中对
    header()
    的引用，以了解您可以执行的其他操作。     
    2019-11-01 0 0
    分享

    捅瓶啡

    关于如何从命令行调试CGI.pm脚本有几个很好的资源： http://perldoc.perl.org/CGI.html#DEBUGGING http://www.perlmonks.org/?node_id=667813 http://oreilly.com/openbook/cgi/ch12_01.html 如何通过命令行将POST和GET数据发送到Perl CGI脚本？ 我建议你看看这些技巧。     
    2019-11-01 0 0
    分享

    细屠截殴些

    另外，作为黑暗中的粗暴刺： 
    open (Datastore, '>>',"E:/intranet/sds/research/docs/data.txt") or die "Can't open file: $!";
    我不是Windows的人，但我认为Windows中的路径名使用反斜杠，而不是几乎所有其他人都使用的正斜杠。 除了修复
    print
    调用之外，您还可以将路径名替换为： 
    E:intranetsdsresearchdocsdata.txt
        
    2019-11-01 0 0
    分享

    弛保矮瘦敖

    另一个建议可能与该问题没有任何关系，但只是一个冗余问题： 
    #!C:perlbinperl.exe -w -t

    -w
    旗帜与以下内容相同： 
    use warnings;
        
    2019-11-01 0 0
    分享
    为什么被折叠? 0 个回复被折叠

    要回复问题请先登录或注册

    或代码 OrCode.com 备案号：粤ICP备15020848号-1
    Escape time: 0.036396026611328