Hash

[Aect Listas]

Hi,

How set up functions hash in php4.3.2

thanks

__________________________________________________ _______________
Charla con tus amigos en línea mediante MSN Messenger:
[url]http://messenger.yupimsn.com/[/url]

[Evan Nemerson]

do you have something agains php.net/md5? php.net/crc32? php.net/sha1? They're
all included in 4.3



On Wednesday 30 July 2003 07:40 pm, AECT Listas wrote:

> Hi,
>
> How set up functions hash in php4.3.2
>
> thanks
>
> __________________________________________________ _______________
> Charla con tus amigos en línea mediante MSN Messenger:
> [url]http://messenger.yupimsn.com/[/url]

[Thomas Kratz]

"Garry Short" <g4rry_sh0rt@zw4llet.com> wrote...

> [email]sonet.all@msa.hinet.net[/email] wrote:
>

> > how to do $ADHash{@userArray}=1;
> >
> >
> > Known
> > @usrArray = [a,b,c]
> >
> > Let:
> > $ADHach{'a'}=1
> > $ADHach{'b'}=1
> > $ADHach{'c'}=1
> >
> >
> > please mail to : [email]sonet.all@msa.hinet.net[/email]

>
> How about:
>
> foreach my $elem (@usrArray) { $ADHash{$elem} = 1 }
>
> or, even nicer (didn't know this was possible; suddenly had a flash of
> inspiration, tried it, and ... )
>
> $ADHash{$_} = 1 foreach @usrArray;

or if you want to avoid an extra line for declaring the hash under 'use strict':

my %ADHash = map { $_ => 1 } @usrArray;

Thomas

[Tassilo v. Parseval]

[CCed to poster]

Also sprach <sonet.all@msa.hinet.net>:

> how to do $ADHash{@userArray}=1;
>
>
> Known
> @usrArray = [a,b,c]
>
> Let:
> $ADHach{'a'}=1
> $ADHach{'b'}=1
> $ADHach{'c'}=1

By using a hash-slice:

@ADHash{ @userArray } = (1) x @userArray;

Slices are described in perldata.pod.

> please mail to : [email]sonet.all@msa.hinet.net[/email]

You may ask for a CC but asking for a mail reply is rude. A newsgroup
also acts as archive for other people to look things up. If all replies
were by mail, a newsgroup would only contain the questions but no
answers.

Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus}) !JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexi ixesixeseg;y~\n~~dddd;eval

[Garry Short]

[email]sonet.all@msa.hinet.net[/email] wrote:

> how to do $ADHash{@userArray}=1;
>
>
> Known
> @usrArray = [a,b,c]
>
> Let:
> $ADHach{'a'}=1
> $ADHach{'b'}=1
> $ADHach{'c'}=1
>
>
> please mail to : [email]sonet.all@msa.hinet.net[/email]

How about:

foreach my $elem (@usrArray) { $ADHash{$elem} = 1 }

or, even nicer (didn't know this was possible; suddenly had a flash of
inspiration, tried it, and ... )

$ADHash{$_} = 1 foreach @usrArray;

I like that one :-)

Garry

sorry !! my english is so poor! our first language is not english
in other words , i cant distinguish what different from mailto and cc .
sorry again!!
thanks for your reply


"Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de> ¦b¶l¥ó
news:bgvsmt$1ot$1@nets3.rz.RWTH-Aachen.DE ¤¤¼¶¼g...

> [CCed to poster]
>
> Also sprach <sonet.all@msa.hinet.net>:
>

> > how to do $ADHash{@userArray}=1;
> >
> >
> > Known
> > @usrArray = [a,b,c]
> >
> > Let:
> > $ADHach{'a'}=1
> > $ADHach{'b'}=1
> > $ADHach{'c'}=1

>
> By using a hash-slice:
>
> @ADHash{ @userArray } = (1) x @userArray;
>
> Slices are described in perldata.pod.
>

> > please mail to : [email]sonet.all@msa.hinet.net[/email]

>
> You may ask for a CC but asking for a mail reply is rude. A newsgroup
> also acts as archive for other people to look things up. If all replies
> were by mail, a newsgroup would only contain the questions but no
> answers.
>
> Tassilo
> --
>

$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({

>

pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus}) !JAPH!qq(rehtona{tsuJbus#;

>

$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexi ixesixeseg;y~\n~~dddd;eval

[weberw@adelphia.net]

How do I make the current letters appear in this version of hangman?


$current{word} = $cat

When the user enters c. I need it show c_ _.

sub processguess{


#hash of letters guessed
$current{letters} .= param('guess');
@guessed_letters = split('', $current{letters});
$current{letters} = join('', @guessed_letters);
return $current{'letters'};


my @word = split / /, $current{word};
$current{'revealed'} = join '',map {$current{letters}{$_} ? $_ : '_' }
$current{word} =~ /(.)/g;
return $current{'revealed'};
}

[Dr.Ruud]

[email]weberw@adelphia.net[/email] schreef:

> How do I make the current letters appear in this version of hangman?

Certainly not by multi-posting.

--
Affijn, Ruud

"Gewoon is een tijger."

[Sherm Pendley]

"weberw@adelphia.net" <weberw@adelphia.net> writes:

> How do I make the current letters appear in this version of hangman?

You also posted this separately in c.l.p.misc. Please don't do that. This
isn't a modules question anyway.

sherm--

--
Web Hosting by West Virginians, for West Virginians: [url]http://wv-www.net[/url]
Cocoa programming in Perl: [url]http://camelbones.sourceforge.net[/url]