#!/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>


Reply via email to