Re: Programming WAP pages

"SFantar" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > Hello everybody > > > Is there any Perl module for WAP programming generating web pages readable > on mobile phones? > > I had a look at http://cpan.perl.org but the results found did not help me > very much. > Thanks in ad

Looking for a simple string translation module

Hello,Lists, I have a Perl socket server which is in heavy load.Now I want to do a thing in each of its childs: Turn the character string like 'abcdsfjijifjdfdf' to the integer as '23332399343'. I know some module like md5sum could do it.But running md5sum for this translation is too costl

Re: Calculation distances

Hi Gerald this is something very similar to what we are attempting to accomplish: http://www.papajohnsonline.com/restlocator/RestaurantLocator same sort of setup. Any type of an example would be much appreciated and maybe get me in the right direction :) Mike - Original Message - F

Re: Calculation distances

1. use one of the geocoding modules to get the latitude and longitude of the company addresses. 2. use the same module to get the address in the search box 3. find the difference (you'll want to use ABS in the SQL for absolute values because of negative numbers) 4. convert the difference to miles

Calculation distances

Hello, we are working on a small project which needs to calculate the closest distances from an address and/or zipcode entered into a search box. It will read from a MySQL database of companies, which store their address and zipcodes. looking for the best way to approach this. I've seen some

Re: String or numbers in AoA?

On 8/20/06, chen li <[EMAIL PROTECTED]> wrote: my @temp=split(/t/, $line); Isn't there supposed to be a backslash in there? Hope this helps! --Tom Phoenix Stonehenge Perl Training -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: shifting 100 at a time

Yes! I just wasn't sure if I'd get undefs in my array or not (I don't). Thanks! On 8/20/06, Tom Phoenix <[EMAIL PROTECTED]> wrote: On 8/20/06, Gerald Host <[EMAIL PROTECTED]> wrote: > No. I want the most efficient way to do this: > my @array0=(0..1000); > my @array1; > for (0..100) { >

Re: shifting 100 at a time

On 8/20/06, Gerald Host <[EMAIL PROTECTED]> wrote: No. I want the most efficient way to do this: my @array0=(0..1000); my @array1; for (0..100) { if (defined $array0[0]) { #accept 0 as a valid item push(@array1, shift @array0); } } Do you want splice? @array1 = splice @array0

Re: shifting 100 at a time

No. I want the most efficient way to do this: my @array0=(0..1000); my @array1; for (0..100) { if (defined $array0[0]) { #accept 0 as a valid item push(@array1, shift @array0); } } I want to stop at the end of the @array0 too, so if it only had 20 items in it I would break the loop (

Re: shifting 100 at a time

A Diumenge 20 Agost 2006 22:49, Gerald Host va escriure: > What is the most efficient way to shift the first 100 items off an array? > > Thanks! if you mean that first element be the last one and so on, use reverse. -- Xavier Mas -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional com

shifting 100 at a time

What is the most efficient way to shift the first 100 items off an array? Thanks!

Programming WAP pages

Hello everybody Is there any Perl module for WAP programming generating web pages readable on mobile phones? I had a look at http://cpan.perl.org but the results found did not help me very much. Thanks in advance for your help. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional c

Re: backticks

John Ackley wrote: > thanks to all who replied > > down to this > > # perl -e "print unlink glob > '/usr/local/billmax/html/images/day-0020a6-5a9bfc*';" > 1 > > but in script > > my $oldimage = "/usr/local/billmax/html/images/day-0020a6-5a9bfc*"; > my $files = unlink glob $oldimage; > > fails

Re: Simple-Yet Trivial Problem - Copy files from directory

Dear All, Thanks for all your help - I have done it using a mix of the inputs from you guys - Thanks a lot !! -- i biokid

Re: String or numbers in AoA?

- Original Message - From: "chen li" <[EMAIL PROTECTED]> Newsgroups: perl.beginners To: Sent: Sunday, August 20, 2006 2:20 PM Subject: String or numbers in AoA? Dear all, I try to read some records in one file. Each record consists of several column which are separated by tab and e

String or numbers in AoA?

Dear all, I try to read some records in one file. Each record consists of several column which are separated by tab and ends by "\n". What I would like to do is that to build an array of array so that each record is a reference to an anonymous array. Here is the format in the file: 1 2 3 1 2 3

String or numbers in AoA?

Dear all, I try to read some records in one file. Each record consists of several column which are separated by tab and ends by "\n". What I would like to do is that to build an array of array so that each record is a reference to an anonymous array. the format in the file takes this format: 1

Re: log and ln formular in perl

* chen li <[EMAIL PROTECTED]> [2006-08-20T07:18:59] > I want to get the value 2 out of log based on 10 or > natural number e (the result is 0.301 and 0.609, > respectively). What are the formular for these two > caulculation and how can I find more about math stuff > in perldoc? Perl has a natural

log and ln formular in perl

Dear all, I want to get the value 2 out of log based on 10 or natural number e (the result is 0.301 and 0.609, respectively). What are the formular for these two caulculation and how can I find more about math stuff in perldoc? Many thanks, Li __

Re: backticks

and perl -e '$oldimage = "/usr/local/billmax/html/images/day-0020a6-5a9bfc*";$files = unlink glob $oldimage;printf "Files %d\n",$files;' Files 1 works # cat test.pl #! /usr/bin/perl -w use strict; my $oldimage = "/usr/loc

Re: backticks

thanks to all who replied down to this # perl -e "print unlink glob '/usr/local/billmax/html/images/day-0020a6-5a9bfc*';" 1 but in script my $oldimage = "/usr/local/billmax/html/images/day-0020a6-5a9bfc*"; my $files = unlink glob $oldimage; fails -- To unsubscribe, e-mail: [EMAIL PROTECTED