Hi all,
I am new to perl and this forum. I am trying to setup a mailing list subscription functionality for customers to receive a periodic newsletter from me. My perl program grabs the html form 'email address' text input but I am then having issues writing this data to a plain text file.
Below is my html form followed by my perl script. When i run this on IIS, i dont receive any errors, nor does anything get written to the file. Any help would be most appreciated. :) email.html - <html>
-
<body>
-
<FORM ACTION="/new/email.pl" METHOD="POST">
-
Email Address: <INPUT TYPE="text" NAME="email" size=30>
-
<br><br><INPUT TYPE="submit" VALUE="Sign up">
-
</FORM>
-
</body>
-
</html>
-
email.pl - print "Content-type: text/html\n\n";
-
-
#Read email address from Form
-
if ($ENV{'REQUEST_METHOD'} eq 'POST')
-
{
-
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); -
@pairs = split(/&/, $buffer);
-
foreach $pair (@pairs)
{ -
($name, $value) = split(/=/, $pair);
-
$value =~ tr/+/ /;
-
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
-
$FORM{$name} = $value;
-
}}
-
-
#Write to file
-
my $file = '/new/email.txt';
-
-
open (FILE, ">>" . $file) or die "cannot open file for appending: $!";
-
flock (FILE, 2) or die "cannot lock file exclusively: $!";
-
print FILE $FORM{email};
-
close (FILE) or die "cannot close file: $!";
-
Thanks again,
Mick
Oct 15 '07
21  5823  eWish 971
Recognized Expert Contributor
I tested the exactly code that you have posted and it worked for me. It work to the file correctly. To me it sounds like the path is not correct.
Make the following modifications to your code and see what happens. As far as the -w. That is not needed it has already been done with the use warnings. - print "$ENV{'DOCUMENT_ROOT'}/NEW_____email.txt\n";
-
my $email_file = "$ENV{'DOCUMENT_ROOT'}/NEW_____email.txt";
Once you confirm the path the change it back.
yep, the path is correct. i am using an absolute reference in my .pl script below:
now the program writes '0' to file. anything i type in the textfield comes up as a zero in the txt file.
if i replace the below line
with - my $email_to_log = "test";
, i can get 'test' printed to the file. -
#!C:\perl\bin
-
-
use strict;
-
use warnings;
-
use CGI;
-
use CGI::Carp qw/fatalsToBrowser/;
-
-
my $q = CGI->new;
-
print $q->header('text/html');
-
print $q->start_html(-title =>'Website Name');
-
-
my $email_file = 'c:/cgi-bin/email.txt';
-
-
&process_data($q->param('email'));
-
-
sub process_data{
-
my $email_to_log = @_;
-
open my $EMAIL_LIST, '>>', $email_file || die "Can't open file $email_file: $!";
-
print $EMAIL_LIST "$email_to_log\n";
-
close $EMAIL_LIST;
-
}
-
-
print $q->end_html();
-
-
1;
-
i have just stripped the code write back so the email::validate content is removed however the above script does not receive compilation errors.
cheers,
mick
eWish 971
Recognized Expert Contributor
Change:
To:
The reason is without the () you are getting the number of elements in the array @_. With the () you are getting the contents of the element(s) of the array.
ok, yes that makes sense. however, if that is the case, should there not be a '1' entered into the file to indicate the one parameter (the email address) that was entered in the form?
i say this because when i remove the parethesis around that line you mention above, i receive a "email.pl: Use of uninitialized value in string at C:\cgi-bon\email.pl line 23" error. then a " " (space) is written to the file.
eWish 971
Recognized Expert Contributor
When I used the code from post #12 as is and used your form and I did get a 1 in the file. When I added the () like so:
I got the value of $q->param('email ') as expected.
ok, that's an interesting point then. using the same code, a 0 or " " gets written to file, depending on the parenthesis being present or not. This is quite confusing as i can:
A) Write the html form content (once captured) back to the screen and
B) As mentioned before, write text such as 'test' to the file.
My program isnt doing both though....picki ng up the form input and then writing that form input to file.
I cant for the life of me think what the problem may be!?
KevinADC 4,059
Recognized Expert Specialist
replace this: - sub process_data{
-
my $email_to_log = @_;
-
open my $EMAIL_LIST, '>>', $email_file || die "Can't open file $email_file: $!";
-
print $EMAIL_LIST "$email_to_log\n";
-
close $EMAIL_LIST;
-
}
-
with: - sub process_data{
-
open my $EMAIL_LIST, '>>', $email_file || die "Can't open file $email_file: $!";
-
print $EMAIL_LIST $q->param('email'), "\n";
-
close $EMAIL_LIST;
-
}
and report back
hi KevinADC,
there are no compilation errors or warnings. however, when run nothing but a space gets printed to the file. it then goes to a newline.
any other suggestions?
would this have anything to do with components missing from my install or my IIS set up?
cheers,
mick
KevinADC 4,059
Recognized Expert Specialist
personally, I am suspecting that your form field name "email" is not what you really have in your form. In windows case is not significant, but in perl it is, if the form field name is "Email" (or whatever) you have to use that exact spelling in the perl script. Now if the form field name is correct, I am stumped, I don't know why the value of the form field is not printing to the file.
KevinADC 4,059
Recognized Expert Specialist
also, look for any error in the html code that might cause the form to break, such as a missing quote or a miss-spelled tag/attribute.
Sign in to post your reply or Sign up for a free account.
Similar topics | |
by: Michael Levin |
last post by:
I've got the following problem. I'm a biologist and I have a device at work
which monitors my frog habitat. The device has a bunch of sensors, and runs
an embedded html server with some java functions defined which know how to
read the hardware sensorts. I access it from wherever I am via any browser,
and it displays the measurements (a set of simple numbers) as Java applets
in a simple html page. One entry in this page (a table cell) looks...
|
by: rxl124 |
last post by:
someone please please help w/ this one.
As I been working on this on and off and it just does not want to work.
1 #!/usr/bin/perl -w
2
3 $file = "/home/user1/dothis";
4 open(FILE, ">$file");
5 while($line = <FILE>) {
6 if ($line =~ /B/) {print FILE "A"};
7 if ($line =~ /A/) {print FILE "B"};
|
by: von |
last post by:
I am writing data from a Javascript to a text file using a Perl script and
it all works pretty well - except ...
This:
"Here is my data"
becomes:
"Here%20is%20my%20data" when it gets to the text file.
|
by: von |
last post by:
I am trying to write a single piece of data (that is generated from a
Javascript) to a text file on my server via a Perl script.
The Javascript is setup so that I can display the required data on my
website using the following HTML:
<span name='Data1' class='data1'></span>
But I need it sent to a text file. :(
|
by: Jean-David Beyer |
last post by:
I have some programs running on Red Hat Linux 7.3 working with IBM DB2
V6.1 (with all the FixPacks) on my old machine.
I have just installed IBM DB2 V8.1 on this (new) machine running Red Hat
Enterplise Linux 3 ES, and applied FixPack fp5_mi00069.tar to it. After
creating an instance, starting the database, creating a database, and
entering the table definitions, all of which seems to work OK, I entered a
tiny 8-row table and can do...
| | |
by: rahulthathoo |
last post by:
Hi
I have my home directory on my departments server. Somehow I am not
able to write to a file using a php code,
$myFile = "trial3.txt";
$fh = fopen($myFile, "a+") or die("can't open file");
Instead of a+ if i use r or w or anything, it does not work. Could this
be a permission thing? The entire directory had a 777 permission and
even i after i created a file and chmod'ed 777 to it, the code couldnt
open it. What could be the matter?...
|
by: KevinADC |
last post by:
Note: You may skip to the end of the article if all you want is the perl code.
Introduction
Uploading files from a local computer to a remote web server has many useful purposes, the most obvious of which is the sharing of files. For example, you upload images to a server to share them with other people over the Internet. Perl comes ready equipped for uploading files via the CGI.pm module, which has long been a core module and allows users...
|
by: Just_a_fan |
last post by:
I tried to put an "on error" statement in a routine and got the message
that I cannot user "on error" and a lamda or query expression in the
same routine.
Help does not list anything useful for explaining a "lamda" expression
and so I don't know what one is and I am not doing any database stuff in
the entire program.
So what does this error message really mean and what can I do to get an
On Error into the routine?
|
by: happyse27 |
last post by:
Hi All,
my html code is sno 1) and perl code is sno 2).
a) I tried to print $filename and it cant print out the value, only blank was displayed, and the file could not be uploaded. And it didnt display the html after the perl script executed. Using perl 5.1 and apache 2.2.9 version(apache installed and run without any errors and no warning, perl tested fine)
b) Also, when i clicked the html code to submit the upload of the...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it.
First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
| | |
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it.
Here is my compilation command:
g++-12 -std=c++20 -Wnarrowing bit_field.cpp
Here is the code in...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms.
Adolph will...
|
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols.
I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
| | |
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
| |
