develooper Front page | perl.golf | Postings from June 2007

RE: regexp quickie

Thread Previous | Thread Next
From:
Roy.Johnson
Date:
June 27, 2007 12:26
Subject:
RE: regexp quickie
Message ID:
A3B4E948E728054CAC7A6D9C55EAB6A301F713C6@houic-s-348.americas.shell.com
Mine (borrowing RJK's testing code): $1 will be the last letter (non-underscore) before or at the target location; $2 will be the first letter at or after the target location, or the last letter if no such letter exists.

for (qw/ A_Z_K_ A_____ _____K /) {
  print "$_\n";
  for my $n (1 .. 6) {
    my $r = $n - 1;
    print "$n: ";
    print /^(?=.{0,$r}([^_]))?.{0,$r}.*?([^_])/
      ? "[$1] ($2)" : "no match";
    print "\n";
  }
}


Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About