Help for this page

Select Code to Download


  1. or download this
     10     $string =~ s/ *([@\/]) */$1/g;
 11     my ($userid, $diag, $password, $netServiceName) = $string =~ /
+'?([^@\/']+)?(?:(\/)'?([^@\/']*)'?)?(@[^@\/']+)?'?/;
  2. or download this
    SYS / foo_pw @ stuff
SYS / ' foo_pw1' @ stuff
...
/fooey@foobar
SYS@foobar
'simple/fooey@foobar'
  3. or download this
    <     SYS> <     /foo_pw> [  @stuff]
<     SYS> <   / foo_pw1> [  @stuff]
...
<     SYS> <            > [ @foobar]
<  simple> <      /fooey> [ @foobar]