[16537] in Perl-Users-Digest
Perl-Users Digest, Issue: 3949 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 8 14:05:27 2000
Date: Tue, 8 Aug 2000 11:05:15 -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: <965757914-v9-i3949@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 8 Aug 2000 Volume: 9 Number: 3949
Today's topics:
64 bit threaded perl on HP-UX 11 anevynni@my-deja.com
CGI : CheckBox and Form Question <info@digitaltango.com>
Re: CGI : CheckBox and Form Question <care227@attglobal.net>
Re: CGI.PM How to get all Form's value in a HashTable? nobull@mail.com
Re: CGI.PM How to get all Form's value in a HashTable? <info@digitaltango.com>
Re: CGI.PM How to get all Form's value in a HashTable? <info@digitaltango.com>
Re: Chess Game (Deep Blue) in Perl? <as@if.com>
Re: Chess Game (Deep Blue) in Perl? <juex@deja.com>
Re: Chess Game (Deep Blue) in Perl? <as@if.com>
Re: Converting from US dates/numbers to European dates/ <juex@deja.com>
Re: Converting from US dates/numbers to European dates/ <flavell@mail.cern.ch>
Re: Converting from US dates/numbers to European dates/ <godzilla@stomp.stomp.tokyo>
Cross-platform shebang line CGI script shenanigans - Wi <glynFOOdwr@FSCKdeleteEmeD.co.uk>
Extracting string between XML tag pair from file <Sasa.Danicic@eurodyn.com>
Re: function like grep (AvastYeMatey)
Re: Have split question <lr@hpl.hp.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 08 Aug 2000 16:05:55 GMT
From: anevynni@my-deja.com
Subject: 64 bit threaded perl on HP-UX 11
Message-Id: <8mpb4v$548$1@nnrp1.deja.com>
Hello,
I'm trying to build DBD Oracle (for 8.0.6 64 bit) on HP-UX 11 and after
struggling for a few days and reading everything I was able to find on
Usenet, I have to ask for assistance really hoping someone will help me out.
My understanding is that I'll need to compile 64 bit threaded perl to
archieve this. I tried two version: 5.6 and 5.005.03 with the same results.
These are the steps: 1) sh Configure: changes to default settings: Build a
threading Perl? [n] y
Directories to use for library searches?
[/usr/local/lib /lib/pa1.1 /lib /usr/lib /usr/ccs/lib] /lib/pa20_64
Any additional cc flags? [-D_POSIX_C_SOURCE=199506L -D_HPUX_SOURCE -Aa]
-D_POSIX_C_SOURCE=199506L -D_HPUX_SOURCE -Aa +DD64
Where is your C library? [/lib/libc.sl] /lib/pa20_64/libc.sl
Any special flags to pass to cc to create a dynamically loaded library?
[-b] -b -L/lib/pa20_64
2) then modify config.sh (although leaving the file unmodified didn't help):
a) ccsymbols='_HPUX_SOURCE=1 _PA_RISC1_1=1 __STDC_EXT__=1' =>
ccsymbols='_HPUX_SOURCE=1 _PA_RISC2_0=1 __STDC_EXT__=1'
b) ldflags=' ' =>
ldflags=' -L/lib/pa20_64'
3) and then make gives the same message:
cc -L/lib/pa20_64 -o miniperl miniperlmain.o libperl.a -lnsl -ldl -ldl
d -lm -lpthread -lc
/usr/ccs/bin/ld: miniperlmain.o: Mismatched ABI. 64-bit PA object file
found in
32-bit link.
*** Error exit code 1
Is it possible that some HP patches are missing? Or problem with
libraries indeed (build on another machine failed as well)?
I would really appreciate any help.
Sincerely,
Andrew Nevynniy,
Russel Metals Inc.
Following is my config.sh file.
#!/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: Mon Jul 31 12:05:43 EDT 2000
# Configured by : root
# Target system : hp-ux hohp11 b.11.00 u 9000800 113901537
unlimited-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=''
apiversion='5.005'
ar='ar'
archlib='/opt/perl5/lib/5.00503/PA-RISC2.0-thread'
archlibexp='/opt/perl5/lib/5.00503/PA-RISC2.0-thread'
archname='PA-RISC2.0-thread'
archobjs=''
awk='awk'
baserev='5.0'
bash=''
bin='/opt/perl5/bin'
binexp='/opt/perl5/bin'
bison=''
byacc='byacc'
byteorder='87654321'
c='\c'
castflags='0'
cat='cat'
cc='cc'
cccdlflags='+z'
ccdlflags='-Wl,-E -Wl,-B,deferred '
ccflags='-D_POSIX_C_SOURCE=199506L -D_HPUX_SOURCE -Aa +DD64'
ccsymbols='_HPUX_SOURCE=1 _PA_RISC2_0=1 __STDC_EXT__=1'
cf_by='root'
cf_email='root@hohp11.russelmetals.com'
cf_time='Mon Jul 31 12:05:43 EDT 2000'
chgrp=''
chmod=''
chown=''
clocktype='clock_t'
comm='comm'
compress=''
contains='grep'
cp='cp'
cpio=''
cpp='cpp'
cpp_stuff='42'
cppflags='-D_POSIX_C_SOURCE=199506L -D_HPUX_SOURCE -Aa +DD64'
cpplast='-'
cppminus='-'
cpprun='cc -E -Aa'
cppstdin='cc -E -Aa'
cppsymbols='__STDC__=1'
cppccsymbols='__hp9000s800=1 __hppa=1 __hpux=1 __unix=1'
cryptlib=''
csh='csh'
d_Gconvert='gcvt((x),(n),(b))'
d_access='define'
d_alarm='define'
d_archlib='define'
d_attribut='undef'
d_bcmp='define'
d_bcopy='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='define'
d_dlopen='define'
d_dlsymun='undef'
d_dosuid='undef'
d_dup2='define'
d_endgrent='define'
d_endhent='define'
d_endnent='define'
d_endpent='define'
d_endpwent='define'
d_endsent='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_fsetpos='define'
d_fstatfs='define'
d_statfsflags='undef'
d_fstatvfs='define'
d_getmntent='define'
d_hasmntopt='define'
d_ftime='undef'
d_getgrent='define'
d_getgrps='define'
d_gethbyaddr='define'
d_gethbyname='define'
d_gethent='define'
d_gethname='undef'
d_gethostprotos='define'
d_getlogin='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_gettimeod='define'
d_gnulibc='undef'
d_grpasswd='define'
d_htonl='define'
d_index='undef'
d_inetaton='define'
d_isascii='define'
d_killpg='define'
d_lchown='define'
d_link='define'
d_locconv='define'
d_lockf='define'
d_longdbl='define'
d_longlong='undef'
d_lstat='define'
d_mblen='define'
d_mbstowcs='define'
d_mbtowc='define'
d_memcmp='define'
d_memcpy='define'
d_memmove='define'
d_memset='define'
d_mkdir='define'
d_mkfifo='define'
d_mktime='define'
d_msg='define'
d_msgctl='define'
d_msgget='define'
d_msgrcv='define'
d_msgsnd='define'
d_mymalloc='undef'
d_nice='define'
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_pthreads_created_joinable='define'
d_pwage='define'
d_pwchange='undef'
d_pwclass='undef'
d_pwcomment='define'
d_pwexpire='undef'
d_pwgecos='define'
d_pwquota='undef'
d_pwpasswd='define'
d_readdir='define'
d_readlink='define'
d_rename='define'
d_rewinddir='define'
d_rmdir='define'
d_safebcpy='define'
d_safemcpy='define'
d_sanemcmp='define'
d_sched_yield='define'
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_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_sockpair='define'
d_statblks='define'
d_stdio_cnt_lval='define'
d_stdio_ptr_lval='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_strtoul='define'
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_time='define'
d_times='define'
d_truncate='define'
d_tzname='define'
d_umask='define'
d_uname='define'
d_union_semun='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'
dynamic_ext='B Data/Dumper Fcntl IO IPC/SysV NDBM_File ODBM_File Opcode
POSIX SDBM_File Socket Thread attrs re'
eagain='EAGAIN'
ebcdic='undef'
echo='echo'
egrep='egrep'
emacs=''
eunicefix=':'
exe_ext=''
expr='expr'
extensions='B Data/Dumper Fcntl IO IPC/SysV NDBM_File ODBM_File Opcode
POSIX SDBM_File Socket Thread attrs re Errno'
find='find'
firstmakefile='makefile'
flex=''
fpostype='fpos_t'
freetype='void'
full_ar='/usr/bin/ar'
full_csh='/usr/bin/csh'
full_sed='/usr/bin/sed'
gccversion=''
gidtype='gid_t'
glibpth='/usr/shlib /shlib /lib/pa1.1 /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=''
i_arpainet='define'
i_bsdioctl=''
i_db='undef'
i_dbm='define'
i_dirent='define'
i_dld='undef'
i_dlfcn='define'
i_fcntl='undef'
i_float='define'
i_gdbm='undef'
i_grp='define'
i_limits='define'
i_locale='define'
i_malloc='define'
i_machcthreads='undef'
i_math='define'
i_memory='undef'
i_mntent='define'
i_ndbm='define'
i_netdb='define'
i_neterrno='undef'
i_niin='define'
i_pwd='define'
i_pthread='define'
i_rpcsvcdbm='undef'
i_sfio='undef'
i_sgtty='undef'
i_stdarg='define'
i_stddef='define'
i_stdlib='define'
i_string='define'
i_sysdir='define'
i_sysfile='define'
i_sysfilio='undef'
i_sysin='undef'
i_sysioctl='define'
i_sysmount='define'
i_sysndir='undef'
i_sysparam='define'
i_sysresrc='define'
i_sysselct='undef'
i_syssockio=''
i_sysstat='define'
i_sysstatvfs='define'
i_systime='define'
i_systimek='undef'
i_systimes='define'
i_systypes='define'
i_sysun='define'
i_syswait='define'
i_termio='undef'
i_termios='define'
i_time='undef'
i_unistd='define'
i_utime='define'
i_values='define'
i_varargs='undef'
i_varhdr='stdarg.h'
i_vfork='undef'
ignore_versioned_solibs=''
incpath=''
inews=''
installarchlib='/opt/perl5/lib/5.00503/PA-RISC2.0-thread'
installbin='/opt/perl5/bin'
installman1dir='/opt/perl5/man/man1'
installman3dir='/opt/perl5/man/man3'
installprivlib='/opt/perl5/lib/5.00503'
installscript='/opt/perl5/bin'
installsitearch='/opt/perl5/lib/site_perl/5.005/PA-RISC2.0-thread'
installsitelib='/opt/perl5/lib/site_perl/5.005'
installusrbinperl='define'
intsize='4'
known_extensions='B DB_File Data/Dumper Fcntl GDBM_File IO IPC/SysV
NDBM_File ODBM_File Opcode POSIX SDBM_File Socket Thread attrs re'
ksh=''
large=''
ld='cc'
lddlflags='-b -L/lib/pa20_64'
ldflags=' -L/lib/pa20_64'
less='less'
lib_ext='.a'
libc='/lib/pa20_64/libc.sl'
libperl='libperl.a'
libpth='/lib/pa20_64 /usr/lib/pa20_64'
libs='-lnsl -ldl -ldld -lm -lpthread -lc'
libswanted='sfio socket inet nsl nm ndbm gdbm db malloc dl dld sun m
pthread c cposix posix ndir dir crypt ucb bsd x'
line='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=''
longsize='8'
lp=''
lpr=''
ls='ls'
lseektype='off_t'
mail=''
mailx=''
make='make'
make_set_make='#'
mallocobj=''
mallocsrc=''
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=''
mips_type=''
mkdir='mkdir'
models='none'
modetype='mode_t'
more='more'
mv=''
myarchname='9000/800-hpux'
mydomain='.russelmetals.com'
myhostname='hohp11'
myuname='hp-ux hohp11 b.11.00 u 9000800 113901537 unlimited-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'
o_nonblock='O_NONBLOCK'
obj_ext='.o'
optimize='-O'
orderlib='false'
osname='hpux'
osvers='11.00'
package='perl5'
pager='/usr/bin/more'
passcat='cat /etc/passwd'
patchlevel='5'
path_sep=':'
perl='perl'
perladmin='root@hohp11.russelmetals.com'
perlpath='/opt/perl5/bin/perl'
pg='pg'
phostname='hostname'
pidtype='pid_t'
plibpth=''
pmake=''
pr=''
prefix='/opt/perl5'
prefixexp='/opt/perl5'
privlib='/opt/perl5/lib/5.00503'
privlibexp='/opt/perl5/lib/5.00503'
prototype='define'
ptrsize='8'
randbits='15'
ranlib=':'
rd_nodata='-1'
rm='rm'
rmail=''
runnm='true'
scriptdir='/opt/perl5/bin'
scriptdirexp='/opt/perl5/bin'
sed='sed'
selectminbits='32'
selecttype='fd_set *'
sendmail='sendmail'
sh='/bin/sh'
shar=''
sharpbang='#!'
shmattype='void *'
shortsize='2'
shrpenv=''
shsharp='true'
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 CANCEL GFAULT RTMIN NUM38 NUM39
NUM40
NUM41 NUM42 NUM43 RTMAX 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", "CANCEL", "GFAULT", "RTMIN", "NUM38", "NUM39", "NUM40", "NUM41",
"NUM42", "NUM43", "RTMAX", "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 35 36 37 38 39 40 41 42 43 44 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,
35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 6, 18, 22, 23, 0'
signal_t='void'
sitearch='/opt/perl5/lib/site_perl/5.005/PA-RISC2.0-thread'
sitearchexp='/opt/perl5/lib/site_perl/5.005/PA-RISC2.0-thread'
sitelib='/opt/perl5/lib/site_perl/5.005'
sitelibexp='/opt/perl5/lib/site_perl/5.005'
sizetype='size_t'
sleep=''
smail=''
small=''
so='sl'
sockethdr=''
socketlib=''
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)'
strings='/usr/include/string.h'
submit=''
subversion='3'
sysman='/usr/man/man1'
tail=''
tar=''
tbl=''
tee='tee'
test='test'
timeincl='/usr/include/sys/time.h '
timetype='time_t'
touch='touch'
tr='tr'
trnl='\n'
troff=''
uidtype='uid_t'
uname='uname'
uniq='uniq'
usedl='define'
usemymalloc='n'
usenm='true'
useopcode='true'
useperlio='undef'
useposix='true'
usesfio='false'
useshrplib='false'
usethreads='define'
usevfork='false'
usrinc='/usr/include'
uuname=''
version='5.00503'
vi=''
voidflags='15'
xlibpth='/usr/lib/386 /lib/386'
zcat=''
zip='zip'
# Configure command line arguments.
config_arg0='Configure'
config_args=''
config_argc=0
PATCHLEVEL=5
SUBVERSION=3
CONFIG=true
# Variables propagated from previous config.sh file.
toke_cflags='ccflags="$ccflags -DARG_ZERO_IS_SCRIPT"'
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 08 Aug 2000 16:45:22 GMT
From: "Etienne Laverdiere" <info@digitaltango.com>
Subject: CGI : CheckBox and Form Question
Message-Id: <COWj5.19240$FZ1.243688@news20.bellglobal.com>
Hi, does anyone have resolves this problem :
I have a form with a lots of <INPUT> (elements) and some of theses Inputs
are CheckBox. I have made a database that read this form (with DBI) and put
the value of each Input in it. When my Form have to read a checkBox that is
checked, the database can put an 'on' into the related record (checkbox1 =
'on').
But the problem is that when the checkbox is not checked, the form doesn't
send the information, because it doesn't pass the name of the checkbox. So,
my record is not update. (Because of the complexity of my database, and the
hight number of checkbox in it, I would rather not duplicate all my checkbox
into some hidden field with the same name, and then submit the hole form..)
I would like something like (if checkbox not check = > checkbox1 = 'off').
I tried a simple Javascript that scan all my form and replace a empty value
by a 'oof' but I am sure that the form does't sent the information. Here's
the javascript that is run when submitting my form :
function scanCheckBox(form){
for (var k=0;k<form.length;k++){
if ((form.elements[k].type == 'checkbox')&&(form.elements[k].checked
== 0)){
form.elements[k].value = 'OF';
}
}
// return true; doesn't matter
}
------------------------------
Date: Tue, 08 Aug 2000 13:51:00 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: CGI : CheckBox and Form Question
Message-Id: <39904884.10D58A4B@attglobal.net>
Etienne Laverdiere wrote:
>
> Hi, does anyone have resolves this problem :
>
> I have a form with a lots of <INPUT> (elements) and some of theses Inputs
> are CheckBox. I have made a database that read this form (with DBI) and put
> the value of each Input in it. When my Form have to read a checkBox that is
> checked, the database can put an 'on' into the related record (checkbox1 =
> 'on').
>
What does this problem have to do with Perl?
------------------------------
Date: 08 Aug 2000 17:37:47 +0100
From: nobull@mail.com
Subject: Re: CGI.PM How to get all Form's value in a HashTable?
Message-Id: <u9og33u2sk.fsf@wcl-l.bham.ac.uk>
kcivey@cpcug.org (Keith Calvert Ivey) writes:
> nobull@mail.com wrote:
>
> >How is the Vars() method defined? It's not a standard part of CGI.pm
> >AFAIK. Seems like an unusual name for a method too.
>
> Unfortunately, the POD that comes with CGI.pm is not as good as
> the documentation at http://stein.cshl.org/WWW/CGI/. Vars() is
> indeed part of CGI.pm, and it returns a hash when called in
> array context (and a tied hash reference when called ina cslar
> conference).
I was using an older version of CGI.pm (egg on face). I still think
Vars() is an unusual name for a method.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 08 Aug 2000 17:44:23 GMT
From: "Etienne Laverdiere" <info@digitaltango.com>
Subject: Re: CGI.PM How to get all Form's value in a HashTable?
Message-Id: <XFXj5.19324$FZ1.244690@news20.bellglobal.com>
Hi all, thanks for answering!
I have found my answer here it is :
sub parse_data{
# Return a HashTable name=>value
my $query = new CGI;
local $request_method = $ENV{'REQUEST_METHOD'};
if ( $request_method eq "GET") {
return map { $_ => param($_) } param();
}
else{
return $query->Vars;
}
}
"Etienne Laverdiere" <etienno@my-deja.com> wrote in message
news:8mmipq$419$1@nnrp1.deja.com...
> Hi all, I am working with CGI.pm And I want to get all the values of
> the "query_string" in a hastable. I tried
>
> $query = new CGI;
> local %data = ();
> %data= $query->Vars;
>
> to get all the values of the <FORM> in %data but it seems to works only
> when the FORM's method was a POST. It doesn't works when it was a GET.
> Do you know any "easy" way to get these values? I wrote
> a "read_query_string" and a "parse_data_form" functions, but it is
> quite 'unesthetic', I rather prefer a '%data = $query->Vars' solution.
>
>
> Thanks for answering.
>
> Etienne Laverdiere
> Montreal
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: Tue, 08 Aug 2000 17:47:54 GMT
From: "Etienne Laverdiere" <info@digitaltango.com>
Subject: Re: CGI.PM How to get all Form's value in a HashTable?
Message-Id: <eJXj5.19330$FZ1.245214@news20.bellglobal.com>
Hi I must use a 'local hashTable' because I need to pass it by reference in
a function. like
&function(*hash1, *hash2, $string1);
It seems that a my variable cannot be pass by reference.
Do you have another way? I am not very 'intuitive' with my and local..
-- Etienne Laverdiere
Montreal
<nobull@mail.com> wrote in message news:u9u2cxt34r.fsf@wcl-l.bham.ac.uk...
> Etienne Laverdiere <etienno@my-deja.com> writes:
>
> > Hi all, I am working with CGI.pm And I want to get all the values of
> > the "query_string" in a hastable. I tried
> >
> > $query = new CGI;
> > local %data = ();
>
> Do not use local() unless you know what it does. (Once you know what
> it does you won't _want_ to use it!)
>
> > %data= $query->Vars;
>
> How is the Vars() method defined? It's not a standard part of CGI.pm
> AFAIK. Seems like an unusual name for a method too.
>
> Why is a hash table better than the CGI object itself?
>
> --
> \\ ( )
> . _\\__[oo
> .__/ \\ /\@
> . l___\\
> # ll l\\
> ###LL LL\\
------------------------------
Date: Tue, 08 Aug 2000 15:24:12 GMT
From: "Kermit" <as@if.com>
Subject: Re: Chess Game (Deep Blue) in Perl?
Message-Id: <wCVj5.116535$1h3.1839941@news20.bellglobal.com>
Hello,
Thank you for the feedback, would you have any suggestions as how I would go
at it? For example, should I use the chess module or how do I setup the
table?
Cheers.
> There's no reason you can't do it in Perl. There are reasons Perl isn't
> very suited for this though. Compared to C and C++, Perl is slow, and
> very resource hungry.
>
>
>
> Abigail
> --
> $_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop;
$chop};
> $chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () ->
()
> -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () ->
()
------------------------------
Date: Tue, 8 Aug 2000 09:21:30 -0700
From: "Jürgen Exner" <juex@deja.com>
Subject: Re: Chess Game (Deep Blue) in Perl?
Message-Id: <399033b6@news.microsoft.com>
"Kermit" <as@if.com> wrote in message
news:wCVj5.116535$1h3.1839941@news20.bellglobal.com...
> Thank you for the feedback, would you have any suggestions as how I would
go
> at it? For example, should I use the chess module or how do I setup the
> table?
> > There's no reason you can't do it in Perl. There are reasons Perl isn't
> > very suited for this though. Compared to C and C++, Perl is slow, and
> > very resource hungry.
Oh, come on!
Choosing a data structure and a representation is the trivial part (about
2nd semester in a CS class, I guess). If you can't do that then you will
never manage the challenges of the playing algorithms (which if they are
good enough can still get you a Ph.D. in AI).
jue
------------------------------
Date: Tue, 08 Aug 2000 17:00:40 GMT
From: "Kermit" <as@if.com>
Subject: Re: Chess Game (Deep Blue) in Perl?
Message-Id: <Y0Xj5.116785$1h3.1843015@news20.bellglobal.com>
Eeek!
I understand how to setup the data structure for the table, what I should
have said was the visual table, ie: the actual chess board interface, I
don't want to enter "e2f3" or such things.
PS: I do strongly doubt that my playing algorithms would ever be at a PhD
level though... :(
> Oh, come on!
> Choosing a data structure and a representation is the trivial part (about
> 2nd semester in a CS class, I guess). If you can't do that then you will
> never manage the challenges of the playing algorithms (which if they are
> good enough can still get you a Ph.D. in AI).
>
> jue
------------------------------
Date: Tue, 8 Aug 2000 09:26:25 -0700
From: "Jürgen Exner" <juex@deja.com>
Subject: Re: Converting from US dates/numbers to European dates/numbers
Message-Id: <399034dd$1@news.microsoft.com>
"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote in message
news:398F9EB4.3B7DDB42@stomp.stomp.tokyo...
> bluearchtop@my-deja.com wrote:
>
> > This is a dumb question, I'm sure, but anyway...
> > Let's say I have an simple script:
>
> Goodness, this style of preamble is sure becoming
> quite popular these days. I read dozens of different
> people using this unique style, frequently.
>
> > $a=1.23;
> > $b=2.00;
> > $c = $a + $b;
> > print $c;
>
> > This prints 3.23.
>
> > Now, let's say I have to run this on a computer in France,
> > where 1.23 is actually 1,23.
>
> > 1,23 + 2, would not work.
>
> > Other than converting back and forth,
> > are there any other options?
>
> What other options are there than using a decimal
> point for mathematical manipulation? I'm pretty sure
> if you use an odd character for a decimal point, you
> will encounter a common glitch; crash!
Unfortunately this 'odd character' is used all over the world except in the
glorious USA.
Why should the world adapt to what is common in just one single country?
I can't help thinking "You will be assimilated, resistance is futile"
jue
------------------------------
Date: Tue, 8 Aug 2000 18:30:15 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Converting from US dates/numbers to European dates/numbers
Message-Id: <Pine.GHP.4.21.0008081828530.1369-100000@hpplus03.cern.ch>
On Tue, 8 Aug 2000, Jürgen Exner wrote:
(about comma used as decimal point)
> Unfortunately this 'odd character' is used all over the world except in the
> glorious USA.
Not true, though.
> Why should the world adapt to what is common in just one single country?
That's what "locale" is for.
------------------------------
Date: Tue, 08 Aug 2000 09:38:28 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: Converting from US dates/numbers to European dates/numbers
Message-Id: <39903784.41F71320@stomp.stomp.tokyo>
"Jürgen Exner" wrote:
> Godzilla! wrote:
> > bluearchtop@my-deja.com wrote:
> > > $a=1.23;
> > > $b=2.00;
> > > $c = $a + $b;
> > > print $c;
> > > This prints 3.23.
> > > Now, let's say I have to run this on a computer in France,
> > > where 1.23 is actually 1,23.
> > > 1,23 + 2, would not work.
> > > Other than converting back and forth,
> > > are there any other options?
> > What other options are there than using a decimal
> > point for mathematical manipulation? I'm pretty sure
> > if you use an odd character for a decimal point, you
> > will encounter a common glitch; crash!
> Unfortunately this 'odd character' is used all over the world
> except in the glorious USA. Why should the world adapt to what
> is common in just one single country?
So, you are stating a computer CPU / math co-processor recognizes
a comma as a decimal point and are stating mathematicians routinely
use a comma for a decimal point, everywhere except in America.
* glances at her hand electronic calculator *
* glances at her antiquated wood sliderule *
I am skeptical.
Godzilla!
------------------------------
Date: Tue, 8 Aug 2000 16:39:41 +0100
From: "Glyndwr" <glynFOOdwr@FSCKdeleteEmeD.co.uk>
Subject: Cross-platform shebang line CGI script shenanigans - Windows and Linux with Apache
Message-Id: <iQVj5.9628$9A1.129296@news2-win.server.ntlworld.com>
I've been involved recently in efforts to move some websites from
Debian/Apahce/Perl/MySQL to a Windows2000 laptop for demoing purposes.
Everything works fine, but in order to make each CGI script work, the
shebang line needs to be changed from
#!/usr/bin/perl [Linux]
to
#!c:/perl/bin/perl.exe [Windows]
Does anyone know of any way to write a single shebang line that works on
both platforms? I'm thinking something with eval should work, but my poor
brain isn't up to the task.. Thanks in advance.
--
-=R=-
------------------------------
Date: Tue, 08 Aug 2000 18:29:49 +0300
From: Sasa Danicic <Sasa.Danicic@eurodyn.com>
Subject: Extracting string between XML tag pair from file
Message-Id: <3990276D.73D67AF5@eurodyn.com>
Hello,
I've got a huge file so I've need to extract a string which matches
between first occurance of XML pair of tags.
So, for example I've need to extract all between first apperiance of
<EMPLOYEE> and first apperiance of </EMPLOYEE> in a file, including
<EMPLOYEE> and </EMPLOYEE> as part of string.
Inside file could be much more <EMPLOYEE>...</EMPLOYEE> tags, but I've
need between the first ones.
Regargs,
Sasa
------------------------------
Date: Tue, 08 Aug 2000 16:49:21 GMT
From: avast@whitewhale.org (AvastYeMatey)
Subject: Re: function like grep
Message-Id: <399038d9.19066965@news.mco.edu>
On 08 Aug 2000 14:34:00 GMT, abigail@foad.org (Abigail) wrote:
>unplug (unplug@poboxes.com) wrote on MMDXXXIV September MCMXCIII in
><URL:news:398FD2F3.FAC921B1@poboxes.com>:
>## Does perl has any function like grep??
>
>
>Not at all. You're such a smart guy to not be fooled by the manual!
>
>
>Abigail
Aaaarrrr! Yer a scurvy lass, ye are! Pokin' at the new mates calls
for keel-haulin' it does. 'tis also distract'n from me watch fer the
white whale, it is. Call out loud it ye see him now! You there on th'
mizzen mast. Be watchful! Aaaarrr!!
Avast
------------------------------
Date: Tue, 8 Aug 2000 09:25:14 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: Have split question
Message-Id: <MPG.13f9d440b3ddd90d98ac48@nntp.hpl.hp.com>
In article <piqvos0r062s4o5n735dcr3k8c739acb75@4ax.com> on Tue, 08 Aug
2000 11:19:50 GMT, Bart Lateur <bart.lateur@skynet.be> says...
...
> Or, using tr///, you can delete ALL parantheses:
>
> ($num = $line) =~ tr/\(\)//d;
>
> (Note: despite the similar syntax, tr/// does not use regular
> expressions)
No metasemantics for parentheses there.
($num = $line) =~ tr/()//d;
> Same using s///:
>
> ($num = $line) =~ s/[\(\)]//g;
No metasemantics for parentheses there.
($num = $line) =~ s/[()]//g;
But much slower than tr///, to no purpose.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
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 3949
**************************************
