Perl regex - Dev Shed

Dev Shed Forums Sponsor:

Stop making mediocre tutorials.The best tutorials are video! Camtasia Studio makes it easy to create engaging, buzz-building screen videos at any size, in any popular format. Download the free trial!

May 1st, 2008, 06:28 PM

oracleuser

Contributing User

Join Date: Apr 2007

Posts: 45

Time spent in forums: 8 h 7 m 41 sec
Reputation Power: 2

Perl regex

I'm looping through a text file and have placed the text for each row into a string.

These are good matches that I would like to keep the string. The numbers can change and also the number of digits.
RT.dc_id=23432h1
RT.dc_id=23432h1&
morestuff&RT.dc_id=23h1
morestuff&RT.dc_id=23h1&morestuff

This would be a bad match where I want to envoke next.

RT.dc_id=234ew32h1
RT.dc_id=23432h1sdfrdsfg&

Here is the regex I tried to build. Thoughts? Did I do this correctly?

Case insentiave match where RT.dc_id=(number) one or more times with either m1% or m1
m/RT.dc_id=[0-9]+m1&/i

Code:

($query != m/RT.dc_id=[0-9]+m1&/i or m/RT.dc_id=[0-9]+m1/i) && 
next; # got a match let's skip

May 1st, 2008, 07:28 PM

Axweildr

CPAN medic ...

Join Date: Mar 2003

Location: Location: Location:

Posts: 10,905

Folding Points: 119844 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 3 Months 3 Weeks 6 Days 3 h 56 m 58 sec
Reputation Power: 2304

Send a message via Google Talk to Axweildr

Code:

($query != m/RT.dc_id=[0-9]+m1&/i or m/RT.dc_id=[0-9]+m1/i) && 
next;

I'm being a little bit picky, but what do you read that as ...
me

Code:

$query = (chance of a nw wind) or (chance of a sw wind) and if you can get either to result as true, then ... next ...

what are you looking for ...

__________________
--Ax
without exception, there is no rule ...

The great thing about Object Oriented code is that it can make small, simple problems look like large, complex ones

09 F9 11 02
9D 74 E3 5B
D8 41 56 C5
63 56 88 C0
Some people, when confronted with a problem, think "I know, I'll use regular expressions." Now they have two problems. -- Jamie Zawinski

May 2nd, 2008, 01:39 PM

oracleuser

Contributing User

Join Date: Apr 2007

Posts: 45

Time spent in forums: 8 h 7 m 41 sec
Reputation Power: 2

Quote:

Originally Posted by Axweildr

Code:

($query != m/RT.dc_id=[0-9]+m1&/i or m/RT.dc_id=[0-9]+m1/i) && 
next;

I'm being a little bit picky, but what do you read that as ...
me

Code:

$query = (chance of a nw wind) or (chance of a sw wind) and if you can get either to result as true, then ... next ...

what are you looking for ...

The != is if it does not match. So if my string does not match the conditions then next. The conditions are the two regex.

# here are good strings that I do not want to use next
my $string= "e17ec&RT.dc_id=97h1&RT.cd=32";
my $string= "e17ec&RT.dc_id=97h1 ";
my $string= "e17ec&RT.dc_id=97545h1&RT.cd=32";

# here are bad strings that I do want to use next
my $string= "e17ec&RT.dc_id=97h1gsdg&RT.cd=32";
my $string= "e17ec&RT.dc_id=9bad7h1&RT.cd=32";
my $string= "e17ec&RT.dc_id=97h1";
my $string= "e17ec&RT.dc_id=97h12&RT.cd=32";

# Skip over incorrectly formated strings
if(($string=~ m/RT\.dc_id\=[0-9]+h1&/i) && ($url =~ m/RT\.dc_id/i)) {
print "next1\n";
#next;
}
if(($url =~ m/RT\.dc_id\=[0-9]+h1 /i) && ($url =~ m/RT\.dc_id/i)){
print "next2\n";
#next; # got a match let's skip
}

May 2nd, 2008, 07:34 PM

KevinADC

Contributing User

Dev Shed Intermediate (1500 - 1999 posts)

Join Date: Oct 2004

Location: Sunny Southern California

Posts: 1,966

Time spent in forums: 2 Weeks 5 Days 3 h 4 m 48 sec
Reputation Power: 338

Quote:

Originally Posted by oracleuser

The != is if it does not match. So if my string does not match the conditions then next. The conditions are the two regex.

!= is not a regexp operator , you want to use !~

Viewing: Dev Shed Forums > Programming Languages > Perl Programming > Perl regex

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Free IT White Papers!

Accelerating Trading Partner Performance
One in five. That's how many partner transactions have at least one error. That is an amazing statistic, particularly given the extraordinary leaps in innovation across the global supply chain during the past two decades. Download this white paper to learn more.

Competing on Analytics
This Tech Analysis is designed to help identify characteristics shared by analytics competitors, and includes information about 32 organizations that have made a commitment to quantitative, fact-based analysis.

Cost Effective Scaling with Virtualization and Coyote Point Systems
An overview of the industry trend toward virtualization, how server consolidation has increased the importance of application uptime and the steps being taken to integrate load balancing technology with virtualized servers.

Five Checkpoints to Implementing IP Telephony
Implementation planning for IP PBX software and IP telephony has become vital as businesses replace discontinued legacy PBX phone systems. This informative whitepaper outlines five "checkpoints" for any implementation plan that will help make IP communications a successful proposition.

Hosted Email Security: Staying Ahead of New Threats
In the last two years, email has become a fierce battleground between the nefarious forces of spam and malware, and the heroes of messaging protection. The spam volumes increased alarmingly every month, bringing clever new forms of phishing and virus propagation attacks.

More Free IT White Papers!