Finne default browser

[sam2]

Har noen et forslag til hvordan vi kan finne default browser i windows fra et perl script?

 

Takk.

[tvangsgreie]

Jeg vet ikke hvordan man gir en URL til Windows på en måte som skjønner at den skal åpne den i standardnettleseren, men om du finner ut det kan du kanskje bruke en Win32-modul til å gjøre det:

 

http://www.northbound-train.com/perlwin32.html#W32Modules

[sam2]

Takk for link tvang.

 

Går ut ifra at det finnes registry key(s) som kan fortelle oss hva som er default browser, og at det skulle finnes en modul/script som kan grave ut denne infoen?!

 

Forøvrig tvangsgreie, så er dette en enkel måte å starte en url i default browser:

perl -e "`start "www.vg.no"`;"

[Torbjørn]

søke gjennom registeret kanskje?

[sam2]

Denne posten var et mislykket forsøk på å være lat. finner info på google.com istf.

[trtrtr]

hm, 239 dager gammel post..

 

 
   use Win32::Registry;
       #e.g. "C:\Program Files\Opera\opera.exe"
   print FindDefaultBrowserWin32();
   
sub FindDefaultBrowserWin32 {
   $HKEY_LOCAL_MACHINE->Open('SOFTWARE\\Classes\\HTTP\\shell\\open\\command', my $RegKey);
   $RegKey->QueryValueEx ('', undef, my $DefaultBrowser);
   $DefaultBrowser=~s-"--g;
   return $DefaultBrowser;
}

[Torbjørn]

Uten at jeg vet hvordan perl oppfører seg på vårt alternative OS fra Redmond - holder det ikke med enkle \ når du bruker singlequotes?

[trtrtr]

Jo, det gjør det. Heldigvis kan modulen håndtere dette.

 

Nå venter vi på Linux versjonen av scriptet.