Murray Webster writes ..
>--- ok ---
>C:\PERL561>perl systest2.pl a123 b432
>@ARGV contains: a123 b432
>Received a123, b432
>
>--- ok - haven't created association yet 8-( ---
>C:\PERL561>systest2.pl a321 g554
>The system cannot execute the specified program.
>--- create association for .pl -->
Could you show us the part of your code which calls the connect method,
and perhaps the exact error message?
cr
On Wed, 23 May 2001 13:30:41 +0700, prasoeu said:
> Hi
> I have problem about DBI library, when I connect asking me library not found
>DBI?
>
> Please tell me.
>
> Prasoe
Hello Mailing List people,
I had initially installed ActivePerl-5.6.1.626-MSWin32-x86-multi-thread.zip
(seemed to be the latest Win32 binary dist) and things went well.
I wanted to do some Tk work, don't have a C compiler - and if I did wouldn't
know what to do with it 8-) - so I `downgraded' to
Hi
why don't you check my perl program on www.perlmonks.org by the name
'Simple Mail Client' - user name - Jamnet
Regards
Joel
At 10:59 AM 5/22/2001 -0700, Dan Brown wrote:
>Richard KHOO Guan Chen wrote:
> >
> > Sorry if this is a stupid question
> >
> > Just wondering if there is a site which
Hi
I have problem about DBI library, when I connect asking me library not found DBI?
Please tell me.
Prasoeu
At 12:30 p.m. 22/05/01 -0700, you wrote:
>Folks,
>
>Can anyone suggest an address of similar mail list for C|C++?
>
>Eugene
Eugene:
I send links to you.
http://www.faqs.org/faqs/C-faq/learn-c-cpp-today/
Fco. Valladolid
_
Do You Yaho
Folks,
Can anyone suggest an address of similar mail list for C|C++?
Eugene
Kris Cook wrote ..
>I'm writing a form that inserts into a database table (a header
>record) with an autonumbered field (system assigned). Ordinarily, the
>value of the serial field assignment in an SQL database is stored
>in sqlca.sqlerrd[2], but I can't find any way to reference this in
>the do
> At 07:47 PM 5/22/01 -0400, David Gilden wrote:
># is the ',' correct in my($a,$b) can you use a space my($a $b @c)
I missed this the first time.
NEVER my() $a and $b.
If you're using them as variables in your code, make better names.
If you're using them as elements in a sort routine, then yo
--- David Gilden <[EMAIL PROTECTED]> wrote:
> As an exercise here I want to play with this for a few minutes,
> and have a few basic questions
>
> #!/usr/bin/perl
>
> # First question do I use
> # ( ) OR { ... }
> @lines = qq{dave john mike drew};
It's not that simple, and it's simpler
--- David Gilden <[EMAIL PROTECTED]> wrote:
> As an exercise here I want to play with this for a few minutes,
> and have a few basic questions
>
> #!/usr/bin/perl
>
> # First question do I use
> # ( ) OR { ... }
> @lines = qq{dave john mike drew};
It's not that simple, and it's simpler
> I need to collect some information from a Cisco switch and am using the
> following:
> use Net::Telnet::Cisco;
> my $cs = Net::Telnet::Cisco->new( Host => 'cisco6506', Timeout =>
> '35');
> $cs->login( 'user', 'password') or die "Can't login";
> # Enter enable mode
>
At 07:47 PM 5/22/01 -0400, David Gilden wrote:
>As an exercise here I want to play with this for a few minutes,
>and have a few basic questions
>
>#!/usr/bin/perl
>
># First question do I use
># ( ) OR { ... }
In the below, either, they are just delimiters. However, given what I am
intui
As an exercise here I want to play with this for a few minutes,
and have a few basic questions
#!/usr/bin/perl
# First question do I use
# ( ) OR { ... }
@lines = qq{dave john mike drew};
# First error, should be qw( ... )
# qq is garbage, right?
# is the ',' correct in my($a,$b) can
--- "M.W. Koskamp" <[EMAIL PROTECTED]> wrote:
> - Original Message -
> From: Chris Tunnell <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Tuesday, May 22, 2001 11:23 PM
> Subject: Sendmail
>
> I use a program called activeperl to run perl scripts on my W2k
> machine. Does anyone k
--- Peter Scott <[EMAIL PROTECTED]> wrote:
> It's always seemed to me that the 'approved' way of creating modules
> to import routines into another script was a bit wordy.
> In a nutshell, you have to do something like
>
> package abc;
> use Exporter;
> @ISA = qw(Exp
On Tue, May 22, 2001 at 05:26:19PM -0400, Jeff Pinyan wrote:
> On May 21, Paul Cotter said:
> >
> >&dummysub( )
> >&realsub('paulus')
> >.
> >.
> >sub realsub($)
> >{}
> >sub dummysub( )
> >{...}
It's probably also worth mentioning that calling subroutines in this
manner, ie with the leading
> - Original Message -
> From: "Jeff Pinyan" <[EMAIL PROTECTED]>
> To: "Aaron Craig" <[EMAIL PROTECTED]>
> > Before I answer your question, I have to ask you to not use
> > subroutine prototypes. 9 out of 10 Perl programmers use them
> > incorrectly or don't know what they do.
> >
> > The
On May 22, Peter Cline said:
>> @parts = split ' ', "this and that";
>> { local $" = ") ("; print "(@parts)"; }
>> # (this) (and) (that)
>
>Will the ") (" assign any amount of space to the list separator?
>This is interesting. I haven't encountered this syntax before.
Using split ' ' is
Thanks for catching my errors. I was thinking too narrowly, using just the
one template provided. This can of course be dangerous, for things change.
At 05:30 PM 5/22/01 -0400, Jeff Pinyan wrote:
>You might want to use the special split ' ' syntax:
>
> @parts = split ' ', "this and that";
- Original Message -
From: Chris Tunnell <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, May 22, 2001 11:23 PM
Subject: Sendmail
I use a program called activeperl to run perl scripts on my W2k machine.
Does anyone know where the sendmail is located
Yes, on the nearest unix m
On May 22, Peter Cline said:
>Try this.
>my $text = "Browser/Version Platform";
>my ($keep,$discard) = split / /, $text;
>print "$keep\n";
>
>This splits on space and saves the part you want to the variable $keep and
>the rest to $discard.
Actually, it splits on EXACTLY one space. That can cau
On May 21, Paul Cotter said:
>> The problem is: PROTOTYPES MUST BE SEEN BEFORE THE FUNCTION IS CALLED.
>
>I've seen this statement before and do not really understand it, having come
>from a 'true-compiler' background. It is the 'seen' that puzzles me.
>
>If I have a 'require' then I believe the
I use a program called activeperl to run perl scripts on my W2k machine. Does anyone
know where the sendmail is located
Chris
Tunnell
I want to add a Mailer to my site, where can I find a simple perl script to handle
this?
Chris
Tunnell
- Original Message -
From: "Jeff Pinyan" <[EMAIL PROTECTED]>
To: "Aaron Craig" <[EMAIL PROTECTED]>
OTOT (off the original topic)
> Before I answer your question, I have to ask you to not use subroutine
> prototypes. 9 out of 10 Perl programmers use them incorrectly or don't
> know wh
At 01:51 PM 5/22/01 -0700, Paul wrote:
>--- [EMAIL PROTECTED] wrote:
> > To keep the code as modular and managable as possible I would prefer
> > not to define all the routines in the main script.
> > It seems like using 'require' is the way to go (since I don't have
> > the time or experience to
--- Paul <[EMAIL PROTECTED]> wrote:
> sub argtest { print "recieved: ", join(';', @_),"\n"; }
sorry -- recEIved :o<
__
Do You Yahoo!?
Yahoo! Auctions - buy the things you want at great prices
http://auctions.yahoo.com/
--- [EMAIL PROTECTED] wrote:
> To keep the code as modular and managable as possible I would prefer
> not to define all the routines in the main script.
> It seems like using 'require' is the way to go (since I don't have
> the time or experience to do modules at the moment).
Modules are actuall
john wrote:
: It seems like using 'require' is the way to go (since I don't have the time or
: experience to do modules at the moment).
:
: I can get the required scripts and subroutines to call OK when there is only one
: sub per required file and I don't have to pass arguments.
:
: When I try
Hello All,
I am new to Perl and putting together a script that needs about 20 reasonably
complex subroutines.
To keep the code as modular and managable as possible I would prefer not to
define all the routines in the main script.
It seems like using 'require' is the way to go (since I don't h
I'm writing a form that inserts into a database table (a header record) with
an autonumbered field (system assigned). Ordinarily, the value of the
serial field assignment in an SQL database is stored in sqlca.sqlerrd[2],
but I can't find any way to reference this in the documentation I have for
W
Dan Brown wrote:
: If it really is a script written for cgi, sending arguments via command
: line won't work. When a cgi script runs information is available to
: that script because the web server provides an environment from which
: the script can access the information.
If the script is writ
Richard Thompson wrote:
>
> We have moved a website off a server outside our offices to one inside. everything
>went fine but one of our cgi is not working so using some info shared in this forum
>we tried to run from the command line. now here is the problem we cannot get it to
>pass the arg.
On May 22, Richard Thompson said:
>We have moved a website off a server outside our offices to one inside.
>everything went fine but one of our cgi is not working so using some
>info shared in this forum we tried to run from the command line. now
>here is the problem we cannot get it to pass the
We have moved a website off a server outside our offices to one inside. everything
went fine but one of our cgi is not working so using some info shared in this forum we
tried to run from the command line. now here is the problem we cannot get it to pass
the arg.
I have tried:
> Perl cnty-nos.
--- Adam Turoff <[EMAIL PROTECTED]> wrote:
> On Tue, May 22, 2001 at 09:37:13AM -0700, Paul wrote:
> > Anybody know if there would likely be any problem with building a
> > "case" statement like the folowing (without installing Switch.pm)?
> >
> > sub rate ($) {
> > $_[0] eq 'A' ? .03 :
> >
--- Jeff Pinyan <[EMAIL PROTECTED]> wrote:
> On May 22, Paul said:
>
> >I know that in many C compilers, the a ? b : c construct with the
> >ternary ?: operator si not stable after the second or third nesting,
> >but I've never seen that sort of problem in tests I've run in Perl.
>
> The only t
> "Peter" == Peter Cline <[EMAIL PROTECTED]> writes:
Peter> Try this.
Peter> my $text = "Browser/Version Platform";
Peter> my ($keep,$discard) = split / /, $text;
Peter> print "$keep\n";
Peter> This splits on space and saves the part you want to the variable $keep
Peter> and the rest to $dis
Try this.
my $text = "Browser/Version Platform";
my ($keep,$discard) = split / /, $text;
print "$keep\n";
This splits on space and saves the part you want to the variable $keep and
the rest to $discard.
Also you could use a regular expression like such:
my $text = "Browser/Version Platform";
$
I need a way to return the start of a line up to the first whitespace.
eg
Browser/Version Platform
I want just the Browser/Version information returned. It should be simple,
but for some reason the solution eludes me.
Any help is appreciated,
Stefan
> "Dan" == Dan Brown <[EMAIL PROTECTED]> writes:
Dan> Richard KHOO Guan Chen wrote:
>>
>> Sorry if this is a stupid question
>>
>> Just wondering if there is a site which have useful simple perl scripts
>> for totally clueless people like me to look at? I am actually interested
>> in trimmi
Richard KHOO Guan Chen wrote:
>
> Sorry if this is a stupid question
>
> Just wondering if there is a site which have useful simple perl scripts
> for totally clueless people like me to look at? I am actually interested
> in trimming mail headers (save subject, from etc) for storage
>
I found
Aaron Craig wrote:
: I believe multiple submit buttons only send off the information for the
: form they are a part of. If you have multiple forms, clicking one submit
: button will only get you that form sent off.
This is true (unless you're into Javascript). However, a single form
can have
>I believe multiple submit buttons only send off the information for the
>form they are a part of. If you have multiple forms, clicking one submit
>button will only get you that form sent off.
But you can have more than one submit button per form. This is useful
when you want something like,
I believe multiple submit buttons only send off the information for the
form they are a part of. If you have multiple forms, clicking one submit
button will only get you that form sent off.
At 10:18 22.05.2001 -0700, you wrote:
>In the html:
>
>
>the 'value' attribute just set's up what the bu
In the html:
the 'value' attribute just set's up what the button text is, not a unique
identifier for the button, so like tdk wrote, you need a name attribute to
get the behavior you want.
Dave wrote:
: Can any one tell where I went wrong here?
: (I remember reading that a html form can have
: multiple submit forms as long as you parse them
: via their value)
: ...
: In the html:
:
These tags need a name attribute. Without it, the values will not
be bound to a CGI parameter nam
Hello,
Can any one tell where I went wrong here?
(I remember reading that a html form can have
multiple submit forms as long as you parse them
via their value)
Thanks!
Dave
-
In the html:
--
#!/usr/bin/perl
$forminfo = ;
@key_value_pairs = split(/&/,$forminfo);
foreach $pair
At 10:30 AM 5/22/01 -0500, Stussie, Mike wrote:
>Thanks for the response Peter!
>
>This is being performed through a browser as part of an admin tool and
>when I added the below code as suggested the entire file is sent but all
>the MIME info is displayed on the screen. How can I eliminate this
On Tue, May 22, 2001 at 09:37:13AM -0700, Paul wrote:
> Anybody know if there would likely be any problem with building a
> "case" statement like the folowing (without installing Switch.pm)?
>
> sub rate ($) {
> $_[0] eq 'A' ? .03 :
> $_[0] eq 'B' ? .05 :
> $_[0] eq 'C' ? .06 :
>
On May 22, Paul said:
>I know that in many C compilers, the a ? b : c construct with the
>ternary ?: operator si not stable after the second or third nesting,
>but I've never seen that sort of problem in tests I've run in Perl.
The only to watch out for is precendence:
$a ? $b = $c : $b = $d;
Hi all.
I know that in many C compilers, the a ? b : c construct with the
ternary ?: operator si not stable after the second or third nesting,
but I've never seen that sort of problem in tests I've run in Perl.
Anybody know if there would likely be any problem with building a
"case" statement li
On May 22, Mark on GCI Server said:
>open(TESTER, "print "Enter a username: ";
>$input = ;
You need to chomp $input, since it has a newline at the end.
>$x = 0;
>$y = 0;
>$w = 0;
>$z = 1;
>if ( ne "") {
That reads a line (and it is lost forever).
>while($line = ) {
>c
The better point is to provide the list with a snippet of the code and the
individuals are then more than willing to assist. Otherwise necessary
information may be omitted and you go down the wrong path.
Wags ;)
-Original Message-
From: Mark on GCI Server [mailto:[EMAIL PROTECTED]]
Sent
On May 22, Mark on GCI Server said:
> I'm trying to populate an array from a file, I think I've got the array
>populated, however, I'm not sure. I then want to compare an input against
>the array to determine if its there, then look at the second component of
>each record. Any assistance would
Hello all,
I'm trying to populate an array from a file, I think I've got the array
populated, however, I'm not sure. I then want to compare an input against
the array to determine if its there, then look at the second component of
each record. Any assistance would be greatly appreciated.
Thank
Thanks for the response Peter!
This is being performed through a browser as part of an admin tool and when
I added the below code as suggested the entire file is sent but all the MIME
info is displayed on the screen. How can I eliminate this, as it would just
confuse the user.
This is what I ad
Try this:
my $stringToMatch = "hello";
my $runtimeRegExp = "he";
print $stringToMatch." world" if($stringToMatch =~ /$runtimeRegExp/gi);
At 09:23 22.05.2001 -0400, you wrote:
>Hi people,
>
> I need to match string against regular expressions that are only
>known at run-time. I'm having
> if ($var ==2)
> {
> foreach $email (@in)
> {
> Then here is where I will send the mail.
> }
>
> }
>
>
> Why is this not working?
Can you tell us a bit more about the problem.
Are there any error-messages, etc?
A bit more code wo
Good day;
See below for what I think may be the issues...Haven't tried it out before,
but hope this helps.
At 09:23 AM 5/22/2001 -0400, Robin Lavallee (LMC) wrote:
>Hi people,
>
> I need to match string against regular expressions that are only
>known at run-time. I'm having problems do
Robin Lavallee wrote:
: On the command lines, the following happend
:
: allo al => match
: allo /al/ => no match (should match, no ?)
No, because "allo" doesn't contain any slashes.
: allo lo$ => match
: allo ^al => match
: allo ^ao$
Just wanted to point out that the pair:
allo ^ao$
doesn't work, because this regex matches "ao" on a line by itself. you
would have to perform two matches, one for "^a" and another for "o$" in
order to match te string "allo" this way. As for why the '/' doesn't
cooperate, it has to do with the
Hi people,
I need to match string against regular expressions that are only
known at run-time. I'm having problems doing it so I made a small test
script like the following :
#!/net/tcmvega35/data1/automation/perl/bin/perl -w
use strict;
die "test.pl [string] [regex]" unless $#ARGV ==
Hello everyone,
Your assumption was right - I am a "raw newbie" and did not post the follow
up questions... but they did lead me to some fairly interesting discoveries
on Perl!
I really did appreciate your help in solving my problem though.
Thanks for your support
amit
>From: Paul <[EMAIL
When I first started, I found these two sites helpful...
http://www.cgi-resources.com/
http://www.hotscripts.com/
Andy
On Tue, 22 May 2001, Richard KHOO Guan Chen wrote:
> Sorry if this is a stupid question
>
> Just wondering if there is a site which have useful simple perl scripts
> for to
Read up on pack() and unpack(). We use it to get C++ structures from a dll
and throw them into a hash ref and vice versa.
The basic concept would be for your dll or whatever to pass a pointer to
your perl script. Your perl script would then unpack() it as a long into a
variable. For perl, t
I have the same problem with a client of mine -- unfortunately, unless you
have your own server, your stuck with their setup.
I've gotten around the problem using the I switch in the shebang line:
#!/usr/bin/perl -I./lib
after than, I can include any module living in my lib directory the same
At 11:09 21.05.2001 -0700, you wrote:
>if ($oldLot[1] == 0)
>{
> $arpCount = $arp{$lot}; ==> Part 1
>}
>else
>{
> $arpCount = "-"; ==> Part 2
>}
>
>printf "%3s %3d ", $arpCount, $count;
>
>My problem occurs in the "printf" at the "%3s". Here
>is the situation: When $oldLot[1] =
Hi Folks.
I have a select statement that pulls out names and email addresses from
a database . These values then get represented in a multiple select box
with the name as the visual value and the email as the posted value.
What I want to do is collect all the email values into a array and then
70 matches
Mail list logo
