Mega Code Archive

 

Categories / Perl / Regular Expression

 

Greedy and non-greedy quantifiers

#!usr/bin/perl use strict; use warnings; my $string1 = "there  here  There  here there Here"; my $string2 = $string1; print "$string1\n"; $string1 =~ s/N.*here\.//; print "$string1\n"; print "$string2\n"; $string2 =~ s/N.*?here\.//; print "$string2\n\n";