http://qs321.pair.com?node_id=1034842


in reply to The simplest possible pattern match defeats me

I'm confused!

Your code and your error-msgs don't seem to match.

Where is the pattern match (m//) line 103 ?

You are identifying :

if ($oldString eq "Automated") { # Line 103, the one that gives all the trouble.

which doesn't have a regex but an eq!

Furthermore this can't be line 103, if your output just 4 lines before logs DEBUG main:::84:.

Could it be that you are chasing at the wrong place?

Cheers Rolf

( addicted to the Perl Programming Language)

Replies are listed 'Best First'.
Re^2: The simplest possible pattern match defeats me
by logan (Curate) on May 23, 2013 at 03:18 UTC
    Fair enough, it's a string compare rather than a pattern match. It's a simple eq, which should compare the string contained in $oldString to the value in quotes. Still, I get that uninitialized value error. The reason that there's a big gap between line 84 and line 103 is that I have a chunk commented out with an =item =cut block. Perhaps this will help. I've removed that block to make sure it wasn't causing the problem. 
     80     my $oldString = $allChanges->[$k]->getOldString();
 81     my $newString = $allChanges->[$k]->getNewString();
 82     $logger->debug("oldString = (", $oldString, ")");
 83     $logger->debug("newString = (", $newString, ")");
 84     print Dumper($oldString);
 85     sleep 1;
 86
 87     if ($oldString eq "Automated") {
 88         $logger->debug("old string = ", $oldString);
 89         $logger->debug("new string = ", $newString);
 90     }

    [download]
    Output: 
    INFO main:::78: Change 2 was to the Automated field of testCase HIREX-
+16845 on createdDate 2013-05-13 11:34:52 Old String = (Ready For Inte
+gration) New String = Automated
DEBUG main:::82: oldString = (Ready For Integration)
DEBUG main:::83: newString = (Automated)
$VAR1 = 'Ready For Integration';
Use of uninitialized value in pattern match (m//) at weeklyAutomationC
+hanges.pl line 87.
Use of uninitialized value in pattern match (m//) at weeklyAutomationC
+hanges.pl line 87.
DEBUG main:::352: old string = Ready For Integration
DEBUG main:::353: new string = Automated
DEBUG main:::355: New string = Automated

    [download]

    -Logan
    "What do I want? I'm an American. I want more."

[reply]
[d/l]
[select]
      Again the error msgs don't fit!

      That's how it looks like if eq fails: 

        DB<100> use warnings; $a eq "a"
Use of uninitialized value $a in string eq at ...

      [download]

      So where is the pattern match (m//) at weeklyAutomationChanges.pl line 87.?

      Are you debugging the right file?

      Which perl version do you use?

      Cheers Rolf

      ( addicted to the Perl Programming Language)

[reply]
[d/l]
[select]
        1) Yes, the fact that the error is for a failed pattern match and not a failed 'eq' is doubly confusing. That's one reason I posted to Perlmonks. Check my profile, Rolf. I've been coding perl for 15 years. That's not a "Don't question me, I know what I'm doing" statement. It's an "I've been doing this for 1/3 of my life. Why is this simple thing suddenly so hard?" statement.

        2) I'm sure I'm debugging the right file because when I add or remove lines from the file the line numbers in the output change. Moreover, if I change the text around the offending code those changes are reflected in the output.

        3) I'm using perl v5.8.8 built for x86_64-linux-thread-multi.

        I added a couple of extra checks and the results do point me in a direction. When I assign a string value to $oldString and test it with an eq (lines 80 - 89), no problem. If I assign the value with a call to $oldString = $allChanges->[$k]->getOldString(); the problem manifests. That's even more curious, because the call to print Dumper($oldString); at line 95 prints a simple string. 

         80     local $oldString = "OLDSTRING";
 81     local $newString = "NEWSTRING";
 82     $logger->debug("oldString = (", $oldString, ")");
 83     $logger->debug("newString = (", $newString, ")");
 84     if ($oldString eq "OLDSTRING") {
 85         $logger->info("$oldString = $oldString");
 86     }
 87     else {
 88         $logger->info("No. $oldString != oldString");
 89     }
 90
 91     $oldString = $allChanges->[$k]->getOldString();
 92     $newString = $allChanges->[$k]->getNewString();
 93     $logger->debug("oldString = (", $oldString, ")");
 94     $logger->debug("newString = (", $newString, ")");
 95     print Dumper($oldString);
 96     sleep 1;
 97
 98     if ($oldString eq "Automated") {
 99         $logger->debug("old string = ", $oldString);
100         $logger->debug("new string = ", $newString);

        [download]
        Results 
        INFO main:::79: Change 3 was to the Automated field of testCase HIREX-
+16863 on createdDate 2013-05-13 12:19:42 Old String = (To Be Automate
+d) New String = Ready For Integration
DEBUG main:::82: oldString = (OLDSTRING)
DEBUG main:::83: newString = (NEWSTRING)
INFO main:::84: OLDSTRING = OLDSTRING
DEBUG main:::93: oldString = (To Be Automated)
DEBUG main:::94: newString = (Ready For Integration)
$VAR1 = 'To Be Automated';
Use of uninitialized value in pattern match (m//) at weeklyAutomationC
+hanges.pl line 98.
Use of uninitialized value in pattern match (m//) at weeklyAutomationC
+hanges.pl line 98.

        [download]

        -Logan
        "What do I want? I'm an American. I want more."

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom