Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^2: Parsing an Oracle connect string

by fbicknel (Beadle)
on Mar 07, 2011 at 19:44 UTC ( [id://891895]=note: print w/replies, xml ) Need Help??


in reply to Re: Parsing an Oracle connect string
in thread Parsing an Oracle connect string

You're right: whitespace wasn't considered, I'll check to see if it's allowed. For now it's not. (edit: I checked.... it's allowed. I need to modify my r.e. to allow them then. Ick: quotes.) As to the pointy stuff... it's just a way to show each of the fields one by one. Sorry for the confusion.

Ok, so I diddled a bit with this and came up with the following. It allows spaces in passwords (that's allowed, but not the other two fields.) It also allows spaces within the string, so long as they are next the delimiters, '/' and '@'. First, here's the code fragment:
10 $string =~ s/ *([@\/]) */$1/g; 11 my ($userid, $diag, $password, $netServiceName) = $string =~ / +'?([^@\/']+)?(?:(\/)'?([^@\/']*)'?)?(@[^@\/']+)?'?/;
Since I added the ability to surround the password in 'quotes', it unfortunately removed that bit from the '/' discovery. So that's now captured in $diag.

Also (line 10) removes any optional spaces near the delimiters,
@\/
. This seems to parse ok in my test program:
SYS / foo_pw @ stuff SYS / ' foo_pw1' @ stuff SYS /' foo_pw2' @ stuff SYS / foo sp ace @ stuff SYS/change_on_install@prod1 LAST rman/rman@rcat SYS / /fooey /fooey@foobar SYS@foobar 'simple/fooey@foobar'
Parses as:
< SYS> < /foo_pw> [ @stuff] < SYS> < / foo_pw1> [ @stuff] < SYS> < / foo_pw2> [ @stuff] < SYS> < /foo sp ace> [ @stuff] < SYS> </change_on_i> [ @prod1] < LAST> < > [ ] < rman> < /rman> [ @rcat] < SYS> < > [ ] < > < /> [ ] < > < /fooey> [ ] < > < /fooey> [ @foobar] < SYS> < > [ @foobar] < simple> < /fooey> [ @foobar]
(Note that my test program truncates some longer passwords in the printout.)

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2024-03-29 14:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found