When you are already storing the line under $line
>>>while(( my $line = <FILEHANDLE>)) {

Then why are you using $_
>>>my @fields = split '\|', $_;

Cheers,
Parag



On Thu, Jan 27, 2011 at 12:57 PM, CM Analyst <cmanal...@yahoo.com> wrote:

> Hello,
>
> In the following script my goal is pull the date value each time an error
> value (hardcoded) is found in the specified log file. The script retrieves
> the error value without a problem but I cannot seem get the date value. Can
> anyone tell me what I need to do?
>
> The error message when I run the script is:
>
> Use of uninitialized value in concatenation (.) or string at script.plline 32
>
> where line 32 is where I am calling this:
>
> "print $date";
>
> Here is the script:
>
> use warnings;
> use strict;
>
> #Specify the path to the log file you want to read, for ex. application
> log#
>
> open (FILEHANDLE, 'd:/scripts/server2.log') or print "Can't Open File!!!";
>
> while(( my $line = <FILEHANDLE>)) {
>
> #Searching for keywords from application log#
>
> if (($line =~ m/CQCommitException/i ) || ($line =~ m/Communication link
> failure/i)) {
>
> my @fields = split '\|', $_;
> my $date       = $fields[1];
>
> print $date;
>
> #prints $line to file
> open (my $outfile, ">>", "d:/scripts/loginfo.txt") or die "Can't open
> loginfo.txt: $!";
>
> print $outfile "$date, $_\n";
>
> #close $outfile or die "$outfile:$!";
>
>    }
> }
>
> my $outfile = 'd:/scripts/loginfo.txt';
>
> #To send or not to send - file size check
>
> #Delete file when done
> #unlink 'd:\scripts\loginfo.txt';
>
> -END-
>
>
>
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>

Reply via email to