SPUG: Re:

[Todd Smith]

Yo Mark,

Did you use a perl script to send that message?  I got six copies.

Todd

Mark Mertel wrote:

> 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


 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     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