I have a script I made, I'm sure it could be done in a better way but it does give me what I need, problem is to get it
to put out what I want I have to run the script and pipe it to unix sort -u to actually get what I'm after.
I run the script like this:
./script.pl logfile.txt | sort -u
I get many multiple lines of the same thing so just need to get one unique line of each, the unix sort works fine for this
but trying to figure out how to add that to this script so to do it all with perl.
Script I'm using:
use strict ;
use warnings ;
my $WEB=/&tzid=&test/ && /user=(.*?)&password/;
print "$1\t$2\n" if $NotifyLink;
print "$1\t$2\n" if $syncQ4;
print "$2\t$1\n" if $XCAP;
print "$1\tWeb\n" if $WEB;
sample of the output I get when just running the script and NOT doing a pipe to sort -u