Re: Looping through variables

2002-05-18 Thread Michael Fowler
On Fri, May 17, 2002 at 04:41:39PM +0800, [EMAIL PROTECTED] wrote: > FWIW: Looking back at my original script, I had declared the variables > $name, $age, $phone *OUTSIDE*OF* the foreach loop. That's why they were > undefined!!! > > my ($name, $age, $phone); > foreach (qw(name age phone)) {

Re: Looping through variables

2002-05-18 Thread eric-perl
On Sat, 18 May 2002, Michael Fowler wrote: > Given your code above, that isn't the problem. Where they're declared has > no effect on the definedness; it does, however, cause compile-time errors > when use strict is in effect. That is not the problem you were > encountering, though. The variabl

Re: Looping through variables

2002-05-18 Thread eric-perl
FWIW: This is the solution that I finally settled upon (in full context): $column_names = "COMPANY_NAME,JOB_TITLE,JOB_ID,URL,MAIL_TO,ATTACH,DATE"; foreach (qw(company_name job_title job_id url mail_to attach)), time) { # Append the quote'd parameter-value || the time-value in the list $new_va

Re: Regex a name field

2002-05-18 Thread Harry Jackson
> > > -Original Message- > > > From: Ned Cunningham [mailto:[EMAIL PROTECTED]] > > T Nobel > > > > > > I am trying to replace the spaces with a single space > > > > > > My code so snippet is: > > > > > > $cuname = $data[53]; > > > > > > $newcuname = /" "+/" "/$cuname; > > > > Thi

a simple question

2002-05-18 Thread Stuart Clark
Hi All Is there an easier way of picking out the number 16764 in this line rather that using an array, split then $number[3] I just want to get 16764 into $recievedmail Is the answer something like this $recievedmail = ($data)[3]; $data = "Received 921MB 16764 3955 375 2.2% 1296 7.7%";

help!

2002-05-18 Thread Haitham N Traboulsi
Hi, I am working on finding a group of consecutive numbers within a given array. I have tried many ways doing that, however I have not succeeded in that. Here is an example that illustrates my task. imagine that we have got this list or array which contains some consecutive numbers e.g. (1,2,3,

help!

2002-05-18 Thread Haitham N Traboulsi
Hi, I am working on a chunk of PERL software that can find out the groups of consecutive numbers located within a list. For instance imagine that the list contains 1, 2, 3, 4, 10, 14, 15, 16, 20, 34, 35, 36,... the program has to locate 1, 2, 3, 4 14, 15, 16 34, 35, 3

CGI.pm and .com.com domain cookie

2002-05-18 Thread Zachary Buckholz
Would the owners of com.com be able to access any cookies set by any domain that ends with .com? While working with CGI::Application and CGI::Session and going through my cookies on my local machine I noticed a cookie from com.com Any insight from anyone about this? -- To unsubscribe, e-mai

newbie question

2002-05-18 Thread Stuart Clark
Hi again, Thanks john for helping me with this solution to get the 16764 out of the $data string ($recievedmail) = $data =~ /\b(\d+)\b/; I have another question How would I pick out the 375 in the same string $data = "Received 921MB 16764 3955 375 2.2% 1296 7.7%"; -- To unsubscrib

RE: newbie question

2002-05-18 Thread Beau E. Cox
Hi - use strict; my $data = "Received 921MB 16764 3955 375 2.2% 1296 7.7%"; @_ = $data =~ /\b(\d+)\b/g; print "$_\n" for (@_); # prints 16764 3955 375 2 2 1296 7 7 print "$_[2]\n";# prints your guy: 375 Throw the "global" (g) on the RegEx and get the results into an array..

printing html

2002-05-18 Thread Mat Harris
I know all about printing html to a browser from a CGI script, but is it possible to put PHP in that html? If so, how? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

RE: help!

2002-05-18 Thread Beau E. Cox
Hi - Please try: use strict; my @list = (1, 2, 3, 4, 10, 14, 15, 16, 20, 34, 35, 36,); my %conseq; # temp hash $conseq{$_} = $_ for (@list); for (keys %conseq) {delete $conseq{$_} unless $conseq{$_-1} or $conseq{$_+1}} my @conseq; # result (note: remember scalars, arrays, hashes # h

Re: help!

2002-05-18 Thread Tim Musson
Hey Haitham, My MUA believes you used Microsoft Outlook Express 6.00.2600. to write the following on Friday, May 17, 2002 at 10:08:48 PM. HNT> Hi, I am working on a chunk of PERL software that can find out HNT> the groups of consecutive numbers located within a list. For HNT> instance imagin

use warning; vrs diagnostics;

2002-05-18 Thread Tim Musson
Hey all, I have noticed people suggesting/using the 'use warnings;' statement, and I had been using the 'use diagnostics;' statement. I started the 'diagnostics' thing based on reading this list a number of months ago. Now the recomendation seems to have changed. Is that true, and if

Re: Looping through variables

2002-05-18 Thread drieux
On Friday, May 17, 2002, at 07:44 , bob ackerman wrote: [..] > try it without the 'my' on your variables. > and then tell me why that matters as you thwack yourself upside. "I do not like you sam I am, I do not like you with green eggs or Ham" http://www.wetware.com/

RE: printing html

2002-05-18 Thread Beau E. Cox
Hi - Unless I'm missing something, just print ...php stuff; Anything printed to STDOUT in a CGI module populates the web page. If you are using a CPAN module to generate HTML, just be sure to be "outside" his function calls. Aloha - Beau. -Original Message- From: Mat Harris [mailto:

Re: help!

2002-05-18 Thread drieux
On Friday, May 17, 2002, at 07:08 , Haitham N Traboulsi wrote: > Hi, > I am working on a chunk of PERL software that can find out the groups of > consecutive numbers located within a list. For instance imagine that the > list contains 1, 2, 3, 4, 10, 14, 15, 16, 20, 34, 35, 36,

RE: help!

2002-05-18 Thread Beau E. Cox
If this is homework, please send me 50% credit... -Original Message- From: Haitham N Traboulsi [mailto:[EMAIL PROTECTED]] Sent: Friday, May 17, 2002 4:09 PM To: [EMAIL PROTECTED] Subject: help! Hi, I am working on a chunk of PERL software that can find out the groups of consecutive numb

Effective Perl Programming

2002-05-18 Thread Beau E. Cox
Hi all - I would like to recommend "Effective Perl Programming" by Joseph N. Hall with Randal L, Schwartz, Addison-Wesley, 1998, ISBN 0-201-41975-0. Although "old", it has really helped my style. I was raised with c. My early Perl efforts were very c-ish. For example, to print an array I went fr

Re: use warning; vrs diagnostics;

2002-05-18 Thread drieux
On Saturday, May 18, 2002, at 06:20 , Tim Musson wrote: > > Hey all, I have noticed people suggesting/using the 'use warnings;' > statement, and I had been using the 'use diagnostics;' statement. I > started the 'diagnostics' thing based on reading this list a number > of months ago. N

the homework assignment problem

2002-05-18 Thread drieux
On Saturday, May 18, 2002, at 06:22 , Beau E. Cox wrote: > > Please try: not a bad solution per se - but there are two issues that we do not know - since we are not privy to the actual homework assignment itself - a) will returning a list of the consecutive numbers suff

problem with Mail::Mailer

2002-05-18 Thread Geoffrey F. Green
Hello: I'm trying to get the following (blissfully short) script to work. As you can see, it's supposed to send mail. And when I run it, it returns without an error. But no mail is ever sent. Note that I do have Net::SMTP installed, and I am able to send mail directly using Net::SMTP. Any th

RE: the homework assignment problem

2002-05-18 Thread Beau E. Cox
No, really - I showed you mine, now you show me yours! Aloha - Beau. -Original Message- From: drieux [mailto:[EMAIL PROTECTED]] Sent: Saturday, May 18, 2002 4:47 AM To: [EMAIL PROTECTED] Subject: the homework assignment problem On Saturday, May 18, 2002, at 06:22 , Beau E. Cox wrote:

RE: help!

2002-05-18 Thread Harry Jackson
--- "Beau E. Cox" <[EMAIL PROTECTED]> wrote: > Hi - > > Please try: > > use strict; > > my @list = (1, 2, 3, 4, 10, 14, 15, 16, 20, 34, 35, 36,); > my %conseq; # temp hash > $conseq{$_} = $_ for (@list); > for (keys %conseq) {delete $conseq{$_} unless $conseq{$_-1} or > $conseq{$_+1}} > my @co

RE: the homework assignment problem

2002-05-18 Thread CATHY GEAR (TRUST HQ)
It would also help me and, perhaps, some of the less astute out here who, like me, haven't: - been near a college - saw Perl for the first time only a few weeks ago - read so-called relevant bits of Perl for Dummies to try and obtain a solution wanted urgently in a prod environment - have on

RE: help!

2002-05-18 Thread Beau E. Cox
Ok, but, but... I ignored uniqueness because non-unique numbers are NOT consecutive. My solution works on non-sorted input arrays. Aloha - Beau. -Original Message- From: Harry Jackson [mailto:[EMAIL PROTECTED]] Sent: Saturday, May 18, 2002 5:01 AM To: [EMAIL PROTECTED] Subject: RE: help

Re: help!

2002-05-18 Thread Chris Ball
> "Haitham" == Haitham N Traboulsi <[EMAIL PROTECTED]> writes: Haitham> Here is an example that illustrates my task. imagine that Haitham> we have got this list or array which contains some Haitham> consecutive numbers e.g. (1, 2, 3, 4, 6, 8, 34, 50, 51, 52, Haitham> 60, 66,

RE: the homework assignment problem

2002-05-18 Thread Felix Geerinckx
on Sat, 18 May 2002 15:05:01 GMT, Cathy Gear wrote: > It would also help me and, perhaps, some of the less astute out here > who, like me, haven't: > - been near a college > - saw Perl for the first time only a few weeks ago > - read so-called relevant bits of Perl for Dummies to try and obta

Re: the homework assignment problem

2002-05-18 Thread Chris Ball
> "Cathy" == CATHY GEAR (TRUST HQ)" <[EMAIL PROTECTED]>> writes: Cathy> But sometimes I don't hold out much hope as I don't Cathy> understand the significance of foo or bar! foo and bar are 'meta-syntactic variables'; variables names that we use when describing how programs work, to

Re: newbie question

2002-05-18 Thread drieux
On Saturday, May 18, 2002, at 05:09 , Beau E. Cox wrote: > use strict; > > my $data = "Received 921MB 16764 3955 375 2.2% 1296 7.7%"; > @_ = $data =~ /\b(\d+)\b/g; > print "$_\n" for (@_);# prints 16764 3955 375 2 2 1296 7 7 > print "$_[2]\n"; # prints your guy: 375 > >

Re: DBI/DBD

2002-05-18 Thread fjohnson
Thanks, Felix. Your suggestion worked. I'm now performing inserts on my MS_SQL database. -fjohnson "Felix Geerinckx" <[EMAIL PROTECTED]> wrote in message [EMAIL PROTECTED]">news:[EMAIL PROTECTED]... > on Fri, 17 May 2002 01:32:54 GMT, Fjohnson wrote: > > > The error I am getting with this ver

Re: I want it skips to the line where it stopped.

2002-05-18 Thread loan tran
Thanks very much Dieux for the illustrations. It's the answer for question #1. I still seem can not figure out the answer for question #2 by myself. Can you please help? Thanks. --- drieux <[EMAIL PROTECTED]> wrote: > > On Friday, May 17, 2002, at 03:18 , loan tran wrote: > > My question are: >

rescuing our Cultural Heritage

2002-05-18 Thread drieux
On Saturday, May 18, 2002, at 08:42 , Chris Ball wrote: [..] > > foo and bar are 'meta-syntactic variables'; variables names that we use > when describing how programs work, to show that we're talking about > something that could be any variable. You can read about them at: > >http://www.tux

Re: I want it skips to the line where it stopped.

2002-05-18 Thread drieux
On Saturday, May 18, 2002, at 10:11 , loan tran wrote: [..] > I still seem can not figure out the answer for > question #2 by myself. Can you please help? > Thanks. the only way to keep state between reboots is to write volitile memory to a persistent storage in some place which will survive the

Re: problem with Mail::Mailer

2002-05-18 Thread drieux
On Saturday, May 18, 2002, at 07:53 , Geoffrey F. Green wrote: [..] > Note that I do have Net::SMTP installed, and I am able to send mail > directly > using Net::SMTP. [..] > (Running OS X 10.1.4, if it matters.) nope - jeeves is also an OS X box [..] > my %headers = ( > From=> '[EMAIL P

Re: Looping through variables

2002-05-18 Thread drieux
On Saturday, May 18, 2002, at 11:33 , Timothy Johnson wrote: > BTW, what does the cf stand for? it is a percursor to "perldoc $arg $bob" - used to denote that there exists some documentation with regards to the matter at hand. In the case of a direct quote to denote that this is an abreviation

Re: I want it skips to the line where it stopped.

2002-05-18 Thread loan tran
Thanks very much. Loan --- drieux <[EMAIL PROTECTED]> wrote: > > On Saturday, May 18, 2002, at 10:11 , loan tran > wrote: > [..] > > I still seem can not figure out the answer for > > question #2 by myself. Can you please help? > > Thanks. > > the only way to keep state between reboots is > to w

Re: use warning; vrs diagnostics;

2002-05-18 Thread John W. Krahn
Tim Musson wrote: > > Hey all, I have noticed people suggesting/using the 'use warnings;' > statement, and I had been using the 'use diagnostics;' statement. I > started the 'diagnostics' thing based on reading this list a number > of months ago. Now the recomendation seems to have chan

Re: Effective Perl Programming

2002-05-18 Thread John W. Krahn
"Beau E. Cox" wrote: > > Hi all - Hello, > I would like to recommend "Effective Perl Programming" by Joseph N. Hall > with Randal L, Schwartz, Addison-Wesley, 1998, ISBN 0-201-41975-0. Although > "old", it has really helped my style. Anyone want an autographed copy?[0] :-) > I was raised wit

Re: Effective Perl Programming

2002-05-18 Thread drieux
On Saturday, May 18, 2002, at 12:53 , John W. Krahn wrote: > Semi-colons, like commas, are separators not terminators. fore the semantically disenabled, the distinction betwee the notion of a 'separator' and a 'terminator' is what? > > John > [0] sorry I'm keeping it. > [1] for you acronymly i

Re: Looping through variables

2002-05-18 Thread Michael Fowler
On Sat, May 18, 2002 at 01:05:57AM +0800, [EMAIL PROTECTED] wrote: > On Sat, 18 May 2002, Michael Fowler wrote: > > Instead of using DBI's quote method use placeholders: > > $dbh->do( > > "INSERT INTO $dbfile ($column_names) VALUES (?, ?, ?)", > > {}, > > $age, $name, $

Re: Effective Perl Programming

2002-05-18 Thread John W. Krahn
Drieux wrote: > > On Saturday, May 18, 2002, at 12:53 , John W. Krahn wrote: > > > Semi-colons, like commas, are separators not terminators. > > fore the semantically disenabled, the distinction betwee > the notion of a 'separator' and a 'terminator' is what? A separator is required _between_

Re: Effective Perl Programming

2002-05-18 Thread drieux
On Saturday, May 18, 2002, at 03:08 , John W. Krahn wrote: [..] > > A separator is required _between_ objects. A terminator is required _at > the end of_ objects. A delimiter is required _at the beginning and end_ > of objects. > > Quotation marks, braces, brackets, and parenthesis are delimite

Fwd: Does Mail::Mailer work?

2002-05-18 Thread drieux
Begin forwarded message: > From: [EMAIL PROTECTED] > Date: Sat May 18, 2002 04:30:36 US/Pacific > To: [EMAIL PROTECTED] > Subject: Does Mail::Mailer work? > > We'll see George - just loaded up what I needed to run this from bbedit { have I mentioned that bbedit on an OSX box is the obl

AboutDoes Mail::Mailer work? on OS X platform

2002-05-18 Thread drieux
We'll see - seems to work for me George ### #!/usr/bin/perl -w ### use strict; ### ### # #FILENAME#- is for email testing of Greens problem ### # cf : http://archive.develooper.com/beginners%40perl.org/msg26413.html ### # http://www.wetware.com/drieux/pbl/email/useMailMailer.txt ### ### use stri

Re: Effective Perl Programming

2002-05-18 Thread John W. Krahn
Drieux wrote: > > On Saturday, May 18, 2002, at 03:08 , John W. Krahn wrote: > > > > A separator is required _between_ objects. A terminator is required _at > > the end of_ objects. A delimiter is required _at the beginning and end_ > > of objects. > > > > Quotation marks, braces, brackets, and