[7819] in Perl-Users-Digest
Perl-Users Digest, Issue: 1444 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Dec 9 21:17:17 1997
Date: Tue, 9 Dec 97 18:00:23 -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 Tue, 9 Dec 1997 Volume: 8 Number: 1444
Today's topics:
Calling FTP from a Perl script being run by inetd <dballing@speedchoice.com>
Re: can perl do multi-threaded programming? <sriram@weblogic.com>
Re: Dynamic text-to-GIF utility (Tushar Samant)
Re: Fileupload <tchrist@mox.perl.com>
Finding the FILE SIZE (psullivan)
Re: Finding the FILE SIZE (brian d foy)
fork on AIX 4.1 with Perl 5.004_04 (Dhiraj Raj)
Re: Graphing <mike@soft-tek.com>
Re: Help using Net::FTP... (Thaths)
Help with line substitution (John Robson)
Re: Help with line substitution (brian d foy)
Re: Help with line substitution (Frank)
Re: Help with line substitution <ludlow@us.ibm.com>
Re: Listing files on your server as scalar values. <rootbeer@teleport.com>
Need documentation for WORD_BASIC Perl OLE automation <visionary@ns.sympatico.ca>
Re: Need help stripping whitespace (Rob Braden)
Re: newer than new to perl (Ian M Thompson)
Perl Help.. <namaste@goodnet.com>
Re: Perl Help.. (brian d foy)
Re: Perl,select and mrtg (Joe Doupnik)
Re: Pie chart with GD.pm <mike@soft-tek.com>
Re: Pie chart with GD.pm <dannyman@arh0300.urh.uiuc.edu>
Re: Referring to Perl modules on the net? nospam@minivend.com
Re: Using FTP.pm with a firewalls (need script examples <gbarr@ti.com>
Re: Using FTP.pm with a firewalls (need script examples (Thaths)
Re: Which http-server ?? <rpsavage@ozemail.com.au>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 09 Dec 1997 15:41:31 -0600
From: Derek Balling <dballing@speedchoice.com>
Subject: Calling FTP from a Perl script being run by inetd
Message-Id: <2DC42AA95816309B.06E2660006DEAEBA.7C3A353E3DC454E4@library-proxy.airnews.net>
OK, here's a tough one.
Background
----------
inetd calls in.fingerd
in.fingerd calls client.pl
client.pl calls /bin/ftp
The problem lies in this piece of code:
# netrc = "~/.netrc"
$FTP_COMMAND = "/bin/ftp"; $TEST_FTP_HOST = "my.hostname.com";
open FTP, "$FTP_COMMAND $TEST_FTP_HOST |" || (die "Cannot execute
command! : $!\n");
while (<FTP>)
{
$line = $_;
look_for_strings_in_output;
}
close FTP;
If I call client.pl by itself I get the results I would expect. If I let
in.fingerd call the client.pl script, then the while loop is never
executed. The script doesn't 'die', but FTP appears to NOT return
anything. FTP *DOES* appear to execute, although I haven't tested it for
certain by actually trying to do something that'll leave a trace (like
moving a file).
Any thoughts on how to do this?
------------------------------
Date: Tue, 09 Dec 1997 15:53:07 -0800
From: Sriram Srinivasan <sriram@weblogic.com>
Subject: Re: can perl do multi-threaded programming?
Message-Id: <348DD9E3.31BF839B@weblogic.com>
Gary Howland wrote:
>
> I'm a bit puzzled as to why you find it painful allocating a thread
> for
> every socket - surely dealing with an array of Threads isn't much
> different to dealing with an array of file descriptors? I suppose if
> you're writing something like inetd, you may be a little uncomfortable
> starting up a whole bunch of threads. This may be especially true if
> you've previously been used to using fork(), and are perhaps expecting
> Threads to be relatively "expensive" - however, a program should be
> able
> to run with hundreds, if not thousands, of threads without too much
> trouble (I don't know what the Perl overhead per thread is going to
> be,
> though).
Oh, it is not an ease of programming issue; in fact threads are
make it considerably easier. But they are terribly expensive in terms
of resources. With 1000 clients and a thread per client (socket),
and assuming a default stack size of 128k, you are talking 128M
of just stack. Then there is the additional burden on the scheduler
for managing these numbers of threads. Contrast this with the
amount of effort it takes to set the appropriate bit in a bitmap,
and then wake up the select. Sure you have to spend additional
cycles poking inside the bitmap to see what is available, but
surely that is done really fast.
Threads don't scale well beyond the few hundreds, on conventional
hardware. But coming back to the original topic, I find
threads to be eminently more useful than processes, for practically
all my tasks.
> Still, it's a shame java doesn't provide access to select() though.
> (But I'd be happy if that were the worst of it's problems)
Microsoft's JDK does, actually, and we use it where we can.
- Sriram
________________________________________________________________________
Principal Engineer WebLogic, San Francisco www.weblogic.com
"Advanced Perl Programming" : http://www.ora.com/catalog/advperl/
------------------------------
Date: 9 Dec 1997 19:30:30 -0600
From: scribble@tekka.wwa.com (Tushar Samant)
Subject: Re: Dynamic text-to-GIF utility
Message-Id: <66krbm$75j@tekka.wwa.com>
andy@osea.demon.co.uk writes:
>I do this using PovRay, but is very time consuming to do, as I have to make
>each character as a 3d mesh, calculate my own font metrics and it's very
>resource hungry to run...
>The bonus is that it gives fantastic reproducible graphics.
>I'm going to be launching a grow-your-own raytraced button factory soon.
Any easy way for me to know when that happens? (I.e. where will you
be announcing it?)
I've always wanted to use PovRay but never got enough time.
Thanks
------------------------------
Date: 9 Dec 1997 21:55:15 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Fileupload
Message-Id: <66keo3$qgs$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, bill@adcn.on.ca writes:
:I am also struggling with file uploads. All of the examples I have seen
:for CGI.pm show how to take a text file as an upload and print it back
:to the user browser screen. I want to receive binary files (*.gif) and
:move them to another directory with a new name (client_id.gif).
Binary files are exactly the same as "text" files. If not,
your operating system has a design flaw, and you should upgrade
to something more robust and modern. :-)
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
Unix never says `please.' -- Rob Pike
------------------------------
Date: Tue, 09 Dec 97 23:47:51 GMT
From: psullivan@stlnet.com (psullivan)
Subject: Finding the FILE SIZE
Message-Id: <66klmo$8mo$1@news.stlnet.com>
I was wondering how I find the file size under unix. I tried using stat:
$filesize = (stat ($filename))[7];
But that gave me a 0. I also tried an array of file listings:
$filesize = (stat (@files[$x]))[7];
And that gave me nothing. The file listings in both examples are in standard
full dir (i.e. /foo/foo2/foo2/file.foo). Is there something that I am doing
wrong? Is there another command to find out the file size?
Please email me the answer as well as posting it. Thanks
Patrick Sullivan
------------------------------
Date: Tue, 09 Dec 1997 19:42:46 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Finding the FILE SIZE
Message-Id: <comdog-ya02408000R0912971942460001@news.panix.com>
In article <66klmo$8mo$1@news.stlnet.com>, psullivan@stlnet.com (psullivan) wrote:
>I was wondering how I find the file size under unix. I tried using stat:
>
>$filesize = (stat ($filename))[7];
have you seen the -s file test operator?
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: 9 Dec 1997 22:46:02 GMT
From: draj@chronologic.com (Dhiraj Raj)
Subject: fork on AIX 4.1 with Perl 5.004_04
Message-Id: <66khna$s9b$1@viewlog.viewlogic.com>
Hello All
We are upgrading from Perl 4 to Perl 5 and have encountered a strange problem
with forking on IBM platforms.
Here is the piece of script where fork is called to start another script "Regress.pl".
FORK: {
if ($child_pid = fork ) {
print "Started Regression (pid $child_pid)\n" if ($verbose);
exit; # Parent -- exit
} elsif (defined $child_pid) {
# Child - run argument
close(STDIN);
close(STDOUT);
close(STDERR);
exec("$regress_bin/Regress.pl","$regress_bin");
exit;
} elsif ( $! =~ /No more process/ ) {
# EAGAIN, presumably recoverable...
sleep 5;
redo FORK;
} else {
die "Can not fork: $!\n";
}
}
Now this script was working fine with Perl 4 on all platforms...sparc, solaris,
sgi, dec, hp including aix. But after we upgraded to Perl 5, it is not working
fine ONLY on aix and the problem is funny.
On AIX, fork occurs and Regress.pl is started but it stops after a couple of minutes.
Note if I execute Regress.pl directly everything goes fine.
Is there any bug related to forking on AIX with Perl 5.
Thanks for your response
Dhiraj
------------------------------
Date: Tue, 9 Dec 1997 16:14:10 -0600
From: "Mike Christensen" <mike@soft-tek.com>
Subject: Re: Graphing
Message-Id: <66kfkr$j19$1@client3.news.psi.net>
Please take a look at GRAFSMAN from Soft-tek International, Inc. We have a
live demonstration on our website:
http://www.soft-tek.com
GRAFSMAN is available for both UNIX and Windows environments.
Please let me know how I can be of further assistance,
Mike Christensen
Soft-tek International, Inc.
1999 N. Amidon, Wichita, KS 67203
316 838 7200(v) -- 316 838 3789(f)
mailto:mike@soft-tek.com
http://www.soft-tek.com
Chris Schmidt wrote in message <348D817B.E85D6323@starkimages.com>...
>I need a Module that will allow me to do graphs(pie, 3d, line,
>multi-line,...etc)
>I can do what I want with GD.pm, but if someone has already writen the
>code for a
>nice grapher that would be great. Also any Ideas that you might have as
>how to go
>about crwating this I would also welcome. I hate it when I reinvent the
>wheel. :)
>
>---
>Chris Schmidt / Systems Manager
>Stark Images
>Phone / Fax
>4142262700 / 4142262705
------------------------------
Date: 10 Dec 1997 01:12:51 GMT
From: thaths@nospam.com (Thaths)
To: mgousset@nmhs.net
Subject: Re: Help using Net::FTP...
Message-Id: <66kqaj$39p2@continuity.mcom.com>
[Posted and mailed]
In article <348D971D.C27141A@nmhs.net>,
Mickey Gousset <mgousset@nmhs.net> writes:
> Hey!
>
> I am trying to use the following script:
>
> #!/usr/local/.bin/perl
> #
> #
> use IO;
> use Net::FTP;
>
> $ftp = Net::FTP->new("host_name");
> $ftp->login("user_id", "password");
> .
<snip>
> _USER is not a valid IO::Handle macro at
> /usr/local/lib/perl5/site_perl/auto/Net/FTP/login.al line 27
Try setting the debug flag on like so -
$ftp = Net::FTP->new('ftp.foo.com', Debug => 1);
$ftp->login("user_id", "password");
Did you install libnet by hand? Or did it come prepackaged for your OS? I
suggest re-installing the module. This sounds like an installation
problem. Also make sure you 'make test' before 'make install'.
Thaths
--
"He who laughs last gets dirty stares."
http://people.netscape.com/thaths/
%remove_this%thaths@netscape.com
------------------------------
Date: 9 Dec 1997 20:56:39 GMT
From: as646@FreeNet.Carleton.CA (John Robson)
Subject: Help with line substitution
Message-Id: <66kba7$5ko@freenet-news.carleton.ca>
I want to add a <BR> at the end of each line in a text file.
So I tried this substitution :
s/$_/$_<BR>/;
It worked fine on a dummy test file until I added this line :
Forrester Brief - Software Strategies - Data Warehouse Strategies ***
Executive Summary ***,FOR030997.,English,Hard,ADE - SES,Report Exec. Summ.
That's one long line (it just wrapped in this e-mail message).
For this line :
Application Production Operational Documentation *** New
***,NAPPODOC,English,Hard,,Standard - Proj.
Perl complained : nested *?+ in regexp
And finally for this line :
CFMRS - Generic Utility Services - Preliminary Analysis Report
FIS),GUS_PA10.SAM,English,Hard,Jiri Folta/T. Bakos,Report
Perl complained : unmatched () in regexp
So what is wrong with the three lines I just mentioned??
and how do you do the substitution of a line as I described in my original
problem?
I use Perl 5.003. Help!
------------------------------
Date: Tue, 09 Dec 1997 17:26:16 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Help with line substitution
Message-Id: <comdog-ya02408000R0912971726160001@news.panix.com>
In article <66kba7$5ko@freenet-news.carleton.ca>, as646@FreeNet.Carleton.CA (John Robson) wrote:
>I want to add a <BR> at the end of each line in a text file.
>So I tried this substitution :
>
>s/$_/$_<BR>/;
>Perl complained : nested *?+ in regexp
>Perl complained : unmatched () in regexp
>
>So what is wrong with the three lines I just mentioned??
perl is expecting $_ to be a valid regex, but the data in $_ are not,
so perl complains. you have a few options:
* do it in a different fashion:
s/(.*)$/$1<br>/mg; #or
s/(\r?\n)/$1<br>/g; #and many others
* quote meta characters before you use the regex:
$pattern = quotemeta($_);
s/($pattern)/$1<br>/;
* quote meta characters inside the s///
s/(\Q$pattern\E)/$1<br>/;
* don't use s///;
while( $line = <INPUT> )
{
print "$line<br>";
}
* and so on and so on. good luck :)
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: Tue, 09 Dec 1997 23:00:55 GMT
From: FHeasley@chemistry.com (Frank)
Subject: Re: Help with line substitution
Message-Id: <348dcd3a.23437995@news.halcyon.com>
On 9 Dec 1997 20:56:39 GMT, as646@FreeNet.Carleton.CA (John Robson)
wrote:
>
>I want to add a <BR> at the end of each line in a text file.
Simple:
Load the whole file into $_ or another variable.
Then: $variable =~ s/\n/<br>\n/g;
Frank
------------------------------
Date: Tue, 09 Dec 1997 16:36:58 -0600
From: James Ludlow <ludlow@us.ibm.com>
Subject: Re: Help with line substitution
Message-Id: <348DC80A.1430@us.ibm.com>
John Robson wrote:
>
> I want to add a <BR> at the end of each line in a text file.
> So I tried this substitution :
>
> s/$_/$_<BR>/;
>
> It worked fine on a dummy test file until I added this line :
>
> Forrester Brief - Software Strategies - Data Warehouse Strategies ***
> Executive Summary ***,FOR030997.,English,Hard,ADE - SES,Report Exec. Summ.
>
> That's one long line (it just wrapped in this e-mail message).
>
> For this line :
>
> Application Production Operational Documentation *** New
> ***,NAPPODOC,English,Hard,,Standard - Proj.
>
> Perl complained : nested *?+ in regexp
>
> And finally for this line :
>
> CFMRS - Generic Utility Services - Preliminary Analysis Report
> FIS),GUS_PA10.SAM,English,Hard,Jiri Folta/T. Bakos,Report
>
> Perl complained : unmatched () in regexp
When you use a variable in a regex like that, Perl substitues the
contents of the variable and uses that as the regex itself. So when
your input line has something like *** in it, the regex takes that
literally. And, as you found out, it's an error. Same thing with the
")" in your other line. There's no "(" so it's also an error.
Try this instead:
#!/usr/bin/perl -w
$line = <STDIN>; # or however you input it
$line = "$line<BR>";
print $line;
This will accomplish what you were trying to do above, but I don't think
it's what you "really" want, since any newline in $line will come before
<BR>. So maybe this will help you out more:
#!/usr/bin/perl -w
$line = <STDIN>;
chomp($line); # get rid of the new line
$line = "$line<BR>\n"; # reassemble the line the way you want it.
print $line;
Let's say $line = "Test" (from a text file with a carriage return hidden
in it).
The first example will produce:
Test
<BR>
The second example would produce:
Test<BR>
--
James Ludlow (ludlow@us.ibm.com)
This isn't tech support, and all opinions are my own.
------------------------------
Date: Tue, 9 Dec 1997 14:28:06 -0800
From: Tom Phoenix <rootbeer@teleport.com>
To: Scott DiNitto <sdinitto@kronos.com>
Subject: Re: Listing files on your server as scalar values.
Message-Id: <Pine.GSO.3.96.971209142421.26951r-100000@user2.teleport.com>
On Tue, 9 Dec 1997, Scott DiNitto wrote:
> system ("ls > dir.temp");
Although this will list the contents of a directory, it can be done more
efficiently from within perl. You can even do so without creating a new
file (which appear in the list!) by using a glob.
> #remove/create dir RM WILL COMPLAIN IF DIR DOES NOT YET EXIST
> system ("rm dir");
> system ("touch dir");
You can do those from within perl as well.
> open (AUTOLIST, "dir.temp");
Even when your script is "just an example" (and perhaps especially in that
case!) you should _always_ check the return value after opening a file.
> $LSlist = <AUTOLIST>;
>
> while ($LSlist){
I don't think that's the best way to do what you want to do.
> #Split the Scalar where . exists
> @LSlistSplit = split (/\./, $LSlist);
>
> #Now join the two parts back together
> $LSlistJoin = join ("", @LSlistSplit);
Hmmm.... Do you know about tr///?
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Tue, 09 Dec 1997 20:07:11 -0800
From: Visionary <visionary@ns.sympatico.ca>
Subject: Need documentation for WORD_BASIC Perl OLE automation
Message-Id: <348E156F.5224@ns.sympatico.ca>
I was wondering if anyone could help me out with documentation for ole
automation in PERL. I need to be able to use the WORD_BASIC part of the
module. All I could find (despite going through mailing lists, FAQ's,
people's homepages, etc.) was a reference guide like the one at:
http://home.ljusdal.se/perl/ole/Word_Basic.htm
That was good, but not enough. It doesn't give actual examples on how
to use the parameter list for a given method, or a description on what
the parameters themselves actually are. We all no how fussy the computer
is when it comes to syntax.
I want to be able to start MS Word from a PERL script, create a new
document, insert text into it, and save it. I found a few examples for
doing this with Excel, but I need some for Word. I am assuming I'll need
to see examples of the "FileNew", "Insert", "FileSave", etc., methods.
Any help anyone could give me would be greatly appreciated.
------------------------------
Date: Tue, 09 Dec 1997 21:33:55 GMT
From: rob@gadgetguru.com (Rob Braden)
Subject: Re: Need help stripping whitespace
Message-Id: <348fb938.21073361@snews.zippo.com>
On Tue, 09 Dec 1997 15:07:12 -0500, comdog@computerdog.com (brian d
foy) wrote:
>In article <348d78e8.4607544@snews.zippo.com>, rob@gadgetguru.com (Rob Braden) wrote:
>
>>In the meantiime, I need to write a program that wil identify and
>>remove any whitespace within the URLs - there may be more than one URL
>>per line.
>
> $url =~ s/\s//g; #removes whitespace
>
>is there more to the problem that you aren't telling?
Yep, there sure is. I should have been more specific.
The URLs in question are in HTML anchor tags:
<A HREF="http://www.somecompany.c om">Broken link!</a><A
HREF="http://www.anoth ercompany.com">Another one</a>
So it should be simple enough to fix just the URLs embedded in the
tags, without munging the rest of the file, I just haven't figured it
out yet.
Thanks!
Rob Braden
rob@gadgetguru.com
------------------------------
Date: Wed, 10 Dec 1997 00:53:00 GMT
From: ian@bigfish.u-net.com (Ian M Thompson)
Subject: Re: newer than new to perl
Message-Id: <348de480.10662858@news.u-net.com>
anderst@XispXalgonet.se (Anders Thelemyr) wrote:
>"jennifer" <tuia@msn.com> said:
>>I modestly approach this group to ask a most mundane,simple question and
>>hopefully, over time, I'll be able to show my face here again. Here it
>>goes...
>>I've installed perl on my win95 system. It's in the C drive.
>>I've copied the most simple "hello world" program (if you could call it
>>that) using my notepad and have named it hello.pl.
>>I'm at the c:\perl5 prompt in ms-dos and I try to run the program.
>>C:\perl5\perl hello.pl
>>A message returns that says "this program cannot be run in dos mode".
>>I thought that is where you run perl from a win95 system?
>
>I humbly bow my head and join you in hoping for the Answer... :-)
>(Although I haven't installed Perl yet, I just might, and I also thought
>you'd run it from a dos box)
>
>______________________________________________________________
>*) Remove "XispX" from my address if you feel like emailing me
>About BIK!: http://www.swehockey.se/boden/
>Hockey Norrland: http://www.algonet.se/~anderst/hockeynorrland/
>Hockey Norrbotten: http://www.algonet.se/~anderst/hockeynorrbotten/
Humbly bowing my head and admitting I don't know much about PERL,
The 'This program cannot....' is the standard response from a windows
application when you try to run it from DOS , so it looks like you may
have a 'win32 console' perl.exe
Win32 Console apps are basically windows apps , using the win32 API ,
that you run from an MS-DOS prompt In Windows.
So you could try:
Start Menu ; Programs ; MS Dos Prompt
C:
cd perl5
c:\perl5\perl hello.pl
Maybe that would work?
Hope this info is of some help
Feel free to email me
vag@mindless.com
------------------------------
Date: Tue, 09 Dec 1997 16:27:00 +0000
From: Natural Alternatives <namaste@goodnet.com>
Subject: Perl Help..
Message-Id: <348D7154.E6A0E27A@goodnet.com>
I am using this perl command..
<img src=\"$imageurl/$image\">
And I want to add the variables $height and $width
I cant seem to get the syntax right.. I get server errors..
can anyone help ?
Thank!
------------------------------
Date: Tue, 09 Dec 1997 19:44:59 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Perl Help..
Message-Id: <comdog-ya02408000R0912971944590001@news.panix.com>
In article <348D7154.E6A0E27A@goodnet.com>, Natural Alternatives <namaste@goodnet.com> wrote:
>I am using this perl command..
>
><img src=\"$imageurl/$image\">
>
>And I want to add the variables $height and $width
>
>I cant seem to get the syntax right.. I get server errors..
>
>can anyone help ?
that might be perl, but you'd get better help if you posted the actual
code with which you are having problems. perhaps you wanted:
$data = qq|<img src="$imageurl/$image" height="$height" width="$width">|;
--
brian d foy <comdog@computerdog.com>
NY.pm - New York Perl M((o|u)ngers|aniacs)* <URL:http://ny.pm.org/>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
------------------------------
Date: 9 Dec 97 16:54:23 MDT
From: jrd@cc.usu.edu (Joe Doupnik)
Subject: Re: Perl,select and mrtg
Message-Id: <rml$mGCIxvY6@cc.usu.edu>
In article <348D9B94.2CDC@pyrenet.fr>, Olivier PRENANT <ohp@pyrenet.fr> writes:
> Joe Doupnik wrote:
>>
>> --------
>> Probably you built Perl without select() support, for some reason.
>> Best to rebuild it and look at the configuration information it uses. Perls
>> here have been built without gcc, thank goodness, so yours can be too. If
>> you have gcc try renaming its files to avoid finding gcc and tell gnu
>> configure to keep away from /usr/local/* (my solutions). Even though many
>> Unix programs have BSD brainwashing, select() is not in libsocket.a but
>> rather is in libc.a/.so and ld.so.
>> Also scroll back up this list to see my response to another person
>> who forgot to use LD_LIBRARY_PATH. There should be no need to tinker with
>> anything in system directories (no adding static links etc). Finally, to
>> remove remaining abiguity try running with a simple shell such as sh or
>> ksh, rather than csh.
>> In short, small can be beautiful, simplicity can be a virtue,
>> don't tinker in system space, and similar platitudes about surviving Unix.
>> Joe D.
>
> I still can't noway having the select statement...
>
> Would you sending your Makefile and config.h file if you succedded?
---------
I am using Perl 5.003 so that will not help with your Perl5.004
details, if that's the makefile/config.h you refer to. I construct Perl
very straight forwardly, and ensure it has does not look at user-level
material (such as /usr/local/*). I don't even keep a copy of the build
material these days.
But I use sockets with Perl heavily every day, including with
MRTG.
Joe D.
------------------------------
Date: Tue, 9 Dec 1997 16:17:24 -0600
From: "Mike Christensen" <mike@soft-tek.com>
Subject: Re: Pie chart with GD.pm
Message-Id: <66kfqu$j3e$1@client3.news.psi.net>
If a commercial charting application is an option for you, please take a
look at GRAFSMAN from Soft-tek International, Inc.
You will find a live demonstration on our website:
http://www.soft-tek.com
Please let me know how I can be of further assistance,
Mike Christensen
Soft-tek International, Inc.
1999 N. Amidon, Wichita, KS 67203
316 838 7200(v) -- 316 838 3789(f)
mailto:mike@soft-tek.com
http://www.soft-tek.com
Chandra Shirashyad wrote in message <348DA73B.3D61@srv.pacbell.com>...
>I am trying to create a pie-chart with GD.pm, but not very successful
>doing so. The arc function is not very helpful in creating a pie chart.
>Have anyone of you created a pie-chart using GD? Please let me know what
>was your approach.
>
>Thanks,
>Chandra
------------------------------
Date: 9 Dec 1997 22:59:01 GMT
From: dannyman <dannyman@arh0300.urh.uiuc.edu>
Subject: Re: Pie chart with GD.pm
Message-Id: <66kifl$8vp$2@vixen.cso.uiuc.edu>
In comp.lang.perl.misc Chandra Shirashyad <c4sshir@srv.pacbell.com> wrote:
> I am trying to create a pie-chart with GD.pm, but not very successful
> doing so. The arc function is not very helpful in creating a pie chart.
> Have anyone of you created a pie-chart using GD? Please let me know what
> was your approach.
Anyone wants source to pie chart resulting from
http://www.dannyland.org/~dannyman/stuff/tp.html lemme know. :)
--
//Dan -=- This message brought to you by djhoward@uiuc.edu -=-
\\/yori -=- Information - http://www.uiuc.edu/ph/www/djhoward/ -=-
aiokomete -=- Our Honored Symbol deserves an Honorable Retirement
------------------------------
Date: 9 Dec 1997 23:02:19 GMT
From: nospam@minivend.com
Subject: Re: Referring to Perl modules on the net?
Message-Id: <66kilr$skr$1@news.one.net>
In comp.lang.perl.modules brian d foy <comdog@computerdog.com> wrote:
> In article <66k8vp$msk$1@hpavua.lf.hp.com>, subbarao@aurora.lf.hp.com (Kartik Subbarao) wrote:
>>I was thinking about what it might take to use Perl modules without
>>having to download and install them ahead of time. For instance, if you
>>said "use foo;", there would be some scheme whereby it would look for foo
>>somewhere on the network, download it dynamically, and perhaps cache it on
>>the local system.
>>Of course, I know I'm glossing over tons of practical issues here, but what
>>do people think? Does this basically sound like a good idea?
> well, in you scheme, you still have to download it and install it, so why
> not just download and install it?
> perhaps the CPAN module does what you want?
I do this now, but only at installation time. There are several
optional modules not absolutely required by my install, but that
add features or speed.
I check if CPAN is available and call it if I can to install them.
The only trouble with it is the CPAN install script (for MyConfig.pm)
is a bit long-winded for many of my users, and that I don't see
an obvious way to set up dual configs (without just creating my own
MyConfig.pm for the user).
Regards,
Mike Heins http://www.minivend.com/ ___
Internet Robotics |_ _|____
Just because something is 131 Willow Lane, Floor 2 | || _ \
obviously happening doesn't Oxford, OH 45056 | || |_) |
mean something obvious is <mikeh@minivend.com> |___| _ <
happening. --Larry Wall 513.523.7621 FAX 7501 |_| \_\
------------------------------
Date: Tue, 09 Dec 1997 15:45:49 -0600
From: Graham Barr <gbarr@ti.com>
To: Paulo Dutra <paulo@xilinx.com>
Subject: Re: Using FTP.pm with a firewalls (need script examples)
Message-Id: <348DBC0D.48290231@ti.com>
Paulo Dutra wrote:
>
> Hi,
>
> I'm having problems using FTP.pm (as part of 5.004_01) with
> a firewall. I setup the $ENV{'FTP_FIREWALL'} to the web
> proxy to the same extent as I have exposure with J. Friedl's webget
> (v. 961120.32). In webget, I have
> $ENV{'http_proxy'} = $ENV{'ftp_proxey'} where ftp_proxy is defined,
> and that works, however, I'm having mega troubles with FTP.pm
>
> I need a small script sample to illustrate the use of FTP proxies
> and firewall useage. Thanks.
FTP.pm can handle ftp proxies, that is where you ftp to your firewall
machine, and then tell it where you want to ftp to.
You seem to have got this confused with a web proxy server, where
you connect to the http server on your firewall and then the
firewall ftp's to the remote site. FTP.pm cannot handle this
situation, for this you probably want to investigate using
the LWP library from CPAN.
Graham.
--
Originality is the ability to conceal your source.
------------------------------
Date: 10 Dec 1997 01:16:31 GMT
From: thaths@nospam.com (Thaths)
To: Paulo Dutra <paulo@xilinx.com>
Subject: Re: Using FTP.pm with a firewalls (need script examples)
Message-Id: <66kqhf$39p3@continuity.mcom.com>
[Posted and mailed]
In article <348D996B.58B7@xilinx.com>,
Paulo Dutra <paulo@xilinx.com> writes:
> I'm having problems using FTP.pm (as part of 5.004_01) with
> a firewall.
How about using libnet which is available from CPAN?
> I need a small script sample to illustrate the use of FTP proxies
> and firewall useage. Thanks.
If you decide to use libnet, here is a sample script -
<Begin>
#!/usr/bin/perl
use Net::FTP;
$fire = 'socks.foo.com';
$ftp = Net::FTP->new('ftp.netscape.com', Firewall => $fire, Debug => 1, Passive => true);
$ftp->login("anonymous", "thaths\@nospam.com");
$ftp->cwd("/pub/navigator");
print $ftp->ls(),"\n";
$ftp->quit;
<End>
Thaths
--
"He who laughs last gets dirty stares."
http://people.netscape.com/thaths/
%remove_this%thaths@netscape.com
------------------------------
Date: Wed, 10 Dec 1997 09:33:59 +1000
From: Ron Savage <rpsavage@ozemail.com.au>
Subject: Re: Which http-server ??
Message-Id: <348DD567.789C@ozemail.com.au>
Josef Gergetz wrote:
>
> Hi,
>
> I am new to Perl, and want to test my pages on my computer (Win95) at
> home.
> I will use Server Side Includes. Can anybody tell me, which Server I
> should use ? The personal Web-Server delivered with FrontPage does not
> support Perl & SSI I think (if yes - how?).
> The server should be free/shareware and run under Win95 ;-(.
>
> TIA
> Josef
> (e-mail replies: remove the " *NO.SPAM*."
Title: How to set Up and Maintain a Web Site
Author: Lincoln Stein (author of the amazing CGI.pm)
Publisher: Addison Wesley
ISBN 0-201-63462-7
CD-ROM: Yes
Edition: The 2nd
CD-ROM contains:
Web browsers
Web servers
Site management tools
HTML editors
Syntax checkers and link verifiers
Image map editors
Graphics editors and converters
Word processor conveerters and plug-ins
Over a thousand color Web icons
VRML browsers and plug-ins
Animation creation and editing tools
Sound processing tools
Internet security software
Java applets
JavaScript programs
CGI scripts and development tools
The Perl 5 interpreter and libraries
Memo to you and your boss: If you're too silly to buy this book, sack each other...
--
Cheers,
Ron Savage
Office: savage.ron.rs@bhp.com.au
Home (preferred): rpsavage@ozemail.com.au
------------------------------
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 1444
**************************************
