Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Re: JAPH from keywords and functions

by cavac (Deacon)
on Nov 28, 2011 at 22:41 UTC ( #940490=note: print w/ replies, xml ) Need Help??

in reply to JAPH from keywords and functions

Hmm, doesn't seem to work on Perl 5.12:

Type of arg 1 to push must be array (not string eq) at + line 12, near "gethostent and" Type of arg 1 to unshift must be array (not quoted execution (``, qx)) + at line 17, near "pos xor" Type of arg 1 to shift must be array (not umask) at li +ne 17, near "pos xor" Type of arg 1 to splice must be array (not shift) at l +ine 17, near "pos xor" Type of arg 1 to pop must be array (not wantarray) at +line 22, near "wantarray and" Type of arg 1 to shift must be array (not kill) at lin +e 22, near "wantarray and" Type of arg 1 to unshift must be array (not shift) at +line 22, near "wantarray and" Type of arg 1 to splice must be array (not unshift) at + line 22, near "wantarray and" Execution of aborted due to compilation errors.

Here's the perl version i'm using:

cavac@planetx:~/src/temp$ perl -V Summary of my perl5 (revision 5 version 12 subversion 3) configuration +: Platform: osname=linux, osvers=2.6.11-1.1369_fc4, archname=x86_64-linux-thre +ad-multi uname='linux perl-linux64-vm 2.6.11-1.1369_fc4 #1 thu jun 2 22:56: +33 edt 2005 x86_64 x86_64 x86_64 gnulinux ' config_args='-ders -Dcc=gcc -Dusethreads -Duseithreads -Ud_sigsetj +mp -Uinstallusrbinperl -Ulocincpth= -Uloclibpth= -Duse64bitall -Dlibp +th=/lib64 /usr/lib64 /usr/local/lib64 -Accflags=-DUSE_SITECUSTOMIZE - +Duselargefiles -Accflags=-fno-merge-constants -Dprefix=/home/cavac/bi +n/ActivePerl-5.12 -Dprivlib=/home/cavac/bin/ActivePerl-5.12/lib -Darc +hlib=/home/cavac/bin/ActivePerl-5.12/lib -Dsiteprefix=/home/cavac/bin +/ActivePerl-5.12/site -Dsitelib=/home/cavac/bin/ActivePerl-5.12/site/ +lib -Dsitearch=/home/cavac/bin/ActivePerl-5.12/site/lib -Dsed=/bin/se +d -Duseshrplib -Dcf_by=ActiveState +' hint=recommended, useposix=true, d_sigaction=define useithreads=define, usemultiplicity=define useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=und +ef use64bitint=define, use64bitall=define, uselongdouble=undef usemymalloc=n, bincompat5005=undef Compiler: cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DUSE_SITECUSTOMIZE + -fno-merge-constants -fno-strict-aliasing -pipe -D_LARGEFILE_SOURCE +-D_FILE_OFFSET_BITS=64', optimize='-O2', cppflags='-D_REENTRANT -D_GNU_SOURCE -DUSE_SITECUSTOMIZE -fno-merg +e-constants -fno-strict-aliasing -pipe' ccversion='', gccversion='4.0.0 20050519 (Red Hat 4.0.0-8)', gccos +andvers='' intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=1 +6 ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', + lseeksize=8 alignbytes=8, prototype=define Linker and Libraries: ld='gcc', ldflags ='' libpth=/lib64 /usr/lib64 /usr/local/lib64 libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc libc=/lib/, so=so, useshrplib=true, libperl=libperl.s +o gnulibc_version='2.3.5' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E - +Wl,-rpath,/home/cavac/bin/ActivePerl-5.12/lib/CORE' cccdlflags='-fPIC', lddlflags='-shared -O2' Characteristics of this binary (from libperl): Compile-time options: MULTIPLICITY PERL_DONT_CREATE_GVSV PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP USE_64_ +BIT_ALL USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES USE_PERLIO USE_PERL_ATOF USE_REENTRANT_API USE_SITECUSTOMIZE Locally applied patches: ActivePerl Build 1204 [294330] c6fbf28 [perl #71806] perldb does not setup %dbline with the sheba +ng option -d 1fd8fa4 Add Wolfram Humann to AUTHORS f120055 make string-append on win32 100 times faster a2a8d15 Define _USE_32BIT_TIME_T for VC6 and VC7 007cfe1 Don't pretend to support really old VC++ compilers 6d8f7c9 Get rid of obsolete PerlCRT.dll support d956618 Make Term::ReadLine::findConsole fall back to STDIN if /de +v/tty can't be opened 321e50c Escape patch strings before embedding them in patchlevel.h Built under linux Compiled at Feb 9 2011 14:48:47 @INC: /home/cavac/bin/ActivePerl-5.12/site/lib /home/cavac/bin/ActivePerl-5.12/lib

Don't use '#ff0000':
use Acme::AutoColor; my $redcolor = RED();
All colors subject to change without notice.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://940490]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2016-08-28 07:16 GMT
Find Nodes?
    Voting Booth?
    The best thing I ever won in a lottery was:

    Results (391 votes). Check out past polls.