Problem with the code

2002-08-10 Thread Soheil Shaghaghi
Hi everyone, The following sub checks for bad e-mail address, and reports it: if (($self->{_Email} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || $self->{_Email} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/)) { $cool = undef; # No longer cool $messag

Re: Problem with the code

2002-08-10 Thread Felix Geerinckx
on Sat, 10 Aug 2002 07:41:39 GMT, Soheil Shaghaghi wrote: > The following sub checks for bad e-mail address, and reports it: [code snipped] > However, the code is rejecting the domains ending with .info, and > .name (the reason is that it has 4 digits after the zero) > Can someone please tell m

Reformatting a file

2002-08-10 Thread Mike(mickako)Blezien
Hello all, I'm trying to correct some shopping cart files that got messed up and need to be reformatted, so we can rebuild the database from these text order files. This is a sample of some of the data: order_items::PF110::189.95::0.00::89.95:: ^^GG111::149.95::0.

sql statement parsing

2002-08-10 Thread Hytham Shehab
hi guys, how can i parse the where clause in an SQL::Statement object instance? $statement = SQL::Statement->new("select 1,2,3 from table where x=y"); now when i do this: $where = $stmt->where(); it gives me error: Can't locate object method "where" via package "SQL::Statement" (perhaps you fo

Re: sql statement parsing

2002-08-10 Thread Marty Landman
At 07:34 PM 8/10/02 +0300, Hytham Shehab wrote: > how can i parse the where clause in an SQL::Statement object instance? >$statement = SQL::Statement->new("select 1,2,3 from table where x=y"); Hytham, Although I haven't used SQL::Statement you can certainly do something like: $condition = $

Re: sql statement parsing

2002-08-10 Thread Hytham Shehab
> Hytham, > > Although I haven't used SQL::Statement you can certainly do something like: > > $condition = $1 if $statement =~ /where (.+)( order by .+){0,1}$/; > > I haven't tested this but I expect it to pick up the conditional part of an > SQL statement which would then be up to you to parse fu

Re: sql statement parsing

2002-08-10 Thread Hytham Shehab
> Is the below 'exactly' what you have? The reason I ask is: > $statement = SQL::Statement->new("select 1, > and > $where = $stmt->where(); > > Should it be: > $where = $statement->where(); > > HTH, David thanks david for telling my about my *EMAIL* typo, coz it is wriiten *CORRECTLY* in the s

Re: sql statement parsing

2002-08-10 Thread Wiggins d'Anconia
Posting your whole script, or a larger part might be helpful and get more response. are you using strict and warnings? My original hunch was that the "where" method was not being exported and therefore was not "loaded" by your script, upon a slight more research I was *unable* to find the "wh