Have you looked at the CGI.pm docs?
There are two parts to uploading docs via a webpage. First, you have supply the
correct type of form on the webpage:
form method=post action=url/to/your/script enctype=multipart/form-data
input type=file name=myfile size=40
input type=submit value=upload
Hi! I'm trying to install the PDF-API2 ppm (btw: will that be updated
soon?), but I get an error: no suitable installation target found for
package PDF-API2. What does this mean?
Thanks,
Ricky
-
Richard MorseSystem
steve silvers [mailto:[EMAIL PROTECTED]] wrote:
open(FILE, d:\path_to\textfiles\test.txt) or die Can't open $!;
So, um, you do know that \t is a tab in double-quoted text?
Try:
open(my $file, d:/path/to/your/test.txt) or die(Can't open: $!)
or:
open(my $file,
Malcolm Debono [mailto:[EMAIL PROTECTED]] wrote:
#!C:\Perl\bin\perl
use CGI; # Use the CGI.pm module
use strict;
use CGI qw/:standard/;
my $q = new CGI;
my $url = param('url');
my ($html,$meta,$lockit,$lines,$path_to_input_file,@metas,@lines);
use LWP::Simple;
my $pagecontent =
Michael D. Smith [mailto:[EMAIL PROTECTED]] wrote:
I saw this link:
http://www.activestate.com/PPMPackages/zips/5xx-builds-only/?_x=1
but when I click on a zip file on that page, I get the zip
file, on-screen,
in text (mostly garbage actually), instead of the expected
download dialog
$Bill Luebkert [mailto:[EMAIL PROTECTED]] wrote:
[EMAIL PROTECTED] wrote:
I tried the following to use SMTP to send email:
$smtp = Net::SMTP - new (luxn.com);
$smtp - mail($optFrom);
Can't call method mail on an undefined value at
mailtest.pl line 8
line 8 is:
Charles Oppenheimer [mailto:[EMAIL PROTECTED]] wrote:
Hi folks. I have a question... I wanted to create a
sub procedure that takes an operator as an argument,
like so:
compare(1,,2);
sub compare {
my ($value1,$operator,$value2) = @_;
if ($value1 $operator $value2) {
If you are certain that the acld.exe accepts input from stdin (as opposed to
actually reading directly from the console, or creating a GUI input stream,
etc), you might try looking at IPC::Open2. This will allow you to read and
write from and to the stdout and stdin of the program. Make sure
Simon Oliver [mailto:[EMAIL PROTECTED]] wrote:
First of all, DBD::ODBC now has direct $dbh-primary_key()
support so use
that instead.
Which version has this? I'm running DBD::ODBC v0.28 -- I don't see a more
recent PPM in the ActiveState repositories, and I don't have the MSVC++ compiler
to
Here's how I would write this -- I don't know if it will work, but you might try
it...
#!perl
use strict;
use warnings;
my $done = 0;
while(!done) {
display_menu();
print == ;
my $choice = ;
chomp $choice;
if ($choice eq '00') { $done++; }
elsif
my $data;
{
open(my $file, , $file_name) or die (can't open $file_name: $!);
local $/ = undef;
$data = $file;
close($file);
}
That's one way...
HTH,
Ricky
-Original Message-
From: Pankaj Agarwal [mailto:[EMAIL PROTECTED]]
Sent: Saturday 13 April 2002
2002 11:08 AM
To: Morse, Richard E.
Subject: RE: Write to a file issue
I tried but it didn't work
In fact I wanted to write only one time for exemple test
but with my code it
adds test always i run my program.
Thanks if you could help me.
I would be very grateful
Try this:
my @results = `ping $ip`;
HTH,
Ricky
-Original Message-
From: nicole [mailto:[EMAIL PROTECTED]]
Sent: Tuesday 02 April 2002 10:28 AM
To: [EMAIL PROTECTED]
Subject: Perl's exec and system functions
Hello. I am new to the mailing list. I come from a PHP background
that file
and rename it as required. As it's only a file (and a small one when it's
empty), that makes it easy to throw around.
- Mike DeWolfe
- Original Message -
From: Morse, Richard E. [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, February 28, 2002 7:42 AM
Subject: MSAccess file
Hah! I know what the problem is!
ASCII character 10 happens to be either \n -- so when you print this number to
the file, you get a newline character for one of the bytes, so your
while(READ) loop finds three lines in the file instead of two.
I think that in order to read this number back out
I imagine that that was meant to be qw...
HTH,
Ricky
-Original Message-
From: Jeffrey [mailto:[EMAIL PROTECTED]]
Sent: Monday 04 February 2002 2:45 PM
To: Carl Jolley; [EMAIL PROTECTED]
Subject: Re: Hash Questions
--- Carl Jolley [EMAIL PROTECTED] wrote:
Try this:
for $key
Probably something like
sort { $::a-{'SIZE'} = $::b-{'SIZE'} } @A_of_H;
I haven't tested this, though, so I could be wrong.
Ricky
-Original Message-
From: John Draper [mailto:[EMAIL PROTECTED]]
Sent: Tuesday 29 January 2002 9:23 AM
To: [EMAIL PROTECTED]
Subject: Q: How to sort Array
Okay, I'll bite.
Orcish manouver?
Ricky
-Original Message-
From: Thomas R Wyant_III [mailto:[EMAIL PROTECTED]]
Sent: Tuesday 29 January 2002 2:07 PM
To: [EMAIL PROTECTED]
Subject: RE: Q: How to sort Array of Hashes
[EMAIL PROTECTED] wrote
snip!
Do you think we can impose upon
In your "update", you are actually resetting the entire value of
$the_data[1] to point to a new hash reference, which has only y
defined.
Try this instead:
$the_data[1] = { x = 'A', y = 'B' };
print $the_data[1]-{x}, "\n";
$the_data[1]-{y} = 'C';
print $the_data[1]-{y}, "\n";
HTH,
Ricky
In the camel book they discuss this -- so it should be somewhere in the
documentation?
Ricky
-Original Message-
From: Cristian Carvajal [mailto:[EMAIL PROTECTED]]
Sent: Thursday 10 January 2002 1:57 PM
To: [EMAIL PROTECTED]
Subject: Format number
Desire to take a variable to scale and
, and if the requested one doesn't match an item in the list, I
would log the request and email the scriptadmin.
Ricky
-Original Message-
From: Tillman, James [mailto:[EMAIL PROTECTED]]
Sent: Monday 07 January 2002 11:20 AM
To: Morse, Richard E.; 'Robert Davis';
[EMAIL PROTECTED]
Subject: RE: Show perl
My guess is that you are getting epoch dates -- that is, offset in seconds from
the computer's epoch. You can test this by getting the date, then printing the
value of
scalar(localtime($date_val))
which will attempt to figure out the date from the epoch. Note that Access may
use a
Hi! I'm not sure why adding the 1; makes it work (that really is only needed at
the end of a package definition to return a true value). However, I think I can
tell you another way to solve the problem, and what the problem actually is
It looks to me that the script is being run with taint
Ummm... have you tried to pass a 0 in to the function?
Ricky
-Original Message-
From: Doug Claar [SMTP:[EMAIL PROTECTED]]
Sent: Thursday, November 29, 2001 5:08 PM
To: [EMAIL PROTECTED]
Subject: [Fwd: Re: null pointer OLE]
Thanks for the suggestions! Still no joy,
Look into the lwp modules. There is some sample code with them that should
help...
HTH,
Ricky
-Original Message-
From: Rafala, Michael [SMTP:[EMAIL PROTECTED]]
Sent: Tuesday, November 27, 2001 4:06 PM
To: [EMAIL PROTECTED]
Subject: calling an Internet url
I've got an
Actually, the format can vary from platform to platform, and might also
depend on the user's regional settings.
So, instead of trying to interpret that, use the array output.
something like:
my $trans_hash = ( 1='Jan', 2='Feb', 3='Mar', ...);
my ($month, $day) = (localtime(time))[4,3];
:[EMAIL PROTECTED]]
Sent: Wednesday, October 10, 2001 4:55 AM
To: [EMAIL PROTECTED]
Subject: Re: Question regarding printing from IE via OLE (followup to
previous question?)
- Original Message -
From: Morse, Richard E [EMAIL PROTECTED]
$ieApp = Win32::OLE-new
27 matches
Mail list logo