regexp to return rest of string

princepawn has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: regexp to return rest of string by plaid (Chaplain) on Jun 03, 2000 at 00:48 UTC
`$string = "/home/angryman/www/content/m/i/2000/5/31/r_standoff.gif"; $string =~ /content(.*)/; $relative_url = $1;` [download]	[reply] [d/l]
RE: regexp to return rest of string by byoung (Initiate) on Jun 03, 2000 at 04:22 UTC
I've always been partial to the method in the magenta Camel: `$dir = "/home/angryman/www/content/m/i/2000/5/31/r_standoff.gif"; ($dir =~ /content(.)/) && ($after = $1);` [download] It is, of course especially clean when you are looping: `while (<>) { (/foo(.)/) && ($foo = $1); }` [download]	[reply] [d/l] [select]
RE: RE: regexp to return rest of string by Anonymous Monk on Jun 03, 2000 at 10:36 UTC
oh yeah, nice one. definetly my favorite here...	[reply]
RE: regexp to return rest of string by neshura (Chaplain) on Jun 03, 2000 at 00:49 UTC
Have you already tried to write a regex yourself? Perhaps you could show us the code and we could help you figure out where it goes wrong. My $0.02 anyway... e-mail neshura	[reply]
Re: regexp to return rest of string by cwest (Friar) on Jun 03, 2000 at 00:51 UTC
`my $path = q(/home/angryman/www/content/m/i/2000/5/31/r_standoff.gif); my $base = q(/home/angryman/www/content); ( my $rel_path = $path ) =~ s/^$base//;` [download] -- Casey	[reply] [d/l]
Re: regexp to return rest of string by princepawn (Parson) on Jun 03, 2000 at 00:50 UTC
Or in one line: `$relative_url = ($string =~ /content(.*)/, $1)[1];` [download] Thanks to Joe Hall's Effective Perl Programming. Thanks plaid.	[reply] [d/l]
RE: Re: regexp to return rest of string by BBQ (Curate) on Jun 03, 2000 at 01:27 UTC
Humm... I seriously don't get it. And I don't mean to sound rude, but you're saying that you can reduce the two regex lines to one regex/ary line, but you can't figure out the regex itself? I'd have more trouble getting through the reduction than doing that simple regex. It just sounds fishy. Is this a case of knowing a previous language before perl, or something of the sort? That was a cool trick, btw. #!/home/bbq/bin/perl # Trust no1!	[reply]
RE: RE: Re: regexp to return rest of string by kirbyk (Friar) on Jun 03, 2000 at 02:00 UTC
I figured out this trick (or actually a variant) just by lots of trial and error with regexs in my early perl days. I prefer using parentheses rather than array subscripts, eg: ($relative_url) = ($string =~ /content(.*)/); A _very_ useful version of this trick is with DBI, ie: $getStuff = $dbh->prepare("select id, price, info from mytable"); $getStuff->execute(); ($id, $price, $info) = $getStuff->fetchrow_array(); I use this a ton. -- Kirby Tuxtops: Laptops with Linux!	[reply]
Re: regexp to return rest of string by KM (Priest) on Jun 03, 2000 at 00:50 UTC
Read perlre, learn how to do this, it could save your life. Ok, well it may not save your life but you will certainly benefit from it. If you have read it, reread it. Also, please post what you have already tried, so we may see what is going wrong. Cheers, KM	[reply]


Problems? Is your data what you think it is?
	PerlMonks