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=IIIIIIII, 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 <perl-win32-users.listserv.ActiveState.com>
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 Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[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
