I am using perl2exe to convert my perl scripts into executable files. However, when i convert it and run the file it gives me an error on the module that im using. The script runs fine in perlbuilder. Is there something i have to do with modules before using perl2exe?<br>The error is :<br><br>Can't locate LWP/UserAgent.pm in @INC (@INC contains: PERL2EXE_STORAGE C:\TEMP lib\site ../lib .) at htmlexample.pl line 2
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
perl2exe problem
- Thread starter oinkers
- Start date
haven't used perlbuilder or perl2exe - but I'm thinking of it and would be very interested to hear how you're getting on<br><br>presume the module *is* in a @INC dir?<br><br>have you tried a test script with a minimal module? <p>Mike<br><a href=mailto:michael.j.lacey@ntlworld.com>michael.j.lacey@ntlworld.com</a><br><a href= Cargill's Corporate Web Site</a><br>
- Thread starter
- #3
CAN ANYONE TELL ME WHY MY SUB FUNCTION DOESNT WORK<br>#!/usr/bin/perl<br><br># Get the input from student_form.html<br>read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); <br>print"Content-type: text/html\n\n";<br><br># Split the name value pairs<br>@pairs = split(/&/, $buffer);<br><br>foreach $pair (@pairs)<br>{<br> ($name, $value) = split(/=/, $pair);<br><br> $value =~ tr/+/ /;<br> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;<br> $value =~ s/<!--(.¦\n)*-->//g;<br> if ($allow_html != 1)<br> {<br> $value =~ s/<([^>]¦\n)*>//g;<br> }<br><br> $FORM{$name} = $value; #input text box from the html form<br>}<br><br>##Place values in variable user and pass<br>chomp($user = $FORM{'USERID'}); #varaible from form<br> <br>open (from, "output.txt"
or die "Can't open file";<br>@line = sort <from>; #sort array id first <br><br>$i=1; #flag<br>$h=0;<br><br>foreach $input (@line)<br>{<br> @file = split (/,/, $input); #ignore commas then put in array @file <br><br> if($studid != $file[0]) #if theres no more to print exit<br> {<br> if($value eq $file[0])<br> {<br> $h++; #flag<br> print "<html>\n"; <br> print "<head>\n"; <br> print "<title>Search Results</title>\n";<br> print "</head>\n";<br> if($h eq 1) #call the heading once only<br> { <br> print "<h1>Search Results</h1>\n";<br> print "<HR>\n";<br> }<br> print "<BODY BGCOLOR=#ffffff>\n";<br> print "<BR>\n";<br> print "<b>Module($h) $file[6]<b>\n"; #write module name<br> print "<b>Mark1: $file[10]</b>\n"; #write mark 1<br> print "<b>Mark2: $file[12]</b>\n"; #write mark 2 <br> print "<b>Overall Mark: $file[14]</b>\n"; # write overall mark<br> print "<b>Grade: $file[15]</b>\n"; # write grade <br> print "</body>\n";<br> print "</html>\n";<br> }<br> else<br> {<br> $i++;<br> if($value != $file[0] && $i <= 1) <br> {<br> &noid; #call subroutine for no id entry<br> }<br> }<br> }<br>}<br>close(from);<br> <br>#print message if no entry found<br>sub noid<br>{<br> $IP = $ENV{'REMOTE_ADDR'}; <br> print "<html>\n";<br> print "<head>\n";<br> print "<title>Results</title>\n";<br> print "</head>\n";<br> print "<h1>Search Results</h1>\n";<br> print "<HR>\n";<br> print "<BODY BGCOLOR=#2F2F7D>\n";<br> print "<b>Sorry! no entry found!</b>";<br> print "</body>\n";<br> print "</html>\n";<br>} <br><br><br>
or die "Can't open file";<br>@line = sort <from>; #sort array id first <br><br>$i=1; #flag<br>$h=0;<br><br>foreach $input (@line)<br>{<br> @file = split (/,/, $input); #ignore commas then put in array @file <br><br> if($studid != $file[0]) #if theres no more to print exit<br> {<br> if($value eq $file[0])<br> {<br> $h++; #flag<br> print "<html>\n"; <br> print "<head>\n"; <br> print "<title>Search Results</title>\n";<br> print "</head>\n";<br> if($h eq 1) #call the heading once only<br> { <br> print "<h1>Search Results</h1>\n";<br> print "<HR>\n";<br> }<br> print "<BODY BGCOLOR=#ffffff>\n";<br> print "<BR>\n";<br> print "<b>Module($h) $file[6]<b>\n"; #write module name<br> print "<b>Mark1: $file[10]</b>\n"; #write mark 1<br> print "<b>Mark2: $file[12]</b>\n"; #write mark 2 <br> print "<b>Overall Mark: $file[14]</b>\n"; # write overall mark<br> print "<b>Grade: $file[15]</b>\n"; # write grade <br> print "</body>\n";<br> print "</html>\n";<br> }<br> else<br> {<br> $i++;<br> if($value != $file[0] && $i <= 1) <br> {<br> &noid; #call subroutine for no id entry<br> }<br> }<br> }<br>}<br>close(from);<br> <br>#print message if no entry found<br>sub noid<br>{<br> $IP = $ENV{'REMOTE_ADDR'}; <br> print "<html>\n";<br> print "<head>\n";<br> print "<title>Results</title>\n";<br> print "</head>\n";<br> print "<h1>Search Results</h1>\n";<br> print "<HR>\n";<br> print "<BODY BGCOLOR=#2F2F7D>\n";<br> print "<b>Sorry! no entry found!</b>";<br> print "</body>\n";<br> print "</html>\n";<br>} <br><br><br> Looks like you might need to escape out the <font color=red>#</font> sign in the BODY tag. Perl sees the '#' as the beginning of a comment and does not evaluate the rest of the line. Consequently, your BODY tag never closes.<br><FONT FACE=monospace><br>print "<BODY BGCOLOR=\#2F2F7D>\n";<br></font><br><br>Another approach might be....<br><FONT FACE=monospace><br>sub noid<br>{<br>$IP = $ENV{'REMOTE_ADDR'};<br>print <<EndPrint;<br><html><br><head><br><title>Results</title><br></head><br><h1>Search Results</h1><br><HR><br><BODY BGCOLOR=#2F2F7D><br><b>Sorry! no entry found!</b><br></body><br></html><br>EndPrint<br>}<br></font> <p> <br><a href=mailto: > </a><br><a href= > </a><br> keep the rudder amid ship and beware the odd typo
- Status
Similar threads
- Locked
- Question