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/ > > >