Re: working on time

2003-10-14 Thread David Wall
--On Monday, October 13, 2003 1:34 PM -0700 Jorge Barrios <[EMAIL PROTECTED]> wrote: [EMAIL PROTECTED] (Mark Lobue) writes: > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > > It's fair enough to use 86,400 sec in a day. But what about > adding days or Adding days is simply adding multiple

Re: pretty printer

2003-10-04 Thread David Wall
--On Saturday, October 04, 2003 5:31 PM +0200 Reinhold Riedersberger <[EMAIL PROTECTED]> wrote: I'm searching for a prettyprinter for perl, html, php. If possible written with php or perl. Any help...? http://perltidy.sourceforge.net/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additi

Re: vaiables global and local

2003-10-01 Thread David Wall
--On Tuesday, September 30, 2003 1:43 PM -0700 david <[EMAIL PROTECTED]> wrote: [EMAIL PROTECTED] wrote: How do you declare a var global versus local? It seems variables a local and not static as in shell. [big snip] all this is explained at: perldoc -q scope perldoc -q "difference between dy

Re: Perl Newbie - Need good book recommendation

2003-09-28 Thread David Wall
--On Saturday, September 27, 2003 8:06 PM -0400 Ed Yost <[EMAIL PROTECTED]> wrote: I am a complete newbie to perl and have no programming experience. Do any of you have a good recommendation on a book or resource for a beginner such as myself? A list of good Perl books is maintained at http://l

Re: Is -w deprecated?

2003-09-26 Thread David Wall
--On Friday, September 26, 2003 5:51 PM -0400 Dan Anderson <[EMAIL PROTECTED]> wrote: In the book I bought, Programming Perl, by O'Reilly they say I should use warnings instead of -w after the shebang and the perl path because -w is deprecated. Is this true? Also, will use warnings; wor

Re: OT: Can anyone recommend a good list where CSS talk would be acceptable

2003-09-25 Thread David Wall
--Dan Anderson wrote: I have some CSS questions. Can anyone recommend a good mailing list? How about usenet? Try comp.infosystems.www.authoring.stylesheets -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Two dimensional associative arrays?

2003-09-17 Thread David Wall
--On Wednesday, September 17, 2003 7:52 PM -0700 Airman <[EMAIL PROTECTED]> wrote: Is there any special way to do row/col (two dimensional) based associative arrays? Something like: $array{1.1}="line one column one"; $array{1.2}="line one column two"; Close. You need a hash of (references to) h

Re: Pearl

2003-09-14 Thread David Wall
--On Sunday, September 14, 2003 8:40 AM -0600 Al Green <[EMAIL PROTECTED]> wrote: I am new to Perl and I would like a script that I can uxse to search for text pattern with a file or files as a wild card or with a given extension. Please reply of list. You can use File::Find for that, but if yo

Re: Deleting a line that contains certain text

2003-09-06 Thread David Wall
--On Saturday, September 06, 2003 7:45 PM -0400 perlwannabe <[EMAIL PROTECTED]> wrote: OK, I have a new problem. I need to delete an entire line that contains certain text. I have done an extensive search and had no luck finding an adequate answer. Yes, I also saw the FAQ that just refers me

Re: case conversion problem

2003-09-05 Thread David Wall
--On Friday, September 05, 2003 2:14 PM +0100 Gary Stainburn <[EMAIL PROTECTED]> wrote: I've got to tidy some data, including converting case. I need to convert ANOTHER COMPANY NAME LTD ** to Another Company Name Ltd ** while retaining spaces. I've tried using split / join / lc

RE: IIS Log File Conversion

2003-09-04 Thread David Wall
--On Thursday, September 04, 2003 9:48 AM +0100 Nigel Peck - MIS Web Design <[EMAIL PROTECTED]> wrote: Thanks, I found that but I'm looking for a Perl solution, should be possible with a one liner regex substitution AFAIK. Doesn't IIS document its log file format somewhere? I know Apache does:

Re: cutting a string

2003-09-03 Thread David Wall
--On Wednesday, September 03, 2003 9:20 PM -0600 [EMAIL PROTECTED] wrote: On Mon, 1 Sep 2003 [EMAIL PROTECTED] wrote: What is the function of cutting a string from a point until the last character? For example $string="C:/progra~1/directory1/directory2/file.txt"; i want to find the last backslash

