Re^6: Regex help

This is what I've:

# I didn't have the length == 8 line because
# I'm only reading one file containing 8-letter words
while (<FH>) {
  $c = substr ($_, 2, 1);
  if (substr ($_, 5, 1) eq $c) {
    my %h;
    @h{split//,$_} = (1) x 8;
    print if keys %h == 7; 
  }
}
[download]

Comment on Re^6: Regex help Download Code

Replies are listed 'Best First'.
Re^7: Regex help by shmem (Chancellor) on Jun 24, 2007 at 05:26 UTC
That is not the code I posted. Mine begins with: `#!/usr/bin/perl -nl` [download] See perlrun for command line switches. You are matching words with 6 unique letters... <Reveal this spoiler or all in this thread> --shmem _($_=" "x(1<<5)."?\n".q·/)Oo. G°\ / /\_¯/(q / ---------------------------- \__(m.====·.(_("always off the crowd"))."· ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}	[reply] [d/l]

Replies are listed 'Best First'.

Re^7: Regex help
by shmem (Chancellor) on Jun 24, 2007 at 05:26 UTC

#!/usr/bin/perl -nl
[download]

See perlrun for command line switches. You are matching words with 6 unique letters...

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

[reply]
[d/l]