Please don't piggyback on an existing thread. Start a new thread with an email to the group address. On 20 Mar 2015 11:34, "Uday Vernekar" <vernekaru...@gmail.com> wrote:
> 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. > ********************************************************** >