Re: AW: if-else-statement

2003-09-03 Thread David Wall
--On Wednesday, September 03, 2003 11:56 PM +0200 "B. Fongo" <[EMAIL PROTECTED]> wrote: The original script has both -w and strict on, and no warnings are generated. So everything is ok except param perhaps. The value of param is some how sticky. Look at the docs for CGI.pm under pragmas, the -no

Re: After "Beginning Perl"?

2003-09-01 Thread David Wall
Learning Perl Objects References and Modules" because it gave a systematic treatment of stuff I had picked up in bits and pieces. I'd recommend LPORM because it has necessary knowledge for understanding the code in Stein's networking book. "The Perl Cookbook" is a

Re: HTML Tags matching

2003-08-31 Thread David Wall
--On Saturday, August 30, 2003 10:35 PM -0400 K Old <[EMAIL PROTECTED]> wrote: On Sat, 2003-08-30 at 22:14, [EMAIL PROTECTED] wrote: [trying to parse HTML with regexes] Have a look at the HTML::Parser module at http://search.cpan.org/dist/HTML-Parser/ Or if that module seems strange, there's th

Re: Graphing/Plotting over time

2003-08-28 Thread David Wall
--On Thursday, August 28, 2003 3:19 PM -0400 Chuck Fox <[EMAIL PROTECTED]> wrote: What about using perl to massage the data into a file (or hash) and then using gnuplot ( or Graph::Plot ) Nothing wrong with that at all. I was just pointing out that there is alreadyt software written for stati

Re: Graphing/Plotting over time

2003-08-28 Thread David Wall
--On Wednesday, August 27, 2003 1:29 PM -0500 "Akens, Anthony" <[EMAIL PROTECTED]> wrote: Just wanted to look into a "for fun" project, after a recent project that wasn't much fun at all... Our organization got hit by the blaster worm, which hit many, many windows boxes. The *nix boxes (which

Re: Software Design - Software Management - Project Management

2003-08-26 Thread David Wall
--On Tuesday, August 26, 2003 12:36 AM +0200 Paul Johnson <[EMAIL PROTECTED]> wrote: You might like to take a look at some of the ideas from XP (that's extreme programming). Type that into google and poke around for a bit. They have some interesting ideas on these topics. Things that many peo

Re: rearrange text

2003-08-25 Thread David Wall
--On Monday, August 25, 2003 6:50 PM -0400 Mike Robeson <[EMAIL PROTECTED]> wrote: OK, I feel like an idiot. When I initially asked for help with this I just realized that I forgot two little details. I was supposed to add the number of sequences as well as the length of the sequences at the to

RE: the File::Copy module

2003-08-20 Thread David Wall
--On Wednesday, August 20, 2003 8:01 AM -0700 Jeff Westman <[EMAIL PROTECTED]> wrote: As for qhat 'qq' does, it behaves like double quotes. As you pointed out, it CAN make your code harder to read (!) sincemany people are not accustomed to it. For me, '"' is more customary (with C/C++ or shell)

Re: Please don't say RTFM

2003-08-17 Thread David Wall
--On Sunday, August 17, 2003 5:08 PM +0100 Rob Dixon <[EMAIL PROTECTED]> wrote: Glad you're on track, but I'd prefer no 'F's. RTM is fine :) What does Robert T. Morris have to do with it? :-) One thing that makes life easier for us people on windoze to use perldoc is to grab a copy of less t

Re: Problems with PPM and ActivePerl

2003-08-14 Thread David Wall
--On Tuesday, August 12, 2003 2:32 PM -0400 "KING,SETH (HP-Boise,ex1)" <[EMAIL PROTECTED]> wrote: I recently installed the ActivePerl 5.8.0.806 on my Win2k box. I installed it in the default location "C:\Perl" and have not moved it or done anything to the installation. When I type "ppm" at the C:

Re: Read only variabls

2003-08-14 Thread David Wall
--On Wednesday, August 13, 2003 9:16 PM +0100 Rob Dixon <[EMAIL PROTECTED]> wrote: Lexical variables are another matter, as they don't belong to a given package but exist globally as long as there is a reference to them. In my opinion this is a bit of a hack, but access can be limited by creating

RE: AOL and IP Address Changes

