We don't bite newbies here... much PerlMonks

### Comment on

 Need Help??
```   print
("\$0 [-h] [-o] [-v] dictfile tries\n\t-o allows original game rules\n\
"fos\n")&&exit if \$ARGV[0 ]eq'-h'or 2>@ARGV;\$ n=\$v=1,shift if \$ARGV[ 0
+]eq'-vo'or\$ ARGV [0]eq
'-ov';\$v=1,shift if\$ARGV[0]eq'-v';\$n= 1,shift if\$ARGV [0]eq'-o';\$v=1,s
+hift if\$ ARGV[0]eq'-v'
;open           I,\$                                     ARGV
[0]or         die                                       'n'.
'o '.       'd'.                                        'i'.
'ct'.     'i'.                                          'o'.
'na'.   'r'.                                            'y'.
" '".\$ARGV                                              [0].
"' fo".                                              "u".'nd '
.'('.                                              "\$!)";@w=<I>;
chomp                                             (\$w=\$w[int rand
@w]);                                              \$t=\$ARGV[01];
while                                               (07){%S=();
%T=()                                                   ;if
(join                                                   (''
,grep                                             {!\$S{\$_}++}sort
split                                        (//,\$w))eq join('',gre
+p{
! \$T{                                       \$_}++}sort(split //,\$g)
+)){
print                                     "\tLIFE!\n";exit;}last if
+! \$t;
print                                     "\t",(map{(index(\$g,\$_)>=
+0)?\$_
:'_'}                                     split(//,\$w)),(\$v?" (\$t "
+.(\$n?
'wro'                                     .'ng ':'').'guesses left
+[gue'
.'ss'                                     .'ed:'.\$g.'/'.\$f.'])':'')
+,"\n"
;\$i =                                    substr<STDIN>,0,1;--\$t if!
+\$n;if(
index                                   (\$w,\$i)>=0){--\$t if\$n&&inde
+x(\$g,\$i
)>=0;                                        \$g.=\$i;}else{--\$t if \$
+n;
\$ f.=                                           \$i;}}print "\tDEA"
,"TH"                                           ,"!\n";print"the "
,"So"                                           ,"lution was \$w\n"
#by C                                           hristian Duehl. Al
#l ri                                           ghts reserved. Thi
#s pr                                           ogram is free soft
#ware                                         . You can    redistri
+b
#ute#                                       it and/or m    odify it
+ un
#der#
#the#
#same
#term
#s as
#perl itself.

In reply to Hangman (qotw) by Crian

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

• Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
• Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
• Read Where should I post X? if you're not absolutely sure you're posting in the right place.
• Posts may use any of the Perl Monks Approved HTML tags:
a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
• You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
 For: Use: & & < < > > [ [ ] ]
• Link using PerlMonks shortcuts! What shortcuts can I use for linking?

Create A New User
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2018-06-19 15:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Should cpanminus be part of the standard Perl release?

Results (114 votes). Check out past polls.

Notices?