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
