Re: regex help - only one value returned

2020-12-02 Thread Jim Gibson
In your original example: print "match1='$1' '$2'\n" if ($T=~/^((mr|mrs|miss|dr|prof|sir) .{5,}?)\n/smi); print "match2='$1' '$2'\n" if ($T=~/^(mr|mrs|miss|dr|prof|sir .{5,}?)\n/smi); the interior parentheses in example one terminates the alternation, so the last string is ’sir’. In example two

Re: regex help - only one value returned

2020-12-02 Thread Gary Stainburn
On 02/12/2020 13:56, Vlado Keselj wrote: Well, it seems that the first one is what you want, but you just need to use $1 and ignore $2. You do need parentheses in '(mr|mrs|miss|dr|prof|sir)' but if you do not want for them to be captured in $2, you can use: '(?:mr|mrs|miss|dr|prof|sir)'. For ex

Re: regex help - only one value returned

2020-12-02 Thread Vlado Keselj
Well, it seems that the first one is what you want, but you just need to use $1 and ignore $2. You do need parentheses in '(mr|mrs|miss|dr|prof|sir)' but if you do not want for them to be captured in $2, you can use: '(?:mr|mrs|miss|dr|prof|sir)'. For example: print "match3='$1' '$2'\n" if (

regex help - only one value returned

2020-12-02 Thread Gary Stainburn
I have an array of regex expressions that I apply to text returned from tesseract. Each match that I get then gets stored for future processing. However, I'm struggling with one regex. The problem is that: 1) with brackets round the titles it returns two matches. 2) without brackets, it retu

Re: Regex help needed

2013-01-09 Thread Dr.Ruud
On 2013-01-08 13:28, punit jain wrote: { test = ("test123"); test = ("test123","abc"); test = ("test123","abc","xyz"); } { test1 = ("passfile"); test1 = ("passfile","pasfile1"); test1 = ("passfile","pasfile1","user"); } and so on The requirement is to have the file parsing so that final o

Re: Regex help needed

2013-01-09 Thread *Shaji Kalidasan*
etty1","jack"); test3 = ("betty","betty1"); test3 = ("betty"); } [/code] [output] test  =  ("test123","abc","xyz"); test1  =  ("passfile","pasfile1","user"); test2  =  ("temp","temp1","username"); test3  =  ("betty","betty1&

Re: Regex help needed

2013-01-08 Thread timothy adigun
Hi punit jain, Please check my comments below. On Tue, Jan 8, 2013 at 1:28 PM, punit jain wrote: > Hi , > > I have a file as below : - > > { > test = ("test123"); > test = ("test123","abc"); > test = ("test123","abc","xyz"); > } > { > test1 = ("passfile"); > test1 = ("passfile","pasfile1"); > t

Re: Regex help needed

2013-01-08 Thread Jim Gibson
On Jan 8, 2013, at 4:28 AM, punit jain wrote: > Hi , > > I have a file as below : - > > { > test = ("test123"); > test = ("test123","abc"); > test = ("test123","abc","xyz"); > } > { > test1 = ("passfile"); > test1 = ("passfile","pasfile1"); > test1 = ("passfile","pasfile1","user"); > } > > and

Regex help needed

2013-01-08 Thread punit jain
Hi , I have a file as below : - { test = ("test123"); test = ("test123","abc"); test = ("test123","abc","xyz"); } { test1 = ("passfile"); test1 = ("passfile","pasfile1"); test1 = ("passfile","pasfile1","user"); } and so on The requirement is to have the file parsing so that final output is

Re: Regex help

2012-12-22 Thread Rob Dixon
On 22/12/2012 11:15, punit jain wrote: Hi, I have a file like below : - BEGIN:VCARD VERSION:2.1 EMAIL:te...@test.com FN:test1 REV:20101116T030833Z UID:644938456.1419. END:VCARD From <>(S___-0003) Tue Nov 16 03:10:15 2010 content-class: urn:content-classes:person Date: Tue, 16 Nov

Re: Regex help

2012-12-22 Thread David Precious
On Sat, 22 Dec 2012 16:45:21 +0530 punit jain wrote: > Hi, > > I have a file like below : - [snipped example - vcards with mail headers etc in between] > My requirement is to get all text between BEGIN:VCARD and END:VCARD > and all the instances. So o/p should be :- [...] > I am using below r

Re: Regex help

2012-12-22 Thread Paul Johnson
On Sat, Dec 22, 2012 at 04:45:21PM +0530, punit jain wrote: > Hi, > > I have a file like below : - > > BEGIN:VCARD > VERSION:2.1 > EMAIL:te...@test.com > FN:test1 > REV:20101116T030833Z > UID:644938456.1419. > END:VCARD > > >From <>(S___-0003) Tue Nov 16 03:10:15 2010 > content-class

Regex help

2012-12-22 Thread punit jain
Hi, I have a file like below : - BEGIN:VCARD VERSION:2.1 EMAIL:te...@test.com FN:test1 REV:20101116T030833Z UID:644938456.1419. END:VCARD >From <>(S___-0003) Tue Nov 16 03:10:15 2010 content-class: urn:content-classes:person Date: Tue, 16 Nov 2010 11:10:15 +0800 Subject: test Message

Re: regex help

2011-10-28 Thread Jim Gibson
On 10/28/11 Fri Oct 28, 2011 2:15 PM, "Chris Stinemetz" scribbled: > On Wed, Oct 19, 2011 at 1:10 AM, Leo Susanto wrote: > >> use strict; >> my %CELL; >> my %CELL_TYPE_COUNT; >> my $timestamp; >> my $hour; >> while (my $line = ) { >>if ($line =~ m|\d{1,2}/\d{1,2}/\d{2} ((\d{1,2}):\d{1

Re: regex help

2011-10-28 Thread Chris Stinemetz
On Wed, Oct 19, 2011 at 1:10 AM, Leo Susanto wrote: > use strict; > my %CELL; > my %CELL_TYPE_COUNT; > my $timestamp; > my $hour; > while (my $line = ) { >if ($line =~ m|\d{1,2}/\d{1,2}/\d{2} ((\d{1,2}):\d{1,2}:\d{1,2})|) { > #10/17/11 18:25:20 #578030 >$timestamp = $1; >

Re: regex help

2011-10-18 Thread Leo Susanto
use strict; my %CELL; my %CELL_TYPE_COUNT; my $timestamp; my $hour; while (my $line = ) { if ($line =~ m|\d{1,2}/\d{1,2}/\d{2} ((\d{1,2}):\d{1,2}:\d{1,2})|) { #10/17/11 18:25:20 #578030 $timestamp = $1; $hour = $2; } if ($line =~ /CEL

Re: regex help

2011-10-18 Thread Igor Dovgiy
Maybe this'll be helpful. ) my $time_rx = qr/(? (? \d{2} ) (?: :\d{2} ){2} ) /x; my $cell_record_rx = qr/CELL \s+ (? \d+) \s+ (? [^,]+)

Re: regex help

2011-10-18 Thread Chris Stinemetz
On Mon, Oct 17, 2011 at 10:57 PM, Leo Susanto wrote: > From looking at the regex > >>  if ($line =~ >> /17|18|19|20|21+:(\d+):(\d+)+\n+\n+CELL\s+(\d+)\s+(.+?),.+?HEH/){ > > against the data > >> 10/17/11 18:25:20 #578030 >> >>  25 REPT:CELL 221 CDM 2, CRC, HEH >>     SUPPRESSED MSGS: 0 >>     ERR

Re: regex help

2011-10-17 Thread John W. Krahn
Chris Stinemetz wrote: Hello, Hello, [*SNIP*] #!/usr/bin/perl use warnings; use strict; use POSIX; # my $filepath = sprintf("/omp/omp-data/logs/OMPROP1/%s.APX",strftime("%y%m%d%H",localtime)); my $filepath = ("/tmp/110923.APX"); # for testing my $runTime = sprintf("/home/cstinemetz/

Re: regex help

2011-10-17 Thread John W. Krahn
Brian Fraser wrote: On Tue, Oct 18, 2011 at 12:32 AM, Chris Stinemetz wrote: /17|18|19|20|21+:(\d+):(\d+)+\n+\n+CELL\s+(\d+)\s+(.+?),.+?HEH/ Spot the issue: / 17#Or | 18#Or | 19#Or | 20#Or | 21+:(\d+):(\d+)+\n+\n+CELL\s+(\d+)\s+(.+?),.+?HEH /x For anyth

Re: regex help

2011-10-17 Thread Brian Fraser
On Tue, Oct 18, 2011 at 12:32 AM, Chris Stinemetz wrote: > /17|18|19|20|21+:(\d+):(\d+)+\n+\n+CELL\s+(\d+)\s+(.+?),.+?HEH/ Spot the issue: / 17#Or | 18#Or | 19#Or | 20#Or | 21+:(\d+):(\d+)+\n+\n+CELL\s+(\d+)\s+(.+?),.+?HEH /x For anything but 21, the regex is on

Re: regex help

2011-10-17 Thread Leo Susanto
>From looking at the regex >  if ($line =~ > /17|18|19|20|21+:(\d+):(\d+)+\n+\n+CELL\s+(\d+)\s+(.+?),.+?HEH/){ against the data > 10/17/11 18:25:20 #578030 > >  25 REPT:CELL 221 CDM 2, CRC, HEH >     SUPPRESSED MSGS: 0 >     ERROR TYPE: ONEBTS MODULAR CELL ERROR >     SET: MLG BANDWIDTH CHANGE

regex help

2011-10-17 Thread Chris Stinemetz
Hello, I am getting the following error when I am trying to use regex to match a pattern and then access the memory variables: Any insight as to what I am doing wrong is greatly appreciated. Thank you, Chris Use of uninitialized value $1 in hash element at ./heh.pl line 22, <$fh> line 1211. Us

Re: regex help

2011-10-10 Thread John Delacour
At 14:56 -0500 10/10/11, Chris Stinemetz wrote: Once I match HEH how can alter the program to print the contents that are in the two lines directly above the match? If it's only one instance you need to deal with then this should do the trick: #!/usr/bin/perl use strict; my @lines; while ()

Re: regex help

2011-10-10 Thread Shawn H Corey
On 11-10-10 03:56 PM, Chris Stinemetz wrote: Any help is appreciated. Once I match HEH how can alter the program to print the contents that are in the two lines directly above the match? For example in this case I would like the print results to be: **01 REPT:CELL 983 CDM 1, CCU 1, CE 5, HEH

Re: regex help

2011-10-10 Thread John W. Krahn
Chris Stinemetz wrote: Any help is appreciated. It looks like you don't need "regex help". Once I match HEH how can alter the program to print the contents that are in the two lines directly above the match? For example in this case I would like the print results to be: **0

Re: regex help

2011-10-10 Thread Chris Charley
"Chris Stinemetz" wrote in message Any help is appreciated. Once I match HEH how can alter the program to print the contents that are in the two lines directly above the match? For example in this case I would like the print results to be: **01 REPT:CELL 983 CDM 1, CCU 1, CE 5, HEHTimest

Re: regex help

2011-10-10 Thread Brian Fraser
On Mon, Oct 10, 2011 at 4:56 PM, Chris Stinemetz wrote: > Any help is appreciated. > > Once I match HEH how can alter the program to print the contents that > are in the two lines directly above the match? > > For example in this case I would like the print results to be: > > **01 REPT:CELL 983 C

regex help

2011-10-10 Thread Chris Stinemetz
Any help is appreciated. Once I match HEH how can alter the program to print the contents that are in the two lines directly above the match? For example in this case I would like the print results to be: **01 REPT:CELL 983 CDM 1, CCU 1, CE 5, HEHTimestamp: 10/10/11 00:01:18 #!/usr/bin/per

Re: Regex help

2011-05-17 Thread Rob Dixon
On 16/05/2011 23:44, Owen wrote: I am trying to get all the 6 letter names in the second field in DATA below, eg BARTON DARWIN DARWIN But the script below gives me all 6 letter and more entries. What I read says {6} means exactly 6. What is the correct RE? I have solved the problem my using

Re: Regex help

2011-05-16 Thread Jim Gibson
On 5/16/11 Mon May 16, 2011 3:44 PM, "Owen" scribbled: > I am trying to get all the 6 letter names in the second field in DATA > below, eg > > BARTON > DARWIN > DARWIN > > But the script below gives me all 6 letter and more entries. > > What I read says {6} means exactly 6. \S{6} will match

Regex help

2011-05-16 Thread Owen
I am trying to get all the 6 letter names in the second field in DATA below, eg BARTON DARWIN DARWIN But the script below gives me all 6 letter and more entries. What I read says {6} means exactly 6. What is the correct RE? I have solved the problem my using if (length($data[1]) == 6 ) but wou

Re: Need a Perl Regex Help

2009-11-14 Thread Parag Kalra
Thanks 007 It worked out of the box :) Cheers, Parag On Fri, Nov 13, 2009 at 8:03 PM, 7 <7stud.7s...@gmail.com> wrote: > On Fri, Nov 13, 2009 at 5:07 AM, Parag Kalra wrote: > >> Hey All, >> >> I have a following a LDIF file to process through Perl - >> >> ###

Re: Need a Perl Regex Help

2009-11-13 Thread Shawn H Corey
Parag Kalra wrote: > I have a following a LDIF file to process through Perl - > > Any pointers? http://search.cpan.org/search?query=LDIF&mode=all -- Just my 0.0002 million dollars worth, Shawn Programming is as much about organization and communication as it is about coding. I like Per

Re: Need a Perl Regex Help

2009-11-13 Thread 7
On Fri, Nov 13, 2009 at 5:07 AM, Parag Kalra wrote: > Hey All, > > I have a following a LDIF file to process through Perl - > > ### > dn: ou=71404558, ou=Company, ou=Personal, o=paragkalra.com > dn: ou=People, ou=71404558, ou=Company, ou

Re: Need a Perl Regex Help

2009-11-13 Thread 7
On Fri, Nov 13, 2009 at 5:07 AM, Parag Kalra wrote: > Hey All, > > I have a following a LDIF file to process through Perl - > > ### > dn: ou=71404558, ou=Company, ou=Personal, o=paragkalra.com > dn: ou=People, ou=71404558, ou=Company, ou

Need a Perl Regex Help

2009-11-13 Thread Parag Kalra
Hey All, I have a following a LDIF file to process through Perl - ### dn: ou=71404558, ou=Company, ou=Personal, o=paragkalra.com dn: ou=People, ou=71404558, ou=Company, ou=Personal, o=paragkalra.com dn: ou=Groups, ou=71404558, ou=Company

Re: RegEx help please ...

2008-08-11 Thread Rob Dixon
Mr. Shawn H. Corey wrote: > On Mon, 2008-08-11 at 23:30 +0100, Rob Dixon wrote: >> Mr. Shawn H. Corey wrote: >>> On Mon, 2008-08-11 at 14:02 -0700, Saya wrote: I have the following issue: my $s = "/metadata-files/test-desc.txt,/metadata-files/birthday.txt,/ web-media/images

Re: RegEx help please ...

2008-08-11 Thread Mr. Shawn H. Corey
On Mon, 2008-08-11 at 23:30 +0100, Rob Dixon wrote: > Mr. Shawn H. Corey wrote: > > On Mon, 2008-08-11 at 14:02 -0700, Saya wrote: > >> > >> I have the following issue: > >> > >> my $s = "/metadata-files/test-desc.txt,/metadata-files/birthday.txt,/ > >> web-media/images/bday-after-help.jpg,javascri

Re: RegEx help please ...

2008-08-11 Thread Rob Dixon
Mr. Shawn H. Corey wrote: > On Mon, 2008-08-11 at 14:02 -0700, Saya wrote: >> >> I have the following issue: >> >> my $s = "/metadata-files/test-desc.txt,/metadata-files/birthday.txt,/ >> web-media/images/bday-after-help.jpg,javascript:popUp('/pop-ups/ >> birthday/main.html','bday-pics',785,460);"

Re: RegEx help please ...

2008-08-11 Thread Rob Dixon
Saya wrote: > > I have the following issue: > > my $s = "/metadata-files/test-desc.txt,/metadata-files/birthday.txt,/ > web-media/images/bday-after-help.jpg,javascript:popUp('/pop-ups/ > birthday/main.html','bday-pics',785,460);" > > Now I want $s to be like: "/metadata-files/test-desc.txt,/meta

Re: RegEx help please ...

2008-08-11 Thread Mr. Shawn H. Corey
On Mon, 2008-08-11 at 14:02 -0700, Saya wrote: > Hi, > > I have the following issue: > > my $s = "/metadata-files/test-desc.txt,/metadata-files/birthday.txt,/ > web-media/images/bday-after-help.jpg,javascript:popUp('/pop-ups/ > birthday/main.html','bday-pics',785,460);" > > Now I want $s to be l

RegEx help please ...

2008-08-11 Thread Saya
Hi, I have the following issue: my $s = "/metadata-files/test-desc.txt,/metadata-files/birthday.txt,/ web-media/images/bday-after-help.jpg,javascript:popUp('/pop-ups/ birthday/main.html','bday-pics',785,460);" Now I want $s to be like: "/metadata-files/test-desc.txt,/metadata- files/birthday.txt

regex help

2008-07-24 Thread Tony Heal
I have a text dump of a postgresql database and I want to find out if there are any characters that are not standard keyboard characters. Is there a way to use regex to do this without doing a character by character scan of a 5GB file. I want to know where any character that is not one of these is

Re: regex help

2008-07-24 Thread Mr. Shawn H. Corey
On Thu, 2008-07-24 at 09:44 -0400, Tony Heal wrote: > I have a text dump of a postgresql database and I want to find out if there > are any characters that are not standard keyboard characters. Is there a way > to use regex to do this without doing a character by character scan of a 5GB > file. N

Re: Regex help

2008-06-21 Thread Rob Dixon
Rob Dixon wrote: > Ravi Malghan wrote: >> Hi: I am trying to extract some stuff from a string and not getting the >> expected results. I have looked through >> http://www.perl.com/doc/manual/html/pod/perlre.html and can't seem to figure >> this one out. >> >> I have a string which is a sequence

Re: Regex help

2008-06-21 Thread Dr.Ruud
Ravi Malghan schreef: > I want to split this string into an array using comma seperator, but > the problem is some values have one or more commas within them. That is a common problem. First split on comma, then recombine elements by using out-of-band knowledge. -- Affijn, Ruud "Gewoon is een

Re: Regex help

2008-06-20 Thread icarus
On Jun 20, 9:10 am, [EMAIL PROTECTED] (Ravi Malghan) wrote: > Hi: I am trying to extract some stuff from a string and not getting the > expected results. I have looked > throughhttp://www.perl.com/doc/manual/html/pod/perlre.html and can't seem to > figure this one out. > I have a string which is

Re: Regex help

2008-06-20 Thread Gunnar Hjalmarsson
Ravi Malghan wrote: I have a string which is a sequence of words and each item is comma seperated field1, lengthof value1, value1,field2, length of value2, value2,field3,length of value3, value3 and so on After each field name I have the length of the value I want to split this string into an a

Re: Regex help

2008-06-20 Thread Rob Dixon
Ravi Malghan wrote: > > Hi: I am trying to extract some stuff from a string and not getting the > expected results. I have looked through > http://www.perl.com/doc/manual/html/pod/perlre.html and can't seem to figure > this one out. > > I have a string which is a sequence of words and each ite

Re: Regex help

2008-06-20 Thread John W. Krahn
Ravi Malghan wrote: Hi: I am trying to extract some stuff from a string and not getting the expected results. I have looked through http://www.perl.com/doc/manual/html/pod/perlre.html and can't seem to figure this one out. I have a string which is a sequence of words and each item is comma sep

Re: Regex help

2008-06-20 Thread yitzle
On Fri, Jun 20, 2008 at 3:10 PM, Ravi Malghan <[EMAIL PROTECTED]> wrote: > Hi: I am trying to extract some stuff from a string and not getting the > expected results. I have looked through > http://www.perl.com/doc/manual/html/pod/perlre.html and can't seem to figure > this one out. > I have a s

Regex help

2008-06-20 Thread Ravi Malghan
Hi: I am trying to extract some stuff from a string and not getting the expected results. I have looked through http://www.perl.com/doc/manual/html/pod/perlre.html and can't seem to figure this one out. I have a string which is a sequence of words and each item is comma seperated field1, lengtho

Re: Regex help?

2008-05-07 Thread Dr.Ruud
"sanket vaidya" schreef: > use warnings; > use strict; > my $i=1; > while($i<=10) > { > $_ = "abcpqr"; > $_=~ s/(?=pqr)/$i/; > print "$_\n"; > $i++; > } > [...] > > The expected output is > abc001pqr > [...] > Can any one suggest me how to get that output using regex. i.e. Can > t

Re: Regex help?

2008-05-07 Thread John W. Krahn
sanket vaidya wrote: HI all, Hello, Kindly go through the code below. use warnings; use strict; my $i=1; while($i<=10) { $_ = "abcpqr"; $_=~ s/(?=pqr)/$i/; print "$_\n"; $i++; } Output: abc1pqr abc2pqr abc3pqr abc4pqr abc5pqr abc6pqr abc7pqr abc8pqr abc9pqr abc10pqr The expected output is

Regex help?

2008-05-07 Thread sanket vaidya
HI all, Kindly go through the code below. use warnings; use strict; my $i=1; while($i<=10) { $_ = "abcpqr"; $_=~ s/(?=pqr)/$i/; print "$_\n"; $i++; } Output: abc1pqr abc2pqr abc3pqr abc4pqr abc5pqr abc6pqr abc7pqr abc8pqr abc9pqr abc10pqr The expected output is

Re: Regex help

2007-11-25 Thread John W . Krahn
On Saturday 24 November 2007 22:59, Todd wrote: > See the codes below. The trick here is that $& is an special var used > to capture the total match string. > So in this case, the /[$&]/ regexp literal is equal to / > [.type=xmlrpc&]/. Right. And that is a character class which says to match *one

Re: Regex help

2007-11-25 Thread Todd
See the codes below. The trick here is that $& is an special var used to capture the total match string. So in this case, the /[$&]/ regexp literal is equal to / [.type=xmlrpc&]/. #!/bin/perl $url = 'http://abc.com/test.cgi?TEST=1&.type=xmlrpc&type=2'; ($r1) = $url =~ /\.type=(.+?)(&|$)/; print "\

Re: Regex help

2007-11-24 Thread Rob Dixon
howa wrote: Hello, I want to match a query string, e.g. http://abc.com/test.cgi?TEST=1&.type=xmlrpc&type=2 I want to extract the .type, currently i use $ENV{"QUERY_STRING"} =~ /\.type=(.+?)(&|$)/; # This is okay but back reference seem no good, i rewrite as $ENV{"QUERY_STRING"} =~ /\.type=

Re: Regex help

2007-11-23 Thread John W . Krahn
On Thursday 22 November 2007 23:23, howa wrote: > Hello, Hello, > I want to match a query string, > > e.g. > > http://abc.com/test.cgi?TEST=1&.type=xmlrpc&type=2 > > I want to extract the .type, currently i use > > $ENV{"QUERY_STRING"} =~ /\.type=(.+?)(&|$)/; # This is okay > > but back reference

Regex help

2007-11-23 Thread howa
Hello, I want to match a query string, e.g. http://abc.com/test.cgi?TEST=1&.type=xmlrpc&type=2 I want to extract the .type, currently i use $ENV{"QUERY_STRING"} =~ /\.type=(.+?)(&|$)/; # This is okay but back reference seem no good, i rewrite as $ENV{"QUERY_STRING"} =~ /\.type=(.+?)[$&]/; #

Re: Regex Help

2007-11-21 Thread Matthew Whipple
Omega -1911 wrote: >> which isn't an equivalent to yours - it simply makes sure that the >> record contains 'Powerball:' and at least one digit - but I'm sure it is >> adequate. My own solution didn't even do this much checking, since I >> read the OP as saying that all irrelevant data records had

Re: Regex Help

2007-11-19 Thread Jenda Krynicky
From: "Dr.Ruud" <[EMAIL PROTECTED]> > "Jenda Krynicky" schreef: > > { > > my $static; > > sub foo { > > $static++; > > ... > > } > > } > > There (the first declared version of) the variable $static is part of > the environment of foo(). Don't mistake that for staticness. Maybe I don

Re: Regex Help

2007-11-13 Thread Dr.Ruud
"Jenda Krynicky" schreef: > { > my $static; > sub foo { > $static++; > ... > } > } There (the first declared version of) the variable $static is part of the environment of foo(). Don't mistake that for staticness. In Perl 5.8.8 you can enforce $static to be static, like this: {

Re: Regex Help

2007-11-13 Thread Dr.Ruud
"Jenda Krynicky" schreef: > I'd definitely never ever do > > condition and my $x = blah(); That is what I said. It is "technically" OK to use it with a condition that can not be decided at compile time, but I still recommend not to use it. -- Affijn, Ruud "Gewoon is een tijger." -- To uns

Re: Regex Help

2007-11-13 Thread Dr.Ruud
"Jenda Krynicky" schreef: > if > > 0 and my $x; > > creates a static $x I call it a bug. It's called a feature. -- Affijn, Ruud "Gewoon is een tijger." -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Regex Help

2007-11-12 Thread Jenda Krynicky
From: "Dr.Ruud" <[EMAIL PROTECTED]> > Rob Dixon schreef: > > Dr.Ruud: > >> John W . Krahn: > > >>>/Powerball:/ and my @numbers = /\d+/g; > >> > >> I wouldn't use such a conditional "my". > > > > There is no conditional 'my': it is a de[c]laration. > > I call it a conditional "my". A "my"

Re: Regex Help

2007-11-11 Thread Dr.Ruud
Rob Dixon schreef: > Dr.Ruud: >> John W . Krahn: >>>/Powerball:/ and my @numbers = /\d+/g; >> >> I wouldn't use such a conditional "my". > > There is no conditional 'my': it is a de[c]laration. I call it a conditional "my". A "my" can be just a declaration, or a declaration and an initial

Re: Regex Help

2007-11-11 Thread Omega -1911
> which isn't an equivalent to yours - it simply makes sure that the > record contains 'Powerball:' and at least one digit - but I'm sure it is > adequate. My own solution didn't even do this much checking, since I > read the OP as saying that all irrelevant data records had been removed. I appre

Re: Regex Help

2007-11-11 Thread Rob Dixon
Dr.Ruud wrote: John W . Krahn schreef: Dr.Ruud: Jonathan Lang: while () { ($a[0], $a[1], $a[2], $a[3], $a[4], $b) = /(\d+), (\d+), (\d+), (\d+), (\d+), Powerball: (\d+)/; push @common, @a; push @powerball, $b; } A slightly different way to do that, is: while () { if (my

Re: Regex Help

2007-11-11 Thread Dr.Ruud
John W . Krahn schreef: > Dr.Ruud: >> Jonathan Lang: >>> while () { >>> ($a[0], $a[1], $a[2], $a[3], $a[4], $b) = /(\d+), (\d+), (\d+), >>> (\d+), (\d+), Powerball: (\d+)/; >>> push @common, @a; push @powerball, $b; >>> } >> >> A slightly different way to do that, is: >> >>while

Re: Regex Help

2007-11-11 Thread John W . Krahn
On Saturday 10 November 2007 06:39, Dr.Ruud wrote: > "Jonathan Lang" schreef: > > while () { > > ($a[0], $a[1], $a[2], $a[3], $a[4], $b) = /(\d+), (\d+), (\d+), > > (\d+), (\d+), Powerball: (\d+)/; > > push @common, @a; push @powerball, $b; > > } > > A slightly different way to do that,

Re: Regex Help

2007-11-10 Thread Omega -1911
Thank you both Dr.Ruud & Jonathan Lang. I will give both examples a try later today and let you know how it all turns out. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Regex Help

2007-11-10 Thread Omega -1911
Thank you both Dr.Ruud & Jonathan Lang. I will give both examples a try later today and let you know how it all turns out. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/

Re: Regex Help

2007-11-10 Thread Dr.Ruud
"Jonathan Lang" schreef: > while () { > ($a[0], $a[1], $a[2], $a[3], $a[4], $b) = /(\d+), (\d+), (\d+), > (\d+), (\d+), Powerball: (\d+)/; > push @common, @a; push @powerball, $b; > } A slightly different way to do that, is: while () { if (my @numbers = /(\d+), (\d

Re: Regex Help

2007-11-10 Thread Jonathan Lang
Omega -1911 wrote: > @liners = split /(\s\[0-9],\s)Powerball:\s[0-9]/,$data_string; Instead of split, just do a pattern match: ($a[0], $a[1], $a[2], $a[3], $a[4], $b) = /(\d+), (\d+), (\d+), (\d+), (\d+), Powerball: (\d+)/; This puts the first five numbers into the array @a, and puts the power

Re: Regex Help

2007-11-10 Thread joy_peng
On Nov 10, 2007 5:10 PM, Omega -1911 <[EMAIL PROTECTED]> wrote: >What I will need to be able to do > is place the most common 5 numbers (before the word "powerball") into > an array then place the powerball numbers into another array. Thanks > in advance. > > @liners = split /(\s\[0-9],\s)Powerbal

Regex Help

2007-11-10 Thread Omega -1911
Hello, Can anyone assist with a regex to pull lottery numbers from a page? The following is one example I have tried: All data from the web page is pushed into an array. ( Header and footer info is removed before being pushed into the array.) The entire goal here is an exercise I was playing with

Re: regex help

2007-09-26 Thread [EMAIL PROTECTED]
On Sep 25, 4:33 pm, [EMAIL PROTECTED] (Rob Dixon) wrote: > Jonathan Lang wrote: > > Rob Dixon wrote: > >> Jonathan Lang wrote: > >>> I'm trying to devise a regex that matches from the first double-quote > >>> character found to the next double-quote character that isn't part of > >>> a pair; but fo

Re: regex help

2007-09-25 Thread Rob Dixon
Jonathan Lang wrote: Rob Dixon wrote: Jonathan Lang wrote: I'm trying to devise a regex that matches from the first double-quote character found to the next double-quote character that isn't part of a pair; but for some reason, I'm having no luck. Here's what I tried: /"(.*?)"(?!")/ Sample

Re: regex help

2007-09-25 Thread Jonathan Lang
Rob Dixon wrote: > Jonathan Lang wrote: > > I'm trying to devise a regex that matches from the first double-quote > > character found to the next double-quote character that isn't part of > > a pair; but for some reason, I'm having no luck. Here's what I tried: > > > > /"(.*?)"(?!")/ > > > > Sam

Re: regex help

2007-09-25 Thread Rob Dixon
Jonathan Lang wrote: I'm trying to devise a regex that matches from the first double-quote character found to the next double-quote character that isn't part of a pair; but for some reason, I'm having no luck. Here's what I tried: /"(.*?)"(?!")/ Sample text: author: "Jonathan ""Dataweave

regex help

2007-09-25 Thread Jonathan Lang
I'm trying to devise a regex that matches from the first double-quote character found to the next double-quote character that isn't part of a pair; but for some reason, I'm having no luck. Here's what I tried: /"(.*?)"(?!")/ Sample text: author: "Jonathan ""Dataweaver"" Lang" key=val What

Re: Regex help

2007-09-04 Thread Beginner
On 3 Sep 2007 at 17:44, Rob Dixon wrote: > Beginner wrote: > > > > I am trying to come up with a regex to squash multiple commas into > > one. The line I am working on looks like this: > > > > SPEED OF LIGHT, , LIGHT SPEED,TRAVEL,TRAVELLING, , > > DANGER,DANGEROUS,PHYSICAL, , CONCEPT,CONCEPT

RE: Regex help

2007-09-03 Thread asmith9983
[mailto:[EMAIL PROTECTED] Sent: 03 September 2007 16:11 To: Perl beginners Subject: Re: Regex help Beginner wrote: Hi, Hello, I am trying to come up with a regex to squash multiple commas into one. The line I am working on looks like this: SPEED OF LIGHT, , LIGHT SPEED,TRAVEL,TRAVELLING, , D

Re: Regex help

2007-09-03 Thread John W. Krahn
[ Please do not top-post. TIA ] [EMAIL PROTECTED] wrote: Hi Hello, Unless Perl is the only tool available to you in your toolbox and if you're running Linux or similar consider the "tr -s " command in a shell. Perl also has that: tr/,//s; perldoc perlop However if you are strictly

Re: Regex help

2007-09-03 Thread John W. Krahn
Andrew Curry wrote: Think s/(\,+\s*)+/,/g; Commas are not special in a regular expression so there is no need to escape them. You are using capturing parentheses but are not using the string captured in $1, better to use non-capturing parentheses. s/(?:,+\s*)+/,/g; A modified pattern in

Re: Regex help

2007-09-03 Thread Rob Dixon
Beginner wrote: I am trying to come up with a regex to squash multiple commas into one. The line I am working on looks like this: SPEED OF LIGHT, , LIGHT SPEED,TRAVEL,TRAVELLING, , DANGER,DANGEROUS,PHYSICAL, , CONCEPT,CONCEPTS, , , , , , , , , , There are instances of /,\s{1,},/ and /,,

Re: Regex help

2007-09-03 Thread John W. Krahn
Beginner wrote: On 3 Sep 2007 at 16:12, Andrew Curry wrote: Please do not attribute to Andrew Curry a post that was actually submitted by me (see my name at the end there.) TIA $ perl -le' $_ = q[SPEED OF LIGHT, , LIGHT SPEED,TRAVEL,TRAVELLING, , DANGER,DANGEROUS,PHYSICAL, , CONCEPT,CON

RE: Regex help

2007-09-03 Thread Beginner
On 3 Sep 2007 at 16:12, Andrew Curry wrote: > $ perl -le' > $_ = q[SPEED OF LIGHT, , LIGHT SPEED,TRAVEL,TRAVELLING, , > DANGER,DANGEROUS,PHYSICAL, , CONCEPT,CONCEPTS, , , , , , , , , , ]; > > print; s/,\s*(?=,)//g; print; ' > SPEED OF LIGHT, , LIGHT SPEED,TRAVEL,TRAVELLING, , > DANGER,DANGEROU

RE: Regex help

2007-09-03 Thread Beginner
On 3 Sep 2007 at 16:15, Andrew Curry wrote: > Think > > s/(\,+\s*)+/,/g; > > Should work > > It produces > SPEED OF LIGHT,LIGHT > SPEED,TRAVEL,TRAVELLING,DANGER,DANGEROUS,PHYSICAL,CONCEPT,CONCEPTS > > If that's what you want. Exactly what I want. Thanx, Dp. -- To unsubscribe, e-mail: [E

RE: Regex help

2007-09-03 Thread Andrew Curry
ject: RE: Regex help Christ That's certainly 1 way ;) -Original Message- From: John W. Krahn [mailto:[EMAIL PROTECTED] Sent: 03 September 2007 16:11 To: Perl beginners Subject: Re: Regex help Beginner wrote: > Hi, Hello, > I am trying to come up with a regex to squash multip

RE: Regex help

2007-09-03 Thread Andrew Curry
Christ That's certainly 1 way ;) -Original Message- From: John W. Krahn [mailto:[EMAIL PROTECTED] Sent: 03 September 2007 16:11 To: Perl beginners Subject: Re: Regex help Beginner wrote: > Hi, Hello, > I am trying to come up with a regex to squash multiple commas into

Re: Regex help

2007-09-03 Thread John W. Krahn
Beginner wrote: Hi, Hello, I am trying to come up with a regex to squash multiple commas into one. The line I am working on looks like this: SPEED OF LIGHT, , LIGHT SPEED,TRAVEL,TRAVELLING, , DANGER,DANGEROUS,PHYSICAL, , CONCEPT,CONCEPTS, , , , , , , , , , There are instances of /,\s{

Regex help

2007-09-03 Thread Beginner
Hi, I am trying to come up with a regex to squash multiple commas into one. The line I am working on looks like this: SPEED OF LIGHT, , LIGHT SPEED,TRAVEL,TRAVELLING, , DANGER,DANGEROUS,PHYSICAL, , CONCEPT,CONCEPTS, , , , , , , , , , There are instances of /,\s{1,},/ and /,,/ The bit tha

Re: regex help

2007-08-22 Thread Mumia W..
On 08/21/2007 07:41 AM, Tony Heal wrote: the list is a list of files by version. I need to keep the last 5 versions. Jeff's code works fine except I am getting some empty strings at the beginning that I have not figured out. Here is what I have so far. Lines 34 and 39 are provide a print out f

Re: regex help

2007-08-21 Thread D. Bolliger
Tony Heal am Dienstag, 21. August 2007: > > -Original Message- > > From: Chas Owens [mailto:[EMAIL PROTECTED] > > Sent: Tuesday, August 21, 2007 9:50 AM > > To: [EMAIL PROTECTED] > > Cc: beginners@perl.org > > Subject: Re: regex help > > > >

Re: regex help

2007-08-21 Thread Chas Owens
On 8/21/07, Tony Heal <[EMAIL PROTECTED]> wrote: > OK I added this and I keep getting invalid format > > foreach (@newValues){print "$_\n";} > my @versions; > while (@newValues) > { > chomp; > die "invalid format" unless > my (

RE: regex help

2007-08-21 Thread Tony Heal
id format at ./trim.pl line 41. (41 is the die line) Tony Heal Pace Systems Group, Inc. 800-624-5999 [EMAIL PROTECTED] > -Original Message- > From: Chas Owens [mailto:[EMAIL PROTECTED] > Sent: Tuesday, August 21, 2007 9:50 AM > To: [EMAIL PROTECTED] > Cc: beginners@perl.

RE: regex help

2007-08-21 Thread Tony Heal
> To: [EMAIL PROTECTED] > Cc: beginners@perl.org > Subject: Re: regex help > > On 8/21/07, Tony Heal <[EMAIL PROTECTED]> wrote: > > Here is a sample of the versions that I am using. > snip > > Just to clarify, you have a version string with the following format: &g

  1   2   3   >