[EMAIL PROTECTED] wrote:
> it seems that taking out $Registry form my my declarations
> and moving as much as i can to localized my declarations
> eliminates the initialization issue (so $Register MUST be
> like %RegHash and in Win32::TieRegistry... ok.
> lesson learned... even though prior to this last run that did
> not help, but rather made things worse...obviuosly something
> else was compounding
> it)
>
> however, now i cannot seem to get the data value set, so i
> end up with different initialization errors. moving $regval
> to a global does not change a thing.
>
> any enlightenment would be greatly appreciated.
>
>
> DOS command shell print out:
>
> C:\Documents and Settings\jperlmutter.GRANITE_ENG\My
> Documents\perl\test_scripts\SeaNotify>perl tsnt.pl -l
> trials.txt -iter 1 -verb -verb Sea Notify test started at
> Wed Aug 17 16:53:13 2005 Using Windows version of
> SeaNotify....registry interaction started Setting Delimiter
> Setting registry path short to
> HKEY_LOCAL_MACHINE/System/CurrentControlSet/Services/
> Use of uninitialized value in concatenation (.) or string at
> tsnt.pl line 129.
> Found in registry:
> Use of uninitialized value in pattern match (m//) at tsnt.pl line 131.
> Use of uninitialized value in concatenation (.) or string at
> tsnt.pl line 147.
> Found in registry:
> Use of uninitialized value in pattern match (m//) at tsnt.pl line 149.
> Use of uninitialized value in -f at tsnt.pl line 161.
> Use of uninitialized value in -f at tsnt.pl line 161.
>
> C:\Documents and Settings\jperlmutter.GRANITE_ENG\My
> Documents\perl\test_scripts\SeaNotify>perl tsnt.pl -l
> trials.txt -iter 1 -verb -verb Sea Notify test started at
> Wed Aug 17 16:54:57 2005 Using Windows version of
> SeaNotify....registry interaction started Setting Delimiter
> Setting registry path short to
> HKEY_LOCAL_MACHINE/System/CurrentControlSet/Services/
> Use of uninitialized value in concatenation (.) or string at
> tsnt.pl line 129.
> Found in registry:
> Use of uninitialized value in pattern match (m//) at tsnt.pl line 131.
> Use of uninitialized value in concatenation (.) or string at
> tsnt.pl line 147.
> Found in registry:
> Use of uninitialized value in pattern match (m//) at tsnt.pl line 149.
> Use of uninitialized value in -f at tsnt.pl line 161.
> Use of uninitialized value in -f at tsnt.pl line 161.
>
> C:\Documents and Settings\jperlmutter.GRANITE_ENG\My
> Documents\perl\test_scripts\SeaNotify>
>
>
>
>
> --------------------------------------------------------------
> -------------------
> program (with line numbers 129,131,147,149,161 added)
> --------------------------------------------------------------
> -------------------
> #! /usr/bin/perl -w
> use strict;
> use Getopt::Long; # used in getting unix-style options
> use Win32::TieRegistry;
> use POSIX;
> use File::Copy "mv";
> use warnings;
>
> ################################################################ #
> Purpose: # This script does infinite loop for a test
> # This is for use as a tester for SeaNotify
> #
> # This should be kept as both a script and an executable. The
> executable should be made by the last person to revise the script. The
> Active State
> Perl PDK has been used.
> #
> # this was made when a plaintext file method was asked for #
> # Created: 08/15/2005
> # Original Author: Josh Perlmutter
> # Maintainers:
> # Last Revised: 08/17/2005
> # Copyright SeaChange International (tm)
> ################################################################
>
> my(@watch, @vals);
> my($posix, $iter, $done, $val, $log);
> my($help, $verb, $qrev, $rev, $revdat, $modules); # standard
> options/revision information variables
> $posix=0; $iter=0; $done=0; $log='';
> $modules="\tnothing as of now\n\n"; $help=0; $qrev=0;
> $rev="0.1"; $revdat="08/17/2005"; $verb=0;
> # short explanation of variables:
>
>
> ###########################
> # this section deals with options. it looks for posix-style options
> passed. that is, <script> -option [value]
> # now get the options
> GetOptions ('help' => \$help, 'verbose+' => \$verb, 'version+' =>
> \$qrev, 'posix' => \$posix, 'iterations:i' =>\$iter, 'log:s'=>\$log);
>
> ######
> # arguments ARE required
> # if help or version is not on OR the required input paramaters
> unless($help || $qrev || ((0 < $iter) && ($log ne ''))){
> print "\nYou must supply at least 2 parameter(s) to run
> this program. It
> needs: iterations (must be positive, non-zero number) and file to log
> to\n"; print "Turning on help.\n";
> $help++;
> }
>
> #
> # now put the options to use...
> #
> if($help){ # show options and use since asked for
> print "\tFile: $0\tVersion: $rev\tReleased: $revdat\n";
> print "\nThis is the $0 file.\n";
> print "\nThe options for this file are:\n";
> print "\t-help\t\tThis help screen only (overrides all other
> options)\n"; print "\t-version\tList Version and exit (overrides
> everything but -help)\n"; print "\t-verbose\tTurn on verbose
> (useful for debugging
> errors; call
> twice\n\t\t\t for extra output)\n";
> # print "\t-\t\t\n";
> print "\t-log\t\tfile to log activity to\n";
> print "\t-iterations\thow many times shall it modify files?\n";
> # print "\t-posix\t\tflag it for posix system\n";
> print "\n\tusage ([] denotes optional argument {} denotes
> default value
> {} denotes\n\t\t option set of which your choice of one is
> required):\n"; print "$0 [-help] [-version] [-verbose] -log <log>
> -iterations <iterations> \n\n"; print "to debug try: $0 -verb -verb
> > debug_log.txt\n\n";
>
> exit;
> # leave the script since we were just showing use }
>
> die "\tFile: $0\tVersion: $rev\tReleased: $revdat\n" if $qrev; #
> query for versions being used
>
> # The following options are done (mostly) as true/false. Placing the
> option on the command line results in
> # Perl's Getopt::Long adding 1 to the value of the variable
> for each time
> it appears on the command line. This
> # is how the multi-level verbose is initiated. The rest are
> used soley as
> true/false.
> #
> # verbose ($verb) turned on if -verb(ose) or --verbose was
> place in the
> command line.
> # verbose put to extra output (useful in debugging pattern
> issues) if
> called twice.
> #
> # ($) turned on if -() or -- was placed in the command line #
>
> #####################################################
> ## previous testers test on directory modification. #
> ## this feature is seemingly failing miserably. #
> ## this version tests on files that are in there. #
> ## it randomly and destructively causes changes to #
> ## files once every 15 minutes for $iter iterations #
> #####################################################
>
> open LOG, ">$log" or die "Cannot create $log: $!\n";
> &rep("Sea Notify test started at ".localtime, $verb);
>
> ############
> # this section finds the registry key value for what is watched.
> # first it queries the registery for them, then it imports them
> # into an array. while it does this it drops the c:\windows\ (on
> # windows) and the /boot, /root and /etc (on *nix) dirs for boot
> # protection. it uses the posix flag to tell register versus #
> configuration file unless ($posix){
> # we're doing the windows version, we need the Win32::TieRegistry
> # module via this module we get two items from the registry and
> # then check them for files that we can modify that are not in a
> # place that makes them sensitive to booting right (services)
> # then place the values that are files into an array (@watch)
> # which will be used later to test SeaNotify
>
> # local variables (only used in this section)
> my(@watch, $regval, $regpth, $key);
>
> # declaration of TieReg @ begining: use Win32::TieRegistry;
> &rep("Using Windows version of SeaNotify....registry interaction
> started", $verb);
>
> &rep("Setting Delimiter", $verb);
> $key = $Registry -> Delimiter('/');
>
> &rep("Setting registry path short to
> HKEY_LOCAL_MACHINE/System/CurrentControlSet/Services/",$verb);
> $regpth="HKEY_LOCAL_MACHINE/System/CurrentControlSet/Services";
>
> # this line useful if needing to debug with an interactive debugger
> # (it will take a long while when you check the value of the array)
> # @members = $Registry->{"$regpth/SeaNotify"}->MemberNames;
>
> # retrieve the registry value(s)
> $regval = $Registry -> {"$regpth/SeaNotify/"} ->
> GetValue("/SeaNotifyFiles");
>
> # debug call
> if($verb>1){ &rep("Found in registry: $regval",$verb); }# line 129
>
> while($regval =~ m/(\w:)(.+?)(\w:.*)/){ # line 131
> # convert to one value per line in 2 steps
> # 1: put the path together
> # 2: remove first piece
> $val=$1.$2;
> push @vals, $val;
> $regval=$3;
> }
> # get final piece
> push @vals, $regval;
>
> # also get SeaNotifyAdditionalDirs
> # retrieve the registry value(s)
> $regval = $Registry -> {"$regpth/SeaNotify/"} ->
> GetValue("/SeaNotifyAdditionalDirs");
>
> # debug call
> if($verb>1){ &rep("Found in registry: $regval",$verb); } # line 147
>
> while($regval =~ m/(\w:)(.+?)(\w:.*)/){ # line 149
> # convert to one value per line in 2 steps
> # 1: put the path together
> # 2: remove first piece
> $val=$1.$2;
> push @vals, $val;
> $regval=$3;
> }
> # get final piece
> push @vals, $regval;
>
> foreach $val (@vals){
> if(-f $val){ $ line 161
> push @watch,$val;
> if($verb>1){ &rep("Found file $val",$verb); } }
> }
>
> # now we have the windows @watch done
> ####
> # now to do the posix version
> }else{
> # posix stuff depends on where config is placed and how it is set
> # up. as of yet there is no posix version and no plans for one,
> # which makes this far too ambiguous to do more than give this #
> skeleton for posix. }
> ############
I would have thought that it was fairly obvious that those warning
messages were generated because $regval was undefined. That would likely
be because your registry lookup failed, and that is most likely because
the key you gave could not be found (possibly too many '/').
You seem to be making hard work of, what seems to be, simply extracting
a list of file names from a single registry entry (unless I have
misunderstood, of course). Assuming that the entry is of type
REG_MULTI_SZ, the following works fine on my box (substitute your own
key as appropriate). If it is just a REG_SZ type you will need to use
'split' on $val.
----------------------------------------------------------
use strict;
use warnings;
use Win32::TieRegistry (TiedHash => '%Reg',
Delimiter => "/",
SplitMultis => 1);
my $key = "LMachine/SYSTEM/CurrentControlSet/Services"
. "/Winsock/Parameters/Transports";
my $val = $Reg{$key};
print "Names: ['", join("', '", @$val), "']\n";
----------------------------------------------------------
HTH
--
Brian Raven
-----------------------------------------------------------------------
The information contained in this e-mail is confidential and solely
for the intended addressee(s). Unauthorised reproduction, disclosure,
modification, and/or distribution of this email may be unlawful. If you
have received this email in error, please notify the sender immediately
and delete it from your system. The views expressed in this message
do not necessarily reflect those of LIFFE Holdings Plc or any of its subsidiary
companies.
-----------------------------------------------------------------------
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
