Hi,
I have been playing around with the rat book but have the following
problem:
The attached snippet of code produces errors of unitialised value
strings for the lines I have marked. The script compiles OK. What
obvious newbie thing am I missing?
Cheers Thanks
Francesco
#!/usr/bin/perl
Most likely because no data is being passed to the script.
Brad
-Original Message-
From: Francesco Scaglioni [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, August 29, 2001 9:23 AM
To: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: RE: uninitialised value strings
Hi again,
=The attached snippet of code produces errors of unitialised value
=strings for the lines I have marked. The script compiles OK. What
=obvious newbie thing am I missing?
=
=Cheers Thanks
=
=Francesco
=
=#!/usr/bin/perl -w
=#
=# add taint check later
=
=use CGI qw(:standard);
=use strict;
--- Francesco Scaglioni [EMAIL PROTECTED] wrote:
Hi again,
the script now reads ( see below ) but I still get errors as follows:
** (at end of line) = where use of uninitialised value in cancatenation and
*** (at end of line) = where use of uninitialised value in pattern
match
How
Can anyone point me to a site or book with detailed information about
configuring my W2K server IIS for perl and cgi? I have a form which I
designed at work on Linux and Apache, and it works fine in that environment.
I want to run it on my home W2K machine, but am baffled. My coworkers are no
This may help:
http://www.wiley.com/legacy/compbooks/stein/source.html
of course there are so many more.
Mark Bergeron'
-Original Message-
From: Lynn Glessner[EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Date: Wed Aug 29 11:37:49 PDT 2001
Subject: active perl on IIS
Can anyone point me to
I am having problems with this. For some reason the script connects even
though nothing is listening on that port.
ie. If I shut down the smtp server I can no longer 'telnet hostname 25'
so the script should die, but it doesn't.
Here is what I have:
#!/usr/local/bin/perl -w
use
Just some more info: If I use the orignal Socket library and build the
connection by hand, it behaves as normal:
#!/usr/local/bin/perl -w
use Socket;
$remote_host= 85.3.25.115;
$remote_port= 25;
socket(TO_SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$internet_addr =
On Redhat perl is to found at /usr/bin/perl so you will need to change the
first line to #!/usr/bin/perl -Tw
Regards
Creighton
Gede Gilijk wrote:
I am new to PERL and CGI and start to learn from this mailing list.
I download script from the web and try to customized and run on the server.
You could use ODBC if you have the ODBC driver installed for oracle
(I'm just assuming that oracle has an ODBC driver.) You would need
the Win32::ODBC module, which you could get Win32::ODBC using ppm
from the ActiveState site.
*I* think a better way is to use DBI. You'll need DBD::Oracle and
Why do you need to go to the website for the source code when you can read it
on your local machine (unless you have not installed those modules ... in
which case I will shut up now)
On Wed, Aug 29, 2001 at 11:13:33AM +0530, Rahul Garg shaped the electrons to read:
Well, I got it myself...
If you need to install the modules and want to know where to get it to install
it then you can always just use CPAN.
isnt LWP and CGI installedd by default for most distributions of perl?
On Wed, Aug 29, 2001 at 11:13:33AM +0530, Rahul Garg shaped the electrons to read:
Well, I got it
Hi,
I have dates that I get off an Oracle database and so come in the
format DD-MMM-YY (e.g 10-AUG-01) I would like to be able to do a
comparison that decides whether the date I get off the Oracle
database is more or less than 2 days ago.
I seem to be stumped on this one. Could anyone point
Windows NT 4.0 has 2 file compare utilities. COMP is a leftover from DOS,
but might be useful. FC is a little more flexible has a couple more
features. Type COMP /? or FC /? from a Windows NT command line for details.
Microsoft Visual C++ 5.0 includes WINDIFF, which is does file compares with
a
Has anyone experience using this call? It works fine, but I get strange
delimiters in the text. How can I strip these out or print them as anything
other than a little box so I can work out what they are??
Thanks.
John Edwards
IT Support
Runecraft Leeds
Phone: 0113 2206317
Fax: 0113 2206301
-Original Message-
From: Carlin Anderson [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, August 28, 2001 2:24 PM
To: [EMAIL PROTECTED]
Subject: Oracle function- Error when attempting call. Please Help !
...
$sth = $dbh-prepare(BEGIN :result = getpickableqty(:id) END;);
Heed the
-Original Message-
From: Ron Rohrssen [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, August 29, 2001 8:55 AM
To: Perl Beginners
Subject: Validate a date
I'm looking for some advice on better methods of validating a
date from a
text string.
Currently, I am using Date::Manip
Thanks Bob.
-Original Message-
From: Bob Showalter [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, August 29, 2001 8:00 AM
To: '[EMAIL PROTECTED]'
Subject: RE: Validate a date
-Original Message-
From: Ron Rohrssen [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, August 29, 2001
My PERL program uses the File::Find routine to find files that match a
certain description, and then build a file that contains a list of these
filenames.
Later I pass that file with the list of filenames to an archive program,
invoked via the system function.
The File::Find puts the names
I am trying to run a script from a program created in perlTk. When I hit
the RUN button, it runs this run_program function. It runs through the
process fine and prints out the Process complete line and then gives me
some weird messages:
Process complete
X Error of failed request: BadIDChoice
-Original Message-
From: Rice, Elizabeth A. [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, August 29, 2001 10:03 AM
To: '[EMAIL PROTECTED]'
Subject: File names on NT
My PERL program uses the File::Find routine to find files that match a
certain description, and then build a file
Thanks Bill,
Now I'm really perplexed. In the dos shell I get 'Bad command or File name'. It
looks like the Path is set correctly in the autoexec.bat file Xitami does
everything it is supposed to do. http://barna.dns2go.com
What I am trying to do first, is get a log viewer to work as Xitami
Ok. That gets me quite a bit further down the road. What I've done now is
the following that will run when the OS is NT:
# change forward slashes to backslashes for each line in file called filetab
open (FILETAB, +${filetab}) or die (Cannot open $filetab for update
\n);
while (FILETAB) {
Satish [EMAIL PROTECTED] wrote:
I am a beginner to perl.
but i have woked in java.
now i would like to know how to intergrate these two
Check out Inline::Java
http://search.cpan.org/search?dist=Inline-Java
-D
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail:
Hi,
I am stumped!
I need to see the value oa all my variables.
This is what I am doing:
name = Jerry;
foreach $key ($query-param) {
undef $check;
$check = $1 if $key =~ name;
if( $check ) {
print name key *$key* check $1 *BR;
}
}
What am I doing wrong?
Thanks,
On Aug 29, Jerry Preston said:
name = Jerry;
You mean
$name = Jerry;
foreach $key ($query-param) {
undef $check;
$check = $1 if $key =~ name;
(I think) you mean
$check = $1 if $key =~ /($name)/;
if( $check ) {
print name key *$key* check $1 *BR;
}
}
What
Jeff,
I want to print out the value of $name, Jerry.
Thanks,
Jerry
Jeff 'japhy/Marillion' Pinyan wrote:
On Aug 29, Jerry Preston said:
name = Jerry;
You mean
$name = Jerry;
foreach $key ($query-param) {
undef $check;
$check = $1 if $key =~ name;
(I think) you
Hi,
Just trying to un-clutter some code. Following is the relevant part:
$ucscode is assigned a value via a split on : There could be white space
at the begging and end of the value. the value could be Upper case. The
end result should be no white space, all lower case. There may or may
On Aug 29, Jeff 'japhy/Marillion' Pinyan said:
You could do the remove whitespace regex all at once, and even include the
lc() in there. I don't suggest it, though:
($scode = lc $ucscode) =~ s/\s*(\S*(?:\s+\S+)*)\s*/$1/;
And if you don't want to use $scode, and just want $ucscode, you could
I have the following array:
1 2 3
4 5 6
7 8 9
Is there a way to assign individual values of each array element (1 2 3
4 5 6 7 8 9) to seperate variables so that
$var1 = 1
$var2 = 2
.
.
.
$var9 = 9
Dean Paulson
Is there an easy way or some format option that allows one to display an
arbitrary number with commas:
12345678910 = 1,234,567,890
Or do I need to set up a looping structure to split the number and insert
commas???
Thanks,
Tom
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
On Wed, 29 Aug 2001 [EMAIL PROTECTED] wrote:
Is there an easy way or some format option that allows one to display an
arbitrary number with commas:
12345678910 = 1,234,567,890
Or do I need to set up a looping structure to split the number and insert
commas???
Here's the solution given in
On Wed, Aug 29, 2001 at 02:22:16PM -0500, Dean W. Paulson wrote:
I have the following array:
1 2 3
4 5 6
7 8 9
That looks more like a matrix. What does your array really look like?
@array = (
'1 2 3',
'4 5 6',
'7 8 9',
);
OR
@array = (
[1 2
Hi All,
I'm attempting to write a perl script, that will
read a file from a remote host. It must be done
through SSL. I was looking into the possibility
of using sockets (IO::Socket::INET), or some
such animal to accomplish this task.
First, is it possible to connect using
sockets to a SSL
I have solved my ealier question.
Thanks to those who responded.
the problem was:
I have an input file which contains n rows with 3 items in each row:
1 2 3
a b c
4 5 6
The script output needs to take the items from each row and print them
as:
v1=1, v2=2, v3=3
v1=a, v2=b, v3=c
v1=4, v2=5, v3=6
I have solved my earlier question.
Thanks to those who responded.
the problem was:
I have an input file which contains n rows with 3 items in each row:
1 2 3
a b c
4 5 6
The script output needs to take the items from each row and print them
as:
v1=1, v2=2, v3=3
v1=a, v2=b, v3=c
On Wed, 29 Aug 2001, Ken Hammer wrote:
I'm attempting to write a perl script, that will
read a file from a remote host. It must be done
through SSL. I was looking into the possibility
of using sockets (IO::Socket::INET), or some
such animal to accomplish this task.
First, is it possible
Elizabeth == Elizabeth A Rice [EMAIL PROTECTED] writes:
Elizabeth The File::Find puts the names into the $filetab with forward slashes. On
Elizabeth NT, the archive program isn't prepared to handle filenames with forward
Elizabeth slashes instead of backslashes, so says it cannot find the
Have been browsing the Camel book and others and I
think I'm a little confused regarding the concept of
passing array hash references to subroutines.
As far as I understand (and please please correct me
if I'm wrong) you pass array and hash references to
subroutines so that you don't have
Dear All,
I have problem in opening the file and closing it in the below mentioned
script. Kindly help me to fix it.
Thanks in advance.
Thanks
Suresh A.
#!/usr/local/bin/perl -w
$shipdir=/databin/OUTGOING/SHIPMENT/bis/suresh;
$custdir=/uhome/cachet/temp/temp1/cust/;
sub foo {
my @this_array = ( one, two, three );
bar ( @this_array );
}
sub bar {
my @that_array = @_;
}
So I'd pass a reference instead:
sub foo {
my @this_array = ( one, two, three );
bar ( \@this_array );
}
sub bar {
my $that_array = @_;
Problem. It
IN NT/WIN2K land -
What is the easiest way list out remote share directories AND their disk
space usage - similar to the du -s command in UNIX.
I have been looking at win32::? modules but nothing seems to fit - or is it
time to create a WSC? UGH!
For example I want to UNC path into a server
i have no clue why perl and java shud be integrated?
please enlighten all of us on that
thanks
neeraj
Satish wrote:
I am a beginner to perl.
but i have woked in java.
now i would like to know how to intergrate these two
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
43 matches
Mail list logo