Re: Regex: matching character which happens exactly once

Replies are listed 'Best First'.
Re^2: Regex: matching character which happens exactly once by LanX (Saint) on Oct 21, 2017 at 14:45 UTC
> example inputs + expected outputs ? here a generic answer (for the general question of a character appears exactly once) `DB<259> @input = glob '{a,b}' x 5 DB<260> test($_) and print "OK $_\n" for @input OK aaaab OK aaaba OK aabaa OK abaaa OK abbbb OK baaaa OK babbb OK bbabb OK bbbab OK bbbba DB<261> l test 2: sub test { my $str = shift; my %h; $h{$_}++ for split //,$str; + my %r =reverse %h; return 1 if exists $r{1} }; DB<262>` [download] YMMV concerning input size, but keep in mind that its `$size_alphabet**$word_length` . The regex should work for all potential possibilities, neither size nor alphabet can be known. Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Je suis Charlie!}	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Regex: matching character which happens exactly once
by LanX (Saint) on Oct 21, 2017 at 14:45 UTC

> example inputs + expected outputs ?

here a generic answer (for the general question of a character appears exactly once)

 
  DB<259> @input = glob '{a,b}' x 5


  DB<260> test($_) and print "OK $_\n" for @input
OK aaaab
OK aaaba
OK aabaa
OK abaaa
OK abbbb
OK baaaa
OK babbb
OK bbabb
OK bbbab
OK bbbba


  DB<261> l test
2:      sub test { my $str = shift; my %h; $h{$_}++ for split //,$str;
+ my %r =reverse %h; return 1 if exists $r{1} };

  DB<262>
[download]

YMMV concerning input size, but keep in mind that its $size_alphabet**$word_length .

The regex should work for all potential possibilities, neither size nor alphabet can be known.

Cheers Rolf
_{(addicted to the Perl Programming Language and ☆☆☆☆ :)

Je suis Charlie!}

[reply]
[d/l]
[select]