Same problem, here's the output I am getting with your new regular expression:
.html="C:\PROGRA~1\Plus!\MICROS~1\iexplore.exe"
.htm="C:\PROGRA~1\Plus!\MICROS~1\iexplore.exe"
.txt="C:\Program
.pl=C:\Perl\bin\Perl.exe
.doc="C:\Program
.xls="C:\Program
.ppt="C:\Program
.log="C:\Program
.url=rundll32.exe
.jpg=C:\PROGRA~1\PAINTS~1\psp.exe
.gif=C:\PROGRA~1\PAINTS~1\psp.exe
.avi="C:\Program
.wav="C:\Program

it's not pulling anything after the space. We need some kind of regular 
expression that says
"Everything up to the first space unless that space is in quotes"

This doesn't apply to .html because the association is using the short path (at 
least for me)
but for those extensions that use the long path, it's a problem.

-------------------------------------------------------------------------------------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS ยท Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
-------------------------------------------------------------------------------------------------


-----Original Message-----
From: Sean Healy [mailto:[EMAIL PROTECTED]
Sent: Monday, January 15, 2001 9:55 AM
To: perl-win32-gui-users@lists.sourceforge.net;
[EMAIL PROTECTED]
Subject: RE: [perl-win32-gui-users] Getting the browser


Tim-
   Thanks for the suggestions.  I changed this piece:
>                               my ($cmd);
>                               #print "\tcommand=$command\n";
>                               if ($command=~/^".*"\s+.*$/)
>                                       {
>                                       ($cmd)=$command=~/^(".*")\s+.*$/;
>                                       return $cmd;
>                                       }
>                               else
>                                       {
>                                       split(/ /, $command);
>                                       return $_[0];
>                                       }

to this:
                                 my ($cmd);
                                 ($cmd) = $command=~/^(\S*)\s/;
                                 return $cmd;

which should solve both problems.  '\S' matches any non-whitespace 
character, including quotes.  I ran it on my system and it works.

>  Also- How is Win32::TieRegistry different from Win32::Registry?

The Win32::Registry documentation says this:

NOTE: This module provides a very klunky interface to access the Windows 
registry, and is not currently being developed actively. It only exists for 
backward compatibility with old code that uses it. For more powerful and 
flexible ways to access the registry, use Win32::TieRegistry.

Thanks again for your suggestions.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com


_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Reply via email to