Hi, It works fine and I like it. My regex is not that good, but I can see what is doing. I modified it a bit (to capture up till a full stop sign).
<Code> #!/usr/bin/perl # use strict; use warnings; # my $str = "The black cat is trying to climbed the green tree. This time it failed."; print "string: $str\n"; my $sbstr = substr $str, 0,17; print "The substr function with length 17 will capture: $sbstr\n"; $str =~ m{ \A ( .{17} .*?\. ) \s }msx; my $extracted = $1; print "The pattern with quantifier set 17, extracted: $extracted\n"; <Code> <Code> Outputs: string: The black cat is trying to climbed the green tree. This time it failed. The substr function with length 17 will capture: The black cat is The pattern with quantifier set 17, extracted: The black cat is trying to climbed the green tree. Cool -----Original Message----- From: Akhthar Parvez K [mailto:akht...@sysadminguide.com] Sent: 18 April 2010 15:45 To: beginners@perl.org Subject: Re: Extract substring from offset to space or full stop Hi Shawn, > $str =~ m{ \A ( .{15} .*? ) \s }msx; I don't think this would work if the value given in the match string (15 as per above eg.) is greater than the character count of the particular string. Right? Regards, Akhthar Parvez K http://Tips.SysAdminGUIDE.COM UNIX is basically a simple operating system, but you have to be a genius to understand the simplicity - Dennie Richie On Sunday 18 Apr 2010, Shawn H Corey wrote: > #!/usr/bin/perl > > use strict; > use warnings; > > my $str = "The black cat climbed the green tree"; > print "string: $str\n"; > > my $extracted = $1; > print "extracted: $extracted\n"; -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/ -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/