rea...@newsguy.com (Harry Putnam) writes:
> So trying to simplify things I'm running the script against 3 log
> lines produced by sendmail. The 3 lines below are in a file named
> `mail-loglines'.
Instead of simplifying I made a mess of things... I left this line at
the bottom of the script:
__DATA__
I meant to comment it out, and even had some log lines at the
bottom.. couldn't have botched it any worse. But wait, oh yes I could.
Now in the course of pawing thru this tiny script enough times, I
finally discovered the main problem:
This line:
print wrap('','', $line);
Should contain Two single quotes on each side of the first comma.
Instead I managed to put a single double quote in each spot.
print wrap(",", $line); wrong
print wrap('','', $line); right
With that correction the script acts like it should:
------- ------- ---=--- ------- -------
linewrp 'Aug' ./mail-loglines
Aug 13 19:59:10 u0 postfix/smtp[7922]: 1993C180CB9:
to=<hp...@fastmail.fm>, relay=smtp.fastmail.com[66.111.4.139]:587,
delay=0.7, delays=0.15/0.08/0.35/0.11, dsn=2.0.0, status=sent (250
2.0.0 Ok: queued as 7240B7F986)
Aug 13 19:59:10 u0 postfix/cleanup[7920]: B5619180CBB:
Aug 13 19:59:11 u0 spamd[831]: spamd: result: . 0 -
DKIM_ADSP_NXDOMAIN,NO_RELAYS
scantime=0.3,size=2008,user=reader,uid=1000,required_score=5.0,rhos
t=localhost,raddr=::1,rport=56648,mid=<20170813235910.B5619180CBB@u
1>,autolearn=no autolearn_force=no
------- ------- ---=--- ------- -------
It is embarassing, but also a waste of your time, and for that I do apologize.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