2003-08-14 Thread David Wall
--On Tuesday, August 12, 2003 3:07 PM -0400 Bob Showalter <[EMAIL PROTECTED]> wrote: Ron Goral wrote: I am writing a script that relies on retrieving the $ENV{REMOTE_ADDR} from the user's browser. I'm depending on this for database information retrieval rather than cookies or some type of java

Re: regex question

2003-08-14 Thread David Wall
. As the warning says, one of your variables doesn't contain a value (is uninitialized). Maybe you somehow missed assigning a value, parsed the ORDER file incorrectly, or the data is missing from the ORDER file, or If the data is missing from the ORDER file, you need to add

Re: List::Util / arrays

2003-08-14 Thread David Wall
--Jakob Kofoed <[EMAIL PROTECTED]> wrote: I am trying to get the maximum number in a file looking like: 1 5001 2 5002 3 5003 4 5004 5 5005 6 5006 7 5007 8 5008 9 5009 10 5010 11 5011 12 5012 13 5013 14 5014 15 5015 16 5016 17 5017 18 5018 19 5019 How about so

Re: cookies

2003-08-14 Thread David Wall
--On Wednesday, August 13, 2003 4:44 PM +0100 "Mace, Richard" <[EMAIL PROTECTED]> wrote: I want to start using cookies to store user session information and build associated privileges on web pages. I'm starting as a complete novice in this field, has anyone else got off to a flyer using a book o

RE: While loop on a file handle

2003-08-06 Thread David Wall
--On Wednesday, August 06, 2003 2:50 PM +0200 Jenda Krynicky <[EMAIL PROTECTED]> wrote: From: "Morrison, Trevor (Trevor)" <[EMAIL PROTECTED]> What I am trying to do is to process a file that has say 1000 orders in it all pretty much of the same format. I want to open up the file, and then usin

Re: Need help with if statement - please

2002-02-22 Thread David Wall
Chris <[EMAIL PROTECTED]> wrote on 21 Feb 2002: >> print "4 pings, $count were successful\n"; >> > > Not sure if the Net::Ping will give me what I really need... > > What you saw is a VERY small part of the program, and all I > wanted to do was give some realistic status, visually, "realti

Re: Need help with if statement - please

2002-02-21 Thread David Wall
Chris <[EMAIL PROTECTED]> wrote on 21 Feb 2002: > if ( substr(@result[$Pcount],0, 12) == 'Packets:' ) { How about if ( substr($result[$Pcount],0, 12) eq 'Packets:' ) { $result[$Pcount] is a scalar, not an array. or if ( $result[$Pcount] =~ /^\s+Packets:/ ) { But I think

Re: Interfacing with Microsoft Access Database in win2k wiht ActiveSt ate Perl 5.6.01. General Help needed.

2001-12-20 Thread David Wall
tabase system. Since I'm no expert at it, I'll avoid a longer answer so I won't accidentally give you incorrect information. -- David Wall [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: "Shorthand"

2001-11-21 Thread David Wall
t creating subs with names that long) I just wonder what a Function Witch is... "I'll get you, my pretty! f(x) = x^2 + 5x + 3 sin(x) -- and your little dog, too!" -- David Wall [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Help with global match and replace

2001-11-19 Thread David Wall
ferred function (actually an operator) is tr/// $thestring =~ tr/'/ /; If tr/// is a shovel, then s/// is a bulldozer. -- David Wall [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: pulling multiple lines from a file

2001-11-16 Thread David Wall
[EMAIL PROTECTED] wrote on 16 Nov 2001: > What I want to do is scroll thru the file and when it finds the line > that starts with "NC00" print that line and the next 5 lines. Here's one way: while () { next unless /^NC00/; print; $_ = , print for 1..5; }

Re: problem getting scalars out of array

2001-11-15 Thread David Wall
3600); > } > > > #print results > my $present = ($year + 1900); > open(DAILY,">>$mday-$mon-$present-mailin.html") || die "can't open > daily.html $!\n"; my ($day, $month, $year) = (localtime())[3,4,5]; $year += 1900; open(DAILY,

Re: expanding a pattern

2001-11-14 Thread David Wall
next if $range !~ /^(\d+)-(\d+)$/; my ($start, $end) = ($1, $2); if ($start <= $end) { print "fred$_\n" for $start .. $end; } } } __END__ -- David Wall [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]