RE: [perl-win32-gui-users] Getting the browser

[Thomas, T. B <tim...@lm...>]

Same problem, here's the output I am getting with your new regular =
expression:
.html=3D"C:\PROGRA~1\Plus!\MICROS~1\iexplore.exe"
.htm=3D"C:\PROGRA~1\Plus!\MICROS~1\iexplore.exe"
.txt=3D"C:\Program
.pl=3DC:\Perl\bin\Perl.exe
.doc=3D"C:\Program
.xls=3D"C:\Program
.ppt=3D"C:\Program
.log=3D"C:\Program
.url=3Drundll32.exe
.jpg=3DC:\PROGRA~1\PAINTS~1\psp.exe
.gif=3DC:\PROGRA~1\PAINTS~1\psp.exe
.avi=3D"C:\Program
.wav=3D"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 =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
-------------------------


-----Original Message-----
From: Sean Healy [mailto:jal...@ho...]
Sent: Monday, January 15, 2001 9:55 AM
To: per...@li...;
tim...@lm...
Subject: RE: [perl-win32-gui-users] Getting the browser


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

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

which should solve both problems.  '\S' matches any non-whitespace=20
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=20
registry, and is not currently being developed actively. It only exists =
for=20
backward compatibility with old code that uses it. For more powerful =
and=20
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
Per...@li...
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users