[6280] in Perl-Users-Digest
Perl-Users Digest, Issue: 902 Volume: 7
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Feb 5 20:17:28 1997
Date: Wed, 5 Feb 97 17:00:22 -0800
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, 5 Feb 1997 Volume: 7 Number: 902
Today's topics:
Re: [help] 501 not implemented <rootbeer@teleport.com>
CGI.pm dynamic tables? (Jacob Miner)
Re: DNS lookups in perl (Thanks!) (Michael Fuhr)
Re: DNS lookups in perl (Michael Fuhr)
Re: Empty contents of a file without deleting it (Abigail)
Re: environment variables <jesse@ginger.sig.bsh.com>
Re: environment variables (Icculus)
Re: file handling (easy but urgent) <rootbeer@teleport.com>
Re: Frivilous request for new Perl function (Hugo van der Sanden)
FYI: Perl 5.003 for SGI <wessel@mat075207.student.utwente.nl>
Re: Help With Perl Mail <rootbeer@teleport.com>
Re: HELP!!!!! <rootbeer@teleport.com>
Re: HELP!!!!! (Nathan V. Patwardhan)
How do I undefine a format? (and request for a Format m <beck@qtp.ufl.edu>
How would a good Perl programmer have written this <cherold@pathfinder.com>
linking perl with cc and passing arguments to/from perl <kimr@verinet.com>
Re: linking perl with cc and passing arguments to/from (Nathan V. Patwardhan)
Re: Maximum to size of string? (Hugo van der Sanden)
Re: output questions -- "snapshots" <jesse@ginger.sig.bsh.com>
Re: Perl 5.003 causes segmentation fault on SGI Irix <rootbeer@teleport.com>
Re: Perl and method not implemented <rootbeer@teleport.com>
Re: PERL for SGI? <jesse@ginger.sig.bsh.com>
Re: QUESTION : how to write a mailer ? <rootbeer@teleport.com>
Re: Req:Web vs. Shell access problem (permissions?) <jesse@ginger.sig.bsh.com>
Re: Req:Web vs. Shell access problem (permissions?) (Nathan V. Patwardhan)
Re: require '/here/there/foo.pl' <jesse@ginger.sig.bsh.com>
Re: Resizing jpegs <rootbeer@teleport.com>
running built in variables in win95 <howeb@ix.netcom.com>
Re: Tell me how to quick access to Perl <rootbeer@teleport.com>
UUencoding <pelatimtt@poboxes.com>
Re: UUencoding (Mike Stok)
Re: UUencoding (Nathan V. Patwardhan)
Variables in ?modules? or included files. <bignell@netcom.ca>
Digest Administrivia (Last modified: 8 Jan 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 5 Feb 1997 15:08:51 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: tyahn <tyahn@ix.netcom.com>
Subject: Re: [help] 501 not implemented
Message-Id: <Pine.GSO.3.95.970205150313.22870I-100000@linda.teleport.com>
On Tue, 4 Feb 1997, tyahn wrote:
> I'm working on Website 1.1 with windows 95
> But I'm in trouble.. Please help me.
> How can I solve this problem....
>
> 501 Not Implemented
>
> Cannot do POST is supported via CGI programs only. with this URL
> /~ljh/booksrc/chap5/l5-10.cgi.
First (and foremost) this has nothing to do with Perl. This question is
about your webserver, and how you can get it to run CGI scripts. It
doesn't matter whether those scripts are executed by the Perl binary,
COMMAND.COM, or a blue elf who lives inside your computer and eats stale
cookies.
So, the answer should come from your server's documentation. If that's
inadequate, you should get another server, but you may prefer to check in
a server newsgroup or (even better) that group's FAQ.
If you get to the point where the server is trying to run your Perl
scripts, but you can't get the scripts to do what you want, check the Perl
docs (especially perldiag) and the Perl FAQ. After that, if you're still
puzzled, your questions are welcome here.
Or you can try leaving a plate of stale cookies by the keyboard and see
whether that helps. Good luck!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: 05 Feb 1997 16:17:41 -0700
From: jacob@bitsrfr.cnd.hp.com (Jacob Miner)
Subject: CGI.pm dynamic tables?
Message-Id: <wjkohdyn8q2.fsf@bitsrfr.cnd.hp.com>
Hi All,
Is there any way to create a dynamic table using the CGI.pm
module, and it's syntax?
i.e. something like this (which obviously doesn't work)
print table(
Tr(
foreach $entry ('one','two') {
td("entry");
}
)
)
Now that I think about it, maybe this could be done by passing in an
associative array??
--
---------------- .-. ------------------------------------
Jacob Miner .-.
---------------- .-. ------------------------------------
------------------------------
Date: 5 Feb 1997 15:39:30 -0700
From: mfuhr@dimensional.com (Michael Fuhr)
Subject: Re: DNS lookups in perl (Thanks!)
Message-Id: <5db272$ai5@nova.dimensional.com>
Jonas Oberg <kmm96jog@mds.mdh.se> writes:
>> I'm currently working on Net::DNS, a module for doing DNS lookups
>> in Perl. Here's a lookupprimarymx subroutine that uses it:
>
>Thanks to you, and everyone else who has answered my question. I think
>I'll give Net::DNS a try first since it seems like quite a handy tool to
>use, tho.
Well, to use the subroutine I posted, you'll *have* to give Net::DNS
a try. The subroutine uses it to perform the MX lookup, then sorts
the returned records by preference, then returns the hostname for the
best one.
--
Michael Fuhr
http://www.dimensional.com/~mfuhr/
------------------------------
Date: 5 Feb 1997 15:34:49 -0700
From: mfuhr@dimensional.com (Michael Fuhr)
Subject: Re: DNS lookups in perl
Message-Id: <5db1u9$aen@nova.dimensional.com>
Russ Allbery <rra@cs.stanford.edu> writes:
[ question about doing MX lookups in Perl ]
>You can't do that type of lookup directly. The best route to take is
>probably to grab Net::DNS from CPAN. I'd like to see someone write a
>wrapper around libresolv at some point; I'm not sure if Net::DNS is that
>(I seem to remember it being written entirely in Perl, in which case it
>isn't).
Net::DNS 0.01 was written mostly in C and used the system's resolver
(libresolv) and another library called resparse.
Net::DNS 0.02 is written entirely in Perl, so it reimplements the
resolver library using many of the same algorithms. I know that sounds
like reinventing the wheel, but I chose to do it for the following
reasons:
1. To let Perl handle more of the memory management.
2. To provide more consistent behavior across different platforms.
3. To see if I could.
The Perl version runs much slower than the C version, but if you're
doing remote lookups then a busy network will probably be your
bottleneck. Personally I'm partial to the Perl version but future
versions may be a combination of both. User input will certainly
provide guidance.
Net::DNS 0.02 (the Perl version) should be making its way around CPAN
right now. Both versions are available at:
http://www.dimensional.com/~mfuhr/perldns/
--
Michael Fuhr
http://www.dimensional.com/~mfuhr/
------------------------------
Date: Wed, 5 Feb 1997 22:27:39 GMT
From: abigail@ny.fnx.com (Abigail)
Subject: Re: Empty contents of a file without deleting it
Message-Id: <E55IE3.Ho2@nonexistent.com>
On Wed, 05 Feb 1997 10:21:35 -0800, Chris Schoenfeld wrote in comp.lang.perl.misc:
++ What's the most desirable method of emptying a file's contents without
++ deleting it (e.g. system(cp /dev/null file)) in Perl?
#!/usr/local/bin/perl -w
my $file = "whatever";
local *F;
open F, "> $file" or die "Eeps: $!";
close F or die "Oops: $!";
__END__
------------------------------
Date: 05 Feb 1997 16:36:00 -0500
From: Jesse Glick <jesse@ginger.sig.bsh.com>
Subject: Re: environment variables
Message-Id: <4oiv47gclb.fsf@ginger.sig.bsh.com>
tnocella@outland.cyberwar.com (L. Ted Nocella) writes:
>
> Niksun (niksun@lconn.net) wrote:
>
> : I'm trying to identify users' e-mail addresses when they post a form
> : which is processed by my perl script.
Unless your users are using an evil browser that sends this, you can't: email
addresses should not be sent by browsers (for privacy reasons), and generally
aren't. You must ask for the address explicitly.
--
Jesse "Da Juice" Glick
mailto:jglick@sig.bsh.com
617-867-1017
------------------------------
Date: 6 Feb 1997 00:04:44 GMT
From: agcowan@hamlet.uncg.edu (Icculus)
Subject: Re: environment variables
Message-Id: <5db76s$j21@newton.uncg.edu>
Jesse Glick (jesse@ginger.sig.bsh.com) wrote:
: tnocella@outland.cyberwar.com (L. Ted Nocella) writes:
: >
: > Niksun (niksun@lconn.net) wrote:
: >
: > : I'm trying to identify users' e-mail addresses when they post a form
: > : which is processed by my perl script.
: Unless your users are using an evil browser that sends this, you can't: email
: addresses should not be sent by browsers (for privacy reasons), and generally
: aren't. You must ask for the address explicitly.
: --
: Jesse "Da Juice" Glick
: mailto:jglick@sig.bsh.com
: 617-867-1017
I believe you can run an ident daemon to do this, provided there
is something willing to speak with it on the user's end. This only
works on Unix systems, and only on ones with the identd running.
If anyone knows more specifics please advise!
Andy
------------------------------
Date: Wed, 5 Feb 1997 14:57:28 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: tomas jacobi <jacobi@students.uiuc.edu>
Subject: Re: file handling (easy but urgent)
Message-Id: <Pine.GSO.3.95.970205145533.22870G-100000@linda.teleport.com>
On Wed, 5 Feb 1997, tomas jacobi wrote:
> I'm trying to have my cgi script in perl write a txt file to
> cgi-bin\info
> if I write this:
> open (LIST, ">>jobs.txt")
> it copies it to the cgi-bin directory, how do I make it write into the
> cgi-bin\info directory????
Use the full path in your file name, as in this example.
open (LOG, ">> /home/foobar/logs/foolog.txt")
or die "Can't open log file for appending: $!";
Hope this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: 6 Feb 1997 00:34:24 GMT
From: hv@crypt.compulink.co.uk (Hugo van der Sanden)
Subject: Re: Frivilous request for new Perl function
Message-Id: <5db8ug$c87@zinc.compulink.co.uk>
mhm@dax.austin.ibm.com wrote:
:$foo = substr($str,0,-1);
perl has this habit of doing what you want when you least expect it:
crypt % perl -we '$a="abc"; $b=substr($a, 0, -1); print "<$b>\n"'
<ab>
crypt %
Hugo van der Sanden
------------------------------
Date: Wed, 05 Feb 1997 23:05:05 +0100
From: Wessel de Roode <wessel@mat075207.student.utwente.nl>
Subject: FYI: Perl 5.003 for SGI
Message-Id: <32F90411.41C6@mat075207.student.utwente.nl>
ftp://Mat075207.student.utwente.nl/pub/SGI/tardist/FreeWare/fw_LWperl5.tardist.gz
It's a freeware production .... Contact SGI for other information about
it.
Wessel
--
---
There can be no rainbows around the soul until
there are first tears in the eyes.
-- Frances Firebrace --
------------------------------
Date: Wed, 5 Feb 1997 15:02:19 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Romualdo Ortiz <rom_ortiz@icepr.com>
Subject: Re: Help With Perl Mail
Message-Id: <Pine.GSO.3.95.970205145835.22870H-100000@linda.teleport.com>
On Wed, 5 Feb 1997, Romualdo Ortiz wrote:
> How I Can send a email with a subject and a from through a Telnet
> Section?
Sounds as if you want to do SMTP.
ftp://ds.internic.net/rfc/rfc821.txt
Although I just use sendmail and avoid all the sockets; it's easier. Hope
this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: Wed, 5 Feb 1997 15:33:39 -0800
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: HELP!!!!!
Message-Id: <Pine.GSO.3.95.970205152313.22870L-100000@linda.teleport.com>
On 4 Feb 1997, No One wrote:
> From: No One <FreezerBurn@my.email.address>
Uh huh.
> I'm trying to take some data passed in through a CGI program into PERL
> and all I need it to do is dump the data as a text file.
The tourist in New York is lost, and he knows that Phantom of the Opera is
going to start in less than an hour. He's getting a bit frantic. He runs
into a restaurant and breathlessly asks the first waiter he sees, "Can you
help me, I'm in a hurry, please tell me how do I get to Broadway?" And the
waiter says, "Practice, Practice, Practice!"
The reason I think of this old joke is that you've failed to state your
obstacle, so although it would be easy for me to give you advice, it would
likely miss the mark. For example, I could tell you to install a webserver
that can activate CGI scripts. Or I could tell you that you should use a
module from CPAN to dump the data. Or I could tell you that you need ">"
at the beginning of the second argument to open.
Of course, the first step you should take would be to fix your mail client
to use the right address, and the second would be to read the frequent
posting about choosing good subject lines. Good luck!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: 6 Feb 1997 00:23:47 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: HELP!!!!!
Message-Id: <5db8aj$idh@fridge-nf0.shore.net>
No One (FreezerBurn@my.email.address) wrote:
: Please help me. .. .
Okay. The first piece of advice I offer you is to fix your e-mail
address so that people (who are trying to help you) can contact you
through electronic mail. "Those who are late for dinner will not be
served fruit cup." - Nurse Diesel
: I'm trying to take some data passed in through a CGI program into PERL and
: all I need it to do is dump the data as a text file. PLEASE HELP
What's your program NOT doing? I suspect that you're directory permissions
aren't correct and you're not writing to a file with an absolute path.
$file = '/path/filename.txt';
open(FILE, ">$file")
|| print("Hey: $!\n");
print FILE "$FORM{'name'}\n";
close(FILE);
Now, I'll make like your dentist after a root canal, "was that so bad?"
--
Nathan V. Patwardhan
nvp@shore.net
"Outshined outshined outshined!"
--Chris Cornell from Soundgarden
------------------------------
Date: 05 Feb 1997 18:20:17 -0500
From: Sullivan Beck <beck@qtp.ufl.edu>
Subject: How do I undefine a format? (and request for a Format module)
Message-Id: <reh9152n8lq.fsf@qtp.ufl.edu>
I have a subroutine in which I define a format on the fly (as per the
perlform man page). The only problem is that when I call this subroutine
twice (using the -w flag), I get the annoying message that the format
has been redefined.
A trivial illustration is:
################################
#!/usr/local/bin/perl -w
sub Test {
my($f)="format AAA =\nHi there\n.\n";
eval $f;
$~ = "AAA";
write;
}
&Test();
&Test();
################################
which produces the following output:
Hi there
Format AAA redefined at (eval 2) line 1.
Hi there
The format I want to use is not constant. It will depend on data that gets
passed in. Also, I don't want to define a new format (i.e. a format with a
different name) each time, because that almost amounts to a memory leak
(each call would leave a defined lying around that I'd never use again).
So, how do I undefine the format I just created? The obvious
undef "AAA"
didn't work (I didn't expect it to).
Sorry if I missed something obvious in the man page.
The two types of "variables" in perl that have always given problems
(especially when using strict, or in modules) have been filehandles and
formats. Filehandles are nicely taken care of with the FileHandle (or
IO::Handle) module. I don't suppose anyone's working on a similar module
for formats is there? I'd love to easily be able to pass a format into or
out of a module and not have to worry about the complexity of the namespace
of the variables used in the format. If no one's working on it, I may have
to sit down and do one sometime.
------------------------------
Date: Wed, 05 Feb 1997 19:01:10 -0500
From: Charles Herold <cherold@pathfinder.com>
Subject: How would a good Perl programmer have written this
Message-Id: <32F91F47.4D9D@pathfinder.com>
I'm a newbie Perlite, and at present my code is long and clumsy. I
suspect the very long script I wrote is something an experienced Perl
programmer could make just a few lines. If anyone feels like showing me
what this code would look like written properly it would help me a lot
in figuring out the proper approach to Perl. What the code does (and it
did work and got me what I wanted) is to go through an HTML page which
was supposed to have server side maps and didn't. It looks for each IMG
tag, sees if that tag contains an ISMAP, and if it does, surrounds the
IMG tag with an anchor with the HREF being the IMG SRC with the
extension changed to "map." I used the limited number of Perl I know
and a book to look up whatever would be the closes to 'C', which I know
much better, and cobbled this together.
------- CUT --------
#!/usr/local/bin/perl5 -w
use diagnostics;
BEGIN {
unless (@ARGV >= 1) {
print "Usage: change.pl <filename>\n";
exit;
}
}
$/ = undef;
$ismap = 'ISMAP';
foreach(@ARGV) {
$workfile = $_;
open(IN, $workfile) or die "Couldn't open source file $workfile\n";
my $intext = <IN>;
my $outtext = '';
close IN;
if( $intext =~ m#$ismap#) { # ignore files with no ISMAPs
open(OUT, "> $workfile.bak") or die "Couldn't open backup file
$workfile.bak";
print OUT $intext;
close OUT;
@bits = split(/<IMG/, $intext);
foreach $chunk (@bits) {
if( $chunk =~ m#$ismap#) {
# we've found an image that's a map
my $place = index($chunk, '>');
my $img = substr($chunk, 0, $place); # img is now the image tag
sans ends
my $rest = substr($chunk, ($place + 1), 1000000);
my $mapURL = &getMap($img);
$chunk = "<A HREF=\"$mapURL\"> $img></A>$rest";
}
}
$outtext = join(' ', @bits); # put the bits back together
$outtext =~ s/BORDER/<IMG BORDER/g; #easiest way I could find to get
IMG back in.
#all IMG tags were in the form <IMG BORDER=0 etc.
open(OUT, "> $workfile") or die "Couldn't open output file
$workfile\n";
print OUT $outtext;
close OUT;
}
}
sub getMap
{
$piece = $_[0];
$place = index($piece, 'SRC');
if($place == -1) {
die "uh oh"; # this was a test. But I do get it sometimes, I think
only on the last file
}
$src = substr($piece, $place, 1000);
($begin, $name, $rest) = split('"', $src);
$src = $rest = $begin; # this is just to stop a Perl error message
about only using a variable once
$name = substr($name, 0, rindex($name, '.'));
$src = "$name.map";
$src; # the above line may be enough for a return, but I wasn't sure
so I stuck this in too
}
------- CUT --------
--
Thanks
Charles Herold
cherold@pathfinder.com
(212) 522-5190
------------------------------
Date: Wed, 05 Feb 1997 15:52:49 -0700
From: Kim Read <kimr@verinet.com>
Subject: linking perl with cc and passing arguments to/from perl/c
Message-Id: <32F90F41.63B9@verinet.com>
Does anyone know how to link perl cgi files with existing
c modules?
Also any information on passing arguments back and forth
between perl and c and vice versa would be greatly appreciated
------------------------------
Date: 5 Feb 1997 23:19:55 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: linking perl with cc and passing arguments to/from perl/c
Message-Id: <5db4ir$e1o@fridge-nf0.shore.net>
Kim Read (kimr@verinet.com) wrote:
: Does anyone know how to link perl cgi files with existing
: c modules?
Yes. There's a Perl compiler that will generate the C code necessary
to link your Perl with C. Check out the CPAN nearest you!
: Also any information on passing arguments back and forth
: between perl and c and vice versa would be greatly appreciated
On a non-compiled Perl script, I've used argv, and argc, or @ARGV in
Perl.
ELF!
--
Nathan V. Patwardhan
nvp@shore.net
"Outshined outshined outshined!"
--Chris Cornell from Soundgarden
------------------------------
Date: 6 Feb 1997 00:32:26 GMT
From: hv@crypt.compulink.co.uk (Hugo van der Sanden)
Subject: Re: Maximum to size of string?
Message-Id: <5db8qq$c87@zinc.compulink.co.uk>
M.Boekhold (boekhold@elektron.et.tudelft.nl) wrote:
:Is there a limit to the size of a string in Perl5?
Strings are limited only to your available memory - if you can malloc it,
you can have it.
:It also may have something to do with the regex-stuff, since I do something
:like: $line =~ s/TABLE/$table/
That's much more likely, though I don't think that example should break it:
regexps have a limit of around 32K, but as far as I can remember that is a
limit on the text matched. That implies you might trigger it if you did
something like:
die "replace failed" unless $line =~ m#<TABLE>.*</TABLE>#;
after the replacement.
Also, if you are passing these strings into perl modules, there's no
telling what they might attempt to do with them.
I'd suggest printing out the length of the string at various points in
the program (say, to a log file), to spot when it gets truncated.
Hugo van der Sanden
------------------------------
Date: 05 Feb 1997 18:53:16 -0500
From: Jesse Glick <jesse@ginger.sig.bsh.com>
Subject: Re: output questions -- "snapshots"
Message-Id: <4oeneuhksz.fsf@ginger.sig.bsh.com>
Lyle <pirwani@blue.weeg.uiowa.edu> writes:
>
>
> Hi. I'm wanting to output some information such that the screen is
> redrawn ONLY for changing fields. (The context is: I'm monitoring a system
> using continual ps -aux's, and want to diplay the results in a fixed
> output field).
Do you mean you need to use termcap/curses?
cpan> i /term|curses/
Going to read /usr/local/share/lib/perl5/.cpan/sources/01mailrc.gz
Going to read /usr/local/share/lib/perl5/.cpan/sources/02packag.gz
Going to read /usr/local/share/lib/perl5/.cpan/sources/03mlist.gz
Distribution AKSTE/Term-Query-1.15.tar.gz
Distribution GLOVER/Curses-DevKit-4.8.tar.gz
Distribution ILYAZ/Term-Gnuplot-0.2.tar.gz
Distribution ILYAZ/Term-ReadLine-0.95.tar.gz
Distribution KJALB/Term-Info-1.0.tar.gz
Distribution KJALB/TermReadKey-2.07.tar.gz
Distribution WPS/Curses-1.01.tar.gz
Module Cdk (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Alphalist (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Calendar (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Debug (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Diag (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Dialog (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Entry (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Fselect (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Graph (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Histogram (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Itemlist (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Label (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Marquee (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Matrix (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Mentry (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Menu (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Radio (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Scale (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Scroll (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Selection (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Slider (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Swindow (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Template (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Cdk::Viewer (GLOVER/Curses-DevKit-4.8.tar.gz)
Module Configure (KJALB/TermReadKey-2.07.tar.gz)
Module Curses (WPS/Curses-1.01.tar.gz)
Module Language::Prolog::Term (JACKS/Prolog-alpha.tar.gz)
Module NCurses (Contact Author WPS=William Setzer)
Module Term::ANSIColor (Contact Author RRA=Russ Allbery)
Module Term::Cap (CBAIL/perl5_003.tar-gz)
Module Term::Complete (CBAIL/perl5_003.tar-gz)
Module Term::Control (Contact Author KJALB=Kenneth Albanowski)
Module Term::Gnuplot (ILYAZ/Term-Gnuplot-0.2.tar.gz)
Module Term::Info (KJALB/Term-Info-1.0.tar.gz)
Module Term::Query (AKSTE/Term-Query-1.15.tar.gz)
Module Term::ReadKey (KJALB/TermReadKey-2.07.tar.gz)
Module Term::ReadLine (Contact Author ILYAZ=Ilya Zakharevich)
Module Term::ReadLine::Perl (ILYAZ/Term-ReadLine-0.95.tar.gz)
Module Term::Screen (MRKAE/Screen-1.00.tar.gz)
Module readline (ILYAZ/Term-ReadLine-0.95.tar.gz)
cpan>
--
Jesse "Da Juice" Glick
mailto:jglick@sig.bsh.com
617-867-1017
------------------------------
Date: Wed, 5 Feb 1997 15:41:33 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Jeff Ferguson <jeff@alexr.com>
Subject: Re: Perl 5.003 causes segmentation fault on SGI Irix
Message-Id: <Pine.GSO.3.95.970205153410.22870M-100000@linda.teleport.com>
On Tue, 4 Feb 1997, Jeff Ferguson wrote:
> Hello: I have been running perl 5.001 for some time now on my SGI Irix
> machine without any problems. I recently upgraded (compiling the source
> distribution) to 5.003 and since have had strange things happen to
> existing programs. Certain scripts written some time ago, which operated
> without a problem, are now causing segmentation faults on the system and
> dumping core. The strange thing about it is that sometimes they run
> fine, and sometimes they crash. There doesn't seem to be any rhyme or
> reason to it. Anyone have any thoughts?
Perhaps the new perl links to different libraries than the old one, or
perhaps recently your system has been infected by a virus or an intruder's
malicious code.
5.003 has been a very good release with few serious bugs. But some of
those bugs are fixed in the upcoming 5.004, so you may want to install the
5.004 beta (due out any week now) for testing (not for production; it _is_
beta) and see whether that shows the same problem. Good luck!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: Wed, 5 Feb 1997 15:22:18 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Darrell LaRock <rockhead@camalott.com>
Subject: Re: Perl and method not implemented
Message-Id: <Pine.GSO.3.95.970205151918.22870K-100000@linda.teleport.com>
On 5 Feb 1997, Darrell LaRock wrote:
> Newsgroups: comp.infosystems.www.authoring.html, comp.lang.perl.misc,
> comp.lang.perl.modules, de.comp.lang.perl
Please, crosspost only as appropriate, and use followups to avoid further
crossposting. I don't see anything about modules in your message, and
nothing about html either.
> Is anyone familar with a method not implemeted error.
When you're having trouble with a CGI form in Perl, you should first look
at the please-don't-be-offended-by-the-name Idiot's Guide to solving such
problems. It's available on the perl.com web pages. Hope this helps!
http://www.perl.com/perl/
http://www.perl.com/perl/faq/
http://www.perl.com/perl/faq/idiots-guide.html
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: 05 Feb 1997 19:34:37 -0500
From: Jesse Glick <jesse@ginger.sig.bsh.com>
Subject: Re: PERL for SGI?
Message-Id: <4oafpihiw2.fsf@ginger.sig.bsh.com>
August Detlefsen <augustd@earthlink.net> writes:
>
> Does anyone know where I can get PERL 5.0 already compiled for the SGI?
<ftp://sgigate.sgi.com/net-services/freeware/>
With SGI Netscape & the root password, you can install it directly by just
clicking the right link: it spawns swmgr. Cute huh?
I assume you mean 5.00x, and not 5.000 (gasp).
Check the README. You can also get Perl (and much more) on the SGI Freeware
CD, of which this is just samples; it has sources and binaries both.
--
Jesse "Da Juice" Glick
mailto:jglick@sig.bsh.com
617-867-1017
------------------------------
Date: Wed, 5 Feb 1997 14:54:37 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: "Flavio Bosco (http://www.infcom.it/genetic)" <genetic@mbox.vol.it>
Subject: Re: QUESTION : how to write a mailer ?
Message-Id: <Pine.GSO.3.95.970205145035.22870F-100000@linda.teleport.com>
On Wed, 5 Feb 1997, Flavio Bosco (http://www.infcom.it/genetic) wrote:
> I'm trying to write a mailer in Perl, as part of a mailing list program.
There are modules in CPAN for working with mail, and your application can
interface directly to sendmail or another application. Of course, it's up
to you to only send mail to folks who want to see it; spamming is
detested. Hope this helps!
http://www.perl.com/CPAN/
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: 05 Feb 1997 16:44:35 -0500
From: Jesse Glick <jesse@ginger.sig.bsh.com>
Subject: Re: Req:Web vs. Shell access problem (permissions?)
Message-Id: <4ohgjrgc70.fsf@ginger.sig.bsh.com>
autopen@quake.net (Laurel Shimer) writes:
>
> Would you please be so kind as to respond directly to my email id
> (autopen@quake.net)? My server/usenet connection is somewhat unreliable.
>
> Thank you!
>
> Laurel Shimer
>
> ---------------------------------------
>
> PROBLEM BRIEF - Accessing directory information via simple/test perl
> script (shown at the end of this message) when test script is run from
> the Web versus when script is run from the shell. I am suspiscious that
> my problem has something to do with directory file permissions, which I
> have set as open as seems safe.
At a minimum:
1. Test all Perl file-related calls for return status (as in other posting).
2. Log info about what is happening to STDERR and check webserver logs.
3. Try to run the script from the shell under the same UID as the webserver
uses, with a similarly constrained set of standard env. variables; consult
your server docs for details.
These three steps tend to be necessary for nearly any CGI using the
filesystem. Finding the problem is rarely difficult.
--
Jesse "Da Juice" Glick
mailto:jglick@sig.bsh.com
617-867-1017
------------------------------
Date: 5 Feb 1997 22:06:10 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Req:Web vs. Shell access problem (permissions?)
Message-Id: <5db08i$8g4@fridge-nf0.shore.net>
Jesse Glick (jesse@ginger.sig.bsh.com) wrote:
: Jesse "Da Juice" Glick
Umm, are you sure you want to be calling yourself "the juice," these
days? :-)
--
Nathan V. Patwardhan
nvp@shore.net
"Outshined outshined outshined!"
--Chris Cornell from Soundgarden
------------------------------
Date: 05 Feb 1997 19:06:52 -0500
From: Jesse Glick <jesse@ginger.sig.bsh.com>
Subject: Re: require '/here/there/foo.pl'
Message-Id: <4obu9yhk6b.fsf@ginger.sig.bsh.com>
Kin Cho <kin@isi.com> writes:
>
> Is there a way to do this without messing with @INC?
Is something wrong with what you just wrote?
require '/here/there/foo.pl';
--
Jesse "Da Juice" Glick
mailto:jglick@sig.bsh.com
617-867-1017
------------------------------
Date: Wed, 5 Feb 1997 14:49:54 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: jason Wraxall <jasonw@zeta.org.au>
Subject: Re: Resizing jpegs
Message-Id: <Pine.GSO.3.95.970205144857.22870E-100000@linda.teleport.com>
On Wed, 5 Feb 1997, jason Wraxall wrote:
> Does anyone know of a library which will alow me to resize jpeg images?
All things Perl are to be found within CPAN. If you can't find it there,
you're welcome to contribute. :-)
http://www.perl.com/CPAN/
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: Wed, 05 Feb 1997 15:49:43 -0600
From: Rick Terrel <howeb@ix.netcom.com>
Subject: running built in variables in win95
Message-Id: <32F90077.736@ix.netcom.com>
I have just starting writing perl on my pc. I have written a small
program using some built in variable <ARGV>, however, I can not run it.
Can you help me?
------------------------------
Date: Wed, 5 Feb 1997 15:17:16 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Topo <topo@pacific.net.sg>
Subject: Re: Tell me how to quick access to Perl
Message-Id: <Pine.GSO.3.95.970205151212.22870J-100000@linda.teleport.com>
On 5 Feb 1997, Topo wrote:
> i am newer for Perl, and now i want to learn it for my business.
> can you tell me where i can get Perl resource on the internet.
http://www.perl.com/CPAN/
> tell me the fastest way to learn Perl.
Buy and read the Llama book. Try the exercises at the end of each chapter.
http://www.ora.com/catalog/lperl/
If you can, get the Camel as well, and keep it handy.
http://www.ora.com/catalog/pperl2/
Hope this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.lightlink.com/fors/
------------------------------
Date: Wed, 05 Feb 1997 23:27:50 +0100
From: Matteo Pelati <pelatimtt@poboxes.com>
Subject: UUencoding
Message-Id: <32F90966.15A4@poboxes.com>
I'm looking for a perl module that allow me to read and write uuencoded
text strings?
Anyone of you know something?
Thanks
Best Regards
------------------------------
Date: 5 Feb 1997 23:07:46 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: UUencoding
Message-Id: <5db3s2$akv@news-central.tiac.net>
In article <32F90966.15A4@poboxes.com>,
Matteo Pelati <pelatimtt@poboxes.com> wrote:
>I'm looking for a perl module that allow me to read and write uuencoded
>text strings?
>
>Anyone of you know something?
Check out pack & unpack in the Camel book (Programming Perl by Larry Wall,
Tom Christiansen & Randal Schwartz, published by O'Reilly) from which I
steal this (2nd edition, sorry for any typos...)
Here's a complete uudecode program
#!/usr/bin/perl
$_ = <> until ($mode, $file) = /^begin\s*(\d*)\s*(\S*)/;
open (OUT, ">$file") if $file ne "";
while (<>) {
last if /^end/;
next if /[a-z]/;
next unless int ((((ord () - 32) & 077) + 2) / 3) ==
int (length () / 4);
print OUT unpack "u", $_;
}
chmod oct $mode, $file;
pack uses u in the template to uuencode a string.
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@psa.pencom.com | Pencom Systems Administration (work)
------------------------------
Date: 5 Feb 1997 23:17:48 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: UUencoding
Message-Id: <5db4es$e1o@fridge-nf0.shore.net>
Matteo Pelati (pelatimtt@poboxes.com) wrote:
: I'm looking for a perl module that allow me to read and write uuencoded
: text strings?
Welcome! You've got mail! (*ducking* as shots are fired at him).
: Anyone of you know something?
Yes. The _Programming Perl_ book(s), or maybe even the FAQ! You might
want to look into pack() and unpack() - both of which are used in the
uuencoding and decoding processes. A quick search of dejanews
(http://www.dejanews,com) reveals that this question has been asked recently.
Query for uuencode uudecode and comp.lang.perl.misc
ELF!
--
Nathan V. Patwardhan
nvp@shore.net
"Outshined outshined outshined!"
--Chris Cornell from Soundgarden
------------------------------
Date: Wed, 05 Feb 1997 19:29:10 -0500
From: Graham Bignell <bignell@netcom.ca>
Subject: Variables in ?modules? or included files.
Message-Id: <32F925D6.7C19@netcom.ca>
This question is being asked because I haven't really
used the module functionality of Perl to any degree. (shame on
me). Anyway:
I have a collection of scripts, currently they
are acting as a cgi. I want to define most of the
text they spit out in a configuration file like so:
-----
$blah="This is a $foo with the $bar half-gainer";
-----
Now, I would like to be able to use that variable
something like:
-----
$foo="widget";
$bar="29.5";
print $blah;
-----
But the $foo and $bar get nulled out because
they aren't defined or given a value in the
configuration file.
I was thinking of an exec $blah or
defining it like $blah='blahblah';
but couldn't get either to work the
way I wanted...
Any suggestions that aren't too blindingly
obvious to mention? Or mention the obvious
ones, even. ahem.
Thanks.
---
Graham
------------------------------
Date: 8 Jan 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Jan 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.
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 V7 Issue 902
*************************************
