Perl Repetitive Pattern Matching Post: 302341144

Sponsored Content

Top Forums Shell Programming and Scripting Perl Repetitive Pattern Matching Post 302341144 by Niroj on Wednesday 5th of August 2009 09:17:49 AM

08-05-2009

Registered User

Quote:

Originally Posted by summer_cherry

Code:

my $sql="INSERT INTO table_nm(a, b, c, d, e, f , g) VALUES (2046, TODAY, 'Change Subscription Name', '00000000000002000000000000000000000000000000000000', '00000000000001000000000000000000000000000000000000', '00000000000000000000000000000000000000000000000000', 1); ";
my @arr=$sql=~/\(([^)]*)\)/g;
my @tmp1=split(",",$arr[0]);
my @tmp2=split(",",$arr[1]);
for(my $i=0;$i<=$#tmp1;$i++){
    print $tmp1[$i],"=",$tmp2[$i]," AND ";
}

Thanks summer_cherry.

But I want to do the whole things only by pattern matching.

---------- Post updated at 05:17 AM ---------- Previous update was at 05:15 AM ----------

Input is changed little bit. Inside the quotes ',' can present... Please try to use pattern matching only
GIVEN
=======
my $sql="INSERT INTO table_nm(a, b, b, d, e, f , g) VALUES (2046, TODAY, 'Change Subscription Name', '000000000000020000, 0000000000000000000000, 0000000000', '00000000000001000, 000000000000000000000000000000000', '0000000000000000,0000000000000000000000000000000000', 1); ";
Required O/P:
================
a=2046 AND b=TODAY AND c='Change Subscription Name' AND d='000000000000020000, 0000000000000000000000, 0000000000' AND e='00000000000001000, 000000000000000000000000000000000AND f='0000000000000000,0000000000000000000000000000000000' AND g=1

Niroj

View Public Profile for Niroj

Find all posts by Niroj

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

perl pattern matching

hi i am trying to get digits inside brackes from file , whose structure is defined below CREATE TABLE TELM (SOC_NO CHAR (3) NOT NULL, TXN_AMOUNT NUMBER (17,3) SIGN_ON_TIME CHAR (8) TELLER_APP_LIMIT NUMBER (17,3) FIL01 ...

2. Shell Programming and Scripting

Perl Pattern Matching !!! Help

Hello I got the below one from in one of this forums For Ex: Loading File System Networking in nature now i need to extract the patterns between the words File and Networking : i.e. sample output: System cmd used : cat <file> | sed 's/.*File //' | sed 's/Closing.*$//' Actually...

3. Shell Programming and Scripting

Perl -Pattern Matching help..!

Hi, I got doubt in Pattern matching, could you tell me how the following differs in action ?? if ( $line1==/$line2/ ) if ( $line1=~/$line2/ ) if ( $line1=~m/$line2/) What is the significance of '~' in matching. Thanks in advance CoolBhai

4. Shell Programming and Scripting

Perl Pattern Matching

Hello experts, I have a file containing the following text(shortened here). File Begin ---------- < # Billboard.d3fc1302a677.imagePath=S:\\efcm_T4 < Billboard.d3fc1302a677.imagePath=S:\\efcm_T4 --- > # Billboard.d3fc1302a677.imagePath=S:\\efcm_Cassini >...

5. Shell Programming and Scripting

Perl pattern matching!!

Hi experts, I have many occurances of the following headers in a file. I need to grep for the word changed/inserted in the header, calculate the difference between the two numbers and list the count incrementally. Headers in a file look like this: ------------------- ---------------------...

6. Shell Programming and Scripting

Perl Pattern matching...

I am doing a file patterhn matching for a text file in PERL I am using this,,, but it says that no file is found $filepattern = '\d{1,4}.*A0NW9693.NDM.HBIDT.*.AD34XADJ.txt'; Can anyone help me out with Perl Pattern Matching concepts and how to do pattern matching for this txt file:...

7. Shell Programming and Scripting

Pattern Matching in PERL

I have a 2 files in .gz format and it consists of 5 million lines the format of the file would be gzcat file1.gz | more abcde aerere ffgh56 .. .. 12345 gzcat file2.gz | more abcde , 12345 , 67890, ffgh56 , 45623 ,12334 whatever the string is in the file1 should be matched...

8. Shell Programming and Scripting

Need help with perl pattern matching

My log file looks as given below, its actually a huge file around 1 GB and these are some of the line: conn=5368758 op=10628050 msgId=64 - RESULT err=0 tag=101 nentries=1 etime=0 conn=7462122 op=-1 msgId=-1 - fd=247 slot=247 LDAPS connection from 10.13.18.12:37645 to 10.18.6.45 conn=7462122...

9. Shell Programming and Scripting

Pattern matching in Perl

Hi, I have a list of IP, eg : 192.168.0.15 192.168.0.24 192.168.2.110 192.168.2.200 And I would like the shortest pattern who match with '192.168.0' and '192.168.2' (without the last dot and number).

10. Shell Programming and Scripting

Perl - Use of *? in Matching Pattern

I am using Perl version 5.8.4 and trying to understand the use of regular expression. Following is my code and output. $string = "Perl is a\nScripting language"; ($start) = ($string =~ /\A(.*?) /); @lines = ($string =~ /^(.*?) /gm); print "First Word (using \\A): $start\n","Line...

LEARN ABOUT DEBIAN

oarnodesetting

oarnodesetting(1)						   OAR commands 						 oarnodesetting(1)

NAME

       oarnodesetting - Change the state and properties of a node in OAR.

SYNOPSIS

       oarnodesetting [-h hostname | [[-r resource_number][--sql "sql syntax"] | -a]]

DESCRIPTION

       This command is used to Change the state and properties of a node in OAR.

OPTIONS

       -a, --add
	   Add a new resource.

       -s, --state STATE
	   Set the new state of the node. The available states are: Alive, Absent and Dead.

       -m, --maintenance on/off
	   Set the maintenance mode on/off (resource state will be set to absent and available_upto field set to 0).

       -h, --hostname HOSTNAME
	   Set the node hostname.

       -r, --resource
	   Set the resource.

       --sql
	   Get resource identifiers which respond to the SQL where clause on the table jobs (ex: "type = 'default'").

       -p, --property "PROPERTY=VALUE"
	   Set the property of the node to the given value.

       -n, --nowait
	   Do not wait for job ends when the node switches to Absent or Dead.

EXAMPLES

       oarnodesetting -s Alive -h node012
       oarnodesetting -s Absent -h node012

COPYRIGHTS

	Copyright 2003-2012 LIG http://lig.imag.fr This software is licensed under the GNU General Public License Version 2 or above. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

oarnodesetting							    2012-05-23							 oarnodesetting(1)