Ramprasad wrote:
>
> Rob Dixon wrote:
> >
> >
> > Will this do?
> >
> > sort {
> > my ($va, $vb) = map $$hash{$_}{$sortkey}, $direction eq 'a' ? ($a, $b) : ($b,
> > $a);
> > $sortkey eq 'uname' ? $va cmp $vb : $va <=> $vb;
> > } keys %$hash;
> >
> > Cheers,
> >
> > Rob
> >
> >
>
> Gr8 Now the
Rob Dixon wrote:
Ramprasad wrote:
suppose I have a hash like
%users =(
'cvs' => {
'uname' => 'cvs',
'uid' => 582,
'gid' => 500
},
'radvd' => {
'uname' => '
Rob and all the other perl wonder workers who contribute to this list,
Awesome, While I have been reading and writing perl for a few years
now, I am always amazed at the code reduction that can occur when you
properly apply the power of perl. This is the most instructive forum
that I have ever
Ramprasad wrote:
> suppose I have a hash like
>
> %users =(
>'cvs' => {
> 'uname' => 'cvs',
> 'uid' => 582,
> 'gid' => 500
> },
> 'radvd' => {
> 'un
suppose I have a hash like
%users =(
'cvs' => {
'uname' => 'cvs',
'uid' => 582,
'gid' => 500
},
'radvd' => {
'uname' => 'radvd',
'u
