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?

  • Comment on Re: Re: Re: Can you guess what this code does?