No subject

Mark Mertel mmertel at ix.netcom.com
Fri Apr 28 12:30:09 CDT 2000


the perl:

# perl -V
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=hpux, osvers=10.20, archname=PA-RISC1.1
    uname='hp-ux ural b.10.20 a 9000712 2015389465 two-user license '
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=hpux, osvers=10.20, archname=PA-RISC1.1
    uname='hp-ux ural b.10.20 a 9000712 2015389465 two-user license '
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cc', optimize='-O +Onolimit', gccversion=
    cppflags='-Ae'
    ccflags ='-Ae'
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='ld', ldflags =''
    libpth=/usr/local/lib /lib/pa1.1 /lib /usr/lib /usr/ccs/lib
    libs=-lnsl_s -lndbm -ldld -lm -lc -lndir -lcrypt
    libc=/lib/libc.sl, so=sl, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_hpux.xs, dlext=sl, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-B,deferr
ed '
    cccdlflags='+z', lddlflags='-b -s -a shared'


Characteristics of this binary (from libperl):
  Built under hpux
  Compiled at Feb 24 2000 12:24:57
  @INC:
    /opt/perl5/lib/5.00503/PA-RISC1.1
    /opt/perl5/lib/5.00503
    /opt/perl5/lib/site_perl/5.005/PA-RISC1.1
    /opt/perl5/lib/site_perl/5.005
    .

the test file :

#!/usr/local/bin/perl
asubroutine(\@A,"B","C");
asubroutine(\@D,"E","F");
asubroutine(\@X,"Y","Z");

sub asubroutine{
        print "@_,\n";
        $x= shift @_;
        $y= shift @_;
        $z= shift @_;
}

the output:

ARRAY(0x40021a50) B C,
ARRAY(0x40021aa4) E F,
ARRAY(0x40021af8) Y Z,

--
Mark Mertel
mmertel at ix.netcom.com
206.633.631


 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     POST TO: spug-list at pm.org       PROBLEMS: owner-spug-list at pm.org
 Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/
 For Subscriptions, Email to majordomo at pm.org:  ACTION  spug-list  EMAIL
  Replace ACTION by subscribe or unsubscribe, EMAIL by your Email address





More information about the spug-list mailing list