[7266] in Perl-Users-Digest
Perl-Users Digest, Issue: 891 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Aug 19 20:08:07 1997
Date: Tue, 19 Aug 97 17:00:29 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 19 Aug 1997 Volume: 8 Number: 891
Today's topics:
Re: 40 Satellite Channels for $19.99 Month ! Includes D <stophe@acadiacom.net>
Re: Can You Title Case A String ?. <sgordon@athena.lbl.gov>
Re: Chars into Array (Eric Bohlman)
Re: Chars into Array <bsugars@sunpub.com>
Re: Chars into Array (Plastic Nuclear Ferret)
Re: Chars into Array (Matthew White)
Re: Chars into Array (Tad McClellan)
Re: comparing for a range of number - easiest way to do (dave)
Field Length <ken1@earthlink.net>
Re: Field Length (Matthew Cravit)
HELP with script <murillo@infocostarica.com>
Re: HELP with script <burleigh@hackberry.chem.niu.edu>
Help! Need to view database by fields <buckner@halcyon.com>
HELP: Running Perl-CGI scripts in UNIX <james@abgroup.demon.co.uk>
How to Wrap long lines?? (Novice) <sjpatel@spd.dsccc.com>
Re: How to Wrap long lines?? (Novice) (Daniel E. Macks)
naming arrays (MAHANTA girish)
naming arrays (MAHANTA girish)
Re: Number conversion help (Tad McClellan)
Re: Perl books suggestions <jay@rgrs.com>
perl compiler / Socket.pm ? <dan@clockwork.net>
Re: Perl daemon program dies while sleeping (dave)
Q: Assignment by symbolic reference??? (David Bauman)
readig a file into an array <temp.ed.vanderbush@bentley.com>
Results OK in Access - NOT via Win32::ODBC? <tsw@pvo.com>
Round Function (Gary Chambers)
Universal Descrambler!!! <John23@worldnet.att.net>
Re: Universal Descrambler!!! (Daniel E. Macks)
Re: using TCL or DBMs in Perl <rfinn@houston-interweb.com>
Re: Win95 + Perl back-quotes or fx(<system command>) as <gordon.leslie.mcdorman@sap-ag.de>
Re: Win95 + Perl back-quotes or fx(<system command>) as (Scott McMahan)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 19 Aug 1997 17:47:07 -0500
From: "Christophe \"Stophe\" Landis" <stophe@acadiacom.net>
Subject: Re: 40 Satellite Channels for $19.99 Month ! Includes Disney!
Message-Id: <33FA226A.CF777BBA@acadiacom.net>
vutil@gwe.nws.net wrote:
> Available for a limited time ONLY, you can purchase a complete 18"
> digital
> Dish Network satellite system for just $199.00.
>
> Once installed you can then purchase programming for as little as
> 19.99 per
> month for 40 Channels including Disney! See our Web Page for more
> channel
> details.
>
> ALSO INCLUDED IN THIS SALE!
> ---------------------------
>
> For a Limited time ONLY, receieve a FREE Installation Kit worth
> $50.00!
>
> For a Limited time ONLY, receieve FREE SHIPPING to anywhere in the
> U.S.
>
> That's it! $199.00, Free Shipping, Free installation.... WHAT ARE YOU
> WAITING
> FOR?
>
> To Order:
> ---------
> Call: 800-947-7806
>
> For more information:
> ---------------------
> * Or check our Web Page out at < http://www.clover.net/gwells >
> * Reply to this Email
> * Call: 614-266-7504
WOW!!! all that with PERL? I sure hope they have the code available on
their web page.
Since it is not.....and this is hardly related to *comp.lang.perl.misc*
Please don't post that here!
------------------------------
Date: Tue, 19 Aug 1997 14:42:58 -0700
From: Shawn Gordon <sgordon@athena.lbl.gov>
Subject: Re: Can You Title Case A String ?.
Message-Id: <33FA1362.195F@athena.lbl.gov>
Andy Marr wrote:
>
> Just a quick one.
>
> I have a string "THIS IS A STRING" and I want to
> format it to "This Is A String". (Cap at the start of each word).
>
> Is there a command in Perl to do this ? , or do I have to split the
> string again and change to lower case and upper case the first letter ?
How about:
#!/usr/bin/perl
$string = "THIS IS A TEST";
$string =~ s/\b(\w+)\b/"\L\u$1"/eg;
print $string,"\n";
The /e switch evaluates everything in the replacement string as
a perl expression.
Shawn
------------------------------
Date: Tue, 19 Aug 1997 18:59:25 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Chars into Array
Message-Id: <ebohlmanEF6Cr1.38A@netcom.com>
John Grimm (ken1@earthlink.net) wrote:
: How can I get a variable (say $x) into an array (say @p)?
: I want to get a number like -1.942 so it's like @p = (-,1,.,9,4,2)
@p=split //,sprintf("%6.3f",$x);
------------------------------
Date: Tue, 19 Aug 1997 14:37:03 -0400
From: Benjamin Sugars <bsugars@sunpub.com>
Subject: Re: Chars into Array
Message-Id: <33F9E7CF.598E@sunpub.com>
John Grimm wrote:
>
> How can I get a variable (say $x) into an array (say @p)?
>
> I want to get a number like -1.942 so it's like @p = (-,1,.,9,4,2)
One way:
$x = -1.942;
@p = split(//, $x);
See the split entry in the perlfunc manpage.
-Ben
--
Ben Sugars <bsugars@canoe.ca>
Senior Webmaster,
CANOE Canadian Online Explorer,
http://www.canoe.ca/
------------------------------
Date: 19 Aug 1997 19:13:14 GMT
From: donut@bayarea.net (Plastic Nuclear Ferret)
Subject: Re: Chars into Array
Message-Id: <5tcr8a$mhd$1@news.bayarea.net>
John Grimm (ken1@earthlink.net) wrote:
: How can I get a variable (say $x) into an array (say @p)?
: I want to get a number like -1.942 so it's like @p = (-,1,.,9,4,2)
use split.....
later-
shane
--
###############################################################################
# Shane Knapp # donut@bayarea.net # skknapp@nas.nasa.gov #
# "I'd like to be Superman, but you're standing on my cape...." #
# http://www.bayarea.net/~donut #
###############################################################################
------------------------------
Date: Tue, 19 Aug 1997 20:47:16 GMT
From: mtw@user1.channel1.com (Matthew White)
Subject: Re: Chars into Array
Message-Id: <33fb0498.926875806@news>
This message has been emailed and posted.
John-
Try something like:
$x = '-1.942';
@p = split(//, $x);
(There is no space between the slashes.)
The R.E. // tells perl to split on the letter boundary.
-Matthew
On Tue, 19 Aug 1997 10:05:10 -0700, John Grimm <ken1@earthlink.net>
wrote:
>How can I get a variable (say $x) into an array (say @p)?
>
>I want to get a number like -1.942 so it's like @p = (-,1,.,9,4,2)
------------------------------
Date: Tue, 19 Aug 1997 15:39:40 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Chars into Array
Message-Id: <ca0dt5.bf9.ln@localhost>
John Grimm (ken1@earthlink.net) wrote:
: How can I get a variable (say $x) into an array (say @p)?
: I want to get a number like -1.942 so it's like @p = (-,1,.,9,4,2)
@p = split //, $x;
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 19 Aug 1997 22:17:09 GMT
From: over@the.net (dave)
Subject: Re: comparing for a range of number - easiest way to do it?
Message-Id: <33fa197e.970085@news.one.net>
Ronald Fischer <rovf@earthling.net> wrote:
>Hi
>not a very important question, but I am curious ....
>
>does someone know an easier way to write
> die "foo" if ($x <= $a or $x >= $b);
>provided that
> $a <= $b
Assuming you are testing input $x against limits $a and $b, I suggest:
die "foo" unless
( $x =~ /^(\d+)$/ and $1 > $a and $1 < $b );
This requires $x to be an integer between but not including $a and $b.
Dave
|
| Please visit me at http://w3.one.net/~dlripber
|
| For reply by email, use:
| dlripber@one.net
|________
------------------------------
Date: Tue, 19 Aug 1997 12:26:14 -0700
From: John Grimm <ken1@earthlink.net>
Subject: Field Length
Message-Id: <33F9F356.4AB4@earthlink.net>
How do I determine the length of a variable?
------------------------------
Date: 19 Aug 1997 13:24:47 -0700
From: mcravit@best.com (Matthew Cravit)
Subject: Re: Field Length
Message-Id: <5tcvef$3ej$1@shell3.ba.best.com>
In article <33F9F356.4AB4@earthlink.net>,
John Grimm <ken1@earthlink.net> wrote:
>How do I determine the length of a variable?
$length = length($field);
/MC
--
Matthew Cravit, N9VWG | Experience is what allows you to
E-mail: mcravit@best.com (home) | recognize a mistake the second
mcravit@taos.com (work) | time you make it.
------------------------------
Date: Tue, 19 Aug 1997 14:28:10 -0700
From: "Lic. Juan Carlos Murillo" <murillo@infocostarica.com>
Subject: HELP with script
Message-Id: <33FA0FEA.202@infocostarica.com>
Hi everybody,
could someone tell me how to make my script so each time it writes to
the log file it appends the new data to the old log file instead of
making a new one every time. The part of my script that does the writing
looks like this:
# Open the log file and write the data
open(FILE, ">$logfile") || die "I can't open $logfile\n";
print FILE "Someone filled the legal info form\n";
print FILE "with the following information:\n";
print FILE "Name: $in{'Name-'}\n";
print FILE "Company: $in{'Company-'}\n";
print FILE "E-mail: $in{'E-mail-'}\n";
print FILE "Subject: $in{'Subject-'}\n";
print FILE "Comments: $in{'Comments-'}\n";
print FILE "Treatment: $in{'overview'} - $in{'general'} -
$in{'indepth'}\n";
print FILE "\n";
close(FILE);
Thanks
--
Regards,
Lic. Juan Carlos Murillo
International Legal Consultants
-------------------------------------------------------------------------
http://www.infocostarica.com/legal.htm
mailto:ILC@infocostarica.com
------------------------------
Date: Tue, 19 Aug 1997 16:05:59 -0500
From: Darin Burleigh <burleigh@hackberry.chem.niu.edu>
Subject: Re: HELP with script
Message-Id: <33FA0AB7.3BB8@hackberry.chem.niu.edu>
Lic. Juan Carlos Murillo wrote:
>
> Hi everybody,
>
> could someone tell me how to make my script so each time it writes to
> the log file it appends the new data to the old log file instead of
> making a new one every time. The part of my script that does the writing
> looks like this:
>
> # Open the log file and write the data
> open(FILE, ">$logfile") || die "I can't open $logfile\n";
>>
look up the open command under 'man perlfunc'
> print FILE "Someone filled the legal info form\n";
> print FILE "with the following information:\n";
> print FILE "Name: $in{'Name-'}\n";
> print FILE "Company: $in{'Company-'}\n";
> print FILE "E-mail: $in{'E-mail-'}\n";
> print FILE "Subject: $in{'Subject-'}\n";
> print FILE "Comments: $in{'Comments-'}\n";
> print FILE "Treatment: $in{'overview'} - $in{'general'} -
> $in{'indepth'}\n";
> print FILE "\n";
> close(FILE);
>
> Thanks
> --
>
> Regards,
>
> Lic. Juan Carlos Murillo
> International Legal Consultants
>
>
> -------------------------------------------------------------------------
> http://www.infocostarica.com/legal.htm
>
> mailto:ILC@infocostarica.com
--
==========================================================
- darin
burleigh@hackberry.chem.niu.edu
\\//\\//.\\//\\//.\\//\\//. http://hackberry.chem.niu.edu/HOME/dcb/
'2 kinds of green, look out!' - dieter rot
------------------------------
Date: Tue, 19 Aug 1997 10:35:08 -0700
From: Bruce Buckner <buckner@halcyon.com>
Subject: Help! Need to view database by fields
Message-Id: <33F9D94A.15C1@halcyon.com>
Help!!!
I'm trying to find a script (or applet) that will allow the user to view
a flat database (excel .txt file) by fields in a browser, i.e., Display
by name, or company name, or city, etc.
I've found scores of search enginges and db administrators but I can't
find anything this basic. Please Help.
Reply by email to;
Bruce Buckner
buckner@halcyon.com
www.halcyon.com/buckner/
------------------------------
Date: Wed, 20 Aug 1997 00:04:51 +0100
From: James East <james@abgroup.demon.co.uk>
Subject: HELP: Running Perl-CGI scripts in UNIX
Message-Id: <BJnfDJATai+zEwl+@abgroup.demon.co.uk>
I am using Red Hat Linux 4.1, with X Windows and the web browser that
comes with it (Not Lynx, but I forget the name). I have made a Perl CGI
script, and a form which submits to it using the GET method. When I try
to test it, I get the script code when I click the submit button. I have
set the code .cgi file to execute permission for all. I have
#!/usr/bin/perl
in the first line of the file (yes, it is the right path), and
print "Content-Type: text/html\n\n"
on the next line, yet it still will not run. What can I do?
I THINK it is using the web server (Apache 1.x, but not the most recent
version), because it is accessing http://abgroup/cgi-bin/test.cgi
HHHHHEEEEELLLLLPPPPP!!!!!
--
James East
------------------------------
Date: Tue, 19 Aug 1997 13:42:07 -0500
From: Satyajit Patel <sjpatel@spd.dsccc.com>
Subject: How to Wrap long lines?? (Novice)
Message-Id: <33F9E8FF.6860@spd.dsccc.com>
Hi all,
I have been working with perl for a bit now. But I have not figured out
how to
wrap a very long line when printing it to screen.
I saw someone had written code to do that but I can't remember where I
saw it. Can someone please help with this?
--Thanks, Jay.
p.s.
example:
my $string = " This is a very very long string that should be wrapped
when printed to screen. But I can't seem to be able to do so.... please
help!!\n";
print $string;
--
._______________________________________________________________________.
|\_______________________________________________________________________\
| | Satyajit Patel Phone:
972.477.9684 |
| | DSC Communications Corporation E-mail:
sjpatel@spd.dsccc.com|
| | 1000 Coit Road Plano, Texas 75075 MS:
SOFD1 |
|\|_______________________________________________________________________|
| | ** The opinions expressed are not those of DSC Communications, Inc
* |
\|_______________________________________________________________________|
------------------------------
Date: 19 Aug 1997 19:48:32 GMT
From: dmacks@sas.upenn.edu (Daniel E. Macks)
Subject: Re: How to Wrap long lines?? (Novice)
Message-Id: <5tctag$ove$1@netnews.upenn.edu>
Satyajit Patel (sjpatel@spd.dsccc.com) said:
: Hi all,
: I have been working with perl for a bit now. But I have not figured out
: how to
: wrap a very long line when printing it to screen.
: I saw someone had written code to do that but I can't remember where I
: saw it. Can someone please help with this?
DejaNews, AltaVista and WebCrawler all have very long memories, and
would be perfectly suited for your situation. Or you might say "I must
not be the first person who's had this problem...I bet it's in the FAQ
and/or someone's written a module to do it" and then head on over to
http://www.perl.com/CPAN/ and scan the docs and module list for some
relevant keywords.
dan
--
Daniel Macks
dmacks@a.chem.upenn.edu
dmacks@netspace.org
http://www.netspace.org/~dmacks
------------------------------
Date: Tue, 19 Aug 1997 16:24:54 EDT
From: mahanta@cs.concordia.ca (MAHANTA girish)
Subject: naming arrays
Message-Id: <1997Aug19.162454@orchid>
Hello!
Can I know how to go about this:
I have a large number of arrays named: @bw00, @bw01, .... @bw050
Inside the program I want to reference the arrays dynamically, with help of
the numbers following the @bw string. Say @bw$n where $n has the subscript
of the array I want to reference, without having to wrtie @bw00 explicitely.
Is there any way I can do this? I appreciate any help.
Regards,
Girish.
------------------------------
Date: Tue, 19 Aug 1997 16:28:02 EDT
From: mahanta@cs.concordia.ca (MAHANTA girish)
Subject: naming arrays
Message-Id: <1997Aug19.162802@orchid>
Hello!
Can I know how to go about this:
I have a large number of arrays named: @bw00, @bw01, .... @bw050
Inside the program I want to reference the arrays dynamically, with help of
the numbers following the @bw string. Say @bw$n where $n has the subscript
of the array I want to reference, without having to wrtie @bw00 explicitely.
Is there any way I can do this? I appreciate any help.
Regards,
Girish.
------------------------------
Date: Tue, 19 Aug 1997 15:38:50 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Number conversion help
Message-Id: <q80dt5.bf9.ln@localhost>
John Grimm (ken1@earthlink.net) wrote:
: I need to translate a number like -1.7 to -017000 or something like 9.3
: to +093000
: Any suggestions?
--------------------
#!/usr/bin/perl -w
$nums[0] = -1.7;
$nums[1] = 9.3;
foreach (@nums) {
$num = sprintf "%+08.4f", $_;
$num =~ tr/.//d;
print "$num\n";
}
--------------------
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: 19 Aug 1997 12:55:50 -0400
From: Jay Rogers <jay@rgrs.com>
To: Aitor <webmaster@dmedia.net>
Subject: Re: Perl books suggestions
Message-Id: <82d8naru21.fsf@shell2.shore.net>
Aitor <webmaster@dmedia.net> writes:
> I'm learning Perl and I want to get some Perl books,
> (I've got good programming background)
>
> any suggestion apart "Programming Perl ".
>
> Wanted Perl to use on the WWW.
"Learning Perl" is also an excellent book. I was looking through the
2nd edition in the local book store and noticed that a chapter on CGI
programming has been added.
--
Jay Rogers
jay@rgrs.com
------------------------------
Date: Tue, 19 Aug 1997 14:28:42 -0500
From: "Dan Brian" <dan@clockwork.net>
Subject: perl compiler / Socket.pm ?
Message-Id: <5tcrqm$95t@hurricane.jriver.com>
When I use the perl compiler (alpha-3) with perl 5.004_01, a script that
uses the Socket.pm package, I get "No definition for sub Socket" errors. Any
hints why?
Thanks
Dan Brian
dan@clockwork.net
------------------------------
Date: Tue, 19 Aug 1997 22:03:47 GMT
From: over@the.net (dave)
Subject: Re: Perl daemon program dies while sleeping
Message-Id: <33fa17c4.528048@news.one.net>
Marcus Engene <marcus@student.adb.gu.se> wrote:
>Hi. I've got this obscure problem I can't quite understand.
>Now, everything works fine, except for the fact that the daemon just
>dies
If the daemon is writing on a pipe that can go away, make sure the
daemon is ignoring SIGPIPE. I think default action is to terminate
the process.
Dave
|
| Please visit me at http://w3.one.net/~dlripber
|
| For reply by email, use:
| dlripber@one.net
|________
------------------------------
Date: Tue, 19 Aug 1997 21:26:48 GMT
From: davey@harvard.edu (David Bauman)
Subject: Q: Assignment by symbolic reference???
Message-Id: <33fa0576.587287685@bigheera>
Hi,
Just to get this out of the way, if I want to read more
about your answer, I'll check the perlref man page... ;p
I'm trying to figure out how to assign values to scalars
who's names are contained in another scalar. I am
clearly missing the boat on how PERL does ref/deref,
but I've tried so many variations that my eyes are
crossing and I'm beginning to get nostalgic about
6502 assembler... <sigh>
$furry = '$dog, $cat, $bunny, $werewolf';
What I want to be able to do is to then assign values
(with a split() or somesuch) to $dog, $cat, etc.
(Assuming that $food contains "steak:mice:carrots:people",
I want to wind up with $dog eq "steak", $cat eq "mice", etc.)
($$furry) = split(":", $food) # this aint right...
( @$$furry ) = split(":", $food);
# this gets the values into single scalar...
Argh. If anyone could provide an example of how to
do this, assigning to either a bunch of scalars or to an
array, I would be eternally grateful, and would buy you
a beer or a doughnut when in Harvard Square.
Thanks.
[ d*b ]
David Bauman
davey@harvard.edu
------------------------------
Date: Tue, 19 Aug 1997 15:36:59 -0400
From: Ed Vander Bush <temp.ed.vanderbush@bentley.com>
Subject: readig a file into an array
Message-Id: <33F9F5DA.2CA0@bentley.com>
Can I
open a file
@my_array = filehandle
close file
Id there anything wrong with this?
------------------------------
Date: Tue, 19 Aug 1997 18:01:55 -0600
From: Thomas Winzig <tsw@pvo.com>
Subject: Results OK in Access - NOT via Win32::ODBC?
Message-Id: <872031088.7590@dejanews.com>
Hello,
I've been using a system DSN (Access 97 database) with the
Win32::ODBC perl module for quite a while now, both are working
well. Running Perl build 306 from activeware, and Win32::ODBC version
970208.
My problem seems almost too simple, but is one I've never encountered.
If I make a certain SQL call with my perl script, it *usually* locates
the
record it is searching for (a maximum of one record is possible, since
all of the msg_id's are unique). However, everyone once in a while, it
will NOT find the record it's looking for -- even though that record's
msg_id DOES exist!
I have a bit of perl code:
# snipped code here
$db->Sql("SELECT from_name, from_address, subject, msgdate, message \
FROM $topic WHERE msg_id = $msg_id");
if ($db->FetchRow) {
print "Found a record: $msg_id\n";
} else {
print "No records found: $msg_id\n";
}
# etc...
Now, while testing this, I was able to reproduce the error and
it gave me: No records found: 3527
So I entered the same SQL SELECT call, with 3257 as the msg_id, in the
SQL query box in Access 97. Ran the query, and IT WORKED! It pulled up
the correct record, just as it should have. But trying to run that
same
query via Win32::ODBC did NOT work.
While trying to debug this problem, I tried using the $db->Run call
instead of $db->Sql. The message it printed out was:
Excecuting connection 490 sql statement: "SELECT from_name,
from_address,
subject, msgdate, message FROM asian WHERE msg_id = 3257" Error: "".
So,
next I trapped the $db->Error, and it gave: [911] [1296] [0] "No data
records remain."
This doesn't make any sense to me, so I'm wondering if there is a
known
problem in the Win32::ODBC module, or perhaps Jet engine when working
with
ODBC or Win32::ODBC? If anyone has any ideas or would like more
information, please let me know.
P.S.
Please CC me if possible, I'm having many problems with my current
newsreader (which is why I'm using DejaNews to post ...)
Thanks,
thomas
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 19 Aug 97 20:14:19 GMT
From: geecee@netquarters.net (Gary Chambers)
Subject: Round Function
Message-Id: <slrn5vjvmq.n7q.geecee@burbot.netquarters.net>
Thanks to those that assisted with the floor/ceil question I had.
I now have the Round function that I need to better balance an
amortization table in a CGI application I've written. Could I get some
constructive criticism on what I've done? Here it is:
use POSIX qw/floor ceil/;
.
.
.
# Credit Fred Feuerbacher for the C-version of this function. He has
# released it to the public domain. All I did was Perl-ize it.
sub Round #(long value, int precision)
{
local($pr = $_[1]);
while ($pr > 0)
{
$_[0] *= 10;
$pr--;
}
$temp = ($_[0] >= 0.0 ? floor($_[0] + 0.5) : ceil($_[0] - 0.5));
$_[0] = $temp / (10 ** $_[1]);
$_[0];
}
It works as planned, but I'm not sure if I'm asking for trouble
returning a modified parameter. I can, of course, create a temporary
variable and return it, but it seemed the way I did it was easier. I'm
lazy, you see...
As expected, it visibly reduces the speed at which the application
runs, but I think I'll sacrifice a bit of speed for accuracy. Any
comments?
--
Gary
//------------------------------------------
// NetQuarters, Inc., Brunswick, ME 04011
// 207-798-8400 (Voice) 207-798-8403 (Fax)
// Midcoast Maine's Total Internet Solution
//------------------------------------------
------------------------------
Date: Tue, 19 Aug 1997 16:29:44 -0500
From: John Hancock <John23@worldnet.att.net>
Subject: Universal Descrambler!!!
Message-Id: <33FA1048.41BB10A6@worldnet.att.net>
I myself a former cable tv repair man is sick of high monthly payments
and how cable tv employees are treated. I hope to get back at the cable
companies as much as possible by selling a universal descrambler box!
That's right this box works on every cable tv system world wide.
It is rather simple to make, but just in case you would not be able to
figure it out by my plans , I made it for you. That's right its
universal and already put together. Just connect it as your cable box is
connected now.
Since I am getting back at the cable companies I charge just for the
things I need to put the box together. So that comes to only $10. But I
also need $5 for shipping and handling. If I get enough requests for
them, I will start a web page with all kinds of techniques that will
help people else where get free cable tv! Hopefully then workers will
get treated better and bills will go down. So join the fight and get
Free cable while your at it.
Send $15 To:
Brian Weber
7950 S. Wayland Dr.
Oak Creek, WI 53154
ps. Try to send money orders. I have had experiences with bad checks.
You will receive your Cable Descrambler box within 4 to 6 days of me
getting the money. If it does not work send it back and I will give you
a full refund.
Questions e-mail me at CableFree@worldnet.att.net
------------------------------
Date: 19 Aug 1997 21:51:18 GMT
From: dmacks@sas.upenn.edu (Daniel E. Macks)
Subject: Re: Universal Descrambler!!!
Message-Id: <5td4gm$pbj$1@netnews.upenn.edu>
Perhaps you oughta move this into the "changing perl to gibberish"
thread? On second thought, perhaps you should just FOAD.
[scam-spam bobbitted]
--
Daniel Macks
dmacks@a.chem.upenn.edu
dmacks@netspace.org
http://www.netspace.org/~dmacks
------------------------------
Date: Tue, 19 Aug 1997 15:08:30 -0500
From: "Richard J. Finn" <rfinn@houston-interweb.com>
To: Kevin Penrose <kpenrose@ml.com>
Subject: Re: using TCL or DBMs in Perl
Message-Id: <33F9FD3E.EB332F2B@houston-interweb.com>
Kevin Penrose wrote:
>
> Richard,
>
> Why don't you just use Tcl to write your cgi scripts. Don Libes has
> an excellent cgi library for tcl. I don't have the location of it
> handy right now, but if you search for cgi.tcl, you should be able to
> find it quite painlessly.
>
> -- Kevin
Trust me I would love to! Karl
Lehenbauer (one of the coauthors of TCL
- he wrote things like arrays and upvar)
is just down the hall from me... he used
to be my boss. I was practailly raised
on TCL.
In this particular application I'm
using NeoWebScript, a module for Apache
webservers that lets you embed TCL code
in a web page
(http://www.neosoft.com/neowebscript)
and a CyberCash credit card verification
server. The CyberCash stuff came with
Perl scripts that use the server.
There's a few places n the Perl scripts
where one can add in code to retrieve
info from outsides sources and put store
info... both of which I need to do.
I don't understand the Perl scripts
enough to know how they do some of the
magic of talking to the server. They
appear to use some sort of socket
interfacae but all my attempts to
recreate thar activity in TCL have
failed. I resovled to figure how to
modify the Perl scripts to do my bidding
and that's where I'm stuck.
I've been successful in loading my DB
file created in TCL (using DB_File), but
the values are all messed up.
If I could only figure out how to use
the TCL module, or some way of loading
the db file like TCL loads it, or how to
do SetServer and sendmserver in TCL - I
would be fine. :)
--
Richard J. Finn
rfinn@houston-interweb.com
CTO - Houston InterWeb Design, Inc.
http://www.houston-interweb.com/
------------------------------
Date: Tue, 19 Aug 1997 21:58:53 GMT
From: Gordon McDorman <gordon.leslie.mcdorman@sap-ag.de>
Subject: Re: Win95 + Perl back-quotes or fx(<system command>) assignment not working.
Message-Id: <uu3glq1gi.fsf@sap-ag.de>
>>>>> "AL" == Alten Limited <alten@dial.pipex.com> writes:
AL> I've downloaded Perl 5 (build 307) from ActiveWare and
AL> installed it on the Windows 95 machine I'm using (for my
AL> sins).
AL> My problem is that in the statement:
AL> @catch_variable = `dir`;
I can't say much about using Perl on Win95, but you might
at least consider replacing the `dir` statement with:
--------------
opendir NEWDIR, "." || die "Could not open directory: $!";
@catch_variable = (readdir NEWDIR);
closedir NEWDIR;
--------------
And thus avoiding the backtick problem (as well as many
others).
--
--------------------------------------------------------------
The opinions expressed above are mine, not my employer's.
gordon.leslie.mcdorman@sap-ag.de
------------------------------
Date: 19 Aug 1997 22:01:20 GMT
From: scott@lighthouse.softbase.com (Scott McMahan)
Subject: Re: Win95 + Perl back-quotes or fx(<system command>) assignment not working.
Message-Id: <5td53g$28h$1@scully.new-era.net>
Alten Limited (alten@dial.pipex.com) wrote:
: I've downloaded Perl 5 (build 307) from ActiveWare and installed it on
: the Windows 95 machine I'm using (for my sins).
: My problem is that in the statement:
: @catch_variable = `dir`;
: the yield of the command (dir) is sent to screen instead of being placed
: in @catch_variable as expected.
This is not what happens on my machine.
When I use
perl -e "$x=`dir`;print $x"
I get the directory listing. When I do:
perl -e "@x=`dir`;print @x"
Some number prints out. In neither case is any shell output sent
to the screen.
I don't know what to tell you, other than something is different
between the configurations. Whatever is going on has nothing to
do with Perl per se.
Scott
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". 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". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 891
*************************************
