re: reg exp help please
Hi --
I made the little tester below. To simplify the parsing I added '\"'
at the beginning and 'x\"'the end. I have tried a number of values for $regex
and even the best ones:
&test_split('\".+?\"', $string);
&test_split('"(.*?)"', $string);
&test_split('\".+?\\"', $string);
&test_split('\".*?\\\"', $string);
all have an extra '\' at the end of the each split and give an extra split at
the beginning.
What am I doing wrong?
Thanks,
Barry
==
my $string = '\"' .
'a:7:{i:0;s:19:\"MadhatterSize=Adult\";i:1;s:20:\"MadHatterColors=blue\";i:2;
s:15:\"MadHatter_Qty=1\";i:3;s:26:\"product_name=Madhatter_Hat\";i:4;s:8:\"cd
_num=2\";i:5;s:4:\"x=39\";i:6;s:4:\"y=12\"' .
'x\"';
&test_split($regex, $string);
#
-
sub test_split {
my ($regex, $string) = @_;
my @splits= split(/$regex/ , $string);
print "=" x 60 . "\nTesting split\n";
print "-" x 60 . "\n";
print "Input: String: $string \n";
print " Regex: $regex:\n";
print "-" x 60 . "\n";
print "Result: " . join ("\n", @splits) . "\n";
print "-" x 60 . "\n";
}
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: reg exp help please
> Where did you find the word student anywhere in the post ?... > Nowhere did it say that you have to use spliti either. I agree that nowhere did it "say" any of that. That was just me reading between the lines -- except that she has said in the past that she's a student (and the .edu on the email is kind of a giveaway). I could be wrong -- but I don't think so :) I suppose I should've specified all that too, and didn't, but in general I tend to write to much rather than to little so I try to keep it down. In fact, I'm just assuming it's a she. "Lori," first letter last name D -- but who knows? I have "heard" of a boy named Sue:) ms > please trim your posts. Trimed... ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Fwd: Re: reg exp help please
Michael D. Smith wrote:
Firstly - please trim your posts.
> The thing is lorid is the student. If she's trying to use spliti
Where did you find the word student anywhere in the post ?
> spliti(regexp patter,str,max split)
> spliti(":",$my_Propellar_Data,15);
>
> That's probably the assignment, and while There Is More Than One Way To Do
> It, doing it "their way" is "the path" to student Nirvana.
There is no function called spliti in Perl core. I can only assume it's
a function they have or from some module. Nowhere did it say that you
have to use spliti either.
> I've never seen spliti before, and I do read this stuff -- on occasion.
> That's the value of an education I guess :)
If spliti needs to be used, the least they can do is post the source.
>>lorid wrote:
>>
>>
>>>Here is the string Im trying to split (its a cookie str)
>>>MadHatter Data:
>>>
>>
>>a:7:{i:0;s:19:\"MadhatterSize=Adult\";i:1;s:20:\"MadHatterColors=blue\";i:2;s:15:\"MadHatter_Qty=1\";i:3;s:26:\"product_name=Madhatter_Hat\";i:4;s:8:\"cd_num=2\";i:5;s:4:\"x=39\";i:6;s:4:\"y=12\";}
>>
>>>the data I want is
>>>
>>>
>>
>>MadhatterSize=Adult,MadHatterColors=blue,MadHatter_Qty=1,product_name=Madhatter_Hat
>>
>>>I have tried : syntax is spliti(regexp patter,str,max split)
>>> spliti(":",$my_Propellar_Data,15);
>>>
>>>the above is the only regexp that works so far , but doesnt come close
>>>to matching what I want.
>>
>>$_ =
>>q(a:7:{i:0;s:19:"MadhatterSize=Adult";i:1;s:20:"MadHatterColors=blue";i:2;s:15:"MadHatter_Qty=1";i:3;s:26:"product_name=Madhatter_Hat";i:4;s:8:"cd_num=2";i:5;s:4:"x=39";i:6;s:4:\y=12"};);
>>
>>my @args = $_ =~ /"(.*?)"/g;
>>print join (',', @args[0..3]), "\n";
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Fwd: Re: reg exp help please
The thing is lorid is the student. If she's trying to use spliti
spliti(regexp patter,str,max split)
spliti(":",$my_Propellar_Data,15);
That's probably the assignment, and while There Is More Than One Way To Do
It, doing it "their way" is "the path" to student Nirvana.
I've never seen spliti before, and I do read this stuff -- on occasion.
That's the value of an education I guess :)
ms
From: "$Bill Luebkert" <[EMAIL PROTECTED]>
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.4)
Gecko/20030624 Netscape/7.1 (ax)
X-Accept-Language: en-us, en
To: lorid <[EMAIL PROTECTED]>
CC: perl users <[EMAIL PROTECTED]>
Subject: Re: reg exp help please
X-PMX-Version: 4.0.1.69468
X-PMX-Version: 4.1.0.84286
X-PerlMx-Spam: Gauge=, Probability=8%, Report='SUPERLONG_LINE
0.003, X_ACCEPT_LANG 0, EMAIL_ATTRIBUTION 0, QUOTED_EMAIL_TEXT 0,
SIGNATURE_SHORT_DENSE 0, REFERENCES 0.000, IN_REP_TO 0, USER_AGENT 0.000'
Sender: [EMAIL PROTECTED]
X-BeenThere: [EMAIL PROTECTED]
X-Mailman-Version: 2.0.5
List-Unsubscribe:
<http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users>,
<mailto:[EMAIL PROTECTED]>
List-Id: Discussions relating to ActivePerl on Win32 platforms
List-Post: <mailto:[EMAIL PROTECTED]>
List-Help:
<mailto:[EMAIL PROTECTED]>
List-Subscribe:
<http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users>,
<mailto:[EMAIL PROTECTED]>
List-Archive: <http://mailarchive.activestate.com/browse/perl-win32-users/>
Date: Sun, 07 Dec 2003 18:37:24 -0800
X-Note: This E-mail was scanned for spam.
X-RCPT-TO: <[EMAIL PROTECTED]>
lorid wrote:
> Here is the string Im trying to split (its a cookie str)
> MadHatter Data:
>
a:7:{i:0;s:19:\"MadhatterSize=Adult\";i:1;s:20:\"MadHatterColors=blue\";i:2;s:15:\"MadHatter_Qty=1\";i:3;s:26:\"product_name=Madhatter_Hat\";i:4;s:8:\"cd_num=2\";i:5;s:4:\"x=39\";i:6;s:4:\"y=12\";}
>
> the data I want is
>
>
MadhatterSize=Adult,MadHatterColors=blue,MadHatter_Qty=1,product_name=Madhatter_Hat
>
> I have tried : syntax is spliti(regexp patter,str,max split)
> spliti(":",$my_Propellar_Data,15);
>
> the above is the only regexp that works so far , but doesnt come close
> to matching what I want.
$_ =
q(a:7:{i:0;s:19:"MadhatterSize=Adult";i:1;s:20:"MadHatterColors=blue";i:2;s:15:"MadHatter_Qty=1";i:3;s:26:"product_name=Madhatter_Hat";i:4;s:8:"cd_num=2";i:5;s:4:"x=39";i:6;s:4:\y=12"};);
my @args = $_ =~ /"(.*?)"/g;
print join (',', @args[0..3]), "\n";
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic
http://www.todbe.com/
-/-' /___/_<_http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: reg exp help please
Title: RE: reg exp help please
Hi,
I've written a small regexp that prints out the different values being passed, i hope it helps. Here is the code:
$string = "a:7:{i:0;s:19:\"MadhatterSize=Adult\";i:1;s:20:\"MadHatterColors=blue\";i:2;s:15:\"MadHatter_Qty=1\";i:3;s:26:\"product_name=Madhatter_Hat\";i:4;s:8:\"cd_num=2\";i:5;s:4:\"x=39\";i:6;s:4:\"y=12\";}";
@items = split (/\"/, $string );
foreach $i ( @items ) {
if ( $i =~ /=/ ) {
print "$i\n";
}
}
-Original Message-
From: lorid [mailto:[EMAIL PROTECTED]]
Sent: Monday, 8 December 2003 10:05 AM
To: perl users
Subject: reg exp help please
Here is the string Im trying to split (its a cookie str)
MadHatter Data:
a:7:{i:0;s:19:\"MadhatterSize=Adult\";i:1;s:20:\"MadHatterColors=blue\";i:2;s:15:\"MadHatter_Qty=1\";i:3;s:26:\"product_name=Madhatter_Hat\";i:4;s:8:\"cd_num=2\";i:5;s:4:\"x=39\";i:6;s:4:\"y=12\";}
the data I want is
MadhatterSize=Adult,MadHatterColors=blue,MadHatter_Qty=1,product_name=Madhatter_Hat
I have tried : syntax is spliti(regexp patter,str,max split)
spliti(":",$my_Propellar_Data,15);
the above is the only regexp that works so far , but doesnt come close
to matching what I want.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: reg exp help please
lorid wrote:
> Here is the string Im trying to split (its a cookie str)
> MadHatter Data:
> a:7:{i:0;s:19:\"MadhatterSize=Adult\";i:1;s:20:\"MadHatterColors=blue\";i:2;s:15:\"MadHatter_Qty=1\";i:3;s:26:\"product_name=Madhatter_Hat\";i:4;s:8:\"cd_num=2\";i:5;s:4:\"x=39\";i:6;s:4:\"y=12\";}
>
> the data I want is
>
> MadhatterSize=Adult,MadHatterColors=blue,MadHatter_Qty=1,product_name=Madhatter_Hat
>
> I have tried : syntax is spliti(regexp patter,str,max split)
> spliti(":",$my_Propellar_Data,15);
>
> the above is the only regexp that works so far , but doesnt come close
> to matching what I want.
$_ =
q(a:7:{i:0;s:19:"MadhatterSize=Adult";i:1;s:20:"MadHatterColors=blue";i:2;s:15:"MadHatter_Qty=1";i:3;s:26:"product_name=Madhatter_Hat";i:4;s:8:"cd_num=2";i:5;s:4:"x=39";i:6;s:4:\y=12"};);
my @args = $_ =~ /"(.*?)"/g;
print join (',', @args[0..3]), "\n";
--
,-/- __ _ _ $Bill LuebkertMailto:[EMAIL PROTECTED]
(_/ / )// // DBE CollectiblesMailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: reg exp help please
lorid wrote:
>
> Here is the string Im trying to split (its a cookie str)
> MadHatter Data:
>
a:7:{i:0;s:19:\"MadhatterSize=Adult\";i:1;s:20:\"MadHatterColors=blue\";i:2;s:15:\"MadHatter_Qty=1\";i:3;s:26:\"product_name=Madhatt
er_Hat\";i:4;s:8:\"cd_num=2\";i:5;s:4:\"x=39\";i:6;s:4:\"y=12\";}
>
> the data I want is
>
> MadhatterSize=Adult,MadHatterColors=blue,MadHatter_Qty=1,product_name=Madhatter_Hat
>
> I have tried : syntax is spliti(regexp patter,str,max split)
> spliti(":",$my_Propellar_Data,15);
>
> the above is the only regexp that works so far , but doesnt come close
> to matching what I want.
Hmm. Well, there's a lot of information in there which ought to be checked
if you're writing live code. I started by splitting the record on semicolon,
and saw that there are a series of i:N and s:N values that have the index
number (starting at zero) and the size of each following item of data. In
addition you have double-quotes escaped by a preceding backslash (which
the count ignores) and the whole thing is contained within a pair of braces
with an a:N value showing the number of fields.
So, my advice is to start by splitting on semicolons. If you need something
robust then expect to write something a lot cleverer.
HTH,
Rob
My output:
a:7:{i:0
s:19:\"MadhatterSize=Adult\"
i:1
s:20:\"MadHatterColors=blue\"
i:2
s:15:\"MadHatter_Qty=1\"
i:3
s:26:\"product_name=Madhatter_Hat\"
i:4
s:8:\"cd_num=2\"
i:5
s:4:\"x=39\"
i:6
s:4:\"y=12\"
}
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
reg exp help please
Here is the string Im trying to split (its a cookie str)
MadHatter Data:
a:7:{i:0;s:19:\"MadhatterSize=Adult\";i:1;s:20:\"MadHatterColors=blue\";i:2;s:15:\"MadHatter_Qty=1\";i:3;s:26:\"product_name=Madhatter_Hat\";i:4;s:8:\"cd_num=2\";i:5;s:4:\"x=39\";i:6;s:4:\"y=12\";}
the data I want is
MadhatterSize=Adult,MadHatterColors=blue,MadHatter_Qty=1,product_name=Madhatter_Hat
I have tried : syntax is spliti(regexp patter,str,max split)
spliti(":",$my_Propellar_Data,15);
the above is the only regexp that works so far , but doesnt come close
to matching what I want.
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
