On Wed, 19 Jan 2005, Paul Pettit wrote:
> I've looked through the repositories (via PPM) and have not found this
> package.
>
> Am I missing it some where? If not is there any hope that it will be
> ported to Win32?
>
> Current version is Net-Server-0.87, in the CPAN archives, and is dated
> '15 F
Bill - compuserve <[EMAIL PROTECTED]> wrote:
: Hi List
:
: I have an array and all I need to do is to find out if a
: number is present in the array or not.
:
: Currently I just do a 'foreach' on the array and and check the
: number against the array element. I was wondering if there is
: any fu
Thanks David
yes - that'd work for me here. I'll do a little rewrite :-)
Bill
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]
Sent: 19 January 2005 23:45
To: Bill - compuserve; activeperl mailing list
Subject: RE: finding if a number is in an array
[EMAIL PROTECTE
Try this:
#!usr/bin/perl
use strict;
use warnings;
my $array = [0,1,2,4,8,16];
my $num1 = 8;
my $num2 = 32;
is_present($num1);
is_present($num2);
sub is_present
{
my $number = shift;
if (grep $_==$number,@$array)
{
print "number
",$number," is present!\n";
}
else
[EMAIL PROTECTED] wrote:
> Hi List
>
> I have an array and all I need to do is to find out if a number is
> present in the array or not.
Don't put in an array, use a hash then it becomes just one statement to
make it happen verses iteration over the array.
Use the numbers as the
Hi List
I have an array and all I need to do is to find out if a number is present
in the array or not.
Currently I just do a 'foreach' on the array and and check the number
against the array element. I was wondering if there is any function that can
do this without the need for me to manually st
I've looked through the repositories (via PPM) and have not found this
package.
Am I missing it some where? If not is there any hope that it will be
ported to Win32?
Current version is Net-Server-0.87, in the CPAN archives, and is dated
'15 Feb 2004'. http://search.cpan.org/~bbb/Net-Server-0.87/
I am trying to send an email (with image attachment) to a mobile phone and I
keep getting errors.
The format of the email address is [EMAIL PROTECTED]
The error comes whenever the following lines of code in sender.pm is
encountered:
if (!/^[123]/) { return $self->Error(USERUNKNOWN($addr, $self-
