slightly OT - co-ordinates

2005-04-12 Thread Chris Knipe
Lo all, This is slightly off topic, but does anyone know how to convert hours, minutes seconds coordinates into decimal? I.e. S33* 58.08, E18* 36.27'151 to the xx.x -xx.x Doing this manually / online is out of the question unfortunately. I have over 20,000 to convert :(( Thanks -

Re: very new - need help with regular expressions

2005-04-12 Thread M. Kristall
John W. Krahn wrote: M. Kristall wrote: John W. Krahn wrote: As long as you realise that putting a space between the operator name and the left parenthesis may trigger a warning when warnings are enabled. (And you DO have warnings enabled, don't you?) $ perl -le'use warnings; print( 1,2,3,4,5 )

Re: slightly OT - co-ordinates

2005-04-12 Thread John W. Krahn
Chris Knipe wrote: Lo all, Hello, This is slightly off topic, but does anyone know how to convert hours, minutes seconds coordinates into decimal? I.e. S33* 58.08, E18* 36.27'151 to the xx.x -xx.x Doing this manually / online is out of the question unfortunately. I have over 20,000 to conv

Maillog parser for postfix

2005-04-12 Thread Ramprasad A Padmanabhan
Hi, Is there a module for parsing maillogs created by the postfix smtp server. I think there is one for sendmail .. but not for postfix. I am required to do some reporting using the maillog .. Should I just go ahead an write my own parser ? Thanks Ram --

Case statements

2005-04-12 Thread David Gilden
Hello, I am trying to create case statement, and I am not sure I am on the right track, any comments? Thanks, Dave Gilden SWITCH: { ## yacht form if ($whichForm eq "123") { $subject = "123 Form"; $recipient = "[EMAIL PROTECTED]"; $cc = "[EMAIL PROTECTED]"; LAST SWITCH; } ## regatta form

Re: Case statements

2005-04-12 Thread Ing. Branislav Gerzo
David Gilden [DG], on Tuesday, April 12, 2005 at 10:24 (-0500) typed the following: DG> I am trying to create case statement, and I am not sure I am on the right track, DG> any comments? try to write at your console your subject, eg: perldoc -q "case statement" -- ...m8s, cu l8r, Brano. ["W

Re: Case statements

2005-04-12 Thread Chris Devers
On Tue, 12 Apr 2005, David Gilden wrote: > I am trying to create case statement, and I am not sure I am on the right > track, > any comments? Would something like this get the same result? my %form_action = ( 000 => sub {}, # silently ignore this one 123 => handle_form(123);

RE: Case statements

2005-04-12 Thread Wagner, David --- Senior Programmer Analyst --- WGO
Chris Devers wrote: > On Tue, 12 Apr 2005, David Gilden wrote: > >> I am trying to create case statement, and I am not sure I am on the >> right track, any comments? > > Would something like this get the same result? > > my %form_action = ( > 000 => sub {}, # silently ignore this one

RE: Case statements

2005-04-12 Thread Chris Devers
On Tue, 12 Apr 2005, Wagner, David --- Senior Programmer Analyst --- WGO wrote: > Chris Devers wrote: > > Also, as a side note, if $whichForm is numeric, you should just use > > the nueric comparisons rather than the string ones: > > > > if $whichForm eq "123" # bad! > > if $whichForm

Re: Case statements

2005-04-12 Thread Jonathan Paton
On Apr 12, 2005 4:24 PM, David Gilden <[EMAIL PROTECTED]> wrote: > Hello, > > I am trying to create case statement, and I am not sure I am on the right > track, > any comments? perldoc Switch Jonathan Paton -- #!perl $J=' 'x25 ;for (qq< 1+10 9+14 5-10 50-9 7+13 2-18 6+13 17+6 02+1 2-10 00+4 0

RE: slightly OT - co-ordinates

2005-04-12 Thread Bliss, Kevin
Check out the module Geo::Coordinates::DecimalDegrees on CPAN. -Original Message- From: Chris Knipe [mailto:[EMAIL PROTECTED] Sent: Tuesday, April 12, 2005 12:12 AM To: beginners@perl.org Subject: slightly OT - co-ordinates Lo all, This is slightly off topic, but does anyone know how t

CGI advice

2005-04-12 Thread Mike Lesser
Hi all. Okay, here's the latest. I've been screwing around with my first CGIs - pretty cool, now I see the appeal. Anyway, I'm fairly comfortable using MySQL and generating XML output from it, and printing it to files and stdout. Now I'd like to create the usual web interface that starts with a

Searching for embedded EOF in binary

2005-04-12 Thread Jay Savage
Hi, all: Below is a script to extract jpegs from an image of a corrupted or accidentally erased CF or other removable media from a digital camera. It's (heavily) modified from some C++ code I found that works pretty well. Basically, it looks for the jpeg magic number, an assumes that the start of

choosing the correct attachment

2005-04-12 Thread Brian Volk
Hi All, I thought I had this figured out but I was wrong. The part I'm having trouble w/ is getting the loop to attach the correct html_file. Right now that program will attach this file every time: my $html_file = 'c:\brian\test\html\12345.htm'; What I would like to happen is if f ($_ eq

Re: Searching for embedded EOF in binary

2005-04-12 Thread John W. Krahn
Jay Savage wrote: Hi, all: Hello, Below is a script to extract jpegs from an image of a corrupted or accidentally erased CF or other removable media from a digital camera. It's (heavily) modified from some C++ code I found that works pretty well. Basically, it looks for the jpeg magic number, an a

Re: Searching for embedded EOF in binary

2005-04-12 Thread Jay Savage
On 4/12/05, John W. Krahn <[EMAIL PROTECTED]> wrote: > I can see two problems right away. > > while (!eof) { > > You need to specify the filehandle you are reading from. > A bare eof operates on the last filehandle read from. perldoc -f eof. The only place I'm going to get EOF from the OS he

Operation `eq': no method

2005-04-12 Thread Anish Kumar K
Hi All The code gives strange error $subject = I get some value from the function if ($subject eq '' || !defined $subject) { Some operation } Operation `eq': no method found, left argument in overloaded package XML::LibXML::NodeList, right argument has no overloaded magic at test.pl

Re: Operation `eq': no method

2005-04-12 Thread Ing. Branislav Gerzo
Anish Kumar K [AKK], on Wednesday, April 13, 2005 at 10:08 (+0530) typed: AKK> The code gives strange error AKK> $subject = I get some value from the function AKK> if ($subject eq '' || !defined $subject) AKK> { AKK> Some operation AKK> } why you don't use: unless ($subject) { some_ope

Command line parameters

2005-04-12 Thread Ramprasad A Padmanabhan
I want to write a perl script like "gnu less". My perl script accepts input on STDIN or filename(s) as arguments. If both are missing it should print the error message. How do I do this ? The pseudocode will be -- IF INPUT ON STDIN ;then Process STDIN ELSE IF ARGUMENT(S) is a