Re^2: Camel JAPH

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]

Comment on Re^2: Camel JAPH Download Code

Replies are listed 'Best First'.
Re^3: Camel JAPH by TGI (Parson) on Apr 19, 2007 at 23:51 UTC
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]
Re^3: Camel JAPH by agianni (Hermit) on Aug 19, 2007 at 01:45 UTC
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*23074993,51016415261,75979 +36997,13177145131,3*26789167*181))=~/\d{2}/g));'` [download]	[reply] [d/l]


Clear questions and runnable code get the best and fastest answer
	PerlMonks