Re: Reading a Foxpro db

2003-05-27 Thread R. Joseph Newton
Jair Santos wrote: > Thanks Joseph, > > I did what you said but still makes no sense . The "Got this far " is in the > middle of the pm error messages" . Look the code in the bottom of the email. > > Scalar value @fret[$i-1] better written as $fret[$i-1] at > C:/Perl/site/lib/Xbase > .pm line 500.

re: Checking existence of directories

2003-05-27 Thread Kevin Pfeiffer
In article <[EMAIL PROTECTED]>, Arashi wrote: > Kevin Pfeiffer wrote: [...] > I have a couple of questions about your script, if you don't mind > explaining. I'm a newbie, so pls. bear with me if my questions sound > really obvious... So am I and I know the feeling (but this list takes good care

RE: Comparing Dates Conditional statements

2003-05-27 Thread Dan Muey
While using a module or a database's built in time/date functions would be best you can do it as a straight numeric comparison. But you must be very careful as to how you order those numbers or you'll get Improper results. # mmdd $foo = 20030101; $bar = 20021231; # can even add hours minutes

Re: Comparing Dates Conditional statements

2003-05-27 Thread Mark G
> That won't work if the dates are more than a year apart(i.e. >100302 will Thanx Tim, I didnt think about that. Perhaps you will need to break up the string into 3 fields. Mark G - Original Message - From: "Tim Johnson" <[EMAIL PROTECTED]> To: "'Mark G'" <[EMAIL PROTECTED]>; <[EMAIL PRO

RE: Comparing Dates Conditional statements

2003-05-27 Thread Tim Johnson
That won't work if the dates are more than a year apart(i.e. 100302 will appear to be greater than 011503). I would recommend looking into the Time::Local module. You can use it to convert the text dates into Perl time() format. Then you can easily do a numeric conversion. -Original Messag

Re: Comparing Dates Conditional statements

2003-05-27 Thread Mark G
> How can I have condition as such > > $date = 'XX/XX/XX'; <-insert any date > If $date is greater then 01/01/02 then do . > Else > here is one simple way: <~~~cut $foo="01/01/02"; $bar="01/03/02"; $foo =~ s/\///g; $bar =~ s/\///g; if( $foo > $bar ){ print "\$foo is greater then

Server Req's for Client-Side Scripting

2003-05-27 Thread Moshe
Hi, I'm not sure where's the best place to ask this, but is there a server requirement in order for the client to be able to execute a client-side script using laguage PerlScript. Javascript and VBScript work fine, but my client-side PerlScript function doesn't execute at all when I upload the fi

Re: catch errors

2003-05-27 Thread Moshe
Thanks, works like a charm! "Tassilo Von Parseval" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > On Tue, May 27, 2003 at 02:27:29PM -0400 Moshe wrote: > > > How do I catch/handle runtime errors in Perl? > > > > Something like: > > > > try { > > > > } catch (e) {} > > > > or > > Use

Comparing Dates Conditional statements

2003-05-27 Thread Paul Kraus
How can I have condition as such $date = 'XX/XX/XX'; <-insert any date If $date is greater then 01/01/02 then do . Else Paul -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: How do I check disk space through Perl?

2003-05-27 Thread Jenda Krynicky
From: [EMAIL PROTECTED] > It seems like I should know this, but I don't, and I can't seem to > find it written anywhere. I need to check disk space on an NT platform > using ActiveState Perl 5.6.1. Is there an easy way to do this? use Win32::FileOp qw(GetDiskFreeSpace); # install by PPM fr

Re: Net::FTP question

2003-05-27 Thread Jenda Krynicky
From: Michael Muratet <[EMAIL PROTECTED]> > I have been having problems with Net::FTP timing out after a LIST > command. I've traced the problem to the bundled firewall running on > the machine (which is running RedHat 9.0). Disable the firewall, and > the script will run to completion. Oddly enoug

Memory caching (BBEdit, OS X)

2003-05-27 Thread WC -Sx- Jones
No response required - this is just a basic FYI to seed the list archives: Using BBEdit 7.0.3 on MacOS X 10.2.6 -- I just spend about 5 minutes trying to figure out why this *very* basic Perl code wasn't working (kept reporting the same 4 hosts, without removing duplicates, which is what it sh

Re: catch errors

2003-05-27 Thread Tassilo von Parseval
On Tue, May 27, 2003 at 02:27:29PM -0400 Moshe wrote: > How do I catch/handle runtime errors in Perl? > > Something like: > > try { > > } catch (e) {} > > or Use a block eval: eval { # potentially failing code }; if ($@) { print "An error occured: $@"; } $@ i

catch errors

2003-05-27 Thread Moshe
Hi All, How do I catch/handle runtime errors in Perl? Something like: try { } catch (e) {} or On Error Resume Next Thanks. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: How do I check disk space through Perl?

2003-05-27 Thread sandy pleissner
hi, an easy way => $tell_it = system("dir"); :-), sandy [EMAIL PROTECTED] wrote: Hi All, It seems like I should know this, but I don't, and I can't seem to find it written anywhere. I need to check disk space on an NT platform using ActiveState Perl 5.6.1. Is there an easy way to do this? Thanks

Re: evaluate string as code

2003-05-27 Thread Moshe
Thanks, works great. "Tassilo Von Parseval" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > On Fri, May 23, 2003 at 01:36:11PM -0400 Moshe wrote: > > > I have a program that lets the user define the regexp pattern as well as set > > option like /g, /i, /m, and /s > > > > What I want

Re: GetOpt Help

2003-05-27 Thread Tassilo von Parseval
On Tue, May 27, 2003 at 12:12:12PM -0400 Paul Kraus wrote: > Reading through the doc's it says that it is preferred that you write > the -h help info using POD. Which docs state that? > How is this down? Any links on how to write > pod or have a perl script display pod for built in help. Pod::U

How do I check disk space through Perl?

2003-05-27 Thread Peter_Farrar
Hi All, It seems like I should know this, but I don't, and I can't seem to find it written anywhere. I need to check disk space on an NT platform using ActiveState Perl 5.6.1. Is there an easy way to do this? Thanks, Peter ** CONFIDENTIALITY NOTICE ** NOTICE: This

all Content-type headers removed and page doesn't throw error

2003-05-27 Thread Motherofperls
I'm having the same header problem as the mark. I removed all the headers and the script still functions, but it doesn't print the cookie header. There is a module for deleting previous headers but I can't remember what it's called. #!C:/Perl/bin/perl.exe BEGIN{open(STDERR, ">./errors/order.

RE: cgi LWP::Simple script and Apache

2003-05-27 Thread Dan Muey
> Dan, Howdy, please reply to the list so all can share :) > I run my cgi script from > http://localhost/cgi-bin/test.cgi Ok > the script looks at http://www.yahoo.com and brings > back all tabular information. Problem is, it doesn't Tabular Information? > bring back anything, just a blank sc

GetOpt Help

2003-05-27 Thread Paul Kraus
Reading through the doc's it says that it is preferred that you write the -h help info using POD. How is this down? Any links on how to write pod or have a perl script display pod for built in help. Do you guys really use POD to document your apps instead of #comments? Paul -- To unsubscribe,

Re: Content-type: text/html

2003-05-27 Thread Mark Martin
one of the scripts has print $cgi->header(); - Original Message - From: "WC -Sx- Jones" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Tuesday, May 27, 2003 4:10 PM Subject: Re: Content-type: text/html > are you using > > print header; > > anywhere? > > > On Tuesday, May 27, 20