Parsing a line

[Busse, Rich]

I'm currently processing lines from an input file this way:

        $_ = "P=IcwRcsm D=D:    SL=20 ST=d:\icw\rcsm\StartSv.bat
U=http://uslv...";
        @Token = split ;
        foreach (@Token)
        {
                $Proc  = $' if (/P=/i) ;
                $Start = $' if (/ST=/i) ;
                $Url   = $' if (/U=/i) ;
                $Sleep = $' if (/SL=/i) ;
                $Drive = $' if (/D=/i) ;
        }

Probably not very Perl-ish, but I'm ending up with
$Start="d:\icw\rcsm\StartSv.bat" as needed.

Now I'd like to pass parameters to the program in $Start. Something like:

        P=IcwRcsm D=D: SL=20 ST=d:\icw\rcsm\StartSv.bat Parm1 Parm2
U=http://uslv...

or even with delimiters if it helps:

        P=IcwRcsm D=D: SL=20 ST="d:\icw\rcsm\StartSv.bat Parm1 Parm2"
U=http://uslv...
        P=IcwRcsm D=D: SL=20 ST='d:\icw\rcsm\StartSv.bat Parm1 Parm2'
U=http://uslv...

so I end up with $Start="d:\icw\rcsm\StartSv.bat Parm1 Parm2".

Any suggestions appreciated. TIA...

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]