#!/usr/bin/perl
%machines =(user1, 'booboo',
user2, 'puter',
user3, 'synta',
user4, 'synta');
for $key (keys %machines)
{
$val=$programs{$key}
if (!defined $supliers{$val})
{
$supliers{$val}=1;
}
else
{
print "duplicate value: $val\n";
print "duplicate value: $val\n";
Cannot understand what is the purpose of $key (keys %machines) ,
$programs{$key} and $supliers{$val} on this script.
Will be grateful to get some help!
R o n e n K f i r
System Administrator
CIT div. Tel Aviv University
Israel
Tel: 972-3-6407416
Fax: 972-3-6405158
cellular: 972-55-405910
E-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
