Shaw, Matthew [mailto:[EMAIL PROTECTED]
:
: Could someone direct me to a reference that contains all of the
: available methods in the CGI module?
http://stein.cshl.org/WWW/software/CGI/cgi_docs.html
There is also one on the computer where you installed
perl, at perldoc.com, on CPAN,
Online docs
---
perldoc CGI
O'Reilly books
--
CGI Programming with Perl
CGI Cookbook
-
Scot Robnett
inSite Internet Solutions
[EMAIL PROTECTED]
-Original Message-
From: Shaw, Matthew [mailto:[EMAIL PROTECTED]
Sent: Monday, July 07, 2003 1:44 PM
To: [EMAIL
Is this a global group or one you've set up for your personal use?
At 05:37 AM 7/8/2003 +, Sally Librilla wrote:
Hi,
I'm send email using the Mail::SendMail module. I understand how the send
To field works for multiple works however, I can't get it to work to send
mail to a group existing
On Tuesday, July 8, 2003, at 01:19 pm, Bob Showalter wrote:
Greenhalgh David wrote:
...
In other words, my SELECT block is returning the value of available as
it was before the UPDATE, even though I have AutoCommit set to 1, the
UPDATE is called before the SELECT and manual investigation of the
Greenhalgh David wrote:
On Tuesday, July 8, 2003, at 01:19 pm, Bob Showalter wrote:
Greenhalgh David wrote:
...
In other words, my SELECT block is returning the value of available as
it was before the UPDATE, even though I have AutoCommit set to 1, the
UPDATE is called before the
Bob Showalter wrote:
... Make sure you have RaiseError turned on.
and PrintError
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi There,
Afraid that I'm an absolute beginner when it comes to cgi/perl. What I would
like to achieve, however, is to add 'tell-a-friend' functionality to a web
site which I have created. Does anyone have any thoughts/advice?
Thanks in advance, paul
--
To unsubscribe, e-mail: [EMAIL
#!/usr/local/bin/perl -wT
use strict;
use CGI ':standard';
use DBI;
use CGI::Carp qw(fatalsToBrowser);
# Simulate a param call in CGI
my $player=HarryPotter;
# Connect to the database
my $dbh = DBI-connect(DBI:mysql:ladderDB, , xx);
# Make an update that is representative of the full
Paul Torrance wrote:
Hi There,
Afraid that I'm an absolute beginner when it comes to cgi/perl. What I would
like to achieve, however, is to add 'tell-a-friend' functionality to a web
site which I have created. Does anyone have any thoughts/advice?
Be sure to start a new thread when posting a new
An input string like;
$name_with_id = Deiley, Sara Jr., 1234;
another example could be
$name_with_id = DEILEY SARA, Jr,. 123;
Two things are for sure in it always.
1- First part contains the alphabets (caps or small) with any number of commas and
periods (full stops) in between or at the
Steve Grazzini [EMAIL PROTECTED] writes:
Ah, okay. But you'll need to make that into a real loop.
use File::Spec::Functions;
...
foreach (readdir(DIR)) {
my $target = catfile($mnsd, $_);
if (-l $target) {
unlink $target or warn unlink:
Hello all,
I am trying to change a string in a bunch of files to something else.
Here is my command:
perl -pi.bak -e 's|page=main|page=scanP|g' *.(html|pm|pl|cf)
However, in running this command, I am also changing file ownership to
the person running the script. Is there any way of avoiding
Hi
I'm having a hard time commecting to an smtp server when i sed the Subject: any\n\n;
it replyes with an web page address saiing that i'm triing to send a bare LF well so
can anybody tell me what is the code for CRLF is it chr(10)chr(13) ?
or \c\l?
Thanks
I'm having a hard time commecting to an smtp server when i sed the Subject:
any\n\n; it replyes with an web page address saiing that i'm triing to send a
bare LF well so can anybody tell me what is the code for CRLF is it
chr(10)chr(13) ?
or \c\l?
I'm not sure you want CRLF, that's the DOS
Andre Chaves Mascarenhas wrote:
Hi
Hello,
I'm having a hard time commecting to an smtp server when i sed the
Subject: any\n\n; it replyes with an web page address saiing that
i'm triing to send a bare LF well so can anybody tell me what is
the code for CRLF is it chr(10)chr(13) ?
or
The program prints to a number of different places. Files -- data output and some
logs.
Then I also need to print some error info to the terminal (STDOUT). It is this last
part that is not happening on UNIX, but it does on DOS.
Regards,
Charles Scheepers
-Original Message-
From: Dan
Andre Chaves Mascarenhas [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]
Hi
How do i read a web page with socks?
do i send?
if SK is a open socjet at port 80 at lets say www.yahoo.com if i send
print SK GET /index.htm HTTP/1.1\n
will i get the www.yahoo.com/index.htm page ?
Thanks
Madhu Reddy wrote:
Hi,
Hello,
I want to write following C Equivalant with PERL
My perl equvalant is at the end of this mail..
please correct me...
my questios are inside perl comments...
--
C Code start
-
for(i=0;i(int)strlen(Buffer);i++)
{
if((Buffer[i] 32) ||
Gene Mat wrote at Mon, 07 Jul 2003 23:18:38 +:
I am trying to call the list function using NET::NNTP.
use Net::NNTP;
use strict;
use warnings;
would have told you where and why the error is.
$nntp = Net::NNTP-new(nntp.perl.org,Debug,10);
hi all
i have written a code for sftp in linux thru perl.
the code is absolutely correct
but when i run the script , it says permission denied .
i think it is because of no sftp software in the system.
can any on etell me from where i can get sftp server software so
that i can install it , any
hi all
i have a code in perl which uses sftp between linux systems.
the code is:
#!/usr/local/bin
use strict;
use warnings;
use Net::SFTP;
my $host=xxx.xxx.xxx.xxx;
$u=username;
$p=password;
my
$sftp=Net::SFTP-new($host,Proto=tcp,user=$u,password=$p)
or die cannot
hi all
the previous mail is not complete .
i have a code in perl which uses sftp between linux systems.
the code is:
#!/usr/local/bin
use strict;
use warnings;
use Net::SFTP;
my $host=xxx.xxx.xxx.xxx;
$u=username;
$p=password;
my
$sftp=Net::SFTP-new($host,Proto=tcp,user=$u,password=$p)
hi all
the previous mail is not complete .
i have a code in perl which uses sftp between linux systems.
the code is:
#!/usr/local/bin
use strict;
use warnings;
use Net::SFTP;
my $host=xxx.xxx.xxx.xxx;
$u=username;
$p=password;
my
$sftp=Net::SFTP-new($host,Proto=tcp,user=$u,password=$p)
Paul Kraus wrote:
I am doing a readdir.
Taking the filenames that are found and trying to rename them.
Opendir
@files = Readdir
Foreach @files
parse filename
$newfile = newfile name based on parsed name
push (@rename,[$_,$newfile])
Foreach @rename
rename $$_[0], $$_[1] or die (NO
Andre Chaves Mascarenhas wrote:
Hi
I'm having a hard time commecting to an smtp server when i sed the Subject:
any\n\n; it replyes with an web page address saiing
that i'm triing to send a bare LF well so can anybody tell me what is the code for
CRLF is it chr(10)chr(13) ?
or \c\l?
If you
Gene Mat wrote:
Hi I trying out a new module. Everything is working execpt I can seem to
list out a reference hash to an array. How can I print out the contents of
the array?
I am able to get the all the keys of refrence hash by just using a
foreach tag (keys %$REFHASH) {print $tag
Guruguhan N wrote:
Hi All,
I would like to know how to underline entire text using -underline option ?
The -underline option of what?
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On 8 Jul 2003 11:06:51 -, [EMAIL PROTECTED] (Vemulakonda
Uday Bhaskar) wrote:
i have a code in perl which uses sftp between linux systems.
and i have installed sftp-0.9.9
but it is givibg error saying that
Requestion for subsystem 'sftp' failed on channel'1' at
I periodically don't get any messages from the list. For instance
yesterday I quit receiving at around 10 am and when I left work at 5 I
still had not gotten any. Then when I came in there was a bunch.
Anything that might cause this?
Once last week I got a message from the list saying that all
I have a variable amount of text files that need to get parsed. The
files come in groups of 6. I only need to parse files 4 5 and 6. So if I
had 3 groups waiting to be processed then I would have to read through
and parse 4,5,6,10,11,12,16,17,18.
The file names look like this...
HI,
I must be missing something, after following Gupta's advice the particular
object printed fine using this code:
$obj-order_number ($order_num);
print obj: . $obj-order_number($order_num) . \n;
push @order, $obj;
for each of the 15 orders which I have shown below. Now, at the end of my
The program prints to a number of different places. Files --
data output and some logs. Then I also need to print some
error info to the terminal (STDOUT). It is this last part
that is not happening on UNIX, but it does on DOS.
What is output when you run it from the command line the same
Hi,
How to create data structures in perl ?
I have following data structure in C...and i have to
create similar data structure in perl and use...
how to create data strutures in perl and how to use ?
typedef struct { charPrefix[8];
charPrint;
Paul Kraus wrote:
I have a variable amount of text files that need to get parsed. The
files come in groups of 6. I only need to parse files 4 5 and 6. So
if I had 3 groups waiting to be processed then I would have to read
through and parse 4,5,6,10,11,12,16,17,18.
The file names look like
On 8 Jul 2003 11:06:51 -, vemulakonda uday bhaskar [EMAIL PROTECTED] wrote:
hi all
the previous mail is not complete .
i have a code in perl which uses sftp between linux systems.
the code is:
Please copy and paste in the future,
No your not missing anything I am :) I have never seen this before.
Looking at the perl book it says that it will subtract a$ from the
highest multiple of b$ that is not greater then a$.
So writing a quick loop that does 6 % $i where $i is 1..24 I get these
results.
Which makes sense. But then
You may want to take a look at IO::Tee and IO::File module from CPAN. See
http://search.cpan.org/author/KENSHAN/IO-Tee-0.64/Tee.pm
Charles Scheepers 07/08/03 03:56AM
The program prints to a number of different places. Files -- data output and some
logs.
Then I also need to print some
Paul Kraus wrote:
No your not missing anything I am :) I have never seen this before.
Looking at the perl book it says that it will subtract a$ from the
highest multiple of b$ that is not greater then a$.
So writing a quick loop that does 6 % $i where $i is 1..24 I get
these results.
From: Paul Kraus [EMAIL PROTECTED]
No your not missing anything I am :) I have never seen this before.
Looking at the perl book it says that it will subtract a$ from the
highest multiple of b$ that is not greater then a$.
So writing a quick loop that does 6 % $i where $i is 1..24 I get
Thanks that cleared it up. Talk about a useful operator. Wish I had know
about this 6 months ago. I guess its time to actually read the perl book
rather then using it as a reference manual :) Thanks everyone.
-Original Message-
From: Jenda Krynicky [mailto:[EMAIL PROTECTED]
Sent:
Hi Paul.
Paul Kraus wrote:
I periodically don't get any messages from the list. For instance
yesterday I quit receiving at around 10 am and when I left work at 5 I
still had not gotten any. Then when I came in there was a bunch.
Anything that might cause this?
Are you connected via POP/SMTP
Hi Paul.
May I pull your code apart?
Paul Kraus wrote:
I have a variable amount of text files that need to get parsed. The
files come in groups of 6. I only need to parse files 4 5 and 6. So if I
had 3 groups waiting to be processed then I would have to read through
and parse
I am getting them through pop/SMTP
-Original Message-
From: Rob Dixon [mailto:[EMAIL PROTECTED]
Sent: Tuesday, July 08, 2003 12:00 PM
To: [EMAIL PROTECTED]
Subject: Re: List problems
Hi Paul.
Paul Kraus wrote:
I periodically don't get any messages from the list. For instance
No you may not pull my code apart ;)
Thanks for all good advice. However why is the in front of the sub
routine call a bad idea. From what I understood from the learning perl
(it has been awhile since I looked at this book) you should always put
the in front of the call unless your subroutines
Your code works great is of course a lot easier to read. However the
sort does to work as expected.
I was appending the _(x)_ to the beginning of the string so that I could
then sort numerically. Looking at like this the sort isn't even
necessary however as an exercise how would one go about
Howdy:
I have a script where I'd like to open a
bunch of files, search for a pattern and
replace it with another.
What I am getting is not quite what I expected.
I get almost everything, but I'm getting a
bit more at the end.
[snip script]
#!/usr/bin/perl -w
use strict;
use warnings;
use
On Tue, Jul 08, 2003 at 01:04:40PM -0400, Paul Kraus wrote:
Thanks for all good advice. However why is the in front of
the sub routine call a bad idea.
Check:
% perldoc perlsub
In Perl5, the ampersand changes how the subroutine call is parsed
and executed. If you use it with
Hi all.
I need some advice on this.
I'm writing a script for uploading a file ($file). Saving it as
$file_path/$name
The way I'm doing this right now is (after checking the file extensión and
assuring every character is only a letter or an underscore):
-My
Shaunn Johnson wrote:
Howdy:
Hello,
I have a script where I'd like to open a
bunch of files, search for a pattern and
replace it with another.
What I am getting is not quite what I expected.
I get almost everything, but I'm getting a
bit more at the end.
It looks like you are
Steve Grazzini wrote:
On Tue, Jul 08, 2003 at 01:04:40PM -0400, Paul Kraus wrote:
Thanks for all good advice. However why is the in front of
the sub routine call a bad idea.
Check:
% perldoc perlsub
In Perl5, the ampersand changes how the subroutine call is parsed
and executed.
Thanks for the reply:
Are you sure that the problem isn't in the 'for' loop?
It seems odd that I have eight files in the directory
and eight counts of the (100) at the end of the lines.
I am going to try something with the for loop and see
if that gets me anywhere.
Thanks again for that shorter
Expression
/Sales - Freight - Leimkuehler\s+(\d+,?\d+\.?\d+)/
String
410-02-00Sales - Freight - Leimkuehler
6.96
It does match if I remove everything after Leimkuehler.
This is how it reads to me
1 or more spaces
Open paren to save value to $1
1 or more digits
Maybe a comma but not
On Tue, Jul 08, 2003 at 07:09:36PM +0100, Rob Dixon wrote:
Steve Grazzini wrote:
Both of these forms have their (occasional) places, but you should
be aware of what they really do.
Yeah.
Like what he said.
*bows*
--
Steve
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
I am assuming my the problem is with ,?
But I don't understand why.
(\d+,?\d+\.?\d+)
This matches 1+ digits, and optional comma, 1+ digits, optional period, and
1+ digits.
So if the comma is not present (which it isn't in your example) it MUST
match AT LEAST TWO digits (one before AND one
Paul Kraus wrote:
Expression
/Sales - Freight - Leimkuehler\s+(\d+,?\d+\.?\d+)/
String
410-02-00Sales - Freight - Leimkuehler
6.96
It does match if I remove everything after Leimkuehler.
This is how it reads to me
1 or more spaces
Open paren to save value to $1
1 or more
On Tue, Jul 08, 2003 at 02:48:59PM -0400, Paul Kraus wrote:
Expression
/Sales - Freight - Leimkuehler\s+(\d+,?\d+\.?\d+)/
String
410-02-00Sales - Freight - Leimkuehler
6.96
It does match if I remove everything after Leimkuehler.
This is how it reads to me
1 or more spaces
On Mon, 7 Jul 2003 21:19:19 -0400, [EMAIL PROTECTED] (Zeus Odin)
wrote:
I have written an interface for m-w.com. I found some scripts on the web but
nothing really robust. Please have a look, make comments, request
functionality, make suggestions, make changes, or anything else you feel
useful.
Hi all.
Howdy
I need some advice on this.
I'm writing a script for uploading a file ($file). Saving it
as $file_path/$name
The way I'm doing this right now is (after checking the file
extensión and assuring every character is only a letter or an
underscore):
-My
Paul Kraus wrote:
I am getting them through pop/SMTP
-Original Message-
From: Rob Dixon [mailto:[EMAIL PROTECTED]
Sent: Tuesday, July 08, 2003 12:00 PM
To: [EMAIL PROTECTED]
Subject: Re: List problems
Hi Paul.
Paul Kraus wrote:
I periodically don't get any messages from the
Wondering why this doesn't work:
Use POSIX qw(strftime);
my ($month, $day) = split / /,(strftime '%b %e',localtime());
%e should be the day of the month in the format 1-31.
But this does work:
Use POSIX qw(strftime);
my ($month, $day) = split / /,(strftime '%b %d',localtime());
%d is the day of
You are right Dan ;-)
The 'Other way' desn't really handle te size. I'm sorry for that. What I
was
really thinking is that you can have a control of what amount of data is
being uploaded just counting the loops (1 Kb for every loop).
-rm-
- Original Message -
From: Dan Muey
Jensen Kenneth B SrA AFPC/DPDMPQ wrote:
Wondering why this doesn't work:
Use POSIX qw(strftime);
my ($month, $day) = split / /,(strftime '%b %e',localtime());
%e should be the day of the month in the format 1-31.
But this does work:
Use POSIX qw(strftime);
my ($month, $day) = split /
You are right Dan ;-)
The 'Other way' desn't really handle te size. I'm sorry for
that. What I was really thinking is that you can have a
control of what amount of data is being uploaded just
counting the loops (1 Kb for every loop).
Oh yeah good idea, what I'd do is thew while loop
Hello:
I'm very excited when I discovered the map function, however, I cannot seem to get it
to do what I want in this instance:
chomp (my @strings = `strings *`);
my $var;
my @ptrRecords = map ((/.*\s+PTR\s+.*/), @strings ); # - LINE IN QUESTION
foreach (@ptrRecords) { print $_\n
I think u would need the grep function here instead of map.
Map returns the results of the evaluation of expression which is '1' in ur case
because u matched.
Grep returns the actual elements of the list for which the expression was true.
try:
my @ptrRecords = grep{/.*\s+PTR\s+.*/[EMAIL
Hi,
I have sent this message a couple of days ago, but got no response, so I would assume
you havnt got the time to do so, maybe now you would.
How would I create a bunch of files with the same name, save them under the same root
directory, but only in part of the subdirectories change one
Shaunn Johnson wrote:
From: John W. Krahn [mailto:[EMAIL PROTECTED]
Shaunn Johnson wrote:
# create a loop to search for one instance of
# my password and change it to something else
# one day, i'll get smart and ask for a paramater, too
for my $file(@list) {
open (FILE, $file)
$! is the oserror.
$@ contains the exceptions thrown by eval.
Eg:
use strict;
my $out = get_list();
if($@) {
print Could not get the list: $@;
}
sub get_list {
# If we die return the error set in [EMAIL PROTECTED]
eval {
# If we are unable
Jensen Kenneth B Sra Afpc/Dpdmpq wrote:
Wondering why this doesn't work:
Use POSIX qw(strftime);
my ($month, $day) = split / /,(strftime '%b %e',localtime());
%e should be the day of the month in the format 1-31.
But this does work:
Use POSIX qw(strftime);
my ($month, $day) = split /
Thanks for the reply.
I will try that (modifying the for loop).
I also tried to figure out if it was
just the loop, or the replacement text
that was giving me problems.
For example, I changed my $new_ptrn to
equal 'foo' and things worked okay.
When I changed the $new_ptrn to equal
'character
How can I run a Perl Script on my browser?
Reading I found that I have to do only 2 things:
1) Add a first line to my script (whereis perl):
#! /usr/bin/perl
2) and formatting the output in html-style:
print Content-type: text/html;
print html;
...
etc.
But I dont get the results in the browser.
I
1) Add a first line to my script (whereis perl):
#! /usr/bin/perl
Correct.
2) and formatting the output in html-style:
print Content-type: text/html;
print html;
Almost. You need 2 newlines after the content-type declaration.
print Content-type: text/html\n\n;
And...
3) The script must
Hello All:
I have a perl script on UNIX which works properly for an ASCII
input data file which is in the form of:
record 1 line 1
record 1 line 2
record 1 line 3^M
record 2 line 1
etc
The record delimiter is ^M (which is sometimes refered to as CR or \r).
When run on a Windows box, the ^M is
Christopher Fuchs wrote:
Hello All:
I have a perl script on UNIX which works properly for an ASCII
input data file which is in the form of:
record 1 line 1
record 1 line 2
record 1 line 3^M
record 2 line 1
etc
The record delimiter is ^M (which is sometimes refered to as CR or \r).
Christopher Fuchs wrote at Tue, 08 Jul 2003 14:29:50 -0700:
I have a perl script on UNIX which works properly for an ASCII
input data file which is in the form of:
record 1 line 1
record 1 line 2
record 1 line 3^M
record 2 line 1
etc
The record delimiter is ^M (which is sometimes
Jdavis wrote at Tue, 08 Jul 2003 14:39:17 -0600:
I think these catch errors somehow...
$! and $@
could someone explain this.
Perl can explain it to you, just read:
perldoc perlvar
Greetings,
Janek
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail:
On Mon, Jul 07, 2003 at 11:45:34AM -0400, Paul Kraus wrote:
I am doing a readdir.
Taking the filenames that are found and trying to rename them.
Opendir
@files = Readdir
Foreach @files
parse filename
$newfile = newfile name based on parsed name
push
I'm just looking to use SWIG to form a perl module that can call c++
code. I'm running on redhat 7.2, so I'm hoping that there are some
examples, etc. out there where some people can piont me to compile a
very simple c++ program's interface file (and the c++ file itself with
the required options
I'm just looking to use SWIG to form a perl module that can call c++
code. I'm running on redhat 7.2, so I'm hoping that there are some
examples, etc. out there where some people can piont me to compile a
very simple c++ program's interface file (and the c++ file itself with
the required options
hello,
I have written a tcp socket server using the Perl Cookbook
and Use Socket. This is nice an works well. However, i want to write a
server that can listen for a special packet. So i need to get down
futher that the Perl Cookbook shows. I want to see each packet and
be able to look at its
Madhu Reddy wrote:
Hi,
How to create data structures in perl ?
I have following data structure in C...and i have to
create similar data structure in perl and use...
how to create data strutures in perl and how to use ?
perldoc -f pack
perldoc -f unpack
typedef struct { char
81 matches
Mail list logo
