Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

The simplest possible pattern match defeats me

by logan (Curate)
on May 23, 2013 at 02:35 UTC ( #1034839=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    while ($allChanges->[$k]) {
       $logger->info("Change $k was to the ", $allChanges->[$k]->getField(
    +), " field of testCase ", $allChanges->[$k]->getKey(), " on createdDa
    +te ", $allChanges->[$k]->printCreatedDate(), " Old String = (", $allC
    +hanges->[$k]->getOldString(), ") New String = ", $allChanges->[$k]->g
    +etNewString());
    ...
        my $self = shift;
        return $self->{oldString};
    }
    
  2. or download this
    INFO main:::80: Change 0 was to the Automated field of testCase HIREX-
    +16861 on createdDate 2013-05-13 10:16:05 Old String = (To Be Automate
    +d) New String = Ready For Integration
    DEBUG main:::84: oldString = (To Be Automated)
    ...
    $VAR1 = 'To Be Automated';
    Use of uninitialized value in pattern match (m//) at weeklyAutomationC
    +hanges.pl line 103.
    Use of uninitialized value in pattern match (m//) at weeklyAutomationC
    +hanges.pl line 103.
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://1034839]
Approved by vinoth.ree
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2021-10-25 13:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (89 votes). Check out past polls.

    Notices?