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

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

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

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

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: 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 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: 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: 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: 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: 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: 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: 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

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 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: >

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: 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: 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: 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: 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: 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: 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 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 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:

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

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

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

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: 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

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: 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: 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/

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: 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

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

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: 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..

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

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

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

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,

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%";

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

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: 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 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)) {