Re^3: write and read the same file not display the output

[Rudolf]

in reply to Re^2: write and read the same file not display the output
in thread write and read the same file not display the output

Hello ulaksh, Im guessing youve commented out your print "$_"; on purpose there. Anyway your getting yelled at because when the regex doesnt make a match, $a is not getting defined at all, so it is still undefined. You then try to use it on the next line print $a; You cant print $a because it has no value. It is undefined at the moment. This is also the reason your not getting anything printed to screen. maybe you can try this instead? :

print $1 if /^($name)$/;

[Kenosis]

Good eye, Rudolf! Did you mean:

print $1 if /^($name)$/;

[Rudolf]

Hey thanks for the nice reply, but I was not aware of a difference in the regex with the parentheses (though I updated my post): It would be good if you can point it out for me, always up for learning more Perl ! :-)

print $1 if /^$name$/;

#or

print $1 if /^($name)$/;

[Kenosis]

$1 is initialized via regex captures which use parentheses. For example, in the following:

my $string = 'Frank';
my $name   = 'Frank';

print $1 if $string =~ /^$name$/;
print $1 if $string =~ /^($name)$/;

The first print statement produces:

Use of uninitialized value $1 in...

Whereas, the second print shows the value in $1:

Frank