fork download
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4.  
  5. my $data = '[2017-05-02 13:02:25,986] [AJPRequestHandler-HTTPThreadGroup-10239] SID0003457|10.22.165.22|13|16|FAILED|500||<?xml version="1.0" encoding="UTF-8"?> <S:Envelope xmlns:S="http://s...content-available-to-author-only...p.org/soap/envelope/"><S:Header><ns1:SessionType xmlns:ns1="http://t...content-available-to-author-only...e.com/webservices">STATELESS</ns1:SessionType><ns2:UsernameToken xmlns:ns2="http://t...content-available-to-author-only...e.com/webservices">ocore-intg_w
  6. w@example.com</ns2:UsernameToken><ns3:PasswordText xmlns:ns3="http://t...content-available-to-author-only...e.com/webservices">UdontsoiuN</ns3:PasswordText></S:Header><S:Body><getExternalPortalUserElement xmlns="http://content-available-to-author-only.web.
  7. tough1.tough.example.com/"><emailAddress>park.phannon23@example.com</emailAddress></getExternalPortalUserElement></S:Body></S:Envelope>|{http://w...content-available-to-author-only...e.com/}getExternalPortalUserElement|<n
  8. s1:Header xmlns:ns1="http://s...content-available-to-author-only...p.org/soap/envelope/"><ns1:SessionType xmlns:ns1="http://t...content-available-to-author-only...e.com/webservices">STATELESS</ns1:SessionType><ns2:UsernameToken xmlns:ns2="http://t...content-available-to-author-only...e.com/webservices">ocore-intg_ww@example.com</ns2:UsernameToken><ns3:PasswordText xmlns:ns3="http://t...content-available-to-author-only...e.com/webservices">UiojdfdoiNN</ns3:PasswordText></ns1:Header>|0|620|null';
  9.  
  10. if ( $data =~ m!^\[(\d{4}-\d{2}-\d{2})\s+(\d{2}:\d{2}:\d{2}).*<emailAddress>(.*)<\/emailAddress>!gs ){
  11. print "$1 $2 $3";
  12. }
Success #stdin #stdout 0s 17768KB
stdin
Standard input is empty
stdout
2017-05-02 13:02:25 park.phannon23@example.com