when i use $numberOfPingPackets=2; I get following warning?
PING 192.168.240.55 (192.168.240.55) 56(84) bytes of data. --- 192.168.240.55 ping statistics --- 2 packets transmitted, 0 received, 100% packet loss, time 11000ms Use of uninitialized value in index at ./pinglog.pl line 26, <FILE> line 4. On Thu, Mar 19, 2015 at 5:19 PM, Satya Prasad Nemana <spn...@gmail.com> wrote: > Bill, Carl, Andrew, > > Thanks a lot for your answers. > yes, i will make the change to use the perl utilities as it will make the > code platform independent. > > Regards, > Satya > > > > > On 19 March 2015 at 16:58, Carl Inglis <carl.ing...@gmail.com> wrote: > >> It's not actually ending up with a ? character at the end - it's ending >> up with a new line character. Your terminal is (as Andrew implied) >> displaying a ? character for a character code outside the range of >> characters it knows it can display. >> >> Regards, >> >> Carl >> >> On 19 March 2015 at 11:19, Andrew Solomon <and...@geekuni.com> wrote: >> >>> No - that one's a mystery to me:) I suspect it's something to do with >>> the terminal and character encoding >>> >>> >>> http://stackoverflow.com/questions/5306153/how-to-get-terminals-character-encoding >>> >>> Andrew >>> >>> >>> On Thu, Mar 19, 2015 at 7:41 AM, Satya Prasad Nemana <spn...@gmail.com> >>> wrote: >>> >>>> Great Andrew. >>>> it is all good now. >>>> >>>> Could you please tell how new line ended up as ? in the file name >>>> >>>> Thanks, >>>> Satya >>>> >>>> >>>> On 19 March 2015 at 12:53, Andrew Solomon <and...@geekuni.com> wrote: >>>> >>>>> my $logFileName="log_ping_".`date +"%d_%b_%y_%H_%M_%S"`; >>>>> >>>>> should be followed by >>>>> >>>>> chomp($logFileName) >>>>> >>>>> otherwise there's a trailing newline character in $logFileName on >>>>> account of the call to date >>>>> >>>>> Andrew >>>>> >>>>> On Thu, Mar 19, 2015 at 6:08 AM, Satya Prasad Nemana <spn...@gmail.com >>>>> > wrote: >>>>> >>>>>> Hi >>>>>> >>>>>> I have a small program listed below where i am writing ping results >>>>>> to a file. >>>>>> The program works file except that the file name in the output file >>>>>> is coming as log_ping_19_Mar_15_11_27_49? (please note the ? at the end >>>>>> of >>>>>> the name) >>>>>> >>>>>> The initial output looks like >>>>>> bats3 snemana/perlprogs> perl pingTest.pl hostInfo.txt >>>>>> >>>>>> Logfile is log_ping_19_Mar_15_11_38_53 >>>>>> >>>>>> File name is hostInfo.txt >>>>>> >>>>>> ............................. >>>>>> >>>>>> Could someone please tell why the ? is getting added to the file name >>>>>> although it looks fine in the initial print of the file name. >>>>>> >>>>>> use Data::Dumper; >>>>>> use strict; >>>>>> use warnings; >>>>>> my $numberOfPingPackets=1; >>>>>> >>>>>> my $fullFileName=$ARGV[0]; >>>>>> my $logFileName="log_ping_".`date +"%d_%b_%y_%H_%M_%S"`; >>>>>> print "\nLogfile is $logFileName"; >>>>>> print ("\nFile name is $fullFileName"); >>>>>> open FILE, $fullFileName or die $!; >>>>>> my $logFile; >>>>>> open $logFile, '>', $logFileName or die $!; >>>>>> my @fileContents=<FILE>; >>>>>> print ("\nFile contents are ".Dumper(@fileContents)); >>>>>> for(my $i=0;$i < @fileContents; $i++) >>>>>> { >>>>>> my $line=$fileContents[$i]; >>>>>> my @data=split(/\t/,$line); >>>>>> my $host=$data[0]; >>>>>> my $ip=substr($data[1],0,-1); >>>>>> my @pingResults=`ping -c $numberOfPingPackets $ip`; >>>>>> my $succesString="$numberOfPingPackets packets transmitted, >>>>>> $numberOfPingPackets received, 0% packet loss"; >>>>>> my $index=3+$numberOfPingPackets; >>>>>> if(index($pingResults[$index],$succesString) >= 0) >>>>>> { >>>>>> print "\nPing to host $host ip $ip is successful"; >>>>>> print $logFile "\nPing to host $host ip $ip is successful"; >>>>>> } >>>>>> else >>>>>> { >>>>>> print "\nPing to host $host ip $ip is failure"; >>>>>> print $logFile "\nPing to host $host ip $ip is failure"; >>>>>> } >>>>>> } >>>>>> close $logFile; >>>>>> >>>>>> >>>>>> -- >>>>>> Satya Prasad >>>>>> >>>>> >>>>> >>>>> >>>>> -- >>>>> Andrew Solomon >>>>> >>>>> Mentor@Geekuni http://geekuni.com/ >>>>> http://www.linkedin.com/in/asolomon >>>>> >>>> >>>> >>>> >>>> -- >>>> Satya Prasad >>>> >>> >>> >>> >>> -- >>> Andrew Solomon >>> >>> Mentor@Geekuni http://geekuni.com/ >>> http://www.linkedin.com/in/asolomon >>> >> >> > > > -- > Satya Prasad > -- ********************************************************* Don't ask them WHY they hurt you, because all they'll tell you is lies and excuses. Just know they were wrong, and try to move on. **********************************************************
