[15750] in Perl-Users-Digest
Perl-Users Digest, Issue: 3163 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu May 25 14:10:36 2000
Date: Thu, 25 May 2000 11:10:22 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <959278222-v9-i3163@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 25 May 2000 Volume: 9 Number: 3163
Today's topics:
HPUX and Perl <R.Arlitt@itm.rwth-aachen.de>
Re: HPUX and Perl <care227@attglobal.net>
Re: HPUX and Perl <raphael.arlitt@mmw.fh-aachen.de>
inetd->perl - problems redirecting stderr gstainburn@my-deja.com
Re: Listing installed packages? (Randal L. Schwartz)
Re: need help on perl library call.. e_bengal@my-deja.com
Re: NEWBIE: Variable = Command Line Results <billy@arnis-bsl.com>
No libgdbm.so under Solaris 2.6 ericwinslow@yahoo.com
Re: Passing an array to a regexp <lr@hpl.hp.com>
Re: Passing an array to a regexp <lr@hpl.hp.com>
Re: Passing data between CGI progs on different servers nobull@mail.com
Passing Objects between Scripts <vandemen@yahoo.com>
Re: Passing Objects between Scripts <aqumsieh@hyperchip.com>
Perl date formatting jwolly2@my-deja.com
Re: Perl Editor for Linux <red_orc@my-deja.com>
Perl unusable as a programming language <theglauber@my-deja.com>
Printing of Tk Window in NT <w-woerlinger@ti.com>
Re: randomizing (anagramming words) <kdmiles@lucent.com>
Re: randomizing (anagramming words) <sariq@texas.net>
Re: randomizing (anagramming words) nobull@mail.com
Re: randomizing (anagramming words) <aqumsieh@hyperchip.com>
Re: reading lines of file into several arrays <jad9@po.cwru.edu>
Re: reading lines of file into several arrays <sariq@texas.net>
Re: seeking method to encode email addresses in web pag nobull@mail.com
Re: select() function does not work nobull@mail.com
Re: Sorting a Database <lr@hpl.hp.com>
Re: Trouble running perlcc <alager@csuchico.edu>
Re: Where is the Perl 5.6 bug list? <sergei_kucherov@3com.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 25 May 2000 19:05:25 +0200
From: ra <R.Arlitt@itm.rwth-aachen.de>
Subject: HPUX and Perl
Message-Id: <392D5D55.DD57F0F9@itm.rwth-aachen.de>
This is a multi-part message in MIME format.
--------------09873F77C8CCF94B401BA746
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Promise not to laugh!
I keep trying to install PERL 5.6
on an HPUX 735 Workstation running
the HPUX 9.07 operating system.
I also tried on a dual processor HP
workstation running HPUX 10.20.
In the HPUX 9.07 case I could not get binarys
and that's why I tried to compile from source.
I wasn't able to make the executables on both
machines!
I try to compile with the HP C Compiler and
therefore use cc -Ae ... as shown in the
config.sh file.
I hope any of you fellows have a compareable
system (HPUX 9.x 10.x) and maybe are able
to tell me what I oversaw ... to get my
beloved Perl up and running.
I will append my config.sh file generated
by the Configure script, so maybe if anybody
could have a look at it or send me his config.sh?
And even if you just got that configuration running,
just tell me so I just get motivated to go on.
Raphael
Attachment: config.sh generated by Configure
------------------------------------------------
I probably should change uselargefiles='define' to undefine
I also tried i_unistd="$undef" in the hints/hpux.sh file
since I got some error messages in perl.c and found that hint.
--------------09873F77C8CCF94B401BA746
Content-Type: application/x-sh;
name="config.sh"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="config.sh"
#!/bin/sh
#
# This file was produced by running the Configure script. It holds all the
# definitions figured out by Configure. Should you modify one of these values,
# do not forget to propagate your changes by running "Configure -der". You may
# instead choose to run each of the .SH files by yourself, or "Configure -S".
#
# Package name : perl5
# Source directory : .
# Configuration time: Thu May 25 18:57:25 METDST 2000
# Configured by : ra
# Target system : hp-ux loredana b.10.20 a 9000780 2004527048 two-user license
Author=''
Date='$Date'
Header=''
Id='$Id'
Locker=''
Log='$Log'
Mcc='Mcc'
RCSfile='$RCSfile'
Revision='$Revision'
Source=''
State=''
_a='.a'
_exe=''
_o='.o'
afs='false'
alignbytes='8'
ansi2knr=''
aphostname='/usr/bin/hostname'
api_revision='5'
api_subversion='0'
api_version='5'
api_versionstring='5.005'
ar='ar'
archlib='/opt/perl5/lib/5.6.0/PA-RISC2.0'
archlibexp='/opt/perl5/lib/5.6.0/PA-RISC2.0'
archname64=''
archname='PA-RISC2.0'
archobjs=''
awk='awk'
baserev='5.0'
bash=''
bin='/opt/perl5/bin'
bincompat5005='define'
binexp='/opt/perl5/bin'
bison=''
byacc='byacc'
byteorder='4321'
c='\c'
castflags='0'
cat='cat'
cc='cc'
cccdlflags='+z'
ccdlflags='-Wl,-E -Wl,-B,deferred '
ccflags=' -D_HPUX_SOURCE -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -Ae'
ccsymbols='__CLASSIC_C__=1'
cf_by='ra'
cf_email='ra@loredana.itm.rwth-aachen.de'
cf_time='Thu May 25 18:57:25 METDST 2000'
charsize='1'
chgrp=''
chmod=''
chown=''
clocktype='clock_t'
comm='comm'
compress=''
contains='grep'
cp='cp'
cpio=''
cpp='cpp'
cpp_stuff='42'
cppccsymbols='_PA_RISC1_1=1 __hp9000s700=1 __hp9000s800=1 __hppa=1 __hpux=1 __unix=1'
cppflags='-D_HPUX_SOURCE -Aa -I/usr/local/include'
cpplast='-'
cppminus='-'
cpprun='cc -E -Aa'
cppstdin='cc -E -Aa'
cppsymbols='_FILE_OFFSET_BITS=64 _HPUX_SOURCE=1 _LARGEFILE_SOURCE=1 _LFS64_LARGEFILE=1 _LFS_LARGEFILE=1 _PROTOTYPES=1 __STDC__=1 __STDC_EXT__=1 _XPG4=1 _XPG4_EXTENDED=1'
crosscompile='undef'
cryptlib=''
csh='csh'
d_Gconvert='gcvt((x),(n),(b))'
d_PRIEldbl='define'
d_PRIFldbl='define'
d_PRIGldbl='define'
d_PRIX64='define'
d_PRId64='define'
d_PRIeldbl='define'
d_PRIfldbl='define'
d_PRIgldbl='define'
d_PRIi64='define'
d_PRIo64='define'
d_PRIu64='define'
d_PRIx64='define'
d_access='define'
d_accessx='undef'
d_alarm='define'
d_archlib='define'
d_atolf='undef'
d_atoll='undef'
d_attribut='undef'
d_bcmp='define'
d_bcopy='define'
d_bincompat5005='define'
d_bsd='define'
d_bsdgetpgrp='undef'
d_bsdsetpgrp='undef'
d_bzero='define'
d_casti32='define'
d_castneg='define'
d_charvspr='undef'
d_chown='define'
d_chroot='define'
d_chsize='undef'
d_closedir='define'
d_const='define'
d_crypt='define'
d_csh='define'
d_cuserid='define'
d_dbl_dig='define'
d_difftime='define'
d_dirnamlen='define'
d_dlerror='undef'
d_dlopen='undef'
d_dlsymun='undef'
d_dosuid='undef'
d_drand48proto='define'
d_dup2='define'
d_eaccess='undef'
d_endgrent='define'
d_endhent='define'
d_endnent='define'
d_endpent='define'
d_endpwent='define'
d_endsent='define'
d_endspent='define'
d_eofnblk='define'
d_eunice='undef'
d_fchmod='define'
d_fchown='define'
d_fcntl='define'
d_fd_macros='define'
d_fd_set='define'
d_fds_bits='define'
d_fgetpos='define'
d_flexfnam='define'
d_flock='undef'
d_fork='define'
d_fpathconf='define'
d_fpos64_t='define'
d_fs_data_s='undef'
d_fseeko='define'
d_fsetpos='define'
d_fstatfs='define'
d_fstatvfs='define'
d_ftello='define'
d_ftime='undef'
d_getcwd='define'
d_getfsstat='undef'
d_getgrent='define'
d_getgrps='define'
d_gethbyaddr='define'
d_gethbyname='define'
d_gethent='define'
d_gethname='define'
d_gethostprotos='define'
d_getlogin='define'
d_getmnt='undef'
d_getmntent='define'
d_getnbyaddr='define'
d_getnbyname='define'
d_getnent='define'
d_getnetprotos='define'
d_getpbyname='define'
d_getpbynumber='define'
d_getpent='define'
d_getpgid='define'
d_getpgrp2='define'
d_getpgrp='define'
d_getppid='define'
d_getprior='define'
d_getprotoprotos='define'
d_getpwent='define'
d_getsbyname='define'
d_getsbyport='define'
d_getsent='define'
d_getservprotos='define'
d_getspent='define'
d_getspnam='define'
d_gettimeod='define'
d_gnulibc='undef'
d_grpasswd='define'
d_hasmntopt='define'
d_htonl='define'
d_iconv='define'
d_index='undef'
d_inetaton='define'
d_int64_t='define'
d_isascii='define'
d_killpg='define'
d_lchown='define'
d_ldbl_dig='define'
d_link='define'
d_locconv='define'
d_lockf='define'
d_longdbl='define'
d_longlong='define'
d_lseekproto='undef'
d_lstat='define'
d_madvise='define'
d_mblen='define'
d_mbstowcs='define'
d_mbtowc='define'
d_memchr='define'
d_memcmp='define'
d_memcpy='define'
d_memmove='define'
d_memset='define'
d_mkdir='define'
d_mkdtemp='undef'
d_mkfifo='define'
d_mkstemp='define'
d_mkstemps='undef'
d_mktime='define'
d_mmap='define'
d_mprotect='define'
d_msg='define'
d_msg_ctrunc='undef'
d_msg_dontroute='define'
d_msg_oob='define'
d_msg_peek='define'
d_msg_proxy='undef'
d_msgctl='define'
d_msgget='define'
d_msgrcv='define'
d_msgsnd='define'
d_msync='define'
d_munmap='define'
d_mymalloc='define'
d_nice='define'
d_nv_preserves_uv='define'
d_off64_t='define'
d_old_pthread_create_joinable='undef'
d_oldpthreads='undef'
d_oldsock='undef'
d_open3='define'
d_pathconf='define'
d_pause='define'
d_phostname='undef'
d_pipe='define'
d_poll='define'
d_portable='define'
d_pthread_yield='undef'
d_pwage='define'
d_pwchange='undef'
d_pwclass='undef'
d_pwcomment='define'
d_pwexpire='undef'
d_pwgecos='define'
d_pwpasswd='define'
d_pwquota='undef'
d_qgcvt='undef'
d_quad='define'
d_readdir='define'
d_readlink='define'
d_rename='define'
d_rewinddir='define'
d_rmdir='define'
d_safebcpy='define'
d_safemcpy='undef'
d_sanemcmp='define'
d_sched_yield='undef'
d_scm_rights='undef'
d_seekdir='define'
d_select='define'
d_sem='define'
d_semctl='define'
d_semctl_semid_ds='define'
d_semctl_semun='define'
d_semget='define'
d_semop='define'
d_setegid='undef'
d_seteuid='undef'
d_setgrent='define'
d_setgrps='define'
d_sethent='define'
d_setlinebuf='undef'
d_setlocale='define'
d_setnent='define'
d_setpent='define'
d_setpgid='define'
d_setpgrp2='define'
d_setpgrp='define'
d_setprior='define'
d_setpwent='define'
d_setregid='define'
d_setresgid='define'
d_setresuid='define'
d_setreuid='define'
d_setrgid='undef'
d_setruid='undef'
d_setsent='define'
d_setsid='define'
d_setspent='define'
d_setvbuf='define'
d_sfio='undef'
d_shm='define'
d_shmat='define'
d_shmatprototype='define'
d_shmctl='define'
d_shmdt='define'
d_shmget='define'
d_sigaction='define'
d_sigsetjmp='define'
d_socket='define'
d_socklen_t='undef'
d_sockpair='define'
d_sqrtl='undef'
d_statblks='define'
d_statfs_f_flags='undef'
d_statfs_s='define'
d_statvfs='define'
d_stdio_cnt_lval='define'
d_stdio_ptr_lval='define'
d_stdio_stream_array='define'
d_stdiobase='define'
d_stdstdio='define'
d_strchr='define'
d_strcoll='define'
d_strctcpy='define'
d_strerrm='strerror(e)'
d_strerror='define'
d_strtod='define'
d_strtol='define'
d_strtold='define'
d_strtoll='define'
d_strtoul='define'
d_strtoull='define'
d_strtouq='undef'
d_strxfrm='define'
d_suidsafe='undef'
d_symlink='define'
d_syscall='define'
d_sysconf='define'
d_sysernlst=''
d_syserrlst='define'
d_system='define'
d_tcgetpgrp='define'
d_tcsetpgrp='define'
d_telldir='define'
d_telldirproto='define'
d_time='define'
d_times='define'
d_truncate='define'
d_tzname='define'
d_umask='define'
d_uname='define'
d_union_semun='undef'
d_ustat='define'
d_vendorarch='undef'
d_vendorbin='undef'
d_vendorlib='undef'
d_vfork='undef'
d_void_closedir='undef'
d_voidsig='define'
d_voidtty=''
d_volatile='define'
d_vprintf='define'
d_wait4='undef'
d_waitpid='define'
d_wcstombs='define'
d_wctomb='define'
d_xenix='undef'
date='date'
db_hashtype='u_int32_t'
db_prefixtype='size_t'
defvoidused='15'
direntrytype='struct dirent'
dlext='sl'
dlsrc='dl_hpux.xs'
doublesize='8'
drand01='drand48()'
dynamic_ext='B ByteLoader Data/Dumper Devel/DProf Devel/Peek Fcntl File/Glob IO IPC/SysV NDBM_File ODBM_File Opcode POSIX SDBM_File Socket Sys/Hostname Sys/Syslog attrs re'
eagain='EAGAIN'
ebcdic='undef'
echo='echo'
egrep='egrep'
emacs=''
eunicefix=':'
exe_ext=''
expr='expr'
extensions='B ByteLoader Data/Dumper Devel/DProf Devel/Peek Fcntl File/Glob IO IPC/SysV NDBM_File ODBM_File Opcode POSIX SDBM_File Socket Sys/Hostname Sys/Syslog attrs re Errno'
fflushNULL='undef'
fflushall='undef'
find=''
firstmakefile='makefile'
flex=''
fpossize='8'
fpostype='fpos_t'
freetype='void'
full_ar='/usr/bin/ar'
full_csh='/usr/bin/csh'
full_sed='/usr/bin/sed'
gccversion=''
gidformat='"ld"'
gidsign='-1'
gidsize='4'
gidtype='gid_t'
glibpth='/usr/shlib /usr/lib/large /lib /usr/lib /usr/lib/386 /lib/386 /lib/large /usr/lib/small /lib/small /usr/ccs/lib /usr/ucblib /usr/local/lib '
grep='grep'
groupcat='cat /etc/group'
groupstype='gid_t'
gzip='gzip'
h_fcntl='false'
h_sysfile='true'
hint='recommended'
hostcat='cat /etc/hosts'
huge=''
i16size='2'
i16type='short'
i32size='4'
i32type='long'
i64size='8'
i64type='long long'
i8size='1'
i8type='char'
i_arpainet='define'
i_bsdioctl=''
i_db='undef'
i_dbm='define'
i_dirent='define'
i_dld='undef'
i_dlfcn='undef'
i_fcntl='undef'
i_float='define'
i_gdbm='undef'
i_grp='define'
i_iconv='define'
i_ieeefp='undef'
i_inttypes='define'
i_limits='define'
i_locale='define'
i_machcthr='undef'
i_malloc='define'
i_math='define'
i_memory='undef'
i_mntent='define'
i_ndbm='define'
i_netdb='define'
i_neterrno='undef'
i_netinettcp='define'
i_niin='define'
i_poll='define'
i_pthread='undef'
i_pwd='define'
i_rpcsvcdbm='undef'
i_sfio='undef'
i_sgtty='undef'
i_shadow='define'
i_socks='undef'
i_stdarg='define'
i_stddef='define'
i_stdlib='define'
i_string='define'
i_sunmath='undef'
i_sysaccess='undef'
i_sysdir='define'
i_sysfile='define'
i_sysfilio='undef'
i_sysin='undef'
i_sysioctl='define'
i_syslog='define'
i_sysmman='define'
i_sysmode='undef'
i_sysmount='define'
i_sysndir='undef'
i_sysparam='define'
i_sysresrc='define'
i_syssecrt='undef'
i_sysselct='undef'
i_syssockio=''
i_sysstat='define'
i_sysstatfs='undef'
i_sysstatvfs='define'
i_systime='define'
i_systimek='undef'
i_systimes='define'
i_systypes='define'
i_sysuio='define'
i_sysun='define'
i_sysutsname='define'
i_sysvfs='define'
i_syswait='define'
i_termio='undef'
i_termios='define'
i_time='undef'
i_unistd='undef'
i_ustat='define'
i_utime='define'
i_values='define'
i_varargs='undef'
i_varhdr='stdarg.h'
i_vfork='undef'
ignore_versioned_solibs=''
inc_version_list=' '
inc_version_list_init='0'
incpath=''
inews=''
installarchlib='/opt/perl5/lib/5.6.0/PA-RISC2.0'
installbin='/opt/perl5/bin'
installman1dir='/opt/perl5/man/man1'
installman3dir='/opt/perl5/man/man3'
installprefix='/opt/perl5'
installprefixexp='/opt/perl5'
installprivlib='/opt/perl5/lib/5.6.0'
installscript='/opt/perl5/bin'
installsitearch='/opt/perl5/lib/site_perl/5.6.0/PA-RISC2.0'
installsitebin='/opt/perl5/bin'
installsitelib='/opt/perl5/lib/site_perl/5.6.0'
installstyle='lib'
installusrbinperl='define'
installvendorarch=''
installvendorbin=''
installvendorlib=''
intsize='4'
ivdformat='"ld"'
ivsize='4'
ivtype='long'
known_extensions='B ByteLoader DB_File Data/Dumper Devel/DProf Devel/Peek Fcntl File/Glob GDBM_File IO IPC/SysV NDBM_File ODBM_File Opcode POSIX SDBM_File Socket Sys/Hostname Sys/Syslog Thread attrs re'
ksh=''
large=''
ld='ld'
lddlflags='-b +vnocompatwarnings -L/usr/local/lib'
ldflags=' -L/usr/local/lib'
ldlibpthname='SHLIB_PATH'
less='less'
lib_ext='.a'
libc='/lib/libc.sl'
libperl='libperl.a'
libpth='/usr/local/lib /lib /usr/lib /usr/ccs/lib'
libs='-lnsl_s -lndbm -ldld -lm -lc -lndir -lcrypt -lsec'
libsdirs=' /lib'
libsfiles=' libnsl_s.a libndbm.sl libmalloc.a libdld.sl libm.sl libc.sl libndir.a libcrypt.a libsec.sl'
libsfound=' /lib/libnsl_s.a /lib/libndbm.sl /lib/libmalloc.a /lib/libdld.sl /lib/libm.sl /lib/libc.sl /lib/libndir.a /lib/libcrypt.a /lib/libsec.sl'
libspath=' /usr/local/lib /lib /usr/lib /usr/ccs/lib'
libswanted='sfio socket bind inet nsl nm ndbm gdbm db malloc dl dld sun m c cposix posix ndir dir crypt sec ucb bsd x iconv'
line=''
lint=''
lkflags=''
ln='ln'
lns='/usr/bin/ln -s'
locincpth='/usr/local/include /opt/local/include /usr/gnu/include /opt/gnu/include /usr/GNU/include /opt/GNU/include'
loclibpth='/usr/local/lib /opt/local/lib /usr/gnu/lib /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib'
longdblsize='16'
longlongsize='8'
longsize='4'
lp=''
lpr=''
ls='ls'
lseeksize='8'
lseektype='off_t'
mail=''
mailx=''
make='make'
make_set_make='#'
mallocobj='malloc.o'
mallocsrc='malloc.c'
malloctype='void *'
man1dir='/opt/perl5/man/man1'
man1direxp='/opt/perl5/man/man1'
man1ext='1'
man3dir='/opt/perl5/man/man3'
man3direxp='/opt/perl5/man/man3'
man3ext='3'
medium=''
mips_type=''
mkdir='mkdir'
mmaptype='void *'
models='none'
modetype='mode_t'
more='more'
multiarch='undef'
mv=''
myarchname='9000/780-hpux'
mydomain='.itm.rwth-aachen.de'
myhostname='loredana'
myuname='hp-ux loredana b.10.20 a 9000780 2004527048 two-user license '
n=''
netdb_hlen_type='int'
netdb_host_type='const char *'
netdb_name_type='const char *'
netdb_net_type='int'
nm='nm'
nm_opt='-p'
nm_so_opt=''
nonxs_ext='Errno'
nroff='nroff'
nvsize='8'
nvtype='double'
o_nonblock='O_NONBLOCK'
obj_ext='.o'
old_pthread_create_joinable=''
optimize='-O'
orderlib='false'
osname='hpux'
osvers='10.20'
package='perl5'
pager='/usr/bin/more'
passcat='cat /etc/passwd'
patchlevel='6'
path_sep=':'
perl5=''
perl=''
perladmin='ra@loredana.itm.rwth-aachen.de'
perlpath='/opt/perl5/bin/perl'
pg='pg'
phostname='hostname'
pidtype='pid_t'
plibpth=''
pm_apiversion='5.005'
pmake=''
pr=''
prefix='/opt/perl5'
prefixexp='/opt/perl5'
privlib='/opt/perl5/lib/5.6.0'
privlibexp='/opt/perl5/lib/5.6.0'
prototype='define'
ptrsize='4'
quadkind='3'
quadtype='long long'
randbits='48'
randfunc='drand48'
randseedtype='long'
ranlib=':'
rd_nodata='-1'
revision='5'
rm='rm'
rmail=''
runnm='true'
sPRIEldbl='"LE"'
sPRIFldbl='"LF"'
sPRIGldbl='"LG"'
sPRIX64='"llX"'
sPRId64='"lld"'
sPRIeldbl='"Le"'
sPRIfldbl='"Lf"'
sPRIgldbl='"Lg"'
sPRIi64='"lli"'
sPRIo64='"llo"'
sPRIu64='"llu"'
sPRIx64='"llx"'
sched_yield='undef'
scriptdir='/opt/perl5/bin'
scriptdirexp='/opt/perl5/bin'
sed='sed'
seedfunc='srand48'
selectminbits='32'
selecttype='fd_set *'
sendmail=''
sh='/bin/sh'
shar=''
sharpbang='#!'
shmattype='void *'
shortsize='2'
shrpenv=''
shsharp='true'
sig_count='35'
sig_name='ZERO HUP INT QUIT ILL TRAP ABRT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM USR1 USR2 CHLD PWR VTALRM PROF IO WINCH STOP TSTP CONT TTIN TTOU URG LOST NUM31 DIL XCPU XFSZ RTMIN IOT CLD POLL WINDOW '
sig_name_init='"ZERO", "HUP", "INT", "QUIT", "ILL", "TRAP", "ABRT", "EMT", "FPE", "KILL", "BUS", "SEGV", "SYS", "PIPE", "ALRM", "TERM", "USR1", "USR2", "CHLD", "PWR", "VTALRM", "PROF", "IO", "WINCH", "STOP", "TSTP", "CONT", "TTIN", "TTOU", "URG", "LOST", "NUM31", "DIL", "XCPU", "XFSZ", "RTMIN", "IOT", "CLD", "POLL", "WINDOW", 0'
sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 -1 6 18 22 23 '
sig_num_init='0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, -1, 6, 18, 22, 23, 0'
signal_t='void'
sitearch='/opt/perl5/lib/site_perl/5.6.0/PA-RISC2.0'
sitearchexp='/opt/perl5/lib/site_perl/5.6.0/PA-RISC2.0'
sitebin='/opt/perl5/bin'
sitebinexp='/opt/perl5/bin'
sitelib='/opt/perl5/lib/site_perl/5.6.0'
sitelib_stem='/opt/perl5/lib/site_perl'
sitelibexp='/opt/perl5/lib/site_perl/5.6.0'
siteprefix='/opt/perl5'
siteprefixexp='/opt/perl5'
sizesize='4'
sizetype='size_t'
sleep=''
smail=''
small=''
so='sl'
sockethdr=''
socketlib=''
socksizetype='int'
sort='sort'
spackage='Perl5'
spitshell='cat'
split=''
src='.'
ssizetype='ssize_t'
startperl='#!/opt/perl5/bin/perl'
startsh='#!/bin/sh'
static_ext=' '
stdchar='unsigned char'
stdio_base='((fp)->_base)'
stdio_bufsiz='((fp)->_cnt + (fp)->_ptr - (fp)->_base)'
stdio_cnt='((fp)->_cnt)'
stdio_filbuf=''
stdio_ptr='((fp)->_ptr)'
stdio_stream_array='_iob'
strings='/usr/include/string.h'
submit=''
subversion='0'
sysman='/usr/man/man1'
tail=''
tar=''
tbl=''
tee=''
test='test'
timeincl='/usr/include/sys/time.h '
timetype='time_t'
touch='touch'
tr='tr'
trnl='\n'
troff=''
u16size='2'
u16type='unsigned short'
u32size='4'
u32type='unsigned long'
u64size='8'
u64type='unsigned long long'
u8size='1'
u8type='unsigned char'
uidformat='"ld"'
uidsign='-1'
uidsize='4'
uidtype='uid_t'
uname='uname'
uniq='uniq'
uquadtype='unsigned long long'
use5005threads='undef'
use64bitall='undef'
use64bitint='undef'
usedl='define'
useithreads='undef'
uselargefiles='define'
uselongdouble='undef'
usemorebits='undef'
usemultiplicity='undef'
usemymalloc='y'
usenm='true'
useopcode='true'
useperlio='undef'
useposix='true'
usesfio='false'
useshrplib='false'
usesocks='undef'
usethreads='undef'
usevendorprefix='undef'
usevfork='false'
usrinc='/usr/include'
uuname=''
uvoformat='"lo"'
uvsize='4'
uvtype='unsigned long'
uvuformat='"lu"'
uvxformat='"lx"'
vendorarch=''
vendorarchexp=''
vendorbin=''
vendorbinexp=''
vendorlib=''
vendorlib_stem=''
vendorlibexp=''
vendorprefix=''
vendorprefixexp=''
version='5.6.0'
vi=''
voidflags='15'
xlibpth='/usr/lib/386 /lib/386'
xs_apiversion='5.005'
zcat=''
zip='zip'
# Configure command line arguments.
config_arg0='Configure'
config_args='-de'
config_argc=1
config_arg1='-de'
PERL_REVISION=5
PERL_VERSION=6
PERL_SUBVERSION=0
PERL_API_REVISION=5
PERL_API_VERSION=5
PERL_API_SUBVERSION=0
CONFIGDOTSH=true
# Variables propagated from previous config.sh file.
toke_cflags='ccflags="$ccflags -DARG_ZERO_IS_SCRIPT"'
--------------09873F77C8CCF94B401BA746--
------------------------------
Date: Thu, 25 May 2000 13:49:46 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: HPUX and Perl
Message-Id: <392D67BA.A6547164@attglobal.net>
> Attachment: config.sh generated by Configure
> ------------------------------------------------
> Name: config.sh
> config.sh Type: Bourne Shell Program (application/x-sh)
> Encoding: 7bit
How'd that get past my news server filters! I didn't think
it was good form to post with attachments.
------------------------------
Date: Thu, 25 May 2000 20:03:05 +0200
From: Raphael Arlitt <raphael.arlitt@mmw.fh-aachen.de>
Subject: Re: HPUX and Perl
Message-Id: <392D6AD9.515E6DE1@mmw.fh-aachen.de>
I should have included the output from the ./myconfig commmand.
Here it is (anyway it should be similar to the information in the
config.sh file). Here it is:
bash-2.02$ ./myconfig
Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
Platform:
osname=hpux, osvers=10.20, archname=PA-RISC2.0
uname='hp-ux loredana b.10.20 a 9000780 2004527048 two-user license
'
config_args='-de'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef
usemultiplicity=undef
useperlio=undef d_sfio=undef uselargefiles=define
use64bitint=undef use64bitall=undef uselongdouble=undef
usesocks=undef
Compiler:
cc='cc', optimize='-O', gccversion=
cppflags='-D_HPUX_SOURCE -Aa -I/usr/local/include'
ccflags =' -D_HPUX_SOURCE -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64 -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
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=8
alignbytes=8, usemymalloc=y, prototype=define
Linker and Libraries:
ld='ld', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
libs=-lnsl_s -lndbm -ldld -lm -lc -lndir -lcrypt -lsec
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,deferred '
cccdlflags='+z', lddlflags='-b +vnocompatwarnings -L/usr/local/lib'
ra wrote:
>
> Promise not to laugh!
>
> I keep trying to install PERL 5.6
> on an HPUX 735 Workstation running
> the HPUX 9.07 operating system.
> I also tried on a dual processor HP
> workstation running HPUX 10.20.
>
> In the HPUX 9.07 case I could not get binarys
> and that's why I tried to compile from source.
> I wasn't able to make the executables on both
> machines!
>
> I try to compile with the HP C Compiler and
> therefore use cc -Ae ... as shown in the
> config.sh file.
>
> I hope any of you fellows have a compareable
> system (HPUX 9.x 10.x) and maybe are able
> to tell me what I oversaw ... to get my
> beloved Perl up and running.
>
> I will append my config.sh file generated
> by the Configure script, so maybe if anybody
> could have a look at it or send me his config.sh?
>
> And even if you just got that configuration running,
> just tell me so I just get motivated to go on.
>
> Raphael
>
> Attachment: config.sh generated by Configure
> ------------------------------------------------
> I probably should change uselargefiles='define' to undefine
> I also tried i_unistd="$undef" in the hints/hpux.sh file
> since I got some error messages in perl.c and found that hint.
>
> ------------------------------------------------------------------------
> Name: config.sh
> config.sh Type: Bourne Shell Program (application/x-sh)
> Encoding: 7bit
--
Raphael
------------------------------
Date: Thu, 25 May 2000 15:38:51 GMT
From: gstainburn@my-deja.com
Subject: inetd->perl - problems redirecting stderr
Message-Id: <8gjhec$mfn$1@nnrp2.deja.com>
Hi all,
If you're reading this for the third (or more)
time then I appologise. I've been having
problems.
I have a perl script that is called by inetd when
it gets an incoming connection from a program
running on a Win95 PC. All goes well, the
connection comes in, inetd starts my server
script, the script and the PC chat away, and when
the PC is done it closes the link and the server
script dies automatically.
My problem arrises when the perl generates an
error message. It goes down the stream to the PC
which, not expecting it, throws a fit and
everything grinds to a halt.
I've tried redirecting STDERR to a file using
various methods but cannot get it to work
properly.
If I try 'open(STDERR,">>myfile")', STDIN gets
stuffed and nothing works.
If I try 'use Tie::STDERR ">>myfile";' the script
works fine but myfile does not get created, and
the script does not die when the connection is
closed.
If I put a sh script between inetd and my server
and redirect STDERR there it goes to a file and
everything works, but again, the server does not
die with the link. When the link does die, I
just get dumped to the file repeatedly until I
kill the process the following error message.
Use of uninitialized value at
/rwsys1/mcat/server.pl line 922.
Code
+++
my $line='';
do {
$char=getc(STDIN);
$line.=$char; <<< line 922
} until ($line=~/$endseq$/);
+++
How can I check to see if $char is undefined? If
I can do that I can then exit and this will be a
usable workaround.
Has anyone got any ideas?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 25 May 2000 08:45:33 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Listing installed packages?
Message-Id: <m1itw2my5e.fsf@halfdome.holdit.com>
>>>>> "Hardy" == Hardy Merrill <hmerrill@my-deja.com> writes:
Hardy> Is there a way to list all the "non"-standard(packages from CPAN that
Hardy> are not part of standard Perl distribution) Perl packages that are
Hardy> installed on your system?
This lists *all* modules (tested), and shows you which are out of date
with respect to your CPAN mirror:
use CPAN;
for $mod (CPAN::Shell->expand("Module", "/./")) {
next unless $mod->inst_file;
printf "%-40s %10s", $mod->id, $mod->inst_version;
printf " *** %10s", $mod->cpan_version unless $mod->uptodate;
print "\n";
}
(I stole this for the most part directly from the manpage. :)
I think you can use $mod->cpan_file to get some interesting information
about where on the CPAN it is located, and if it's a Perl distribution,
it's a standard. If it matches m{/perl-.*\.tar\.gz$}, it was probably
part of some Perl distribution. If you get that working, let me know! :)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Thu, 25 May 2000 15:59:58 GMT
From: e_bengal@my-deja.com
Subject: Re: need help on perl library call..
Message-Id: <8gjilg$e63$1@nnrp1.deja.com>
In article
<Pine.GSO.4.10.10005241738370.14618-100000@user2.teleport.com>,
Tom Phoenix <rootbeer@redcat.com> wrote:
> On Wed, 24 May 2000 e_bengal@my-deja.com wrote:
>
> > I have been looking for infos on perl library call "shellwords.pl".
>
> > Can someone please tell me with an example how to use the call.
>
> It should be right there, along with the docs that told you what it's
good
> for. :-)
>
> Okay, so it's _way_ underdocumented. When you have some better docs,
will
> you send in a patch? That would help. Or maybe it should be turned
into a
> module, with docs and all. That would be even better; you could fix
its
> bugs. :-)
>
> Try reading the examples in the first few lines of the shellwords.pl
file.
> Do those help you?
>
> Good luck with it!
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
>
>
Tom, I am kindda confused about your posting. I looked up the place
where the shellwords.pl is in the perl installation directory.
Unfortunately, doesn't have any example for this particular library
call.
Any more help/hint ? Appreciate it.
FA.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 25 May 2000 14:58:26 GMT
From: Ilja <billy@arnis-bsl.com>
Subject: Re: NEWBIE: Variable = Command Line Results
Message-Id: <8gjf27$b5u$1@nnrp1.deja.com>
In article <392D33D6.5F2BF94F@webticker_dot_com.com>,
Julian Cook <president@webticker_dot_com.com> wrote:
> Hello folks!
> As usual, I bow to the collective genius of my peers.
> I ask what may be quite possibly the simplest question that this forum
> has seen
> in a while probably
>
> Here's my code. (Line numbers added only for clarity and wishful BASIC
> thinking..hee hee)
>
> 1 #!/usr/local/bin/perl
> 2 $file = "testfile.txt";
> 3 $count = 'wc -l < $file';
> 4 die "wc failed: $?" if $?;
> 5 chomp($count);
> 6 print $count;
>
> Ideally $count is assigned the output of wc -l <$file (counting number
> of lines in $file)
> but instead when this is executed $count has the literal value,
> that is, it prints....
> wc -l < $file
>
You use quotes but instead backticks are needed: $count = `wc -l < $file`;
Anyway, why to use an external program to count lines in a file ?
It is (at least) slow and non-portable.
There is a FAQ: "How do I count the number of lines in a file?"
See perldoc perlfaq5 or http://www.cpan.org/doc/manual/html/pod/perlfaq5.html
for more info.
Hope this helps.
Ilja.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 25 May 2000 17:01:53 GMT
From: ericwinslow@yahoo.com
Subject: No libgdbm.so under Solaris 2.6
Message-Id: <8gjm9n$gvi$1@nnrp1.deja.com>
Greetings.
After installing Perl 5.6 on a Sun machine running Solaris 2.6 I'm
running into an error I have not seen before.
"ld.so.1: /usr/local/bin/perl: fatal: libgdbm.so.2: open failed: No
such file or directory"
The script that produced the error runs fine on another installation,
but with Perl 5.005_03 A search on that Sun uncovers no 'libgdbm.so'
either, but Perl has been running great for many moons.
Is this some new requirement under Perl 5.6? Anybody else run into this
and find a solution?
Thanks.
Eric M. Winslow
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 25 May 2000 09:57:51 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Passing an array to a regexp
Message-Id: <MPG.1396fb6ff130496798aad9@nntp.hpl.hp.com>
In article <8ghcvs$81n$3@news.panix.com> on 24 May 2000 20:10:36 GMT,
Abigail <abigail@arena-i.com> says...
> On Wed, 24 May 2000 12:20:03 -0700, Larry Rosler <lr@hpl.hp.com> wrote:
> ++ In article <959183416.22231@itz.pp.sci.fi> on 24 May 2000 15:58:09 GMT,
> ++ Ilmari Karonen <iltzu@sci.invalid> says...
> ++ >
> ++ > my $re = join '|' => map "\Q$_" => @array;
> ++ > if ( $x =~ /^($re)/ ) { ... }
> ++
> ++ Oof. You didn't test that. What do you think would be matched by:
> ++
> ++ /^(\Qone|\Qtwo|\Qthree|\Qfour)/
>
> Eh, *you* didn't test that.
Oof. No, I didn't. And, as usual, I regret it.
:-(
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 25 May 2000 10:04:12 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Passing an array to a regexp
Message-Id: <MPG.1396fce67954ee2b98aada@nntp.hpl.hp.com>
In article <erlhg8.5pn.ln@usenet-autoren.de> on Thu, 25 May 2000
00:41:50 +0200, Christian Winter <thepoet1@arcormail.de> says...
> Ben Hambidge <newsmay2000@ordinate.co.uk> schrob:
> > I have the following condition:
> > if ( $x =~ /^[one|two|three|four]/ ) { ...}
> > However, I would like to test for values in an array; for example:
>
> > @array = ( "one", "two", "three", "four" );
>
> > Can I now write the regexp to pull out the values of the array
> > instead, making the regexp flexible depending on the values in the
> > array at the time?
>
> if( map{ $x =~ /^$_/ } @arrray ) {...}
>
> HTH
It won't help, if you believe perlfaq4:
Please do not use
$is_there = grep $_ eq $whatever, @array;
or worse yet
$is_there = grep /$whatever/, @array;
These are slow (checks every element even if the first matches),
inefficient (same reason), and potentially buggy (what if there are
regex characters in $whatever?). ...
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 25 May 2000 17:48:34 +0100
From: nobull@mail.com
Subject: Re: Passing data between CGI progs on different servers
Message-Id: <u9snv6pod9.fsf@wcl-l.bham.ac.uk>
scottness@my-deja.com writes:
> I'm just new to Perl and want to write applications which would involve
> passing data from a CGI script on one server, to another CGI
> script on a different server. Can someone tell me if this can be done,
> and if possible briefly how, and also point me in the direction of more
> resources.
> Sent via Deja.com http://www.deja.com/
Looks like you've answered your own question. This is asked and
answered several times a week so you should have been able to find the
answer (the LWP modules) by a Deja search.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Thu, 25 May 2000 23:22:11 +0800
From: "Aaron" <vandemen@yahoo.com>
Subject: Passing Objects between Scripts
Message-Id: <fhbX4.4350$c5.6892@newsfeeds.bigpond.com>
Hello,
Is it possible to pass an object reference from one script to another script
??
For example something like,
### Start script t1
use Net::Telnet;
$t = new Net::Telnet();
$t->open();
exec("perl t2\.pl $t");
### End of script t1
### Start script t2
use Net::Telnet();
$t = $ARGV[0];
print $t->get();
### End script t2
Using this procedure doesn't work for me but hopefully demonstrtes what I am
trying to do.
The goal is to be able to run a telnet session from a web browser. Since
HTTP is connectionless I need to be able to find a way of maintaining a
reference to the telnet session between command submits from the web page.
Thanks very much,
Aaron
------------------------------
Date: Thu, 25 May 2000 15:58:39 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: Passing Objects between Scripts
Message-Id: <7a8zwy62qa.fsf@Merlin.i-did-not-set--mail-host-address--so-shoot-me>
"Aaron" <vandemen@yahoo.com> writes:
> Is it possible to pass an object reference from one script to another
> script ??
What you want is probably fork/exec. Checkout 'perlipc' for more info.
--Ala
------------------------------
Date: Thu, 25 May 2000 16:27:58 GMT
From: jwolly2@my-deja.com
Subject: Perl date formatting
Message-Id: <8gjk9n$fgq$1@nnrp1.deja.com>
All-
I am looking for a module to convert various date strings to a common
format. I have tried DateParse() from the Date::Manip module. This
does exactly what I need, but is too slow.
Thanks in advance for your help.
jwolly2
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 25 May 2000 15:30:44 GMT
From: Rodney Engdahl <red_orc@my-deja.com>
Subject: Re: Perl Editor for Linux
Message-Id: <8gjgv4$cn7$1@nnrp1.deja.com>
In article <iNaX4.93428$hT2.386622@news1.rdc1.ct.home.com>,
Dan Sugalski <dan@tuatha.sidhe.org> wrote:
> Luxury! Why, when I was learning all we had was a 9-volt battery, a
aper
> clip, and bare drive leads. Cat. Humph.
>
> Dan
>
a 9-volt battery!*!. We used to _dream_ about having a 9-volt battery!
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 25 May 2000 15:31:12 GMT
From: The Glauber <theglauber@my-deja.com>
Subject: Perl unusable as a programming language
Message-Id: <8gjh00$cni$1@nnrp1.deja.com>
In article <8f498v$751$1@charm.magnus.acs.ohio-state.edu>,
ilya@math.ohio-state.edu (Ilya Zakharevich) wrote:
[...]
> Let me reiterate my current opinion on the topic: the reason for my
> puzzlement (and your trouble) is the difference between Perl as a
> scripting language and Perl as a programming language. Perl is
> absolutely fine as a scripting language. Perl is pretty unusable as a
> programming language.
[...]
Is it just me or did this scare the heck out of anybody else? It's
something to hear people ranting about Perl, but it's something else
when someone as important to Perl as Ilya is, says that Perl is
unusable as a programming language.
I'd really like to know what Larry Wall thinks of this (i wonder if
he's lurking; i haven't seen a post from him for ages).
After reading a lot of posts in this thread, i'm not sure if the
problem is the quality of the perl interpreter or the lack of formal
definition of the language. Which one is it?
Certainly Perl has enough features already? Should the effort now go
towards cleaning up the interpreter? (Or towards learning Java? :-))
glauber
--
Glauber Ribeiro
theglauber@my-deja.com
"Opinions stated are my own and not representative of Experian"
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 25 May 2000 17:20:02 +0200
From: Willibald Woerlinger <w-woerlinger@ti.com>
Subject: Printing of Tk Window in NT
Message-Id: <392D44A2.2047831D@ti.com>
I cannot find any information neither in books nor in newsgroups
on how to printout a Perl/Tk window from inside the perl program.
I'm using Activestate Perl 5.19 on Windown NT 4.0 system.
Any infos, docs or samples are appriciated.
Thanks,
Willi
------------------------------
Date: Thu, 25 May 2000 16:53:40 +0100
From: Kevin Miles <kdmiles@lucent.com>
Subject: Re: randomizing (anagramming words)
Message-Id: <392D4C84.1D727B62@lucent.com>
Ala Qumsieh wrote:
>
> Kevin Miles <kdmiles@lucent.com> writes:
>
> > If I want to randomize a word
> >
> > i.e.
> >
> > England
> >
> > to be (as an example)
> >
> > glnEand
>
> You can do as others said: split word into array, shuffle array, join
> letters back. But here's a faster method (didn't benchmark though):
>
> my $string = 'England';
> my $new;
>
> $new .= $_ while $_ = substr $string =>
> rand length $string, 1, '';
>
> --Ala
hmm doesn't seem to work.....I'm miffed!
--
Kevin Miles
------------------------------
Date: Thu, 25 May 2000 11:08:16 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: randomizing (anagramming words)
Message-Id: <392D4FF0.D6893C2E@texas.net>
Kevin Miles wrote:
>
> Ala Qumsieh wrote:
> >
> > my $string = 'England';
> > my $new;
> >
> > $new .= $_ while $_ = substr $string =>
> > rand length $string, 1, '';
Nifty.
> hmm doesn't seem to work.....I'm miffed!
It would be much more useful if you posted more detail than "doesn't
seem to work", but the problem is most likely your Perl version. Ala's
solution requires >= 5.005.
- Tom
------------------------------
Date: 25 May 2000 17:48:03 +0100
From: nobull@mail.com
Subject: Re: randomizing (anagramming words)
Message-Id: <u9u2fmpoe4.fsf@wcl-l.bham.ac.uk>
jacklam@math.uio.no (Peter J. Acklam) writes:
> Then shuffle the elements in @chars as described in perlfaq4: "How do I
> shuffle an array randomly?". Finally join the shuffled characters
> together:
Since words tend not to be very long I wouldn't bother with
Fisher-Yates.
join '' => sort { 0.5 <=> rand } split // => $string;
Note: the perldoc page for sort() says this isn't safe, however
perldelta says it is safe as of 5.00503. (I'm not 100% sure it's
actually random - anyone know for sure?)
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Thu, 25 May 2000 18:00:05 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: randomizing (anagramming words)
Message-Id: <7a66s25x3t.fsf@Merlin.i-did-not-set--mail-host-address--so-shoot-me>
Tom Briles <sariq@texas.net> writes:
> Kevin Miles wrote:
> >
> > Ala Qumsieh wrote:
> > >
> > > my $string = 'England';
> > > my $new;
> > >
> > > $new .= $_ while $_ = substr $string =>
> > > rand length $string, 1, '';
>
> Nifty.
Thanks.
> > hmm doesn't seem to work.....I'm miffed!
Did you try it? What did it give you?
% perl -Mstrict -wl
my $string = 'England';
my $new;
$new .= $_ while $_ = substr $string =>
rand length $string, 1, '';
print $new;
__END__
gadEnln
> It would be much more useful if you posted more detail than "doesn't
> seem to work", but the problem is most likely your Perl version. Ala's
> solution requires >= 5.005.
I don't think so. 'EXPR while EXPR' has been supported for a while
(don't know when it was first introduced, but definitely before
5.005). I guess you might have confused this with 'EXPR for EXPR' which
was introduced in 5.005.
--Ala
------------------------------
Date: Thu, 25 May 2000 11:22:12 -0500
From: "John A. Dutton" <jad9@po.cwru.edu>
Subject: Re: reading lines of file into several arrays
Message-Id: <392D5334.C15EEFF@po.cwru.edu>
sw1nt wrote:
> blue red green purple
> 00255 25500 02550 15548255
> monday tuesday wednesday thursday
>
> I want to read the data into another perl program into an rray. One
> array for each line of the file. One word in each element of each array.
> Three arrays with four elements each. The files have a set number of lines,
> but each line may be *very* long.
OK, so you have space- and newline-delimited data. You want an LOL (List of
Lists) data structure if you want to manipulate the data further. So first
declare the array that will hold the arrays and then split data into it as
anonymous references (see man perlref):
#!/usr/bin/perl -w
my @Everything;
open(IN,"file.text") || die("$!");
while(<IN>) { push (@Everything, [ split(" ",$_) ]) }
close(IN);
print $Everything[1][1];
John
------------------------------
Date: Thu, 25 May 2000 10:32:35 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: reading lines of file into several arrays
Message-Id: <392D4793.77F0CC36@texas.net>
sw1nt wrote:
>
> I know that subject line probably inspires "smack the non-RTFM'ing
> newbie" feelings in all of you, but please read on.
>
> I have a perl program that writes data to a file in the format:
>
> blue red green purple
> 00255 25500 02550 15548255
> monday tuesday wednesday thursday
>
> I want to read the data into another perl program into an rray. One
> array for each line of the file. One word in each element of each array.
> Three arrays with four elements each. The files have a set number of lines,
> but each line may be *very* long.
<snip code attempt using symbolic refs>
> if
> someone could point me to the right perldoc, or any suggestions,
> it would be greatly appreciated.
Symbolic references are *very* rarely necessary.
This is excellent reading:
http://www.plover.com/~mjd/perl/varvarname.html
What you want to build is a List of Lists.
perldoc perllol
And then:
perldoc perldsc
for more cool stuff.
- Tom
------------------------------
Date: 25 May 2000 17:42:03 +0100
From: nobull@mail.com
Subject: Re: seeking method to encode email addresses in web page forms
Message-Id: <u9vh02poo4.fsf@wcl-l.bham.ac.uk>
Bob Reap <btreap@counsel.net> writes:
> I have a simple Perl chatboard I've created and I noticed that the email
> addresses are getting farmed by spammers. I've put up wPoison, but to
> really protect the users' privacy I want to switch to a system where all
> email is sent to the original poster via a form resident on my site.
There's no reason to pass the email address to the sender's web client
at all. Simply put the message ID of the post they are replying to in
the form and then when the form is submitted look up the address in
the chatboard database.
> I understand that PGP will encrypt stuff but I don't think I need that
> level of protection, and I don't really have the skills to get that
> running. Could I just craft some type of translation/substitution code
> in Perl to stash the address in the form and then have the mail form
> decode it back?
$address = reverse($address);
and/or
$address =~ tr/a-zA-Z/n-za-mN-ZA-M/; # ROT13
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: 25 May 2000 17:40:57 +0100
From: nobull@mail.com
Subject: Re: select() function does not work
Message-Id: <u9wvkipopy.fsf@wcl-l.bham.ac.uk>
Andreas Birkholz <A.Birkholz@alcatel.de> writes:
> I tried the select function and it worked not in that way as described
> in the perldoc.
Yes it does. It calls the select() system call. It tells you if a
file descriptor is "ready to read". "Ready to read" means that a
sysread() won't block. A sysread() won't block at an EOF condition.
BTW: "perldoc -f select" also warns you:
One should not attempt to mix buffered I/O (like read() or <FHE>)
with select(), except as permitted by POSIX, and even then only on
POSIX systems. You have to use sysread() instead.
For what you want to do (i.e. mimic a Unix "tail -f" operation) see
FAQ "How do I do a tail -f in perl?"
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Thu, 25 May 2000 10:45:35 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Sorting a Database
Message-Id: <MPG.139706987e42d3de98aade@nntp.hpl.hp.com>
In article <8gj9aj$6ke$1@nnrp1.deja.com> on Thu, 25 May 2000 13:20:36
GMT, jzoetewey@my-deja.com <jzoetewey@my-deja.com> says...
...
> What I need to do is to be able to sort. I also need to identify
> duplicates--but I'm not too worried about how to do that either. What
> mystifies me is how to sort a hash or array and then be able to keep
> track of which record the sorted item originally came from.
I have watched your struggle in this thread with some bemusement. What
you want to do is adequately covered in the FAQ and in other literature,
with plenty of examples.
perlfaq4: "How do I sort an array by (anything)?"
<URL:http://www.hpl.hp.com/personal/Larry_Rosler/sort/>
By the way, you can sort a list (usually created from an array), but you
cannot sort a hash, so your repeated references to sorting hashes are
just mystifying, as well as bemusing. :-)
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Thu, 25 May 2000 09:37:05 -0700
From: Aaron <alager@csuchico.edu>
To: baconrad@my-deja.com
Subject: Re: Trouble running perlcc
Message-Id: <392D56B1.C3A5019A@csuchico.edu>
baconrad@my-deja.com wrote:
> I am having a hell of a time getting perlcc to work at all. I am using
> the simplest possible "hello world" code. Any help is greatly
> appreciated.
>
> Following is what I think is all pertinent information.
>
> OS:Windows 98
> Perl: ActiveState perl build 613 for perl v5.6.0 (upgraded for running
> perlcc)
> C compiler: MS Visual C++ 6.0 (installed to do perlcc)
> Environment: Added C++ bin directory to path, ran vcvars32.bat
> Location: In my own c:\PerlTest directory (though I have tried others)
> Code: 1 line, print("Hello World");
> Command: perlcc hello.pl
>
> Following is the output I get:
>
> <<snip>>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
If you are trying to get a binary of your script, you may want to try
perl2exe. I've used it on NT and it works great. depending on how complex
your script is it may or may not work on win9x. I used a lot of perl/tk
which is buggy on 9x anyways, so we stayed on NT.
check out http://www.perl2exe.com
Aaron
------------------------------
Date: Thu, 25 May 2000 15:56:42 GMT
From: sergei_kucherov <sergei_kucherov@3com.com>
Subject: Re: Where is the Perl 5.6 bug list?
Message-Id: <8gjifd$dtd$1@nnrp1.deja.com>
Thanks very much for the replies!
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 3163
**************************************
