[18117] in Perl-Users-Digest
Perl-Users Digest, Issue: 277 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Feb 12 21:05:47 2001
Date: Mon, 12 Feb 2001 18:05:11 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <982029911-v10-i277@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 12 Feb 2001 Volume: 10 Number: 277
Today's topics:
cgi script sending mail <nkan@cup.hp.com>
Re: complex... (Abigail)
DBD::Oracle Unresolved Symbol error with make test on H <sgregory@caci.com>
DBM - how to create initially? <chastie@taurus.oac.uci.edu>
Re: DBM - how to create initially? <aks_music@hotmail.com>
Re: directory structure (Chris Fedde)
Re: directory structure (Abigail)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 12 Feb 2001 13:57:56 -0800
From: Kannan Narayanan <nkan@cup.hp.com>
Subject: cgi script sending mail
Message-Id: <3A885C64.A221DC16@cup.hp.com>
I am writing a CGI script in Perl.
When the user sumits a form from the web browser the CGI script should
collect all the information put in the form and send that info in
a mail.
Is it possible to do that in Perl?
Does anybody done similar stuff or have pointers to related info?
Thanks/-
Kannan.
------------------------------
Date: 13 Feb 2001 00:04:39 GMT
From: abigail@foad.org (Abigail)
Subject: Re: complex...
Message-Id: <slrn98gugn.tas.abigail@tsathoggua.rlyeh.net>
snef (snef@soneramail.nl) wrote on MMDCCXXII September MCMXCIII in
<URL:news:MPG.14f24f749373a72598970d@news.soneraplaza.nl>:
$$ Hi.
$$
$$ I want to get data out of a database (i can do that ;)), and display it.
$$
$$ Ok for templates and all. No problem.
$$
$$ The records in the database contain a date, a phonenumber and a service.
$$ Now I want to select these fields and show them per year/month.
$$
$$ So service X had in November (11) 2000 20 phonenumbers,
$$ service X had in December (12) 2000 12 phonenumbers,
$$ Y Nov (11) 2000 2 phonenumbers......
$$
$$ and so on.
$$
$$ What is a good solution? for each service a retrieval from the database
$$ of make it in a SQL-statement?
If it's just a tiny set of records, it's totally irrelevant.
If it's a large set of records, and downloading it all to Perl makes
for a more efficient solution, you are most likely having a problem
with your database. (What it is is too hard to say. Perhaps the wrong
product. Perhaps a wrong configuration. Perhaps insane indices or
striping. Perhaps lack of SQL knowledge. Perhaps an idiotic table
structure. All these problems should be addresses outside of this
group.)
Abigail
--
perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print
qq{Just Another Perl Hacker\n}}}}}}}}}' |\
perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
------------------------------
Date: Tue, 13 Feb 2001 00:50:23 GMT
From: Scott <sgregory@caci.com>
Subject: DBD::Oracle Unresolved Symbol error with make test on HPUX 10.20
Message-Id: <r21h8t86lv1244kakd80jnrnd4vhdcf3mr@4ax.com>
I am trying to install the DBD::Oracle module (v 1.06) on an HPUX
10.20 box. I have configed, compiled, tested, and installed Perl 5.6
without any obvious problems. 5.6 was configured with "Configure -d"
and all settings are the default. I then configed, compiled, tested
and installed the DBI module. Below is the output from the DBI make.
There are a bunch of compile warnings, but nothing that caused the
compile to stop. Below is also the output from the DBI make test.
The make test seems to be successfull, only complaining about an
uninitialized value in a pattern match.
After the DBI was tested and installed I attempted to do the same with
the DBD. Below is the output from the DBD make. As you can see there
are more complaints about an unused variable (same variable that the
DBI complained about). The compile seemed to complete successfully.
When I do the DBD make test I get many "unresolved symbol" errors and
the test eventually fails. I reread the README.hpux for Perl 5.6 and
it talks about the "unresolved symbol" error and tells how to fix the
problem. I didn't understand how to add the recommended changes and
I'm not sure if this recomendation will fix the problem.
If anyone can point me in the right direction to solve this problem I
would greatly appreciate it. I would love to remove this install from
my growing list of things to do!!
Thanks in advance,
Scott
##################################################
# Output from DBI "make"
##################################################
mkdir blib
mkdir blib/lib
mkdir blib/arch
mkdir blib/arch/auto
mkdir blib/arch/auto/DBI
mkdir blib/lib/auto
mkdir blib/lib/auto/DBI
mkdir blib/man1
mkdir blib/man3
cp lib/DBD/Proxy.pm blib/lib/DBD/Proxy.pm
cp lib/DBI/ProxyServer.pm blib/lib/DBI/ProxyServer.pm
cp DBIXS.h blib/arch/auto/DBI/DBIXS.h
cp dbi_sql.h blib/arch/auto/DBI/dbi_sql.h
cp lib/DBD/NullP.pm blib/lib/DBD/NullP.pm
cp dbipport.h blib/arch/auto/DBI/dbipport.h
cp lib/DBI/Format.pm blib/lib/DBI/Format.pm
cp dbd_xsh.h blib/arch/auto/DBI/dbd_xsh.h
cp lib/DBI/Shell.pm blib/lib/DBI/Shell.pm
cp lib/DBD/ADO.pm blib/lib/DBD/ADO.pm
cp DBI.pm blib/lib/DBI.pm
cp lib/DBI/FAQ.pm blib/lib/DBI/FAQ.pm
cp lib/DBD/ExampleP.pm blib/lib/DBD/ExampleP.pm
cp lib/Bundle/DBI.pm blib/lib/Bundle/DBI.pm
cp Driver.xst blib/arch/auto/DBI/Driver.xst
cp lib/Win32/DBIODBC.pm blib/lib/Win32/DBIODBC.pm
cp lib/DBD/Sponge.pm blib/lib/DBD/Sponge.pm
cp lib/DBI/W32ODBC.pm blib/lib/DBI/W32ODBC.pm
cp lib/DBI/DBD.pm blib/lib/DBI/DBD.pm
cp lib/DBD/Multiplex.pm blib/lib/DBD/Multiplex.pm
/usr/bin/perl -p -e "s/~DRIVER~/Perl/g" <
blib/arch/auto/DBI/Driver.xst > Perl.xsi
/usr/bin/perl -I/opt/perl5/lib/5.6.0/PA-RISC1.1
-I/opt/perl5/lib/5.6.0 /opt/perl5/lib/5.6.0/ExtUtils/xsubpp -typemap
/opt/perl5/lib/5.6.0/ExtUtils/typemap Perl.xs > Perl.xsc && mv
Perl.xsc Perl.c
gcc -c -D_HPUX_SOURCE -L/lib/pa1.1 -DUINT32_MAX_BROKEN
-I/usr/local/include -O -DVERSION=\"1.14\" -DXS_VERSION=\"1.14\"
-fpic -I/opt/perl5/lib/5.6.0/PA-RISC1.1/CORE -Wall -Wno-comment
-DDBI_NO_THREADS Perl.c
Perl.c: In function `XS_DBD__Perl__dr_discon_all_':
Perl.c:32: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__db__login':
Perl.c:49: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__db_commit':
Perl.c:83: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__db_rollback':
Perl.c:100: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__db_disconnect':
Perl.c:117: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__db_STORE':
Perl.c:150: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__db_FETCH':
Perl.c:172: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__db_DESTROY':
Perl.c:191: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st__prepare':
Perl.c:242: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_bind_param':
Perl.c:287: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_bind_param_inout':
Perl.c:329: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_execute':
Perl.c:377: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_fetchrow_arrayref':
Perl.c:424: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_fetchrow_array':
Perl.c:443: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_finish':
Perl.c:471: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_blob_read':
Perl.c:501: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_STORE':
Perl.c:539: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_FETCH_attrib':
Perl.c:561: warning: unused variable `Perl___notused'
Perl.c: In function `XS_DBD__Perl__st_DESTROY':
Perl.c:583: warning: unused variable `Perl___notused'
Perl.c: In function `boot_DBD__Perl':
Perl.c:632: warning: unused variable `Perl___notused'
/usr/bin/perl -I/opt/perl5/lib/5.6.0/PA-RISC1.1
-I/opt/perl5/lib/5.6.0 /opt/perl5/lib/5.6.0/ExtUtils/xsubpp -typemap
/opt/perl5/lib/5.6.0/ExtUtils/typemap DBI.xs > DBI.xsc && mv DBI.xsc
DBI.c
gcc -c -D_HPUX_SOURCE -L/lib/pa1.1 -DUINT32_MAX_BROKEN
-I/usr/local/include -O -DVERSION=\"1.14\" -DXS_VERSION=\"1.14\"
-fpic -I/opt/perl5/lib/5.6.0/PA-RISC1.1/CORE -Wall -Wno-comment
-DDBI_NO_THREADS DBI.c
DBI.xs: In function `dbih_clearcom':
DBI.xs:840: warning: unused variable `Perl___notused'
DBI.xs: In function `dbih_get_fbav':
DBI.xs:977: warning: unused variable `Perl___notused'
DBI.xs: In function `dbih_set_attr_k':
DBI.xs:1069: warning: unused variable `Perl___notused'
DBI.xs: In function `dbih_event':
DBI.xs:1377: warning: unused variable `Perl___notused'
DBI.xs: In function `log_where':
DBI.xs:1481: warning: unused variable `Perl___notused'
DBI.xs: In function `XS_DBI_dispatch':
DBI.xs:1905: warning: unused variable `Perl___notused'
DBI.xs:1528: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI_constant':
DBI.c:1961: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI__setup_handle':
DBI.c:1978: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI__get_imp_data':
DBI.c:1996: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI__handles':
DBI.c:2011: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI_set_err':
DBI.c:2033: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI_neat':
DBI.c:2081: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI_hash':
DBI.c:2102: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI_looks_like_number':
DBI.c:2126: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI__install_method':
DBI.c:2149: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI_trace':
DBI.c:2223: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI_dump_handle':
DBI.c:2276: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI__svdump':
DBI.c:2300: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBI__var_FETCH':
DBI.c:2320: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st__get_fbav':
DBI.c:2408: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st__set_fbav':
DBI.c:2424: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st_bind_col':
DBI.c:2453: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st_bind_columns':
DBI.c:2477: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st_fetchrow_array':
DBI.c:2517: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st_fetch':
DBI.c:2575: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st_rows':
DBI.c:2612: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____st_finish':
DBI.c:2628: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_DESTROY':
DBI.c:2644: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_STORE':
DBI.c:2657: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_FETCH':
DBI.c:2675: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_event':
DBI.c:2690: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_private_data':
DBI.c:2722: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_err':
DBI.c:2737: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_state':
DBI.c:2753: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_errstr':
DBI.c:2770: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_trace':
DBI.c:2790: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_trace_msg':
DBI.c:2841: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD_____common_rows':
DBI.c:2879: warning: unused variable `Perl___notused'
DBI.c: In function `XS_DBD___mem__common_DESTROY':
DBI.c:2895: warning: unused variable `Perl___notused'
DBI.c: In function `boot_DBI':
DBI.c:2915: warning: unused variable `Perl___notused'
Running Mkbootstrap for DBI ()
chmod 644 DBI.bs
LD_RUN_PATH="" ld -o blib/arch/auto/DBI/DBI.sl -b
-L/usr/local/lib DBI.o
chmod 755 blib/arch/auto/DBI/DBI.sl
cp DBI.bs blib/arch/auto/DBI/DBI.bs
chmod 644 blib/arch/auto/DBI/DBI.bs
/usr/bin/perl -Iblib/arch -Iblib/lib
-I/opt/perl5/lib/5.6.0/PA-RISC1.1 -I/opt/perl5/lib/5.6.0 dbiproxy.PL
dbiproxy
Extracted dbiproxy from dbiproxy.PL with variable substitutions.
mkdir blib/script
cp dbiproxy blib/script/dbiproxy
/usr/bin/perl -I/opt/perl5/lib/5.6.0/PA-RISC1.1
-I/opt/perl5/lib/5.6.0 -MExtUtils::MakeMaker -e "MY->fixin(shift)"
blib/script/dbiproxy
/usr/bin/perl -Iblib/arch -Iblib/lib
-I/opt/perl5/lib/5.6.0/PA-RISC1.1 -I/opt/perl5/lib/5.6.0 dbish.PL
dbish
Extracted dbish from dbish.PL with variable substitutions.
cp dbish blib/script/dbish
/usr/bin/perl -I/opt/perl5/lib/5.6.0/PA-RISC1.1
-I/opt/perl5/lib/5.6.0 -MExtUtils::MakeMaker -e "MY->fixin(shift)"
blib/script/dbish
Manifying blib/man3/DBI::ProxyServer.3
Manifying blib/man3/DBD::Proxy.3
Manifying blib/man3/DBI::Format.3
Manifying blib/man1/dbish.1
Manifying blib/man3/DBI::Shell.3
Manifying blib/man3/DBD::ADO.3
Manifying blib/man3/DBI.3
Manifying blib/man3/DBI::FAQ.3
Manifying blib/man3/Bundle::DBI.3
Manifying blib/man3/Win32::DBIODBC.3
Manifying blib/man1/dbiproxy.1
Manifying blib/man3/DBI::W32ODBC.3
Manifying blib/man3/DBI::DBD.3
Manifying blib/man3/DBD::Multiplex.3
##################################################
##################################################
# Output from DBI "make test"
##################################################
LD_RUN_PATH="" ld -o blib/arch/auto/DBI/DBI.sl -b
-L/usr/local/lib DBI.o
chmod 755 blib/arch/auto/DBI/DBI.sl
cp DBI.bs blib/arch/auto/DBI/DBI.bs
chmod 644 blib/arch/auto/DBI/DBI.bs
PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib
-I/opt/perl5/lib/5.6.0/PA-RISC1.1 -I/opt/perl5/lib/5.6.0 -e 'use
Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;'
t/*.t
t/basics............ok
t/dbidrv............ok
t/examp.............ok
t/meta..............ok
t/proxy.............skipped test on this platform
t/shell.............Use of uninitialized value in pattern match (m//)
at /opt/perl5/lib/5.6.0/Term/Cap.pm line 284.
Use of uninitialized value in pattern match (m//) at
/opt/perl5/lib/5.6.0/Term/Cap.pm line 284.
ok
t/subclass..........ok
All tests successful, 1 test skipped.
Files=7, Tests=179, 5 wallclock secs ( 3.46 cusr + 0.77 csys = 4.23
CPU)
PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib
-I/opt/perl5/lib/5.6.0/PA-RISC1.1 -I/opt/perl5/lib/5.6.0 test.pl
test.pl
DBI test application $Revision: 10.4 $
Using /usr2/scott/DBI-1.14/blib
Switch: DBI 1.14 by Tim Bunce, 1.14
Available Drivers: ADO, ExampleP, Multiplex, Proxy
dbi:ExampleP:: testing 5 sets of 20 connections:
Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Disconnecting...
Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Disconnecting...
Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Disconnecting...
Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Disconnecting...
Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
Disconnecting...
Made 100 connections in 0 wallclock secs ( 0.13 usr + 0.01 sys =
0.14 CPU)
Testing handle creation speed...
5000 NullP statement handles cycled in 3.9 cpu+sys seconds (1265 per
sec)
test.pl done
##################################################
##################################################
# Output from DBD "make"
##################################################
mkdir blib
mkdir blib/lib
mkdir blib/lib/DBD
mkdir blib/arch
mkdir blib/arch/auto
mkdir blib/arch/auto/DBD
mkdir blib/arch/auto/DBD/Oracle
mkdir blib/lib/auto
mkdir blib/lib/auto/DBD
mkdir blib/lib/auto/DBD/Oracle
mkdir blib/man1
mkdir blib/man3
cp oraperl.ph blib/lib/oraperl.ph
cp Oracle.pm blib/lib/DBD/Oracle.pm
cp Oraperl.pm blib/lib/Oraperl.pm
/usr/bin/perl -p -e "s/~DRIVER~/Oracle/g" <
/opt/perl5/lib/site_perl/5.6.0/PA-RISC1.1/auto/DBI/Driver.xst >
Oracle.xsi
/usr/bin/perl -I/opt/perl5/lib/5.6.0/PA-RISC1.1
-I/opt/perl5/lib/5.6.0 /opt/perl5/lib/5.6.0/ExtUtils/xsubpp -typemap
/opt/perl5/lib/5.6.0/ExtUtils/typemap Oracle.xs > Oracle.xsc && mv
Oracle.xsc Oracle.c
gcc -c -I/usr2/oracle8/rdbms/demo -I/usr2/oracle8/rdbms/public
-I/usr2/oracle8/plsql/public -I/usr2/oracle8/network/public
-I/usr2/oracle8/rdbms/demo -I/usr2/oracle8/rdbms/demo
-I/opt/perl5/lib/site_perl/5.6.0/PA-RISC1.1/auto/DBI -D_HPUX_SOURCE
-L/lib/pa1.1 -DUINT32_MAX_BROKEN -I/usr/local/include -O
-DVERSION=\"1.06\" -DXS_VERSION=\"1.06\" -fpic
-I/opt/perl5/lib/5.6.0/PA-RISC1.1/CORE -Wall -Wno-comment Oracle.c
Oracle.c: In function `XS_DBD__Oracle_constant':
Oracle.c:17: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__dr_discon_all_':
Oracle.c:47: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__db__login':
Oracle.c:64: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__db_commit':
Oracle.c:98: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__db_rollback':
Oracle.c:115: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__db_disconnect':
Oracle.c:132: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__db_STORE':
Oracle.c:165: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__db_FETCH':
Oracle.c:187: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__db_DESTROY':
Oracle.c:206: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__st__prepare':
Oracle.c:257: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__st_rows':
Oracle.c:286: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__st_bind_param':
Oracle.c:302: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__st_bind_param_inout':
Oracle.c:344: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__st_execute':
Oracle.c:392: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__st_fetchrow_arrayref':
Oracle.c:439: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__st_fetchrow_array':
Oracle.c:458: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__st_finish':
Oracle.c:486: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__st_blob_read':
Oracle.c:516: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__st_STORE':
Oracle.c:554: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__st_FETCH_attrib':
Oracle.c:576: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__st_DESTROY':
Oracle.c:598: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__st_ora_fetch':
Oracle.c:644: warning: unused variable `Perl___notused'
Oracle.c: In function `XS_DBD__Oracle__db_reauthenticate':
Oracle.c:696: warning: unused variable `Perl___notused'
Oracle.c: In function `boot_DBD__Oracle':
Oracle.c:716: warning: unused variable `Perl___notused'
gcc -c -I/usr2/oracle8/rdbms/demo -I/usr2/oracle8/rdbms/public
-I/usr2/oracle8/plsql/public -I/usr2/oracle8/network/public
-I/usr2/oracle8/rdbms/demo -I/usr2/oracle8/rdbms/demo
-I/opt/perl5/lib/site_perl/5.6.0/PA-RISC1.1/auto/DBI -D_HPUX_SOURCE
-L/lib/pa1.1 -DUINT32_MAX_BROKEN -I/usr/local/include -O
-DVERSION=\"1.06\" -DXS_VERSION=\"1.06\" -fpic
-I/opt/perl5/lib/5.6.0/PA-RISC1.1/CORE -Wall -Wno-comment dbdimp.c
dbdimp.c: In function `dbd_discon_all':
dbdimp.c:57: warning: unused variable `Perl___notused'
dbdimp.c: In function `ora_db_login6':
dbdimp.c:250: warning: unsigned int format, long unsigned int arg (arg
5)
dbdimp.c:183: warning: unused variable `Perl___notused'
dbdimp.c: In function `ora_db_disconnect':
dbdimp.c:377: warning: unused variable `Perl___notused'
dbdimp.c: In function `pp_exec_rset':
dbdimp.c:870: warning: unused variable `Perl___notused'
dbdimp.c:945: warning: unused variable `Perl___notused'
dbdimp.c: In function `ora_st_execute':
dbdimp.c:1236: warning: unused variable `Perl___notused'
dbdimp.c: In function `ora_st_finish':
dbdimp.c:1537: warning: unused variable `Perl___notused'
dbdimp.c: In function `ora_st_destroy':
dbdimp.c:1624: warning: unused variable `imp_dbh'
gcc -c -I/usr2/oracle8/rdbms/demo -I/usr2/oracle8/rdbms/public
-I/usr2/oracle8/plsql/public -I/usr2/oracle8/network/public
-I/usr2/oracle8/rdbms/demo -I/usr2/oracle8/rdbms/demo
-I/opt/perl5/lib/site_perl/5.6.0/PA-RISC1.1/auto/DBI -D_HPUX_SOURCE
-L/lib/pa1.1 -DUINT32_MAX_BROKEN -I/usr/local/include -O
-DVERSION=\"1.06\" -DXS_VERSION=\"1.06\" -fpic
-I/opt/perl5/lib/5.6.0/PA-RISC1.1/CORE -Wall -Wno-comment oci7.c
gcc -c -I/usr2/oracle8/rdbms/demo -I/usr2/oracle8/rdbms/public
-I/usr2/oracle8/plsql/public -I/usr2/oracle8/network/public
-I/usr2/oracle8/rdbms/demo -I/usr2/oracle8/rdbms/demo
-I/opt/perl5/lib/site_perl/5.6.0/PA-RISC1.1/auto/DBI -D_HPUX_SOURCE
-L/lib/pa1.1 -DUINT32_MAX_BROKEN -I/usr/local/include -O
-DVERSION=\"1.06\" -DXS_VERSION=\"1.06\" -fpic
-I/opt/perl5/lib/5.6.0/PA-RISC1.1/CORE -Wall -Wno-comment oci8.c
oci8.c: In function `dbd_rebind_ph_rset':
oci8.c:414: warning: implicit declaration of function
`pp_rebind_ph_rset_in'
oci8.c: In function `dbd_rebind_ph_lob':
oci8.c:435: warning: unsigned int format, ub4 arg (arg 5)
oci8.c: In function `ora_st_fetch':
oci8.c:885: warning: unused variable `Perl___notused'
oci8.c:892: warning: unused variable `Perl___notused'
Running Mkbootstrap for DBD::Oracle ()
chmod 644 Oracle.bs
LD_RUN_PATH="" ld -o blib/arch/auto/DBD/Oracle/Oracle.sl -b
-L/usr/local/lib Oracle.o dbdimp.o oci7.o oci8.o
-L/usr2/oracle8/lib/ -L/usr2/oracle8/rdbms/lib
/usr2/oracle8/lib/nautab.o /usr2/oracle8/lib/naeet.o
/usr2/oracle8/lib/naect.o /usr2/oracle8/lib/naedhs.o `cat
/usr2/oracle8/lib/naldflgs` -lnetv2 -lnttcp -lnetwork -lncr -lnetv2
-lnttcp -lnetwork -lclient -lvsn -lcommon -lgeneric -lminiserver
/usr2/oracle8/lib/libmm.a -lmm -lnlsrtl3 -lcore4 -lnlsrtl3 -lcore4
-lnlsrtl3 -lnetv2 -lnttcp -lnetwork -lncr -lnetv2 -lnttcp -lnetwork
-lclient -lvsn -lcommon -lgeneric -lminiserver
/usr2/oracle8/lib/libmm.a -lepc -lnlsrtl3 -lcore4 -lnlsrtl3 -lcore4
-lnlsrtl3 -lclient -lvsn -lcommon -lgeneric -lminiserver
/usr2/oracle8/lib/libmm.a -lnlsrtl3 -lcore4 -lnlsrtl3 -lcore4
-lnlsrtl3 `cat /usr2/oracle8/lib/sysliblist` -lm /usr/lib/libcma.sl
/usr/lib/libcma.sl
chmod 755 blib/arch/auto/DBD/Oracle/Oracle.sl
cp Oracle.bs blib/arch/auto/DBD/Oracle/Oracle.bs
chmod 644 blib/arch/auto/DBD/Oracle/Oracle.bs
/usr/bin/perl -Iblib/arch -Iblib/lib
-I/opt/perl5/lib/5.6.0/PA-RISC1.1 -I/opt/perl5/lib/5.6.0
ora_explain.PL ora_explain
Extracted ora_explain from ora_explain.PL with variable substitutions.
mkdir blib/script
cp ora_explain blib/script/ora_explain
/usr/bin/perl -I/opt/perl5/lib/5.6.0/PA-RISC1.1
-I/opt/perl5/lib/5.6.0 -MExtUtils::MakeMaker -e "MY->fixin(shift)"
blib/script/ora_explain
Manifying blib/man3/DBD::Oracle.3
Manifying blib/man1/ora_explain.1
Manifying blib/man3/DBD::Oraperl.3
##################################################
##################################################
# Output from DBD "make test"
##################################################
PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib
-I/opt/perl5/lib/5.6.0/PA-RISC1.1 -I/opt/perl5/lib/5.6.0 -e 'use
Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;'
t/*.t
t/base............../usr/lib/dld.sl: Unresolved symbol: sslpmexedesc
(data) from blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusdt (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuicx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudsc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugdcx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpulsc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudbcx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugml (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusvar (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuasav (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpucer (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpumcf (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudex (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugbncx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuexe (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugbccx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuach (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuic (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusnchr (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusdl (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
FAILED tests 4-5
Failed 2/5 tests, 60.00% okay
t/general.........../usr/lib/dld.sl: Unresolved symbol: sslpmexedesc
(data) from blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusdt (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuicx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudsc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugdcx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpulsc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudbcx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugml (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusvar (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuasav (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpucer (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpumcf (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudex (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugbncx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuexe (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugbccx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuach (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuic (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusnchr (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusdl (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
install_driver(Oracle) failed: Can't load
'blib/arch/auto/DBD/Oracle/Oracle.sl' for module DBD::Oracle: Not
enough space at /opt/perl5/lib/5.6.0/PA-RISC1.1/DynaLoader.pm line
200.
at (eval 1) line 3
Compilation failed in require at (eval 1) line 3.
Perhaps a required shared library or dll isn't installed where
expected
at t/general.t line 20
dubious
Test returned status 255 (wstat 65280, 0xff00)
t/long............../usr/lib/dld.sl: Unresolved symbol: sslpmexedesc
(data) from blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusdt (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuicx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudsc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugdcx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpulsc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudbcx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugml (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusvar (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuasav (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpucer (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpumcf (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudex (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugbncx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuexe (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugbccx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuach (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuic (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusnchr (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusdl (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
Can't load 'blib/arch/auto/DBD/Oracle/Oracle.sl' for module
DBD::Oracle: Not enough space at
/opt/perl5/lib/5.6.0/PA-RISC1.1/DynaLoader.pm line 200.
at t/long.t line 4
Compilation failed in require at t/long.t line 4.
BEGIN failed--compilation aborted at t/long.t line 4.
dubious
Test returned status 255 (wstat 65280, 0xff00)
t/plsql............./usr/lib/dld.sl: Unresolved symbol: sslpmexedesc
(data) from blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusdt (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuicx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudsc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugdcx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpulsc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudbcx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugml (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusvar (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuasav (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpucer (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpumcf (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpudex (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugbncx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuexe (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugbccx (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuach (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpuic (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusnchr (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpusdl (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
/usr/lib/dld.sl: Unresolved symbol: kpugc (code) from
blib/arch/auto/DBD/Oracle/Oracle.sl
Can't load 'blib/arch/auto/DBD/Oracle/Oracle.sl' for module
DBD::Oracle: Not enough space at
/opt/perl5/lib/5.6.0/PA-RISC1.1/DynaLoader.pm line 200.
at t/plsql.t line 17
Compilation failed in require at t/plsql.t line 17.
BEGIN failed--compilation aborted at t/plsql.t line 17.
dubious
Test returned status 255 (wstat 65280, 0xff00)
t/reauth............skipped test on this platform
Failed Test Status Wstat Total Fail Failed List of failed
-------------------------------------------------------------------------------
t/base.t 5 2 40.00% 4-5
t/general.t 255 65280 ?? ?? % ??
t/long.t 255 65280 ?? ?? % ??
t/plsql.t 255 65280 ?? ?? % ??
1 test skipped.
Failed 4/5 test scripts, 20.00% okay. 2/5 subtests failed, 60.00%
okay.
*** Error exit code 25
Stop.
##################################################
------------------------------
Date: Mon, 12 Feb 2001 15:24:15 -0800
From: Christa Hilda Hastie <chastie@taurus.oac.uci.edu>
Subject: DBM - how to create initially?
Message-Id: <Pine.GSO.4.30.0102121521250.19604-100000@taurus.oac.uci.edu>
Hello!
If anybody can help, please let me know..!
Thanks!
I have a DBM file that has several lines of data...I want each line of
data to represent the value, while the actual line
number will represent the key...I'll be using this database in another
program to split each line by delimiters,
but I can't seem to figure out how to generate the *.dir and *.pag files
correctly first.
Can anybody help?
i.e.
$database{'0'} = 'blah::blah::blah';
$database{'1'} = 'blah::blah::blah';
------------------------------
Date: Tue, 13 Feb 2001 00:29:01 GMT
From: =?iso-8859-1?Q?=D0=2DVolta?= <aks_music@hotmail.com>
Subject: Re: DBM - how to create initially?
Message-Id: <3A887FBF.65A138EA@hotmail.com>
Hi Christa:
I've created dbm files like:
$dbmanner_groups = "/home/sites/site2/curr/dbmanner_groups.pag";
unless (-e "$dbmanner_groups") {
dbmopen(%groups, $dbmanner_groups, 0666) or die "Couldn't create
$dbmanner_groups database: $!\n";
}
~ Ð-Volta
Christa Hilda Hastie wrote:
> I can't seem to figure out how to generate the *.dir and *.pag files
> correctly first.
>
> Can anybody help?
------------------------------
Date: Tue, 13 Feb 2001 00:11:15 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: directory structure
Message-Id: <DY_h6.69$zN2.188279808@news.frii.net>
In article <slrn98ghmn.jcj.ben-fuzzybear@Odin.Thor>,
Ben Okopnik <ben-fuzzybear@geocities.com> wrote:
>The ancient archives of 12 Feb 2001 17:28:19 GMT showed
>Abigail of comp.lang.perl.misc speaking thus:
>>Walter Hafner (hafner-usenet@ze.tu-muenchen.de) wrote on MMDCCXXII
>>September MCMXCIII in <URL:news:srj7l2vomn1.fsf@w3projns.ze.tu-muenchen.de>:
>>// Hello,
>>//
>>// I need to access a squid-like directory structure in round-robin.
>>// If I have directories "/aa/" to /zz/, can anyone give me a convenient
>>// way to access them? aa, ab, ... zz, aa, ab, ...
>>//
>>// I know how to do it with substrings etc. I just wanted a more elegant
>>// solution. :-)
>>
>>
>> my @foo = ('aa' .. 'zz');
>> my $i = 0;
>> while (1) {print "/$foo[($i+=1)%=@foo]/\n"}
>
>
>Yow. Elegant you wanted, elegant you got - and precisely per spec, too.
>Assignment, postincrement, modulo the return scalar from array, even that
>(1) as a nice placeholder for whatever loop condition you might want - all
>in one shot. OK, call me easily impressed, but that's _cool._ :)
>
>
Seems long winded to me...
perl -le 'print "/$_/" for (aa..zz)'
chris
--
This space intentionally left blank
------------------------------
Date: 13 Feb 2001 00:52:10 GMT
From: abigail@foad.org (Abigail)
Subject: Re: directory structure
Message-Id: <slrn98h19q.tas.abigail@tsathoggua.rlyeh.net>
Chris Fedde (cfedde@fedde.littleton.co.us) wrote on MMDCCXXIII September
MCMXCIII in <URL:news:DY_h6.69$zN2.188279808@news.frii.net>:
## In article <slrn98ghmn.jcj.ben-fuzzybear@Odin.Thor>,
## Ben Okopnik <ben-fuzzybear@geocities.com> wrote:
## >The ancient archives of 12 Feb 2001 17:28:19 GMT showed
## >Abigail of comp.lang.perl.misc speaking thus:
## >>Walter Hafner (hafner-usenet@ze.tu-muenchen.de) wrote on MMDCCXXII
## >>September MCMXCIII in <URL:news:srj7l2vomn1.fsf@w3projns.ze.tu-muenchen.de>
## >>// +----------+
## >>// Hello, | |
## >>// \|/ |
## >>// I need to access a squid-like directory structure in round-robin. |
## >>// If I have directories "/aa/" to /zz/, can anyone give me a convenient|
## >>// way to access them? aa, ab, ... zz, aa, ab, ... |
## >>// |
## >>// I know how to do it with substrings etc. I just wanted a more elegant|
## >>// solution. :-) |
## >> |
## >> |
## >> my @foo = ('aa' .. 'zz'); |
## >> my $i = 0; |
## >> while (1) {print "/$foo[($i+=1)%=@foo]/\n"} |
## > |
## > |
## >Yow. Elegant you wanted, elegant you got - and precisely per spec, too. |
## >Assignment, postincrement, modulo the return scalar from array, even that\
## >(1) as a nice placeholder for whatever loop condition you might want - all|
## >in one shot. OK, call me easily impressed, but that's _cool._ :) /
## > |
## > |
## |
## Seems long winded to me... |
## |
## perl -le 'print "/$_/" for (aa..zz)' |
|
|
That doesn't do much of the required ----------------------------------------+
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
------------------------------
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 V10 Issue 277
**************************************
