Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Read in a regex without having to use string eval?

by Argel (Prior)
on Nov 23, 2011 at 00:49 UTC ( [id://939568]=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/perl510/bin/perl
    use feature ":5.10"; use strict; use warnings; use Data::Dumper;
    ...
    __DATA__
    qr{(?<NASPRE>\QNAS-IP-Address=\E)}
    Nov 21 15:04:29 TACACS01 Nov 21 21:04:29 127.0.0.9 CisACS_05_TACACSAdm
    +in dsg4te2 1 0 User-Name=XXXXXX,NAS-IP-Address=127.0.0.10,Group-Name=
    +XXXXXX,NAS-Portname=tty1,service=shell,cmd=write memory <cr>,priv-lvl
    +=15,task_id=12344,
    
  2. or download this
    (?<NASPRE>\QNAS-IP-Address=\E)
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://939568]
Approved by ikegami
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (5)
As of 2024-03-29 10:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found