Question on Regex

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

Replies are listed 'Best First'.
Re: Question on Regex by Athanasius (Archbishop) on Nov 18, 2012 at 14:20 UTC
You can also do this without a regex, by using split on the ‘`/`’ character to produce a list, and then subscripting the list to get the desired field: `#! perl use strict; use warnings; my $count = 0; for my $line (<DATA>) { my $name = (split '/', $line)[4]; print "Name #", ++$count, " is '", $name, "'\n"; } __DATA__ .co.uk/Jobs/Company-Sector/C8A6446X4PND86M9WYJ/Tradewind/?APath=2.21.0 +.0.0 .com/Stuff/Somewhere/ABCD789/Peabody/?APath=2.0.12.1.3 .com.au/More-Stuff/Anywhere/XYZ12345/Perkins/?APath=4.5.6.7.8` [download] Output: `0:14 >perl 390_SoPW.pl Name #1 is 'Tradewind' Name #2 is 'Peabody' Name #3 is 'Perkins' 0:18 >` [download] Hope that helps, Athanasius <°(((>< contra mundum	[reply] [d/l] [select]
Re^2: Question on Regex by Anonymous Monk on Nov 18, 2012 at 14:26 UTC
Thanks Athanasius. I got what I was looking. Thanks a lot. :)	[reply]
Re^3: Question on Regex by karlgoethebier (Abbot) on Nov 18, 2012 at 16:41 UTC
FYI: #!/usr/bin/perl use strict; use warnings; use Benchmark qw ( :hireswallclock cmpthese timethese ); our $string = qq (.co.uk/Jobs/Company-Sector/C8A6446X4PND86M9WYJ/Trade +wind/?APath=2.21.0.0.0); sub karlgoethebier { our $string; $string =~ m/.+\/.+\/.+\/.+\/(.+)\/.+/; return $1; } sub athanasius { our $string; return (split '/', $string)[4]; } my $results = timethese (-10, { 'karlgoethebier' => 'karlgoethebier', 'athanasius' => 'athanasius', }); cmpthese($results); __END__ Karls-Mac-mini:Desktop karl$ ./tradewind.pl Benchmark: running athanasius, karlgoethebier for at least 10 CPU seco +nds... athanasius: 10.4769 wallclock secs (10.47 usr + 0.00 sys = 10.47 CPU) + @ 627362.46/s (n=6568485) karlgoethebier: 10.4287 wallclock secs (10.42 usr + 0.00 sys = 10.42 +CPU) @ 105188.77/s (n=1096067) Rate karlgoethebier athanasius karlgoethebier 105189/s -- -83% athanasius 627362/s 496% -- [download] Regards, Karl ŤThe Crux of the Biscuit is the Apostropheť	[reply] [d/l]
Re^4: Question on Regex by Athanasius (Archbishop) on Nov 19, 2012 at 03:39 UTC
Re^5: Question on Regex by karlgoethebier (Abbot) on Nov 19, 2012 at 14:15 UTC
Some notes below your chosen depth have not been shown here
Re: Question on Regex by karlgoethebier (Abbot) on Nov 18, 2012 at 14:00 UTC
Hello, perhaps this helps. `#!/usr/bin/perl use strict; use warnings; my $string = qq (.co.uk/Jobs/Company-Sector/C8A6446X4PND86M9WYJ/Tradew +ind/?APath=2.21.0.0.0); $string =~ m/.+\/.+\/.+\/(.+)\/.+/; print $1;` [download] Update: I did not count right, sorry... `$string =~m/.+\/.+\/.+\/.+\/(.+)\/.+/;` [download] Regards, Karl ŤThe Crux of the Biscuit is the Apostropheť	[reply] [d/l] [select]
Re^2: Question on Regex by Anonymous Monk on Nov 18, 2012 at 14:29 UTC
Thanks Karl, Got it... :)	[reply]
Re^3: Question on Regex by karlgoethebier (Abbot) on Nov 18, 2012 at 14:58 UTC
Yes, i know that i tend to sink before i type. But i'm working hard to get better ;-) Regards, Karl ŤThe Crux of the Biscuit is the Apostropheť	[reply]
Re: Question on Regex by Anonymous Monk on Nov 18, 2012 at 13:50 UTC
Can you explain what position?	[reply]
Re^2: Question on Regex by Anonymous Monk on Nov 18, 2012 at 13:59 UTC
Here the Tradewind comes on 5th position after the 1st "/". Either I need to extract the text using the position of the "/" or by any other means. Thanks Monk!	[reply]
Re^3: Question on Regex by Anonymous Monk on Nov 18, 2012 at 14:29 UTC
Hmm ~~`[ddg://perlfaq nth site:perldoc.perl.org]`~~ ~~perlfaq nth site:perldoc.perl.org~~ -> perlfaq4#Data: Strings #Data: Strings #How do I change the Nth occurrence of something? #How can I split a [character]-delimited string except when inside [character]? Close, but no cigar You can use split `my $fifth = ( split m{/}, $string )[4];` [download]	[reply] [d/l] [select]
Re^4: Question on Regex by Anonymous Monk on Nov 18, 2012 at 14:43 UTC