In the short term, this may get you started. In the long term, buy a good book :)

#! perl -slw
use strict;

open 'LOG', '>', 'rereg.log' or die $!;

while( glob '*.dll' ) {
    print LOG "unregister $_:", `regsvr32 -U $_`;
    print LOG "Register $_  :", `regsvr32 $_`;
}

close LOG;
[download]

BrowserUK has given you a good solution. To add on use system instead of back ticks ``. Get the system commands out put and determine whether it was success or not.

eg:$result=system("regsvr32 -U $_");
Now determine the $result value and find out the result.


Thanks
SasiKumar

I concur.

I just discovered that regsvr32 doesn't provide any useful output--chosing to display errors in a popup instead.

So the OP should also include /s to disable that.

---

Examine what is said, not who speaks.

Silence betokens consent.

Love the truth but pardon error.

The first note from Thor is incomplete - @ARGV is not auto-globbed on any platform, although unix shells automatically expand wildcards. You'd have to do something like:

foreach my $dll (map { glob $_ } @ARGV)
{
  register($dll);
}
[download]

The next part is what you want to do with it. There may be a way to find out if a DLL is already registered properly - whether you use the Win32::* functions/modules, or if regsvr32 has a query mode. Then you can skip that DLL and go on to the next. Ideally you'd use the Win32::* functions/modules, but you could use regsvr32 querying, if it exists, as a quick fix for the short term. Or you could blindly call regsvr32 on each DLL - I would recommend logging the $? from doing so, though - it's incredibly useful information which may cause you to figure out a way later to detect when a second registration has failed, and reattempt registering it immediately (left as an excersise for a future PM question ;->).

As for "I'm pretty sure this is a pretty stupid way of doing this" - I'm unconvinced. Stupid problem, maybe. Stupid solution, no.

Nothing to do with Perl but something that I find very useful are these registry settings:

REGEDIT4

[HKEY_CLASSES_ROOT\.dll]
@="dllfile"

[HKEY_CLASSES_ROOT\dllfile\shell\Register Component\command]
@="regsvr32 \"%1\""

[HKEY_CLASSES_ROOT\dllfile\shell\Unregister Component\command]
@="regsvr32 /u \"%1\""

[HKEY_CLASSES_ROOT\.exe]
@="exefile"

[HKEY_CLASSES_ROOT\exefile\shell\Register Component\command]
@="\"%1\" /regserver"

[HKEY_CLASSES_ROOT\exefile\shell\Unregister Component\command]
@="\"%1\" /unregserver"

[HKEY_CLASSES_ROOT\exefile\shell\Register As Service\command]
@="\"%1\" /service"


[HKEY_CLASSES_ROOT\.ocx]
@="ocxfile"

[HKEY_CLASSES_ROOT\ocxfile\shell\Register Component\command]
@="regsvr32 \"%1\""

[HKEY_CLASSES_ROOT\ocxfile\shell\Unregister Component\command]
@="regsvr32 /u \"%1\""
[download]

/J\

foreach my $dll (@ARGV) {
   print "$dll\n";
}
[download]