Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: String matching question

by athomason (Curate)
on Mar 13, 2001 at 23:45 UTC ( #64192=note: print w/replies, xml ) Need Help??

in reply to String matching question

I don't see anything broken in this code, so the bug is either more subtle than I can see through or it's hiding outside of this snippet. I was about to suggest checking for a trailing newline on your transaction ID, but setting it explicitly would have revealed that one. The other easy error would be if $transaction_id was set incorrectly (via typo in its name, for instance). If those aren't it, it's time to get your hands a bit dirtier.

You seem to be going through most of the requisite error-finding steps, but there are a couple of other things you might try to pin down the bug. First, turn on use strict and warnings (#!/usr/bin/perl -w) if you haven't already, which it seems. You'll have to declare all your variables, but you'll thank yourself in the long run. If that doesn't uncover anything, progressively simplify your code until it does work. For instance, explicitly put a numeric ID you know exists (i.e. because the script prints it from the print "$pro_logline\n" statement) in the regexp instead of /$transaction_id/. If that doesn't work, something wacky is going on. If it does (and it should), compare each $transaction_id you search for against the known ID. You should see at least one match there; if not, the ID is somehow being read incorrectly.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://64192]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (4)
As of 2021-10-22 21:39 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (85 votes). Check out past polls.