At 20:34 21/02/2004, you wrote:
>At 14:01 21/02/2004, you wrote:
>
>>Hi.
>
>Hello again and thank you
>
>>I recently questioned whether a rewrite was an appropriate response
>>to a question on this group. Now I'm going to do it anyway!
>
>after seeing you code i have cleaned up mine,
>amassing how much eazy'er it make it to read.
>
>
>>First of all, the warnings are there to help you. Don't 'fix' warnings by commenting
>>out the 'use warnings' line. From this code, I get
>i did this because when i got home perl kept saying "Can't locate warnings.pm in @INC"
>i just relised this is because i installed Solaris8, and have not updated the perl
>hence the -w now in code
>
>> Useless use of a constant in void context at E:\Perl\source\xx.pl line 21.
>
>>Line 21 is:
>>
>> $foundElements[$i] = qw($segmentFields{segment} ... );
>>
>>and you're getting this error because you're assigning a list of strings to a scalar
>>value. All but one of the values will be thrown away, so they are 'useless'. What you
>>probably mean is
>>
>> $foundElements[$i] = qq($segmentFields{segment} ... );
>/me need to read his perl book more (might of helped if it wasnt at work.
>but i have "removed" this from the code.
>
>> $segmentFields { $segmentFieldKey => $segmentFieldValue };
>
>
>What does => do then im shore i saw it a lot in the learning perl book
>
>my $siteIPAdd = shift;
> is this doing a shift $_ , and because no other functions have run then $_ is the
> command line vars?
>would this still work if this was a sub and run like " checkResults("$siteIP"); " ?
>
>my($NH_HOME, $i)=("","0"); #setup main vars
>
>what wrong with setting up variables like this ? note $NH_HOME will have a value
>"/path/to/files"
>well in fact $NH_HOME is a environmental variables on the system its there a way i
>can inport system environmental variables ?
>
>
>me new code is below...
>
>i now get the error
>
>Use of uninitialized value at ./poller.cfg.search.pl line 22, <POLLER> chunk 5.
> which is happening on the last line of each section which is "[TAB] } \n" or after
> i have " s/["}{]//g; " i guess it would be "[TAB] /n"
>how can ignore this last line?
oki have had sort of success with a few diffrent things i addes
next unless /$siteIPAdd/;
s/\s}\n//g; <-- added
s/["{]//g;
but i am still getting the same error "Use of uninitialized value at
./poller.cfg.search.pl line 24, <POLLER> chunk 5."
because of a empty last line i also tryed chomp;
but to no avail... the script does do what i want now but it would be much better if
it had no warnings...
Thanks again
RichT
>thank you for all you help
>
> RichT
>
>------------------
>
>
>_start_
>#!/usr/bin/perl -w
>use strict;
>#use warnings;
>
>my $NH_HOME;
>my($segmentFieldKey, $segmentFieldValue, %segmentFields, $nullVar);
>my($siteIPAdd)=$ARGV[0];
>
>local $/ = "}\n";
>open(DISCOVERLOG, ">found.test.csv") || die "can not open : $!";
>open(POLLER, "<poller.cfg") || die "can not open : $!";
>
>while(<POLLER>) {
> next unless /\s+segment/;
> next unless /$siteIPAdd/;
> s/["}{]//g;
> foreach (split(/\n/)) {
> ($nullVar,$segmentFieldKey,$segmentFieldValue)=split(/\s+/,$_,3);
>
> $segmentFields { $segmentFieldKey } = $segmentFieldValue ;
>
>print "$segmentFields{$segmentFieldKey} like $segmentFieldKey \n"; # just for testing
>
> }
>print DISCOVERLOG "$segmentFields{segment}, $segmentFields{deviceSpeed2},
>$segmentFields{sysName}, $segmentFields{aliasName},
>$segmentFields{mibTranslationFile}\n" ;
>}
>close POLLER;
>close DISCOVERLOG;
>_end_
>
>---
>Outgoing mail is certified Virus Free.
>Checked by AVG anti-virus system (http://www.grisoft.com).
>Version: 6.0.581 / Virus Database: 368 - Release Date: 09/02/2004
>
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
><http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
>
>---
>Incoming mail is certified Virus Free.
>Checked by AVG anti-virus system (http://www.grisoft.com).
>Version: 6.0.581 / Virus Database: 368 - Release Date: 09/02/2004
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.581 / Virus Database: 368 - Release Date: 09/02/2004
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
