<div>
I still get the same problem. This is the code I parse. 

<pre><code class="code-10 nolinks" id="code-20-38171282-1">if success
 try
 evn('data');
 build(model);
 struct = GetInfo(model);
 test = Verify(test, Info);
 catch
	 strcmp(a,b);
 if feature('Testing') 
 print('x');
 end
 end
end
</code></pre>
 
Since, it has stcmp in the catch block, it should return fail. 
 
Thanks,
</div>

<div>
Well you can certainly get rid of warnings by doing 
 
no warnings; 
 
Just in front of line that is causing these warnings. &nbsp;If the rest of the logic works right, that would be the next thing to see.
</div>

<div>
Hi Farzan, 
I made some other changes to the code as seen below: 
 

<pre><code class="code-10 nolinks" id="code-20-38171846-1">sub check{
my ($file) = @_;
my ($state, $ind);

open (FILE, $file) or die &quot;Could not open $file: $!\n&quot;;
my @data = &lt;FILE&gt;;
close(FILE);
	
my $lineno = 0;	
my $result;
my @resultList;
my $line;

foreach $line (@data){
 if ($line =~ /^(\s*)try\b/) {
 $ind = $1;
 $state = 'try';
 } elsif ($state eq 'try' and $line =~ /^\s*catch/) {
 $state = 'catch';
 } elsif ($state eq 'catch' and $line =~ /\sstrcmp\b/) {
 $result = 0;
 push (@resultList, $result);
 } elsif ($state and $line =~ /^${ind}end/) {
 $state = undef;
		$result = 1;
		push (@resultList, $result);
 }
}
	if ('0' eq any(@resultList)){
		$result = 'Fail';
	}
	else{
		$result = 'Pass';
	}	
	return $result;	
}
</code></pre>
 
I still get Use of uninitialized value in string eq at... line 15. 
 
How can I fix this problem without doing no warnings, because due tothis problem, $result returns undef?
</div>

<div>
What do you want to accomplish from your Regex in Line 15?
</div>

<div>
I would like to find the beginning of a try block. 
 
Once I find the &quot;try&quot; then I change the state to &quot;try&quot;. 
 
Then I check for &quot;catch&quot; when the state is &quot;try&quot;. 
 
Once I find the &quot;catch&quot; then I change the state to &quot;catch&quot;. 
 
Then I check for &quot;strcmp&quot; when the state is &quot;catch&quot;. 
 
If I find &quot;strcmp&quot; in this pattern then I set $result to 0. Else to 1. 
 
The pattern I check for is like this: 
 

<pre><code class="code-1 nolinks" id="code-20-38172049-1">try
 % Some code
catch err
 if strcmp(err.message,'code error')
 % Take action
 else
 throw(M);
 end
end 
</code></pre>
 
The code should return &quot;0&quot; for this pattern because it includes strcmp inside the catch block. 
 
This is the related question that I asked before: 
 
ID27777394
</div>

<div>
Is there any luck about this question? 
 
Thanks,
</div>

<div>
I added this line right before line 15: 
 

<pre><code class="code-1 nolinks" id="code-20-38172715-1">die 'assert – undefined' unless defined $line;
</code></pre>
 
&nbsp;Now, the code works and it does what I expect. 
 
However, I still get this Use of uninitialized value in string eq at 
 
How can I fix it? 
 
Thanks,
</div>

<div>
<div class="content wysiwyg-content">
Hi, 
Why do I get &quot;Use of uninitialized value in string eq at .....&quot; for line 15 for the following code? 
 

<pre><code class="code-10 nolinks" id="code-10-27786086-1">sub errorIDsInCatchblocks{
my ($file) = @_;
my ($state, $ind);

open (FILE, $file) or die &quot;could not open $file: $!\n&quot;;
my @data = &lt;FILE&gt;;
close(FILE);
	
my $lineno = 0;	
my $result;
my $line;

foreach $line (@data){
		$lineno++;
 if ($line =~ /^(\s*)try\b/) {
 $ind = $1;
 $state = 'try';
 } elsif ($state eq 'try' and m{^\s*catch}) {
 $state = 'catch';
 } elsif ($state eq 'catch' and m{\strcmp\b}) {
 $result = 'Fail';
 } elsif ($state and m{^${ind}end}) {
 $state = undef;
			$result = 'Pass';
 }
 }
 return $result;	
}
</code></pre>
</div>
</div>

Hi,
Why do I get "Use of uninitialized value in string eq at ....." for line 15 for the following code?

(CODE)

How to fix Use of uninitialized value in string issue in Perl?

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.