in reply to reference question
Update: you probably want:
Update2: scratch that update.
Since $where{$user} always contains a hash ref.foreach (sort keys %count) { if ($count{$_} == 1) { print "user $_ is ONLY logged in at one place: "; print keys %{$where{$_}},"\n"; # print the single key } else { print "user $_ is logged in at: "; @where = sort keys %{$where{$_}}; print "@where\n"; } }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: reference question
by convenientstore (Pilgrim) on Jul 28, 2007 at 23:10 UTC |