JD,
Could you please explain the last 2 lines for me?
>$_ = q(
>Apr 21 01:03:01 pandora ipop3d[28245]: Login user=holy00
>Apr 21 01:03:01 pandora ipop3d[28245]: Login user=holy01
>Apr 21 01:03:01 pandora ipop3d[28245]: Login user=holy05
>Apr 21 01:03:01 pandora ipop3d[28245]: Login user=holy01
>Apr 21 01:03:01 pandora ipop3d[28245]: Login user=holy00
>Apr 21 01:03:01 pandora ipop3d[28245]: Login user=holy02
>Apr 21 01:03:01 pandora ipop3d[28245]: Login user=holy05
>Apr 21 01:03:01 pandora ipop3d[28245]: Login user=holy01
>Apr 21 01:03:01 pandora ipop3d[28245]: Login user=holy00
>);
>for (split/\n/) {s~(.+user=)(.+)~$2~; $users{$_} = x}
>for (sort keys %users) {print "$_$/"}
--
-------------------------------
- Teresa Raymond -
- Mariposa Net -
- http://www.mariposanet.com -
-------------------------------
