[7044] in Perl-Users-Digest
Perl-Users Digest, Issue: 669 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 26 16:17:09 1997
Date: Thu, 26 Jun 97 13:00:22 -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 Thu, 26 Jun 1997 Volume: 8 Number: 669
Today's topics:
Re: "Timeout" for "connect" and "socket read" <SOCK> (Andrew M. Langmead)
Re: a perl mode in emacs that does a better job with qu <swhatley@blkbox.com>
Re: BIG databases <Jan.Krynicky@st.mff.cuni.cz>
Re: Calling Oracle Stored Procedure from Perl using DBD <Tim.Bunce@ig.co.uk>
Re: calling subroutines with part of a $ as a name <clark@s3i.com>
Re: calling subroutines with part of a $ as a name <pociask@maricopa.edu>
Re: Client-Side Execution <Jan.Krynicky@st.mff.cuni.cz>
Re: Client-Side Execution (Brian Wheeler)
Is PERL a compiled language? <webmaster@peachcity.com>
Re: making an associative array of scalar arrays <foxkw@mh.us.sbphrd.com>
Re: Newbie : FAQ location ?? ...can u solve my problem? <ajohnson@gpu.srv.ualberta.ca>
Re: Newbie needs Elegance <sibsib@hotmail.com>
Re: No child processes (Matthew H. Gerlach)
Re: Oracle Stored procedure calls from Perl <Tim.Bunce@ig.co.uk>
Re: Perl and Internet Information Server <grogo@alum.mit.edu>
Re: Perl and Internet Information Server <grogo@alum.mit.edu>
Re: Perl Win32 (W95 & NT) - SNMP and TCL/TK Modules??? <tassin@eerie.fr>
Re: Perl Win32 (W95 & NT) - SNMP and TCL/TK Modules??? (Shelle)
Problems compiling module (Wishwesh Gandhi - PCD ~)
Re: Q: an alternative to this use of "goto"? <merlyn@stonehenge.com>
Source code comparison - know of a tool? <sg@mda.ca>
Re: Source code comparison - know of a tool? (A. Deckers)
telnet port 80 get & measge (Carlos Reed)
Re: What does "UNIX" stand for.. <tris.strange@btinternet.com>
Re: WWW Languages Guide: Correct WWW adrede (Markus Voelter)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 26 Jun 1997 17:47:54 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: "Timeout" for "connect" and "socket read" <SOCK>
Message-Id: <ECE9Fu.L36@world.std.com>
Doug Seay <seay@absyss.fr> writes:
>follow-up question : Why do you have to avoid buffered I/O with
>select()? Is this perl specific or is it more of a Unix/C limitation?
The four argument select() in perl, as well as its C library and unix
system call equivilent, report the data the kernel has available to
pass to the process. (or for the write handle, if the process can pass
data to the kernel.)
It doesn't take into acount the data sitting in buffers within the
process.
--
Andrew Langmead
------------------------------
Date: 26 Jun 1997 17:56:17 GMT
From: Steven Whatley <swhatley@blkbox.com>
Subject: Re: a perl mode in emacs that does a better job with quotes?
Message-Id: <5ouag2$53b@news.blkbox.com>
Noone has mentionted the following how about this?
In comp.emacs Shimpei Yamashita <shimpei@socrates.caltech.edu> wrote:
: s/'/'"'"'/g;
s/\'/\'\"\'\"\'/g;
For non-alphanumeric characters, I prefer to meta-quote them anyway.
: unlink("/var/mail/$USER"); # we don't like this person
unlink("/var/mail/$USER"); # we don\'t like this person
For comments and inline documents, I meta-quote ' marks. I hope this helps.
Later,
Steven
http://www.blkbox.com/~swhatley/
_|_ | _|_ "I am the way and the truth and
Steven Whatley | --|-- | the life. No one comes to the
swhatley@blkbox.com | | | Father except through me."
Houston, Texas | -- Jesus Christ (John 14:6 NIV)
|
------------------------------
Date: Thu, 26 Jun 1997 20:12:25 -0700
From: Jan Krynicky <Jan.Krynicky@st.mff.cuni.cz>
To: Patrick Verdon <patrick@Smallworld.co.uk>
Subject: Re: BIG databases
Message-Id: <33B32F99.5C3@st.mff.cuni.cz>
Patrick Verdon wrote:
>
> Hi all,
>
> I'm needing to find a database, accessible from PERL, ideally free,
> that can cope with up to 2,000,000 records, consisting of user
> name, id and probably a couple of other fields.
>
> I don't really know where to start; I've read through some archives
> at www.dejanews.com, that refer to things like GDBM, or DS_file and
> I've also been recommended 'postgres 95'.
>
> Can anyone make any other suggestions, or offer working examples?
>
> What kind of lookup times (for a given user, say) can I expect from a
> database of this size on perhaps a SPARCstation 20 or an UltraSPARC?
>
> What do I need to do to optimise speed of access?
>
> If you can offer any help I would be most grateful.
>
> Cheers.
>
> Patrick
Try
Free Database List
http://cuiwww.unige.ch/~scg/FreeDB/FreeDB.list.html
Jenda
------------------------------
Date: Thu, 26 Jun 1997 18:03:27 GMT
From: Tim Bunce <Tim.Bunce@ig.co.uk>
Subject: Re: Calling Oracle Stored Procedure from Perl using DBD/DBI
Message-Id: <ECEA5s.8uD@ig.co.uk>
In article <33B1271E.25A6@lds.com>, Michael Shannon <mshannon@lds.com> wrote:
> Hi,
>
> Can anyone give an example of calling an Oracle stored procedure that
> returns data, from Perl.
I just posted an example in reply to another message.
Tim.
------------------------------
Date: 26 Jun 1997 13:36:36 -0400
From: Clark Dorman <clark@s3i.com>
Subject: Re: calling subroutines with part of a $ as a name
Message-Id: <dd8p92rmj.fsf@s3i.com>
Randal Schwartz <merlyn@stonehenge.com> writes:
> >>>>> "Calle" == Calle ]sman <md4calle@mdstud.chalmers.se> writes:
>
> Calle> #the script
> Calle> sub text1{
>
> Calle> local($p) = @_;
>
> Calle> start_$p;
> Calle> print "done\n";
> Calle> #other stuff
> Calle> }
>
> %routine_map = (
> "apa" => \&start_apa,
> "bepa" => \&start_bepa,
> );
I'm still learning about hashes, but why do you use the quotes when
you are also using => ? I thought that one of the spiffy things about
=> was that it double quotes the left side?
Frankly, though, I still don't understand why => was added to the
language at all.
--
Clark Dorman "Evolution is cleverer than you are."
http://cns-web.bu.edu/pub/dorman/D.html -Francis Crick
------------------------------
Date: Thu, 26 Jun 1997 11:34:36 -0700
From: Jason Pociask <pociask@maricopa.edu>
Subject: Re: calling subroutines with part of a $ as a name
Message-Id: <33B2B63C.3817@maricopa.edu>
args are passed in between parens, appear in the sub as @_[0], @_[1],
etc. You can _shift_ to drop them into scalars and remove them from
the [0] position in @_ list.
Calle ]sman wrote:
>
> forgot to include the thing it was all about: how do I pass arguments?
>
> sub start_apa{
> local($meck) = @_;
> print "$meck\n";
> #do something}
>
> $tag="apa";
> #what do I type here to pass the argument to start_apa?
> #this won't work
> eval("start_".$tag) ("hello, world");
>
> shall give the result
> hello, world
>
> /Calle
------------------------------
Date: Thu, 26 Jun 1997 20:21:29 -0700
From: Jan Krynicky <Jan.Krynicky@st.mff.cuni.cz>
To: ericzim@kodak.com
Subject: Re: Client-Side Execution
Message-Id: <33B331B9.3148@st.mff.cuni.cz>
Eric Zimmerman wrote:
>
> I'm using the CGI.pm as a server-side library to interpret forms input.
> From my CGI server-side script, I am now interested in "calling" /
> "launching" an executable program that resides on the hard-drive of
> the browser client that kicked-off my CGI script.
>
> I've heard rumblings that Libwww-perl might be able to do this, but
> I'm not sure if my request is do-able, without going to a client-side
> language such as JAVA. I'd love to stay with Perl 5 if possible.
>
> By the way, I'm using: IIS 2.0, WinNT 4.0 and Perl.exe for Win32
>
> Much thanks for any help,
>
> Eric Zimmerman
> (ericzim@kodak.com)
Maybe you could try PerlScript.
It's in the Activeware's port. You can use it as JavaScript or VBScrips.
But you'd have to force your users to
1) Use MSIE 8-p
2) download and install Activevar's perl.
3) most probably dowload the modules you use.
Jenda
------------------------------
Date: 26 Jun 1997 18:38:26 GMT
From: bdwheele@indiana.edu (Brian Wheeler)
Subject: Re: Client-Side Execution
Message-Id: <5oucv2$1uo$2@dismay.ucs.indiana.edu>
Why doesn't someone write a plug-in that will let perl run on the
client? A first version wouldn't have to actually display anything...just
let it modify the fields on the form...sorta like javascript. :)
Brian Wheeler
bdwheele@indiana.edu
In article <33B331B9.3148@st.mff.cuni.cz>,
Jan Krynicky <Jan.Krynicky@st.mff.cuni.cz> writes:
>Eric Zimmerman wrote:
>>
>> I'm using the CGI.pm as a server-side library to interpret forms input.
>> From my CGI server-side script, I am now interested in "calling" /
>> "launching" an executable program that resides on the hard-drive of
>> the browser client that kicked-off my CGI script.
>>
>> I've heard rumblings that Libwww-perl might be able to do this, but
>> I'm not sure if my request is do-able, without going to a client-side
>> language such as JAVA. I'd love to stay with Perl 5 if possible.
>>
>> By the way, I'm using: IIS 2.0, WinNT 4.0 and Perl.exe for Win32
>>
>> Much thanks for any help,
>>
>> Eric Zimmerman
>> (ericzim@kodak.com)
>
>Maybe you could try PerlScript.
>It's in the Activeware's port. You can use it as JavaScript or VBScrips.
>But you'd have to force your users to
> 1) Use MSIE 8-p
> 2) download and install Activevar's perl.
> 3) most probably dowload the modules you use.
>
>Jenda
--
Brian Wheeler
bdwheele@indiana.edu
------------------------------
Date: Thu, 26 Jun 1997 14:03:45 -0400
From: Webmaster <webmaster@peachcity.com>
Subject: Is PERL a compiled language?
Message-Id: <33B2AF00.241D@peachcity.com>
I'm a newbie to PERL...how does this language run?
Thanks,
Matthew Robinson
ExecuSoft Controls, Inc.
------------------------------
Date: Thu, 26 Jun 1997 11:32:56 -0400
From: Ken Fox <foxkw@mh.us.sbphrd.com>
To: jdf@pobox.com
Subject: Re: making an associative array of scalar arrays
Message-Id: <33B28BA8.68F4@mh.us.sbphrd.com>
Jonathan Feinberg wrote:
>
> foxkw@mh.us.sbphrd.com said...
> > ## what I want to do is this
> >
> > $volumes_list{$barcode} = \$volume_data; ## line should work but
> > doesn't
>
> Unless I'm missing something--an exceedingly likely "unless"--
> you want a reference to an array, not a reference to a scalar,
> viz.:
>
> $random_hash{$arbitrary_scalar} = \@loaded_array;
>
> If $volume_data *already contains a reference to an array* then
> you needn't apply the reference operator to it.
>
> --
> Jonathan Feinberg jdf@pobox.com Sunny Manhattan, NY
I Should have stated that I tried \@loaded_array & it doesn't work
either.
Perhaps there is something wrong with perl at this end or some switch
that needs to be used with #!/bin/perl -w -some_other_switch ?
Ken
------------------------------
Date: Tue, 24 Jun 1997 23:45:54 -0500
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
To: morpheus@calweb.com
Subject: Re: Newbie : FAQ location ?? ...can u solve my problem?
Message-Id: <33B0A282.11A632AA@gpu.srv.ualberta.ca>
! ajohnson@gpu.srv.ualberta.ca in <<339E2EDA.32216F11@gpu.srv.ualberta.ca>> wrote:
! >you heard correctly...
! >FAQ's can be found online at
! >http://www.perl.com/perl/info/documentation.html
! >if you don't already have them with your perl distribution.
!
! Forbidden
!
! You don't have permission to access /perl/info/documentation.html on this
! server.
!
! You were saying? Will the real perl faq please rise?
!
hmm... it worked for me when I wrote it...
it worked again just now...
BTW, you can also try: www.perl.com/CPAN/
and then look in the doc/ directory when you get there...you
should find a FAQ/ directory in there. The FAQ's also come
with the latest distribution of perl.
regards
andrew
------------------------------
Date: Thu, 26 Jun 1997 14:03:57 -0400
From: Scott Blanksteen <sibsib@hotmail.com>
Subject: Re: Newbie needs Elegance
Message-Id: <33B2AF0D.99818269@hotmail.com>
Simon Fairey wrote:
>
> mashfiel wrote:
> > $logfile = pop(@ARGV);
> > $report = $logfile;
> > $report =~ s/.log/.html/;
>
> # Use $report = shift; if you want the first and not the last arg.
> # pop() and shift() will default to @ARGV.
> $report = pop;
> $report = $report =~ s/^(.*)\.log/REPORT$1.html/;
^ ^
unnecessary | | $ in here!
What about just
($report = pop) =~ s/(.*)\.log$/REPORT$1.html/;
?
Scott
--
Scott I. Blanksteen
sib (at) worldnet (dot) att (dot) net
------------------------------
Date: Thu, 26 Jun 1997 17:23:07 GMT
From: gerlach@netcom.com (Matthew H. Gerlach)
Subject: Re: No child processes
Message-Id: <gerlachECE8AJ.Gzx@netcom.com>
There are two ways that I have ran into this problem. The first
is quite straight forward: one just goes out of control and creates more
processes than the UNIX has been configured for. The other is a case
where a parent process "thinks" it creates children and then "thinks" it
killed them later. This results in what is called a zombie process.
look at the wait() system call in your man pages.
Matthew
------------------------------
Date: Thu, 26 Jun 1997 18:02:10 GMT
From: Tim Bunce <Tim.Bunce@ig.co.uk>
Subject: Re: Oracle Stored procedure calls from Perl
Message-Id: <ECEA3n.8t2@ig.co.uk>
In article <33B0348D.5D51@lds.com>, Michael Shannon <mshannon@lds.com> wrote:
> This seems to be a common question, that has some vague responses. I
> need to be able to call an Oracle stored procedure from perl, that
> actually returns some results. For example,
> I have an Oracle stored procedure that accepts an ID as a parameter, and
> based on that parameter, returns a social security number and a date of
> birth. Real straight forward stuff. Can I get a straight forward way to
> do this using the DBD/DBI Oracle stuff.
>
> I have read in previous threads that their is an example(test_psql) of
> this in Test.pl, but our installations of DBD-Oracle-0.45 & DBI-0.84
> have the test.pl but make no mention of test_psql.
In recent releases take a look at t/plsql.t.
Here's a complete (but untested) example based on the latest DBI:
use DBI;
$id = 0;
$ssn = 0;
$dbh = DBI->connect('dbi:Oracle:',$user,$pass);
$csr = $dbh->prepare(q{
begin :ssn = your_proc_name(:id) end;
});
$csr->bind_param(':id', $id);
$csr->bind_param_inout(':ssn', \$ssn, 100);
$csr->execute;
print "social security number: $ssn\n";
I don't see how the DBI could make it much easier!
Tim.
------------------------------
Date: Thu, 26 Jun 1997 11:00:59 -0700
From: Greg Rogalski <grogo@alum.mit.edu>
Subject: Re: Perl and Internet Information Server
Message-Id: <33B2AE5B.E4D48F53@alum.mit.edu>
I have the same problem, and I'm afraid this didn't fix it. The
solution below is for the problem on the server not finding perl on the
system, and the solution is correct, but the problem I'm having (and I
presume this applies to original poster also) is that the perl script is
run just fine, but Netscape doesn't recognize the "Content-type:
text/html\n\n" header somehow, and instead of rendering the html output
from my perl script, Netscape thinks I want to run a perl script
locally, or asks me to save it to file. I'd appreciate any answers.
Interestingly, when I use Internet Explorer 3.0, I don't have this
problem: the output is rendered as HTML.
thanks,
-greg
grogo@alum.mit.edu
Lance O'Connor wrote:
> It's a registry hack to make it recoginize you're Perl scripts, and
> that
> is...
>
> HKLM\System\CurrentControlSet\Services\W3SVC\Paramaters\Script Map
>
> Add a new REG_SZ value. The value name is the file extension of your
> script
> (i.e. ".pl") (no quotes "") and the value is the full path to the perl
>
> files
> (i.e. "d:\perl\perl.exe %s %s") You must add the two(2) %s for it to
> run
> properly.
>
> I added two entries, one for .pl and one for .cgi, just to keep users
> happy.
>
> Regards,
> Lance O'Connor
> MIS/Tech Support
> Concurrent Controls, Inc.
> loconnor@conctrls.com
>
> Almudena Eustaquio <aeustaquio@sip.es> wrote in article
> <5onubn$ie5@wendy.mad.servicom.es>...
> > I have written some code in perl who is called from a html file. The
>
> > code works on a server for Windows 95 and on a server for Unix but
> > when I try to use the code with the Internet Information server for
> > Windows NT server 4.0 it doesnt work, netscape just ask me if I
> want
> > to
> > save the code. Can someone tell me how to fix this, or what
> > the problem is?
> >
> > Please mail any responses to aeustaquio@sip.es
> >
> > Thanks
> >
> > Almudena
> >
> >
> >
------------------------------
Date: Thu, 26 Jun 1997 11:38:29 -0700
From: Greg Rogalski <grogo@alum.mit.edu>
Subject: Re: Perl and Internet Information Server
Message-Id: <33B2B724.E693F85B@alum.mit.edu>
--------------C28999EC25F51A8FD40F3F4E
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
After struggling with this for a while myself, I finally found the
answer on the Perl for Win32 FAQ , questions number 7.4 and 7.12. in
brief, here's a excerpt:
> 7.4. My CGI scripts don't seem to run right under PerlIS. What's wrong?
>
> Scripts running under PerlIS are a lot like "nph" scripts, as defined in the CGI/1.1 specification (see question 7.2).
> You have to specify the HTTP response status line as well as all headers for the response.
>
> Here's a sample that works under PerlIS:
>
> print <<"END";
> HTTP/1.0 200 OK
> Content-Type: text/html
>
>
>
>
>
>
> This is a PerlIS response.
>
>
> END
>
>
> If you don't add the HTTP status line, as above, the browser will assume that it is talking to an HTTP/0.9 server
> (the HTTP spec says that the difference between a 1.0 and an 0.9 server is the presence of the status line, and that
> good browsers should accept 0.9 responses). It will then try and treat your response headers as part of the HTML
> you are returning, so your headers will show up in the browser window, which you probably don't want.
>
Almudena Eustaquio wrote:
> I have written some code in perl who is called from a html file. The
> code works on a server for Windows 95 and on a server for Unix but
> when I try to use the code with the Internet Information server for
> Windows NT server 4.0 it doesnt work, netscape just ask me if I want
> to
> save the code. Can someone tell me how to fix this, or what
> the problem is?
>
> Please mail any responses to aeustaquio@sip.es
>
> Thanks
>
> Almudena
--------------C28999EC25F51A8FD40F3F4E
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
<HTML>
After struggling with this for a while myself, I finally found the answer
on the <A HREF="http://www.endcontsw.com/people/evangelo/Perl_for_Win32_FAQ.html">Perl
for Win32 FAQ</A> , questions number 7.4 and 7.12. in brief, here's
a excerpt:
<BR>
<BLOCKQUOTE TYPE=CITE>
<PRE>7.4. My CGI scripts don't seem to run right under PerlIS. What's wrong?
Scripts running under PerlIS are a lot like "nph" scripts, as defined in the CGI/1.1 specification (see question 7.2).
You have to specify the HTTP response status line as well as all headers for the response.
Here's a sample that works under PerlIS:
print <<"END";
HTTP/1.0 200 OK
Content-Type: text/html
This is a PerlIS response.
END
If you don't add the HTTP status line, as above, the browser will assume that it is talking to an HTTP/0.9 server
(the HTTP spec says that the difference between a 1.0 and an 0.9 server is the presence of the status line, and that
good browsers should accept 0.9 responses). It will then try and treat your response headers as part of the HTML
you are returning, so your headers will show up in the browser window, which you probably don't want.</PRE>
</BLOCKQUOTE>
<P>Almudena Eustaquio wrote:
<BLOCKQUOTE TYPE=CITE>I have written some code in perl who is called from
a html file. The
<BR>code works on a server for Windows 95 and on a server for Unix but
<BR>when I try to use the code with the Internet Information server for
<BR>Windows NT server 4.0 it doesnt work, netscape just ask me if I want
<BR>to
<BR>save the code. Can someone tell me how to fix this, or what
<BR>the problem is?
<P>Please mail any responses to aeustaquio@sip.es
<P>Thanks
<P>Almudena</BLOCKQUOTE>
</HTML>
--------------C28999EC25F51A8FD40F3F4E--
------------------------------
Date: Thu, 26 Jun 1997 20:23:12 +0200
From: Fabien Tassin <tassin@eerie.fr>
Subject: Re: Perl Win32 (W95 & NT) - SNMP and TCL/TK Modules???
Message-Id: <33B2B390.3912@eerie.fr>
Brian Gregg wrote:
>
> Does anyone know if they have been developed?
> If so where?
I'm working on a network administration tool in Perl/Tk.
It is not yet available.
Only the SNMP module is available. It is a standalone module
made 100% in Perl (5.003 and more). You can use the SNMPv1
commands :
GetRequest, GetNextRequest and SetRequest.
It is an alpha version. You can find this module and
a test program on my ftp site :
ftp://ftp.eerie.fr/users/fabien/perl/snmp/
Please, if you try it, send me your comments (succes/failure/problem..)
--
Fabien Tassin -=- tassin@eerie.fr
------------------------------
Date: Thu, 26 Jun 1997 19:19:23 GMT
From: shelle@interaccess.com (Shelle)
Subject: Re: Perl Win32 (W95 & NT) - SNMP and TCL/TK Modules???
Message-Id: <5oufbr$2co_002@interaccess.interaccess.com>
Brian Gregg <bdgregg+@pitt.edu> wrote:
>Does anyone know if they have been developed?
>If so where?
>
>Thanks in advance,
>Brian Gregg
>University of Pittsburgh Library System
>
>bdgregg+@pitt.edu
I took a quick look through the CPAN modules and the ulf ftp mirror and found
the following information:
"Tk402.001 should build and run on Windows NT using Visual C++ and
perl5.004_01. I also believe I have incorporated contributed fixes to allow
build with Borland compiler on NT." Also in the author's notes, "This version
(Tk402.001) requires perl5.003 or later. I strongly recommend using 5.004 or
5.004_01."
ftp://ftp.cis.ufl.edu/pub/perl/CPAN/modules/by-module/Tk/Tk402.001.tar.gz
I did find more current releases but this was the only one specifically
stating WinNT compatibility though it indeed may exist in the others.
As for the SNMP module, SNMP-1.6 seems to be the latest but the readme file
doesn't state that it is NT compatible - But that doesn't necessarily mean it
is not so you may want to give it a shot.
ftp://ftp.cis.ufl.edu/pub/perl/CPAN/modules/by-module/SNMP/SNMP-1.6.tar.gz
Finally, you may want to look at libwww-5.10 which may give you much of the
functionality you are seeking. There's also a LOT of documentation on this
program available.
ftp://ftp.cis.ufl.edu/pub/perl/CPAN/modules/by-module/LWP/libwww-perl-5.10.tar.
gz
BTW, I found all of this information from a little look on the CPAN ftp site
which has many mirrors and can save a lot of time waiting for your answers to
arrive. :)
Michelle ----,-'-(@
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
I'm just a beginner with Perl but I read TFM....
Michelle Feigen ----,-'-(@ shelle@interaccess.com
http://homepage.interaccess.com/~shelle/
http://homepage.interaccess.com/~shelle/grafx/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: 26 Jun 1997 19:09:44 GMT
From: wgandhi@pcocd2.intel.com (Wishwesh Gandhi - PCD ~)
Subject: Problems compiling module
Message-Id: <5ouepo$g4k$1@news.fm.intel.com>
###############Module file
package readin;
BEGIN {
use Exporter ();
# require Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ISA = qw(Exporter);
@EXPORT = qw(&ans);
%EXPORT_TAGS = ( );
@EXPORT_OK = qw();
}
use vars @EXPORT_OK;
sub ans {
print "Ask? Enter ans : ";
$ans1 = <STDIN>;
chop $ans1;
return $ans1;
}
END { } # module clean-up code here (global destructor)
################## perl file
#!/usr/bin/perl
use Getopt::Std;
getopts('o:');
use lib "/usr/perl";
use readin;
$opt_o = "me";
if (!defined $opt_o) {
print "Usage : <scrit name> -o <output region file>\n";
exit(1);
}
$rep = &ans();
print "$opt_o and $rep\n";
#################### Error Message
readin.pm did not return a true value at /usr/perl/tmp3.pl line 7.
BEGIN failed--compilation aborted at /usr/perl/tmp3.pl line 7.
I dont seem to be able to get the simple script above to work.
Can anyone please help me with this problem?..
--
-wishwesh
------------------------------
Date: 26 Jun 1997 11:45:16 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Q: an alternative to this use of "goto"?
Message-Id: <8csoy5p5j7.fsf@gadget.cscaper.com>
>>>>> "Mike" == Mike Stok <mike@stok.co.uk> writes:
Mike> In article <33B1EF30.629CFCC6@ix.netcom.com>,
Mike> Larry D'Anna <ldanna@ix.netcom.com> wrote:
>> but the amazingly useful goto is not a goto, it is a homophone. goto
>> &funcis no more the same as the much hated other forms of goto then
>> 'too' is the
>> same as 'two' or 'to'.
Mike> Then maybe it should be renamed gotoo or gotwo.
goto LABEL vs. goto &func are as different as eval "STRING" vs. eval
{block}. I think this was the point Larry was making. goto &func is
necessary and works fine. goto LABEL is evil, and should not be used.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,495.69 collected, $182,159.85 spent; just 431 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Thu, 26 Jun 1997 11:21:13 -0700
From: Simon Goland <sg@mda.ca>
Subject: Source code comparison - know of a tool?
Message-Id: <33B2B319.1806@mda.ca>
Hi,
I am looking for a tool/utility/script (partial or complete) that will
compare various programs in C/C++/Java and tell me how closely they
resemble each other. I teach these programming courses, and would like
to get an accurate estimate of "program resemblance" when checking the
assignments of my students... because some programs look way too similar
to each other. The good-old "hhmmm, I have just seen almost exactly the
same program..." method works OK on small programs, but on large ones,
having over 60 students, it is not too accurate any more.
I know I can spend some time (or maybe a bit more... ;-) writing such a
utility, which will compare two source files and tell me how identical
these are. For example, if the only thing changed is the names of the
variables, and the rest is the same, etc... . And it makes sense to
write something like that in Perl. I just don't want to reinvent the
wheel, and assume that at least parts of it were invented already.
Ideally many parts...
So if you know of something that might be of help, in Perl or not, I
would appreciate any tips. And perhaps you can email me directly as
well.
Thanks,
--
[ Simon Goland B-)> sg@mda.ca ]
[ Without action there is no change ]
------------------------------
Date: 26 Jun 1997 19:39:34 GMT
From: deckers@man.ac.uk (A. Deckers)
Subject: Re: Source code comparison - know of a tool?
Message-Id: <slrn5r5hbm.6o0.deckers@news.rediris.es>
In <33B2B319.1806@mda.ca>,
Simon Goland <sg@mda.ca> wrote:
>Hi,
>
>I am looking for a tool/utility/script (partial or complete) that will
>compare various programs in C/C++/Java and tell me how closely they
>resemble each other. [...]
/usr/bin/diff
(followup set)
HTH,
Alain
--
Perl information: <URL:http://www.perl.com/perl/>
Perl archive: <URL:http://www.perl.com/CPAN/>
Perl FAQ: <URL:http://www.perl.com/CPAN/doc/FAQs/FAQ/>
>>>>>>>>>>>>> NB: comp.lang.perl.misc is NOT a CGI group <<<<<<<<<<<<<<
------------------------------
Date: 26 Jun 1997 19:11:00 GMT
From: creed@rescol.fse.ulaval.ca (Carlos Reed)
Subject: telnet port 80 get & measge
Message-Id: <creed-2606971512410001@fse-did01.fse.ulaval.ca>
Hi gang!
I'm wondering if there is a script
that telnets a host at port 80
captures any thing from that host
an then it says succeed.
I' just wanna now if a process from a remote 4Dimension DB is still
running, capture this and if the process is down send a pager vi hylafax.
any hints.
creed@fse.ulaval.ca
------------------------------
Date: Thu, 26 Jun 1997 18:33:44 +0100
From: "Tris Strange" <tris.strange@btinternet.com>
Subject: Re: What does "UNIX" stand for..
Message-Id: <5ou9ca$aud@neon.btinternet.com>
Ron McFarland wrote in article <5ol5mq$873$1@tsunami.wavetech.net>...
>In article <33A562FC.3126@cs.odu.edu>, eddie@cs.odu.edu says...
>>
>>av wrote:
>>>
>>> Bill (Gates) Erwin wrote:
>>>
>>> > UNIX started out as "Castrated MULTICS" and was shortened from
>there.
>>> > Check out the "UNIX Haters Handbook" for further details.
>>> >
>>> > Bill
>>>
>>> I don't know what the "UNIX Haters Handbook" is, but sounds like
>>> bullshit...
>>
>>If operating systems were programming languages UNIX would be C
>>and Win95 would be BASIC with line numbers. :)
>
>Naw. Win95 would be like C++. ;)
>
>
No! Win95 would be like LOGO! (that shity language that lets you move a
turtle about on the floor!)
------------------------------
Date: 26 Jun 1997 19:48:17 GMT
From: voelter@acm.org (Markus Voelter)
Subject: Re: WWW Languages Guide: Correct WWW adrede
Message-Id: <5ouh21$oee$19@news.belwue.de>
Re: WWW Languages Guide: Correct WWW adress
Once again WWW Languages Guide:
I noticed that they changed the name of the web server TODAY.
The correct Adress for WWW Programming languages Guide is:
http://ti-voyager.fbe.fh-weingarten.de/~voelter/w3plg/index.html
Sorry for the inconvenience. Please drop by anyway.
regards, Markus
----------------------------------------------------------------------
Markus Voelter http://next1.rz.fh-weingarten.de/~voelter
voelter@acm.org phone/fax: (Germany) 0751 / 46928
---------------------------------------------------------------------
------------------------------
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 669
*************************************
