This is a sample of the data I am reading in: [#|2011-01-19T07:05:10.734-0800|WARNING|sun-appserver2.1|javax.enterprise.system.stream.err|_ThreadID=15;_ThreadName=httpSSLWorkerThread-8080-1;_RequestID=c5cefdc4-4651-4c77-b9e6-84f9e0f6609e;|] com.raec.cq.CQCommitException: You wanted to commit a modifyCR based record, but the record was not found in the ClearQuest Database. [#|2011-01-19T07:05:10.734-0800|WARNING|sun-appserver2.1|javax.enterprise.system.stream.err|_ThreadID=15;_ThreadName=httpSSLWorkerThread-8080-1;_RequestID=c5cefdc4-4651-4c77-b9e6-84f9e0f6609e;|] com.raec.cq.CQCommitException: You wanted to commit a modifyCR based record, but the record was not found in the ClearQuest Database. [#|2011-01-19T07:05:10.734-0800|WARNING|sun-appserver2.1|javax.enterprise.system.stream.err|_ThreadID=15;_ThreadName=httpSSLWorkerThread-8080-1;_RequestID=c5cefdc4-4651-4c77-b9e6-84f9e0f6609e;|] com.raec.cq.CQCommitException: You wanted to commit a modifyCR based record, but the record was not found in the ClearQuest Database.
--- On Thu, 1/27/11, Parag Kalra <paragka...@gmail.com> wrote: From: Parag Kalra <paragka...@gmail.com> Subject: Re: Need help with Use of uninitialized value in concatenation (.) or string To: "CM Analyst" <cmanal...@yahoo.com> Date: Thursday, January 27, 2011, 6:03 PM Ok. Post sample from the log file to entire list. :) Cheers, Parag On Thu, Jan 27, 2011 at 4:02 PM, CM Analyst <cmanal...@yahoo.com> wrote: Yes, changiing to $line does not make a difference. On Thu Jan 27th, 2011 5:31 PM CST Parag Kalra wrote: >No problem. :) > >But are you still facing the issue? > >Cheers, >Parag > > > >On Thu, Jan 27, 2011 at 3:27 PM, CM Analyst <cmanal...@yahoo.com> wrote: > >> Lack of experience :-( >> >> --- On *Thu, 1/27/11, Parag Kalra <paragka...@gmail.com>* wrote: >> >> >> From: Parag Kalra <paragka...@gmail.com> >> Subject: Re: Need help with Use of uninitialized value in concatenation (.) >> or string >> To: "CM Analyst" <cmanal...@yahoo.com> >> Cc: beginners@perl.org >> Date: Thursday, January 27, 2011, 4:45 PM >> >> >> 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<http://us.mc380.mail.yahoo.com/mc/compose?to=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<http://us.mc380.mail.yahoo.com/mc/compose?to=beginners-unsubscr...@perl.org> >> For additional commands, e-mail: >> beginners-h...@perl.org<http://us.mc380.mail.yahoo.com/mc/compose?to=beginners-h...@perl.org> >> http://learn.perl.org/ >> >> >> >> >> -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/