[13334] in Perl-Users-Digest
Perl-Users Digest, Issue: 744 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 8 20:07:18 1999
Date: Wed, 8 Sep 1999 17:05:14 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 8 Sep 1999 Volume: 9 Number: 744
Today's topics:
"Use of unitialized value" when it looks pretty initial (Christopher R. Barry)
Re: <== Getting the Database Column Names with DBD::ODB <jeff@vpservices.com>
@INC on NT/95 (Eisen Chao)
@INC on NT/95 (Eisen Chao)
Re: @INC on NT/95 (Kragen Sitaker)
Re: @INC paths (Bill Moseley)
bin2hex and back again <khowe@performance-net.com>
Re: bin2hex and back again (Kragen Sitaker)
Re: bin2hex and back again (Larry Rosler)
Re: converting a number into a binary? (Larry Rosler)
crypt - DES <kdilullo@ispchannel.com>
Re: crypt - DES (Kragen Sitaker)
Re: Frames using perl <phony@nospam.com>
Re: How to install modules? (Bill Moseley)
Is My computer busted? (Bill Moseley)
Re: Need help with some pattern matching... (Bill Moseley)
Re: Need help with some pattern matching... <Care227@ibm.net>
Re: Need help with some pattern matching... (Bill Moseley)
Re: Need help with some pattern matching... (Kragen Sitaker)
Re: Omnimark vs. Perl <theglauber@my-deja.com>
perl error codes on NT <mgold@ida.bway.net>
Perl Open-Source Project <clwolfe@indiana.edu>
Re: perl question (Abigail)
Re: Programmers Needed communigraph@my-deja.com
Re: shopping cart <makkulka@cisco.com>
Re: shopping cart <makarand_kulkarni@my-deja.com>
Re: suggestions for CRAP (Kragen Sitaker)
Re: suggestions for CRAP <uri@sysarch.com>
Re: Tries to download script when running (Bill Moseley)
Re: Unix Trouble (Eric Bohlman)
Re: variable globalisation (Kragen Sitaker)
Why, why, why, -w and use strict? <phony@nospam.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 08 Sep 1999 23:26:30 GMT
From: cbarry@2xtreme.net (Christopher R. Barry)
Subject: "Use of unitialized value" when it looks pretty initialized.
Message-Id: <87671l0yag.fsf@2xtreme.net>
I'm repeatedly get this error:
Use of uninitialized value at ./dbi.cgi line 22.
running the following script. I've cut off the script where the error
occurs.
--------------------
#!/usr/bin/perl -w
use DBI;
my $dsn = "DBI:mysql:test:localhost";
my $user = undef;
my $password = undef;
my $dbh = DBI->connect($dsn, $user, $password
{RaiseError => 1, AutoCommit => 0})
or die $DBI::errstr;
my $sql_statement = <<END_SQL_STATEMENT;
select * from pet
END_SQL_STATEMENT
my $sth = $dbh->prepare($sql_statement);
$sth->execute;
while (@row = $sth->fetchrow_array) {
print "@row\n"; #line 22
}
-------------------
How can the value on line 22 be uninitialized?
Christopher
------------------------------
Date: 8 Sep 1999 19:57:01 GMT
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: <== Getting the Database Column Names with DBD::ODBC ==>
Message-Id: <37D6BE90.3B4F591@vpservices.com>
Kevin Howe wrote:
>
> I am trying to get the column names of a datasheet in my database using
> DBD::ODBC.
Try:
my $sth = $dbh->prepare("SELECT * FROM $table");
$sth->execute();
my @colNames = @{ $sth->{NAME} };
--
Jeff
------------------------------
Date: Wed, 08 Sep 1999 22:25:39 GMT
From: echao@interaccess.com (Eisen Chao)
Subject: @INC on NT/95
Message-Id: <rtdoj3gn1iv88@corp.supernews.com>
Hi All,
I've been reading up on @INC to fix a
problem I have. I can't find the .PMs
that I'm using in a simple test script:
use Win32;
use Win32::NetResources;
That's all.
What's happening is that Perl is complaining
about:
C:\Perl\lib\5.005\MSWin32-x86-object/auto/win32/NetResource/...
Please note the shift of '\' in mid-stream, what could
account for this ? Being that this is Wintel, he wants
'\' for his paths.
Thanks in Advance,
Eisen
------------------------------
Date: Wed, 08 Sep 1999 22:26:41 GMT
From: echao@interaccess.com (Eisen Chao)
Subject: @INC on NT/95
Message-Id: <rtdol13f1iv72@corp.supernews.com>
Hi All,
I've been reading up on @INC to fix a
problem I have. I can't find the .PMs
that I'm using in a simple test script:
use Win32;
use Win32::NetResources;
That's all.
What's happening is that Perl is complaining
about:
C:\Perl\lib\5.005\MSWin32-x86-object/auto/win32/NetResource/...
Please note the shift of '\' in mid-stream, what could
account for this ? Being that this is Wintel, he wants
'\' for his paths.
Thanks in Advance,
Eisen
------------------------------
Date: Wed, 08 Sep 1999 23:40:10 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: @INC on NT/95
Message-Id: <utCB3.12124$r5.806355@typ11.nn.bcandid.com>
In article <rtdol13f1iv72@corp.supernews.com>,
Eisen Chao <echao@interaccess.com> wrote:
>What's happening is that Perl is complaining about:
>
> C:\Perl\lib\5.005\MSWin32-x86-object/auto/win32/NetResource/...
Please include the actual error message when you're asking for help
with an error message. What does perl think is wrong with this
pathname?
>Please note the shift of '\' in mid-stream, what could
>account for this ?
Everything before the \ is supplied by the user (in some form; the user
who compiled Perl, a user who put something into @INC, etc.) and
everything after comes out of the guts of Perl. (AutoSplitter.pm, I
think.)
> Being that this is Wintel, he wants '\' for his paths.
Who's 'he'? Win32 itself is perfectly happy with '/' or '\' in paths.
Kragen
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Wed Sep 08 1999
61 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Wed, 8 Sep 1999 13:55:29 -0700
From: moseley@best.com (Bill Moseley)
Subject: Re: @INC paths
Message-Id: <MPG.12406d195112985298971d@nntp1.ba.best.com>
Scott Prince (saprince@earthlink.net) seems to say...
> I have a script that dies with...
>
> "Can't locate /home/sitex/www/adm/lib/some-lib.pl in @INC (@INC
> contains: /usr/lib/perl5/ etc...) at /home/www/sitex/adm/script.pl"
>
> What determines the default paths and how can I insure that Perl will
> always follow the link to the files?
Hi Scott,
Please see the post titled '@INC' posted about two hours before your
post.
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Wed, 8 Sep 1999 18:59:57 -0300
From: "Kevin Howe" <khowe@performance-net.com>
Subject: bin2hex and back again
Message-Id: <s2BB3.127940$5r2.190165@tor-nn1.netcom.ca>
I would like to be able to store binary files such as .gif files in my
databases. I read that this could be done by converting the binary file to
hexidecimal to store it in the database, and then converting it back
(hexidecimal to binary) when the item is to be used.
I have found several scripts which convert from binary to hexidecimal
(binhex.pl, Data::HexDump) but these do not to the conversion back to
binary. On the perl site under http://www.perl.com/CPAN/scripts/index.html
there are 2 scripts bin2hex and hex2bin which appear to solve the problem,
but are meant to be used as command-line programs, and could not easily be
hacked into something useful. I'd like to make a module which would make
this simple, as follows:
$Convert = new BinHexConvert;
$Convert->bin2hex(@lines);
$Convert->hex2bin(@lines);
What exactly do you need to do to convert between the two?
Much thanks.
------------------------------
Date: Wed, 08 Sep 1999 23:35:19 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: bin2hex and back again
Message-Id: <XoCB3.12094$r5.804361@typ11.nn.bcandid.com>
In article <s2BB3.127940$5r2.190165@tor-nn1.netcom.ca>,
Kevin Howe <khowe@performance-net.com> wrote:
>I would like to be able to store binary files such as .gif files in my
>databases. I read that this could be done by converting the binary file to
>hexidecimal to store it in the database, and then converting it back
>(hexidecimal to binary) when the item is to be used.
Most relational databases have pathetically small upper limits for
sizes of character fields, and unbelievably poor handling of
variable-size objects. Consider using BLOBs instead, or even names of
files in the filesystem, if you can.
>I have found several scripts which convert from binary to hexidecimal
>. . . . I'd like to make a module which would make
>this simple, as follows:
>
>$Convert = new BinHexConvert;
>$Convert->bin2hex(@lines);
>$Convert->hex2bin(@lines);
>
>What exactly do you need to do to convert between the two?
To convert from binary to hex:
my $hex = unpack "H*", $binary;
To convert from hex to binary:
my $binary = pack "H*", $hex;
perlfunc -f pack and perlfunc -f unpack for more.
Kragen
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Wed Sep 08 1999
61 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Wed, 8 Sep 1999 16:29:34 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: bin2hex and back again
Message-Id: <MPG.1240913cade0402f989f33@nntp.hpl.hp.com>
In article <s2BB3.127940$5r2.190165@tor-nn1.netcom.ca> on Wed, 8 Sep
1999 18:59:57 -0300, Kevin Howe <khowe@performance-net.com> says...
> I would like to be able to store binary files such as .gif files in my
> databases. I read that this could be done by converting the binary file to
> hexidecimal to store it in the database, and then converting it back
> (hexidecimal to binary) when the item is to be used.
I am using MySQL and storing binaries directly in the databases. All it
takes is to use the $dbh->quote() function, which escapes '\'' and '\\'.
> I have found several scripts which convert from binary to hexidecimal
> (binhex.pl, Data::HexDump) but these do not to the conversion back to
> binary. On the perl site under http://www.perl.com/CPAN/scripts/index.html
> there are 2 scripts bin2hex and hex2bin which appear to solve the problem,
> but are meant to be used as command-line programs, and could not easily be
> hacked into something useful. I'd like to make a module which would make
> this simple, as follows:
>
> $Convert = new BinHexConvert;
> $Convert->bin2hex(@lines);
> $Convert->hex2bin(@lines);
>
> What exactly do you need to do to convert between the two?
pack() and unpack(). This hardly needs a module. :-)
It is easier not to think of these conversions as to or from 'binary',
which means to me a string of ones and zeros. Think of them as
conversions from character strings to hex representations of the
characters and vice versa. Then the appropriate formats will be clear.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 8 Sep 1999 14:28:49 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: converting a number into a binary?
Message-Id: <MPG.124074e8d1853f00989f31@nntp.hpl.hp.com>
In article <7r6aor$jtv$1@info2.uah.edu> on 8 Sep 1999 18:43:39 GMT, Greg
Bacon <gbacon@itsc.uah.edu> says...
> In article <MPG.124038af66a404fa989f30@nntp.hpl.hp.com>,
...
> : $binary_string = join('', unpack('B*', "\x29"));
> : ----
> :
> : Is this even correct? What function does the 'join' play in that
> : statement?
>
> Hrm. Good question.
>
> : I recall that Perl 5.6 will have 'b' conversions in sprintf, but I'm
> : still trying to figure out how best to solve this problem without them.
>
> Either of these (among others):
>
> $bits = join '', unpack 'B*', "\x08";
There's that unnecessary join, again. More generally, that could be
written as:
$bits = unpack 'B*', chr $n;
or, equivalently,
$bits = unpack 'B*', pack 'C', $n;
which work for $n < 256.
> $bits = join '', unpack 'B*', pack 'N*', 8,6,7, 5,3,0,9;
I'm not sure what you are trying to convey with that example. But I now
see that the general way to convert an arbitrary 32-bit integer to
binary is this:
$bits = unpack 'B*', pack 'N', $n;
Which leaves unsolved the other half of the problem: how to convert a
decimal fraction to an octal fraction. The example given was
0.125 -> 0.001
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 08 Sep 1999 14:19:17 -0700
From: Ken DiLullo <kdilullo@ispchannel.com>
Subject: crypt - DES
Message-Id: <37D6D2D5.55F04F8D@ispchannel.com>
I'd like to run a perl script on FreeBSD which will encrypt (using DES)
a password
which I can also use on a Solaris box.
The freebsd box is configured to use DES, when I add a user with "pw"
the password
it generates can be used on Solaris.
Thanks for any help,
Ken
------------------------------
Date: Wed, 08 Sep 1999 23:31:05 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: crypt - DES
Message-Id: <ZkCB3.12070$r5.801057@typ11.nn.bcandid.com>
In article <37D6D2D5.55F04F8D@ispchannel.com>,
Ken DiLullo <kdilullo@ispchannel.com> wrote:
>I'd like to run a perl script on FreeBSD which will encrypt (using DES)
>a password which I can also use on a Solaris box.
>The freebsd box is configured to use DES, when I add a user with "pw"
>the password it generates can be used on Solaris.
Start with perldoc -f crypt. Lemme know if you need further help.
Kragen
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Wed Sep 08 1999
61 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 8 Sep 1999 23:06:45 GMT
From: "Bart Simpson" <phony@nospam.com>
Subject: Re: Frames using perl
Message-Id: <7r6q65$kqk$0@216.39.133.108>
chandu <nallurichanduNOokSPAM@hotmail.com> wrote in message
news:05a4d7f6.d42d470e@usw-ex0102-013.remarq.com...
> Hello friends,
>
> I want to in corporate frames using perl.
> i have an index page in which i divided into two frames i
> want to give the src file as my perl files can i have like
> this if yes please give me the details.
>
Really easy. Just use the frames src="" tag. Something like this.
<FRAMESET COLS="100%" ROWS="50%,*">
<FRAME NAME="Left" SRC="filename.cgi">
<FRAME NAME="Right" SRC="filename2.cgi">
</FRAMESET>
------------------------------
Date: Wed, 8 Sep 1999 16:21:51 -0700
From: moseley@best.com (Bill Moseley)
Subject: Re: How to install modules?
Message-Id: <MPG.12408f6ca716e1ae989722@nntp1.ba.best.com>
Trond Michelsen (mike@crusaders.no) seems to say...
> perl -MCPAN -e 'install Time::HiRes'
>
> You must run this as root of course.
Don't scare people away!
Add this to .cpan/CPAN/MyConfig.pm
'makepl_arg' => q[PREFIX=/"path_to_local_perl_lib"],
Then you can 'use lib' and get to the locally stored modules.
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Wed, 8 Sep 1999 15:44:50 -0700
From: moseley@best.com (Bill Moseley)
Subject: Is My computer busted?
Message-Id: <MPG.124086ba739970e1989720@nntp1.ba.best.com>
Am I importing the wrong constants from Fcntl? I'm on Solaris.
#! perl -w
use strict;
use Fcntl ':flock';
open FH, ">test.out" or die "dead opening file $!";
eval { flock( FH, LOCK_EX) or die "$!\n" }
or print "LOCK_EX reported '$@'\n";
eval { flock( FH, LOCK_SH) or die "$!\n" }
or print "LOCK_SH reported '$@'\n";
print "Done.\n";
94) ~/public_html/lii %perl lock.pl
LOCK_SH reported 'Bad file number'
Done.
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Wed, 8 Sep 1999 14:10:57 -0700
From: moseley@best.com (Bill Moseley)
Subject: Re: Need help with some pattern matching...
Message-Id: <MPG.124070bb63f0f38398971e@nntp1.ba.best.com>
Drew Simonis - US Internet Support (Care227@ibm.net) seems to say...
> I have a very large file that looks like:
>
> AR,54,03-514-682-692,514682692,ADS,Argentina,Cordoba
> (INTERNET/SECURE/PPP/SLIP/V.34)
> Its a very large file (several hundred lines) and I need to do two
> things with it. I need to open it, of course, and then take the last
> field and remove everything after the city name, specifically the
> "(INTERNET/SECURE/PPP/SLIP/V.34)" information.
Oh, this is ugly:
perl -pe "s/^([^(]+).*$/$1/" source > output
"(INTERNET..." wrapped on your message -- I assume it follows the city
without a space in between.
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Wed, 08 Sep 1999 17:42:06 -0400
From: Drew Simonis <Care227@ibm.net>
Subject: Re: Need help with some pattern matching...
Message-Id: <37D6D82E.ADDC6B91@ibm.net>
Ack! This deleted the entire file.
Bill Moseley wrote:
>
> Drew Simonis - US Internet Support (Care227@ibm.net) seems to say...
> > I have a very large file that looks like:
> >
> > AR,54,03-514-682-692,514682692,ADS,Argentina,Cordoba
> > (INTERNET/SECURE/PPP/SLIP/V.34)
>
> > Its a very large file (several hundred lines) and I need to do two
> > things with it. I need to open it, of course, and then take the last
> > field and remove everything after the city name, specifically the
> > "(INTERNET/SECURE/PPP/SLIP/V.34)" information.
>
> Oh, this is ugly:
>
> perl -pe "s/^([^(]+).*$/$1/" source > output
>
> "(INTERNET..." wrapped on your message -- I assume it follows the city
> without a space in between.
>
> --
> Bill Moseley mailto:moseley@best.com
> pls note the one line sig, not counting this one.
------------------------------
Date: Wed, 8 Sep 1999 16:14:59 -0700
From: moseley@best.com (Bill Moseley)
Subject: Re: Need help with some pattern matching...
Message-Id: <MPG.12408dcfd3c63bce989721@nntp1.ba.best.com>
[This followup was posted to comp.lang.perl.misc and a copy was sent to
the cited author.]
Drew Simonis (Care227@ibm.net) seems to say...
> > perl -pe "s/^([^(]+).*$/$1/" source > output
> Ack! This deleted the entire file.
Email it to me and I'll retype it in.
Ack! Use single quotes with Unix.
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Wed, 08 Sep 1999 23:25:58 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Need help with some pattern matching...
Message-Id: <agCB3.12044$r5.804754@typ11.nn.bcandid.com>
In article <37D6B408.A7203098@ibm.net>,
Drew Simonis - US Internet Support <Care227@ibm.net> wrote:
>AR,54,03-514-682-692,514682692,ADS,Argentina,Cordoba
>(INTERNET/SECURE/PPP/SLIP/V.34)
>
>$1 = AR,
>$2 = 54,
> . . .
>$7 = Cordoba (INTERNET/SECURE/PPP/SLIP/V.34)
>
>Its a very large file (several hundred lines) and I need to do two
>things with it. I need to open it, of course, and then take the last
>field and remove everything after the city name, specifically the
>"(INTERNET/SECURE/PPP/SLIP/V.34)" information.
>
><Drum roll> My question for all of you:
>
>Would it be better to use Unpack or a regular expression to get the
>lines into variables?
split /,/ will return a list of the fields.
>And, once I get the variables defined,
>how would I apply another regex to the last field to strip off
>the unnessary information??
s/\(.*// would do the trick on the line you posted. Bill Moseley's
regex didn't work because he didn't \ the (. So would s/ .*//, and
s/\(.*?\)//, and several other possibilities. I'd be happy to explain
these to you if you'd like, char by char.
>I am at that frustrating point of learning where I know it can be done
>but am not sure how to do it.
I am familiar with that point ;)
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Wed Sep 08 1999
61 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Wed, 08 Sep 1999 22:04:29 GMT
From: The Glauber <theglauber@my-deja.com>
Subject: Re: Omnimark vs. Perl
Message-Id: <7r6mh5$60l$1@nnrp1.deja.com>
In article <37D6AFDF.AEFDA39C@REMOVETHIS.lucent.com>,
Burton Kent <burton@REMOVETHIS.lucent.com> wrote:
> I've been charged with learning a language called Omnimark,
> which basically has pattern matching and is geared for SGML.
>
> Has someone out there used it? Is it worth learning or
> will Perl do the trick and still KISS?
Perl will do the trick and still osculate posterior, but Omnimark might
save you time, since it has good support for the more common SGML tasks.
--
Glauber Ribeiro
theglauber@my-deja.com
"Opinions stated are my own and not representative of Experian"
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 8 Sep 1999 17:12:26 -0500
From: <mgold@ida.bway.net>
Subject: perl error codes on NT
Message-Id: <37d6df4a_2@news.newsfeeds.com>
Hi All
I am getting this error code:
I am running a perl script on IIS
%1 is not a valid Windows NT application.
Any help is appreciated.
Thanks.
Michael Gold
mgold@bway.net
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 08 Sep 1999 17:46:31 -0500
From: Clinton Wolfe <clwolfe@indiana.edu>
Subject: Perl Open-Source Project
Message-Id: <37D6E747.E8F205E8@indiana.edu>
Calling all intermediate-level perl hackers:
I'm toying with writing an interactive choreography suite in Perl with
the Tk module.
The idea is a more modern version of LED/LINTER/NUDES
(See http://linus.socs.uts.edu.au/~don/led/led.html)
The fun ideas to be tackled:
- write an extensible, scriptible GUI application
- be written on Linux and Solaris, with portability to win32 a goal
- make it modular, so that we could have the GUI and the "kernel" run
on seperate machines (without an X-server)
- play with data structures
- learn about distributed development and open-source management issues
on a project that no one will mind if it doesn't come to fruition
- meet some other perl people
- learn to port really bad C into a beautiful, elegant, efficient
language (perl, of course!)
- for the truly sick, do a parallel development in Java
There would be no money exchanged, but if you're a college student you
could potentially use it as a class project or something. Also, you
won't get rich doing this project, but you could gain experience and
polish.
I am myself at this level, and I'm looking for people of similar levels
(if you don't get the references, you probably shouldn't volunteer):
-know the camel and llama books
-know some of the black leopard book
-know some of the juvenile emu book
-have compiled perl a few times on linux, solaris, or win32
-have written several CGI scripts and want something more
-a desire to give back to the open-source community, but need to polish
skills on a fun project that could grow.
-an amatuer interest in ballet, dance, human movement, neural nets, or
3d worlds.
-knowledge of small-scale software development, and a desire to learn
from life about large-scale development
- a sense of humor and irony
I can contribute the following (but then again, most you probably could
as well):
-webspace
-a really crappy linux box
-an OK win98 box
-private ftp
-a kickass solaris box (for testing only).
-spare time (I'd like to see a crude, buggy version by, say, December,
and a fully-functional beta by March)
In the FAR future, we could:
- add natural language processing :)
- add a voice recog system to feed to above
- add modules for ballroom dance, modern, jazz, tap, etc.
- add a mp3 player (horrors!)
- add a "beat-finder" to above, to sync the dance with the music
- add costuming, body designing, and injury-prediction modules
- create self-aware laser-armed super robots to do the dances and take
over the world (!!!)
I'll check the newsgroup, and my email for the thousands of eager
volunteers I'm sure to get.
------------------------------
Date: 8 Sep 1999 17:22:01 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: perl question
Message-Id: <slrn7tdohh.nrl.abigail@alexandra.delanet.com>
Divyesh Mistry (divyesh@intac.com) wrote on MMCXCIX September MCMXCIII in
<URL:news:7r5t66$8h3@nile.intac.com>:
\\
\\ Can anyone supply me with a script that make database calls.
#!/opt/perl/bin/perl -w
use strict;
my $ISQL = "$ENV{SYBASE}/bin/isql";
-x $ISQL or die "Failed to find isql\n";
my $user = "someone";
my $password = "A big secret!!!";
open ISQL, "| $ISQL -U $user" or die "Failed to open pipe: $!";
print ISQL <<EOF;
$password
select getdate()
go
quit
EOF
close ISQL or die "Failed to close pipe: $!";
__END__
HTH. HAND.
Abigail
--
sub A::TIESCALAR{bless\my$x=>A};package B;@q=qw/Hacker Another
Perl Just/;use overload'""'=>sub{pop @q};sub A::FETCH{bless\my
$y=>B}; tie my $shoe => 'A';print "$shoe $shoe $shoe $shoe\n";
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Wed, 08 Sep 1999 22:50:27 GMT
From: communigraph@my-deja.com
Subject: Re: Programmers Needed
Message-Id: <7r6p7f$7tc$1@nnrp1.deja.com>
In article <D5tx3.3$fV4.686@vic.nntp.telstra.net>,
"Wyzelli" <wyzelli@yahoo.com> wrote:
> Abigail <abigail@delanet.com> wrote in message
> news:slrn7sb5n4.n0r.abigail@alexandra.delanet.com...
> > www@www.com (www@www.com) wrote on MMCLXXXVI September MCMXCIII in
> > ^^^^^^^
> > <URL:news:ifgx3.113$DO2.3631@news.corecomm.net>:
> > `` Looking for web designer and programmers in the Chicago area or
> Southwest
> > `` suburbs. If interested, please contact ybid@orbitel.com
> > ^^^^^^^^^^^
> >
> >
> > www.com is located in California, orbitel.com is located in
Illinios.
> > You claim to be interested in people in Chicago.
> >
> > Hmmm.
> >
> > Why should I believe you aren't trying to pull some scam?
> >
> >
> >
> > Abigail
>
> Can't believe you've never heard of telecommuting Abigail?
>
> Wyzelli
> TIC
>
This guy runs the web-site: www.ybid2000.com he also ran (and very
badly managed) www.atecsecure.com which went "under". I did all the
design and lost many thousands of dollars on those two deals - he will
expect people to work for nothing but keep them on the hope of future
rewards but when you ask for payment he will go and ask for other
designers and programmers.
Be very wary of him.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 08 Sep 1999 14:52:13 -0700
From: Makarand Kulkarni <makkulka@cisco.com>
Subject: Re: shopping cart
Message-Id: <37D6DA8D.1258D86B@cisco.com>
[ Don Stefani wrote:
> I am looking for a shopping cart written in PERL. I have seen many of them
> on CGI-Resource but I have not liked the look of them. I am using Miva
> Merchant for an account right now and I woudl really like to use one written
> in perl, not htmlscript.
Try PerlShop.
http://www.arpanet.com/PerlShop/download.html
--
------------------------------
Date: Wed, 08 Sep 1999 23:33:23 GMT
From: Makarand Kulkarni <makarand_kulkarni@my-deja.com>
Subject: Re: shopping cart
Message-Id: <7r6ro3$9s6$1@nnrp1.deja.com>
{In article <XKzB3.7326$Vi5.81202@news1.frmt1.sfba.home.com>,
"Don Stefani" <customk9@home.com> wrote:
> I am looking for a shopping cart written in PERL. I have seen many of
them
> on CGI-Resource but I have not liked the look of them. I am using Miva
> Merchant for an account right now and I woudl really like to use one
written
> in perl, not htmlscript.
}
Try MiniVend.
http://www.minivend.com/iri/download.html
There was an article in the Linux Journal about
MiniVend. You might find that useful.
--
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Wed, 08 Sep 1999 21:30:06 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: suggestions for CRAP
Message-Id: <yzAB3.11301$r5.787941@typ11.nn.bcandid.com>
In article <x7emhbbep5.fsf@home.sysarch.com>,
Uri Guttman <uri@sysarch.com> wrote:
>>>>>> "W" == Who <qwerty@post.utfors.se> writes:
> W> All perlmodules are removed(in 99 cases of 100) from webhotels.
> W> You are then forced to write code like that, or it'll fail.
>so who cares about crap web hosts?
Most web pages are on crap web hosts. Most people writing CGI scripts
are using crap web hosts. I don't know why this is. Marketing?
Bundling? Pricing? Serious people using PHP or mod_perl?
>if i killfiled, you would be first. 2 lines of comment in 130+ lines of
>quote.
Yeah, I was pretty impressed with that too.
I'd love to have a high-quality CGI-script archive available. This
would require some people committing some serious time to reviewing and
rejecting mediocre scripts like the ones Uri was ripping to shreds.
(What ever happened to "using subsets of Perl is officially OK"? Did
this principle depart Usenet with Larry? It seems this kindergarten
here is overrun with sadistic teachers who castigate the kids for using
"ain't" and "gots".)
--
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Wed Sep 08 1999
61 days until the Internet stock bubble bursts on Monday, 1999-11-08.
------------------------------
Date: 08 Sep 1999 17:47:00 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: suggestions for CRAP
Message-Id: <x7671lnkiy.fsf@home.sysarch.com>
>>>>> "KS" == Kragen Sitaker <kragen@dnaco.net> writes:
KS> In article <x7emhbbep5.fsf@home.sysarch.com>,
KS> Uri Guttman <uri@sysarch.com> wrote:
>> so who cares about crap web hosts?
KS> Most web pages are on crap web hosts. Most people writing CGI scripts
KS> are using crap web hosts. I don't know why this is. Marketing?
KS> Bundling? Pricing? Serious people using PHP or mod_perl?
cheap hosts. real web servers supply perl or allow you do install you
own version. my new vitrual host (hurricane electric) has a very old
perl (5.004_01!!) so i built and installed the latest into my home
dir. all my needed modules installed afterwards just fine. i also
deleted all the pods and man pages to keep my storage costs down (i have
all of them on my home machine).
KS> I'd love to have a high-quality CGI-script archive available. This
KS> would require some people committing some serious time to reviewing and
KS> rejecting mediocre scripts like the ones Uri was ripping to shreds.
i volunteered to review code but not write it. i haven't heard much
recently from pinyan nor anyone else about this. i think the conference
shrunk our dwindling supply of tuits. i am way behind on some projects.
KS> (What ever happened to "using subsets of Perl is officially OK"? Did
KS> this principle depart Usenet with Larry? It seems this kindergarten
KS> here is overrun with sadistic teachers who castigate the kids for using
KS> "ain't" and "gots".)
CGI.pm is no subset. it is distributed with the perl core. using proper
quoting, here docs, decent design, etc. are not subsets either. the code
itself is CRAP not just the lack of perl5 stuff and modern techniques. i
am not advocating that the UNCRAP scripts use every cutting edge module
but it shoudl expect to have CGI, libnet and libww installed as well as
some other popoular modules. if we want the voting survey program to
display graphs, i would expect GD to be used and installed (or some
other equivilent).
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: Wed, 8 Sep 1999 14:32:28 -0700
From: moseley@best.com (Bill Moseley)
Subject: Re: Tries to download script when running
Message-Id: <MPG.124075c643ced1b898971f@nntp1.ba.best.com>
missymanning@my-deja.com (missymanning@my-deja.com) seems to say...
> unshift(@INC, "/cgi-local/matrix1000");
Wow three exact same @INC questions in just a few hours!
'use' is happening before the 'unshift', so that won't work.
See the other posts with @INC in the subject.
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: 8 Sep 1999 23:40:51 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Unix Trouble
Message-Id: <7r6s63$44l@dfw-ixnews9.ix.netcom.com>
The Glauber (theglauber@my-deja.com) wrote:
: At the same time, it goes counter to that philosophy. When programming
: in the Unix shell, you are pretty much scripting, tying together the
: "little applications" that make up the Unix toolbox. In Perl, you move
: a lot of the functionality to your program, and you eliminate a lot of
: overhead, because you are not spawning all these little applications.
: That's one of the things that makes Perl fast. (Compare using find and
: rm to delete files older than X days, when you start rm once for each
: file you find. With Perl, you do everything in your program, without
: ever having to start rm.)
Not really a contradiction. In _Software Tools_, Kernighan and Plauger
suggested that one *start* by combining standard tools to accomplish
tasks, and then, *if and only if* certain combinations turn out to be very
commonly used, consider integrating those particular combinations into
tools of their own for performance reasons. Your example is a good case
of that kind of philosophy.
"Build *everything* up out of the smallest possible kernel of low-level
primitives" is very appealing to people with math backgrounds because it
corresponds to proving theorems using as few axioms as possible, but the
analogy breaks down because the reason for limiting your axioms in math is
that you want your conclusions to depend on as few "it's true because I
said so" assumptions as possible. The granularity of a programming
toolbox needs be based on considerations of flexibility, not of
mathematical rigor. Note also that "tool" doesn't have to imply "OS
process"; I'd argue that Perl's unlink() function is as much of a tool as
the rm command is, and that your example amounts to combining tools just
as much as a shell script would; the only difference is how many process
spaces are involved.
------------------------------
Date: Wed, 08 Sep 1999 21:59:43 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: variable globalisation
Message-Id: <j%AB3.11489$r5.790484@typ11.nn.bcandid.com>
In article <qg01zc9bfmu.fsf@chico.cstr.ed.ac.uk>,
Tae-Yeoub Jang <tyjang@chico.cstr.ed.ac.uk> wrote:
> package All;
> use Mod_a;
> use Mod_b;
> use Mod_c;
>
>But when I specify only "use All;" in a perl script, that script does
>not recognise global variables specified in each embedded module.
'use' imports into the current namespace. So you import stuff from
Mod_a into All::, but not into whatever is using All.
This is a feature.
I believe you can export imported things from All just as if you'd
defined them there, (e.g. with Exporter) but I haven't tried this.
Exporter might not be the best way to do this, though. If someone adds
something to Mod_a, you probably want All to export that
automatically. You could pull a dirty trick like leaving the 'package'
line out of All.pm.
Kragen
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Wed Sep 08 1999
61 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: 8 Sep 1999 23:36:50 GMT
From: "Bart Simpson" <phony@nospam.com>
Subject: Why, why, why, -w and use strict?
Message-Id: <7r6rui$pg0$0@216.39.133.108>
I learned perl mostly from a book "PERL and CGI for the WWW" by Elizabeth
Castro, and it only recomends using taint checking and only for some
scripts.
Why is it a big deal to be forced to predeclare any variables? If not
declaring them saves a line of code, doesn't that help?
The faq tells me -w turns on warnings to help with debugging.
Once your script was working, wouldn't removing them speed things up a bit?
Or why even use them unless the script isn't working to begin with.
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. Due to their sizes, neither the Meta-FAQ nor
the FAQ are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq" from
almanac@ruby.oce.orst.edu.
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 744
*************************************
