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
