Select Code to Download

#!/usr/bin/perl
# Todo:
...
    
    say sort { $alphabet{$a} <=> $alphabet{$b} } keys %alphabet;
}

$ perl hangman.pl "_ _ _ _ _ _ _ _" ""
_ _ _ _ _ _ _ _
0
10588
rantislodecgupmhbyfkwvxzqj

$ perl hangman.pl "_ _ _ _ _ _ _ _" "r"
_ _ _ _ _ _ _ _
r
5252
atlnsieodcgumhpbyfkwvxzqjr

$ perl hangman.pl "_ _ _ _ _ _ _ _" "ra"
_ _ _ _ _ _ _ _
r|a
2761
tolnsdgueichpmbfykwvxzqjra

$ perl hangman.pl "_ _ _ _ _ t _ _" "ra"
_ _ _ _ _ t _ _
r|a
165
isncdolupmghbfykvxejqwtraz

$ perl hangman.pl "_ _ _ _ _ t i _" "ra"
_ _ _ _ _ t i _
r|a
17
slhpodungmxytieqbwrajkfvcz

$ perl hangman.pl "_ _ _ _ _ t i _" "ras"
_ _ _ _ _ t i _
...
phonetic
quixotic
ticelpunohxdyqbwrajkgfvmsz

$ perl hangman.pl "_ c _ _ c t i c" "ras"
_ c _ _ c t i c
...
1
eclectic
tielcwraxdjyukhgfnvmspqbzo