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/


Reply via email to