Re: [MacPerl-AnyPerl] Pattern matching: HELP! 2
[email protected] (Teresa Raymond) Tue, 30 Apr 2002 15:20:26 -0500
| Newsgroups | perl.macperl.anyperl |
|---|---|
| Message-ID | <p05100306b8f4acd01cf4@[67.37.186.67]> |
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 -
-------------------------------