On Jan 24, Jorge Goncalvez said:
>#!/usr/local/bin/perl -w
>use Win32::Registry;
>my $Register ="Software";
>#my $Register2=".DEFAULT\\Software";
>my $hkey;
>my @array= qw($HKEY_LOCAL_MACHINE $HKEY_CURRENT_USER ) ;
Don't use qw() here. You need
my @array = ($HKEY_LOCAL_MACHINE, $HKEY_CURRENT_USER);
Using qw() makes a list of single-quoted strings, so your array would look
like
my @array = ('$HKEY_LOCAL_MACHINE', '$HKEY_CURRENT_USER');
>foreach (@array)
>{
> $_=>Open($Register,$hkey)|| die $!;
The => here should be a ->, that's the major typo.
> $hkey->DeleteKey("Cygwin2");
> $hkey->Close();
>}
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
** Look for "Regular Expressions in Perl" published by Manning, in 2002 **
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
