in reply to Re: Re: Can you guess what this code does?
in thread Can you guess what this code does?
$ wget -qO japhy.pl "http://perlmonks.org/index.pl?node_id=160033&displaytype=displaycode"
$ cat japhy.pl
//
/g;
$ wc japhy.pl
4 2 10 japhy.pl
$ perl -nle 'print join " ", map {ord} split//' japhy.pl
47 47 13
47 103 59
$ perl japhy.pl
Illegal division by zero at japhy.pl line 1.
$ perl -v
This is perl, v5.6.1 built for i386-linux
4 lines, 2 words, 10 characters - six ord'd plus 4 newlines.
There's a DOS-style \r on line 1 but I don't have a cygwin box handy to see if behavior is different in Windows.
Another hint?
|
|---|