http://www.perlmonks.org?node_id=603817


in reply to Camel JAPH

Neat, but running on Linux, it gives me this error: 
monkfan@access7:~$perl           -e'map\
> {map{print       chr }/\d\
>     {3}/gx      }join q{},\
>      split/\s/sx,q(0741171151\
>        16032097110111116104101\
>             114 032   080  10 1\
>             114 108   032  104 \
>             09  70     99   10\
>             7   1      0     1\
>             1    1    4      0\
>             4     4  )       ;'
syntax error at -e line 3, near "}join"
  (Might be a runaway multi-line // string starting on line 2)
Execution of -e aborted due to compilation errors.

[download]

Regards,
Edward

Replies are listed 'Best First'.
Re^2: Camel JAPH
by JSchmitz (Canon) on Mar 27, 2007 at 14:53 UTC
    Solaris 8 same error - cool though

    #  perl           -e'map\
> {map{print       chr }/\d\
>     {3}/gx      }join q{},\
>      split/\s/sx,q(0741171151\
>        16032097110111116104101\
>             114 032   080  10 1\
>             114 108   032  104 \
>             09  70     99   10\
>             7   1      0     1\
>             1    1    4      0\
>             4     4  )       ;'
syntax error at -e line 3, near "}join"
  (Might be a runaway multi-line // string starting on line 2)
Execution of -e aborted due to compilation errors.
# uname -a
SunOS gort 5.8 Generic_108528-24 sun4u sparc SUNW,Sun-Fire-480R

    [download]
[reply]
[d/l]
      I get the same error running under mingw/msys. But if I take away the command line stuff: 
        map
{map{print       chr }/\d
    {3}/gx      }join q{},
     split/\s/sx,q(0741171151
       16032097110111116104101
            114 032   080  10 1
            114 108   032  104 
            09  70     99   10
            7   1      0     1
            1    1    4      0
            4     4  )       ;

      [download]
      It works flawlessly. And is still nicely camelicious.


      TGI says moo

[reply]
[d/l]
      Interesting, it works nicely for me under Solaris 9 and MacOS 10.4. If I copy your output with the GT symbols at the start of each line, I get the same error you do. But if I simply copy and paste it to the command line it works fine. I'll have to muck with it and do some more testing. 
      perl -e 'split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(joi
+n(q{},map{sprintf(qq{%010u},$_)}(2**2*307*4993,5*101*641*5261,7*59*79
+*36997,13*17*71*45131,3**2*67*89*167*181))=~/\d{2}/g));'

      [download]
[reply]
[d/l]

In Section Obfuscated Code