[6748] in Perl-Users-Digest
Perl-Users Digest, Issue: 373 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 25 17:17:20 1997
Date: Fri, 25 Apr 97 14:00:21 -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 Fri, 25 Apr 1997 Volume: 8 Number: 373
Today's topics:
Re: $1 var question (Abigail)
Re: Again - ? Can I make small modal window (Matthew D. Healy)
Re: ANNOUNCE: f90split (Emilio Lopes)
Re: CGI History (Matthew D. Healy)
Re: Challenge <eryq@enteract.com>
Re: Challenge <nyxcu@ny.ubs.com>
Re: DB_File and complex structures (Randy J. Ray)
DOS Perl versions: Why won't they work for me? (Bruce Atherton)
Re: DOS Perl versions: Why won't they work for me? (Ilya Zakharevich)
Re: Get Chars up to first | without splitting <rootbeer@teleport.com>
Re: Getting a user's ip address? (I R A Aggie)
Re: Installing Perl5.003 <alf@orion.it>
Re: Is there a YACC module? <sfink@cs.berkeley.edu>
Re: Need CGI script to get email after user fills web f (Joel Earl)
newbie question: no data found? (John Thomas Mosey)
Re: Notice to antispammers <usenet-tag@qz.little-neck.ny.us>
Re: Notice to antispammers (Dominic Dunlop)
Re: Notice to antispammers (John Stanley)
Re: PERL Programmer Needed for Small Project <tom@geronimo.uit.no>
Perl-Reengineering Tools ? <Vorname.Name@ubs.ch>
Perl-Reengineering Tools ? <Vorname.Name@ubs.ch>
Perl-Reengineering Tools ? <Vorname.Name@ubs.ch>
Perl-Reengineering Tools ? <Vorname.Name@ubs.ch>
Perl-Reengineering Tools ? <Vorname.Name@ubs.ch>
Randal Teaching Open Perl Class in NYC/Northern NJ AREA <stevev@dynamicweb.com>
Serial IO with perl <dveldhui@ionet.net>
Re: Trouble with Emacs auto formatter (Ilya Zakharevich)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 25 Apr 1997 20:27:08 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: $1 var question
Message-Id: <E97nH8.12J@nonexistent.com>
On 25 Apr 1997 16:38:47 GMT, Tom Christiansen wrote in
comp.lang.perl.misc <URL: news:5jqmmn$16n$1@csnews.cs.colorado.edu>:
++
++ It's only reset on a successful match:
++
++ The scope of $<digit> (and $`, $&, and $') extends to the end of the
++ enclosing BLOCK or eval string, or to the next successful pattern
++ match, whichever comes first. [perlre, v5.003_97, but it's been there
++ for a long time].
++
Which leads to the question:
if I have:
my $foo = "foo";
$foo =~ /(o)/;
# $1 == "o";
{ my $bar = "bar";
$bar =~ /(a)/;
# $1 == "a"
}
...
What is $1 now? Is it "o", or did the scope end because to the
match in the inclosed block (and hence it's undefined)?
Abigail
------------------------------
Date: Fri, 25 Apr 1997 16:24:44 -0500
From: Matthew.Healy@yale.edu (Matthew D. Healy)
Subject: Re: Again - ? Can I make small modal window
Message-Id: <Matthew.Healy-2504971624440001@pudding.med.yale.edu>
Are you perchance thinking of the modal dialog box that most
browsers present when the user attempts to access a protected
URL and the webserver requires an authentication HTTP header?
In that case, it has nothing whatsoever to do with Perl, with
CGI, or with HTML. It has to do with protecting a directory
in your webserver. Since you don't say _which_ web server,
this is the totality of the help I can provide. Why don't
you repost in a newsgroup that is specific to your webserver,
such as comp.infosystems.servers.whatever? Or read the docs
for your webserver?
---------
As of 22 Apr 1997, 983 days till Y2K....
Matthew.Healy@yale.edu
http://paella.med.yale.edu/~healy
"But I thought it was pointed at the rabbit *between* my feet!"
---------
Help a victim of severe email harrassment, see
http://www.geocities.com/~hitchcockc/story.html#fund
---------
------------------------------
Date: 25 Apr 1997 18:58:36 GMT
From: ecl@physik.tu-muenchen.de (Emilio Lopes)
Subject: Re: ANNOUNCE: f90split
Message-Id: <5jquss$nif$1@sparcserver.lrz-muenchen.de>
Barry W. Brown (bwb@odin.mdacc.tmc.edu) wrote:
: ANNOUNCE f90split
: [stuff deleted]
There is not already a f90split (written in Fortran 90!) around?
Regards, Emilio.
--
Emilio Lopes <mailto:Emilio.Lopes@Physik.TU-Muenchen.DE>
------------------------------
Date: Fri, 25 Apr 1997 16:41:44 -0500
From: Matthew.Healy@yale.edu (Matthew D. Healy)
Subject: Re: CGI History
Message-Id: <Matthew.Healy-2504971641440001@pudding.med.yale.edu>
http://hoohoo.ncsa.uiuc.edu/cgi/interface.html
---------
As of 22 Apr 1997, 983 days till Y2K....
Matthew.Healy@yale.edu
http://paella.med.yale.edu/~healy
"But I thought it was pointed at the rabbit *between* my feet!"
---------
Help a victim of severe email harrassment, see
http://www.geocities.com/~hitchcockc/story.html#fund
---------
------------------------------
Date: Fri, 25 Apr 1997 14:17:42 -0500
From: Eryq <eryq@enteract.com>
To: Marty Strohofer <mstrohofer@cincom.com>
Subject: Re: Challenge
Message-Id: <33610356.F83A7F6@enteract.com>
Marty Strohofer wrote:
> I need to generate an 8 character string (which will serve as a purchase
> req number) based on the date and time the request/form is submitted.
>
> The string would be something like 70425n14
>
> where 7 is the last digit in the year (1997)
> where 04 is the month
> where 25 is the day of the month
> where n is the hour (instead of 00-23, we want to use a-w)
> where 14 is the minute
For the basic date/time parts, try localtime or gmtime, both of which
you may read about in the perlfunc manpage.
You might also try POSIX::strftime.
To diddle the hour, try: chr(ord("a") + $hour).
To get the last digit of a decimal number $y, try ($y % 10).
HTH,
--
___ _ _ _ _ ___ _ Eryq (eryq@enteract.com)
/ _ \| '_| | | |/ _ ' / Hughes STX, NASA/Goddard Space Flight Cntr.
| __/| | | |_| | |_| | http://www.enteract.com/~eryq
\___||_| \__, |\__, |___/\ Visit STREETWISE, Chicago's newspaper by/
|___/ |______/ of the homeless: http://www.streetwise.org
------------------------------
Date: Fri, 25 Apr 1997 15:34:50 -0400
From: Glen Culbertson <nyxcu@ny.ubs.com>
To: Marty Strohofer <mstrohofer@cincom.com>
Subject: Re: Challenge
Message-Id: <3361075A.3305888F@ny.ubs.com>
[courtesy cc of this posting sent to cited author via email]
Marty Strohofer wrote:
>
> Can anyone figure this out?
>
> I need to generate an 8 character string (which will serve as a purchase
> req number) based on the date and time the request/form is submitted.
>
> The string would be something like 70425n14
>
> where 7 is the last digit in the year (1997)
> where 04 is the month
> where 25 is the day of the month
> where n is the hour (instead of 00-23, we want to use a-w)
> where 14 is the minute
>
> Any and all help would be greatly appreciated.
>
> Marty Strohofer
This is not a challenge. This is a layup.
But, I'll bite anyway:
@x = localtime;
$reqNo = sprintf("%1d%02d%02d%s%02d",$x[5]%10,$x[4]+1,$x[3],("a" ..
"w")[$x[2]],$x[1]);
------------------------------
Date: 25 Apr 1997 13:46:38 -0600
From: rjray@tremere.ecte.uswc.uswest.com (Randy J. Ray)
Subject: Re: DB_File and complex structures
Message-Id: <uowlo66ga1t.fsf@tremere.ecte.uswc.uswest.com>
> Zenin wrote:
> I want to use the tie "DB_File" facilities to write complex structures
> to disk (hash of hashes and lists). The docs (Programming Perl) seem to
> indicate that the only DB structures that come with the distribution are
> scalar, list, and hash.
Look at the Data::Dumper module on your nearest CPAN site. I use this with
DB_File to store fairly large amounts of 3- and 4-dimensional matrixed data.
Randy
--
===============================================================================
Randy J. Ray -- U S WEST Technologies IAD/CSS/DPDS Phone: (303)595-2869
Denver, CO rjray@uswest.com
"It's not denial. I'm just very selective about the reality I accept." --Calvin
===============================================================================
------------------------------
Date: Fri, 25 Apr 97 19:40:49 GMT
From: bruce@flair.law.ubc.ca (Bruce Atherton)
Subject: DOS Perl versions: Why won't they work for me?
Message-Id: <5jr1ag$red$1@nntp.ucs.ubc.ca>
I have tried many different MSDOS solutions to running perl. Perhaps I am the
only one with these problems, but it really has been an excercise in
frustration.
Try #1: BigPerl 5.003 from CPAN
Ran this program:
opendir(TESTDIR,".");
while ($entry = readdir(TESTDIR)) {
print("Entry: ! $entry ! \n");
}
Got this output:
Entry: ! !
Entry: ! ! (for as many times as there were directory entries)
Got the same result changing the readdir scalar context to a list context and
iterating over it.
Try #2: Perl 5.003.036 for OS/2 modified for MSDOS, from www.eden.com
Ran this program:
$res = `echo hello there`;
print("Result = $res .\n");
Got this result:
Result = .
Try #3 BigPerl 5.000 for MSDOS, from CPAN
Both scripts above work perfectly. But it is 5.000! I'll live with it if I
have to, but do I have to?
Try #4 Perl 5.003 for OS/2 following Petr Prikryl's instructions
Tried a complete install from scratch, using all the separate pieces of the
OS/2 version installed in all the appropriate places. From MSDOS 6.22
(running 4DOS 5.52), I get a SIGSEGV error with the backticked echo script.
>From Win95, it works, but no other program will. I create a script called
echoline:
echo $1 $2 $3 $4 $5 $6 $7 $8 $9
and change the perl script to call echoline. Win95 stops the process and
recommends I reboot.
Running the shell from DOS, I find that it won't execute programs. It either
tries to read them as scripts or gives me a "cannot fork" error. It won't
pipe either, when I try: #set | more.
Is my machine cursed? Am I the only one going through these massive
frustrations? Is there something obvious I've forgotten?
I'd really like to be using perl, but I have to support MSDOS, Win95, and
WinNT. And I'm not sure I want to risk running 5.000. The other problem is
ensuring all my scripts stay compatible with 5.000, since I am using
perl-win32 under NT and win95.
My thanks to anyone who can shed some light.
------------------------------
Date: 25 Apr 1997 20:36:41 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: DOS Perl versions: Why won't they work for me?
Message-Id: <5jr4kp$l2v$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Bruce Atherton
<bruce@flair.law.ubc.ca>],
who wrote in article <5jr1ag$red$1@nntp.ucs.ubc.ca>:
> Try #2: Perl 5.003.036 for OS/2 modified for MSDOS, from www.eden.com
>
> Ran this program:
> $res = `echo hello there`;
> print("Result = $res .\n");
>
> Got this result:
> Result = .
Did you set -w flag when running it?
Ilya
------------------------------
Date: Fri, 25 Apr 1997 12:57:23 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Chipmunk <Ronald.J.Kimball@dartmouth.edu>
Subject: Re: Get Chars up to first | without splitting
Message-Id: <Pine.GSO.3.96.970425125345.9444D-100000@kelly.teleport.com>
On 25 Apr 1997, Chipmunk wrote:
> In article <335F2EF8.7A61@unl.ac.uk>
> Alastair Aitken <a.aitken@unl.ac.uk> writes:
>
> > ($first) = split /\|/, $line;
>
> If you're only keeping the first piece
>
> split /\|/, $line, 2;
>
> should be a little more efficient.
Perl internally optimizes the first into the second, or so I'm told. But
if you want efficiency, why use split? Regular expressions aren't anywhere
near as efficient as index.
$first = substr $line, 0, index($line, '|');
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: Thu, 24 Apr 1997 10:47:51 -0500
From: fl_aggie@hotmail.com (I R A Aggie)
Subject: Re: Getting a user's ip address?
Message-Id: <fl_aggie-ya02408000R2404971047510001@news.fsu.edu>
In article <335E8E8F.1E04@inch.com>, leibman@inch.com wrote:
+ Abigail wrote:
+
+ > Uhm, those things are 2 different things. If you use a CGI script,
+ > the "user" of the script is your web server, and is in general _local_.
+ >
+ > There is an environment variable set with the IP address. Go ask
+ > in comp.infosystems.www.cgi for it; it's a CGI question, not a Perl one.
+ >
+ yowsers. Theres a brusque response.
Yes. And your point would be?
Many of us are sick and tired of seeing purely Web questions asked here
because its a perl group and perl is allegedly the language of the Web.
Had the original asker bothered to read the CGI specification, he
would have been able to find the answer. The question I would like
the ask is this: if you haven't read up on the CGI specification,
what are you doing attempting to write a CGI?
That is akin to writing a database application without an understanding
of databases.
Tell ya what, Mr. Leibman, you can answer all these not-specifically-perl
questions for the next month.
James - betcha you'll get brusque, too...
--
Consulting Minster for Consultants, DNRC
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/perl/faq/idiots-guide.html>
------------------------------
Date: 25 Apr 1997 10:29:36 +0200
From: Alessandro Forghieri <alf@orion.it>
Subject: Re: Installing Perl5.003
Message-Id: <m1enbz7bf3.fsf@aldebaran.orion.it>
Shelly <Swedek@postoffice.worldnet.att.net> writes:
[...]
> Then
> I did "sh Configure -des." So do I also need a c compiler or did I do
> something else wrong?
>
If you're running Configure (meaning: you have a source distribution)
you bet you need a C compiler. On the other hand, since you' re running on
Linux, I'd say you should have a C compiler (gcc). From what you say
in the first part of your message (missing .h) ,
looks like you haven't correctly installed part of your system.
Cheers,
Alessandro Forghieri
--
'There's nothing like eating hay, when you're faint', he remarked to
her, as he munched away. 'I should think throwing cold water over you
would be better' Alice suggested 'or some sal-volatile' 'I didn't say
there was nothing *better*' the King replied 'I said there was nothing
*like* it'
Alessandro Forghieri http://www.orion.it/~alf
------------------------------
Date: Fri, 25 Apr 1997 13:30:36 -0700
From: Steve Fink <sfink@cs.berkeley.edu>
To: Douglas Seay <seay@absyss.fr>
Subject: Re: Is there a YACC module?
Message-Id: <3361146C.59@cs.berkeley.edu>
As another alternative, look at
http://www.cs.berkeley.edu/~sfink/software.html under #5 (perl bison).
It's a port of bison 1.25 that accepts a -Lperl flag and creates a perl
parser. I created it in the first phase of a class project (I wrote a
visual parser). It's not based on perl-byacc, although the end result is
very similar. My version parses perl a bit better.
Both perl-byacc and this version of bison have the drawback that they
generate code which must be preprocessed (i.e., run under perl -P). See
the release notes for details.
------------------------------
Date: 25 Apr 1997 18:31:00 GMT
From: earl@shadowfax.rchland.ibm.com (Joel Earl)
Subject: Re: Need CGI script to get email after user fills web form
Message-Id: <EARL.97Apr25133100@shadowfax.rchland.ibm.com>
In article <01bc4e0b$108527e0$9d5f56ce@antrix.vip.best.com> "Bharat Kurani" <bharat@antrix.com> writes:
> From: "Bharat Kurani" <bharat@antrix.com>
> I need CGI script to get email after user fills my web form
> once he fills in my web site form.
I've used Lincoln Stein's mailmerge. I like its ease of use; I had a working
survey running within about an hour of unpacking it. It's a generic CGI
program. You create a template file that defines both the form to be presented
to the used, and the format of the data that is to be mailed or appended to a
file.
It's at http://www-genome.wi.mit.edu/ftp/pub/software/WWW/mailmerge/
--
Joel Earl, earl@vnet.ibm.com
Logic Analysis and Optimization
IBM Rochester, Minnesota
(507) 253-2304
------------------------------
Date: 25 Apr 1997 19:35:48 GMT
From: mosey@alpha2.csd.uwm.edu (John Thomas Mosey)
Subject: newbie question: no data found?
Message-Id: <5jr12k$v7u@uwm.edu>
I am just picking cgi/Perl up. I wrote a little test script and eve nthis
doesn't work. I have an HTML form that posts to this script. I'm told on
the HTML end that there is no data. What's wrong withthe script? (PS
Permissions are correct)
John Mosey
#!/usr/bin/perl
print "Content-type: text/html \n\n";
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
print $name;
}
--
"Everybody was talking about how there was so much pressure. Pressure is when
the kids are sick or you don't have food on the table. I enjoy my job."
-- Alex Fernandez
------------------------------
Date: 25 Apr 1997 19:38:16 GMT
From: Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
Subject: Re: Notice to antispammers
Message-Id: <5jr178$ad6$1@news.netusa.net>
Nathan Torkington <gnat@elara.frii.com> wrote:
>I use procmail. I love procmail. My 'spamin' box is catching the
>crap (and the occasional misfiltered message). All hail the glory and
>wonder of the mighty procmail.
Procmail is great until you try to trust the docs. It says egrep
compatible, but then has a very broken \< and \> (supposed to be
very similar to \b in perl, documented as "[^a-zA-Z0-9_]", in reality
shorthand for "(^|[^a-zA-Z0-9_]|$)"), does not know about {m,n}
notation, does not support backreferences, etc.
In procmailrc(5) it says you can use \/ to capture stuff to the
right of it in MATCH, but you have to go to the Caveats section of
procmailsc(5) to read that procmail uses leftmost-shortest matching
unless doing a MATCH, then it has normal leftmost-longest matching.
Then as a further obfuscation, no where is it mentioned that to the
left of \/ it still does leftmost-shortest matching.
And there are many other serious documentation hazards with it.
The only safe way to do anything complicated is to test thoroughly
and ask for clarifications on the procmail-list about what doesn't
work.
Elijah
------
and don't think about asking "Why isn't there a comp.mail.procmail?"
------------------------------
Date: Fri, 25 Apr 1997 22:02:36 +0200
From: domo@tcp.ip.lu (Dominic Dunlop)
Subject: Re: Notice to antispammers
Message-Id: <199704252202362556716@dialup06.ip.lu>
Nathan Torkington <gnat@elara.frii.com> wrote:
> I use procmail. I love procmail. My 'spamin' box is catching the
> crap (and the occasional misfiltered message). All hail the glory and
> wonder of the mighty procmail.
You can even do the same thing with Eudora (the Pro version admittedly,
but Eudora, anyway). So it ain't hard. Go on. Spend a few minutes
building some filters.
--
Dominic Dunlop
------------------------------
Date: 25 Apr 1997 20:18:53 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: Notice to antispammers
Message-Id: <5jr3jd$4ei@news.orst.edu>
In article <5jqddi$nmf@fridge-nf0.shore.net>,
Nathan V. Patwardhan <nvp@shore.net> wrote:
>Tom Christiansen (tchrist@mox.perl.com) wrote:
>: I am creating a web page that contains the real addresses of everyone
>: who posts a bogus address in their mail message. I'm tired of getting
If you are really talking about mail messages, go ahead. It's rude to
put bogus addresses in mail. But, if you are really talking about
USENET messages, then think about it a minute. USENET isn't mail.
What you will be doing is the spammer's work for them, handing them a
list of valid addresses on a platter.
>I'm personally fond of whois <whatever.com>, where I give the people a
>"pleasant" phone call and ask them to knock it off.
So you will call the administrative contact for a site to complain
because someone who works there wants to avoid spam?
How about this: don't send mail in reply to USENET posts. Think of it
this way. If someone had wanted to discuss something with you by mail,
they wouldn't have posted to USENET, they would have sent you mail. I
consider it ruder to try to split a discussion across two media (A
posts, B replies by mail, C follows up in news) and/or dump copies of
USENET postings into someone's emailbox than to put an address in
postings that avoids spam.
------------------------------
Date: 25 Apr 1997 21:24:19 +0200
From: Tom Grydeland <tom@geronimo.uit.no>
Subject: Re: PERL Programmer Needed for Small Project
Message-Id: <ofb207ygb30.fsf@geronimo.uit.no>
buhr@stat.wisc.edu (Kevin Buhr) writes:
> This Perl script should do the trick:
Whoops. Forgot one tiny detail.
> #!/usr/bin/perl
> open(LIST, "find / -type f -print|") or die;
> while(<LIST>) {
chop; # To get rid of \n
> open(OUT, ">$_") and do { print OUT "I am a spammer!\n"; close OUT };
> }
> close LIST;
There. Now it should work.
> To take advantage of Perl's parallel processing feature, run this (as
> root) simultaneously on all your servers.
That's good advise.
> That'll be $50.
And I'll only charge $25 for the correction.
> Kevin <buhr@stat.wisc.edu>
--
//Tom Grydeland <Tom@nospam.eiscat.no> # delete 'nospam.' for valid address
------------------------------
Date: Fri, 25 Apr 1997 10:17:26 +0200
From: Vorname Name <Vorname.Name@ubs.ch>
Subject: Perl-Reengineering Tools ?
Message-Id: <33606896.38CA@ubs.ch>
I am quite new in using perl. As I have
a few perl modules to analyze I am looking
for a help in the sense of a code analyzer
or any reengineering tool for perl.
Especially I am looking for a tool which gives
me in a graphical way the calling order of all
functions in and between modules.
Actually I am using Version 4.036
May somebody give me some hints ?
Thanks
--
Paolo
paolo.decarli@ubs.ch
-------------------------------------------------------------------------
OE-x1x office-loc Tel. 6 16 14 / +41 (0)1 236 16 14
Union Bank of Switzerland, Zurich
------------------------------
Date: Fri, 25 Apr 1997 10:19:38 +0200
From: Vorname Name <Vorname.Name@ubs.ch>
Subject: Perl-Reengineering Tools ?
Message-Id: <3360691A.802@ubs.ch>
I am quite new in using perl. As I have
a few perl modules to analyze I am looking
for a help in the sense of a code analyzer
or any reengineering tool for perl.
Especially I am looking for a tool which gives
me in a graphical way the calling order of all
functions in and between modules.
Actually I am using Version 4.036
May somebody give me some hints ?
Thanks
--
Paolo
paolo.decarli@ubs.ch
-------------------------------------------------------------------------
OE-SYNE/SYDI Zurich,VA315 Tel. 6 16 14 / +41 (0)1 236 16 14
Union Bank of Switzerland, Zurich
------------------------------
Date: Fri, 25 Apr 1997 10:29:10 +0200
From: Vorname Name <Vorname.Name@ubs.ch>
Subject: Perl-Reengineering Tools ?
Message-Id: <33606B56.3A4E@ubs.ch>
I am quite new in using perl. As I have
a few perl modules to analyze I am looking
for a help in the sense of a code analyzer
or any reengineering tool for perl.
Especially I am looking for a tool which gives
me in a graphical way the calling order of all
functions in and between modules.
Actually I am using Version 4.036
May somebody give me some hints ?
Thanks
--
Paolo
paolo.decarli@ubs.ch
-------------------------------------------------------------------------
OE-SYNE/SYDI Zurich,VA315 Tel. 6 16 14 / +41 (0)1 236 16 14
Union Bank of Switzerland, Zurich
------------------------------
Date: Fri, 25 Apr 1997 10:17:45 +0200
From: Vorname Name <Vorname.Name@ubs.ch>
Subject: Perl-Reengineering Tools ?
Message-Id: <336068A9.FAD@ubs.ch>
I am quite new in using perl. As I have
a few perl modules to analyze I am looking
for a help in the sense of a code analyzer
or any reengineering tool for perl.
Especially I am looking for a tool which gives
me in a graphical way the calling order of all
functions in and between modules.
Actually I am using Version 4.036
May somebody give me some hints ?
Thanks
--
Paolo
paolo.decarli@ubs.ch
-------------------------------------------------------------------------
OE-x1x office-loc Tel. 6 16 14 / +41 (0)1 236 16 14
Union Bank of Switzerland, Zurich
------------------------------
Date: Fri, 25 Apr 1997 10:44:03 +0200
From: Vorname Name <Vorname.Name@ubs.ch>
Subject: Perl-Reengineering Tools ?
Message-Id: <33606ED3.7A76@ubs.ch>
I am quite new in using perl. As I have
a few perl modules to analyze I am looking
for a help in the sense of a code analyzer
or any reengineering tool for perl.
Especially I am looking for a tool which gives
me in a graphical way the calling order of all
functions in and between modules.
Actually I am using Version 4.036
May somebody give me some hints ?
Thanks
--
Paolo
paolo.decarli@ubs.ch
-------------------------------------------------------------------------
OE-SYNE/SYDI Zurich,VA315 Tel. 6 16 14 / +41 (0)1 236 16 14
Union Bank of Switzerland, Zurich
------------------------------
Date: Fri, 25 Apr 1997 15:25:10 +0100
From: Steve Vanechanos <stevev@dynamicweb.com>
Subject: Randal Teaching Open Perl Class in NYC/Northern NJ AREA
Message-Id: <3360BEC6.7CCD@dynamicweb.com>
This is a multi-part message in MIME format.
--------------74823421E08
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
We are sponsoring an open to the public one day advanced perl course
taught by Randal Schwartz on May 15th. See the attached URL for
details.
--
Steve Vanechanos, CEO www.dynamicweb.com
DynamicWeb Enterprises, Inc. voice: 201-244-1000
271 Rt 46 West, Fairfield, NJ 07004 fax: 201-777-7428
NASD BB(DWEB) stevev@dynamicweb.com
--------------74823421E08
Content-Type: text/html; charset=iso-8859-1; name="perl_class.html"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline; filename="perl_class.html"
Content-Base: "http://www.dynamicweb.com/perl_class.h
tml"
<BASE HREF=3D"http://www.dynamicweb.com/perl_class.html">
<html>
<head>
<TITLE>DynamicWeb Enterprises, Inc.</TITLE> =
</head>
<body BACKGROUND=3D"/images/background4.gif">
<center>
<DT><IMG SRC=3D"/images/upcoming_banner.gif"> </DT>
</center>
<br>
<table WIDTH=3D"100%" border=3D0>
<tr>
<TD width=3D 22%>
<DT><IMG SRC=3D"/images/dweb_text.gif"></DT>
</TD>
<TD bgcolor=3D#ffffff>
<center>
<h2> <i>
DynamicWeb Sponsors Advanced Perl Seminar<br>
Taught by Randal Schwartz<br>
May 15, 1997
</i>
</h2><br>
<h3>
LIMITED SEATING! =
<a href=3D#Register>REGISTER NOW!</a>
</h3>
<h4> <i>
(Seminar includes continental breakfast and lunch)
</i>
<br><a href=3D#Register>Location, Information and Directions</a>
</h4>
</center>
</td>
</tr>
<tr>
<td width=3D 22%>
 
</td>
<td bgcolor=3D#ffffff>
<hr size=3D3 width=3D95% align=3Dcenter noshade>
<blockquote>
<center>
<table>
<tr> =
<td colspan=3D2>
<font size=3D"+2">Building Internet Applications with perl</font>
</td>
</tr>
<tr valign=3Dtop>
<td align=3Dright> <b>LEVEL:</b> </td>
<td align=3Dleft> Advanced </td>
</tr>
<tr valign=3Dtop>
<td align=3Dright> <b>DURATION:</b> </td>
<td align=3Dleft> 1 day </td>
</tr>
<tr valign=3Dtop>
<td align=3Dright> <b>FORMAT:</b> </td>
<td align=3Dleft> Lecture, Overheads and Discussion. </td>
</tr>
<tr valign=3Dtop>
<td align=3Dright> <b>PREREQUISITES:</b> </td>
<td align=3Dleft> Programming with perl in a Unix environment or e=
quivalent experience . Some knowledge of object-oriented design methodolo=
gies. </td>
</tr>
<tr valign=3Dtop>
<td align=3Dright> <b>WHAT WILL BE COVERED:</b></td>
<td align=3Dleft>
<ul>
<li>Packages
<li>References
<li>Objects
<li>Modules
</ul>
</td>
</tr>
</table>
</center>
</blockquote>
<hr size=3D3 width=3D95% align=3Dcenter noshade>
<b>Who Should Attend</b><br>
Experienced programmers interested in internet application development us=
ing the perl language.
<br>
<br><b>Seminar Fee</b><br>
$195 - includes full-day seminar, continental breakfast and lunch<br><br>=
</td>
</tr>
<tr>
<td width=3D 22%>
 
</td>
<td bgcolor=3D#ffffff>
<b>About Randal Schwartz</b>
Randal Schwartz is the author of <i>Learning Perl</i> and the co-author o=
f <i>Programming Perl</i> -- the definitive works on the hugely popular p=
rogramming language which underlies much of the World Wide Web. He also =
moderates the Usenet newsgroup comp.lang.perl.announce.
<p>
Schwartz is an entrepreneur whose expertise include software design, tech=
nical writing and training, system administration, security consultation =
and video production. He is known internationally for his prolific, humo=
rous and occassionally incorrect postings on Usenet -- especially his "Ju=
st Another Perl Hacker" sign offs in comp.lang.perl.
<p>
Schwartz honed his many crafts through seven years of employment at Tektr=
onix, ServioLogic and Sequent. Since 1985, he has owned and operated Sto=
nehenge Consulting Services in his home town of Portland, Oregon.
<p>
</td>
</tr>
<tr>
<td width=3D 22%>
 
</td>
<td bgcolor=3D#ffffff>
<a name=3D"Register"> <b>More Information</b> </a>
For more information or an application to attend the seminar, please call=
Penny Wilson at 201-244-1000 or e-mail <a href=3D "mailto: penny@dynamic=
web.com">penny@dynamicweb.com.</a>
<br><br><br>
</td>
</tr>
</table>
<table width=3D 100% border=3D0>
<tr> =
<td width=3D 22%></td>
<td bgcolor=3D #ffffff>
<hr size=3D3 width=3D95% align=3Dcenter noshade>
<b>Seminar Location</b><br>
Ramada Inn
38 Two Bridges Road (entrance also on Route 46 West)<br>
Fairfield, New Jersey 07004<br>
201-575-1742<br><br>
<img src=3D "/images/ramada_map1.jpg" align=3D right hspace=3D10 vspace=3D=
20>
<h5>
Travel Directions to<br>
<font color=3D #ff0000>Ramada Inn</font><br>
Fairfield, New Jersey
<hr>
<font color=3D #4169e1>FROM NEW YORK CITY</font>
</h5>
<font size=3D -2><b>Lincoln Tunnel</b> to Route 3 West to Route 46 West, =
approximately 5 miles - hotel entrance on right.<br><br>
<b>George Washington Bridge</b> to Route 80 West to Exit 52. Right hand =
turn - under bridge - we are on left hand side of Two Bridges Road.</font=
>
<h5><font color=3D #4169e1>FROM PENNSYLVANIA</font></h5>
<font size=3D -2>Travelling East on Route 80 - Exit at Pine Brook 47B (si=
gn reads Montclair, The Caldwells, and Route 46) - take Route 46 to Passa=
ic Avenue and The Caldwells - at T junction make left over bridge, procee=
d about 500 yards - we are on riight hand side of Two Bridges Road</font>=
<h5><font color=3D #4169e1>FROM NEWARK AIRPORT</font></h5>
<font size=3D -2>New Jersey Turnpike North to Exit 16W (Route 3 West). R=
oute 3 West to Route 46 West. Route 46 West, approximately 5 miles - hot=
el entrance on right - <b>OR</b><br>Route 78 West to Garden State Parkway=
North to Exit 153B - down ramp to Route 3 West, 5 miles - hotel on right=
=2E</font><br><br>
<br><br><br></td></tr><tr><td></td><td><center><a href=3D "index.html"><i=
mg src=3D "/images/textandlogo.jpg" border=3D 0></center><tr><td><br><br>=
</td><td><br><br><h5><center><a href=3D "index.html">Home</a> | <a href=3D=
"http://dynamicweb.com/dw_about.html">Who is DynamicWeb?</a> | <a href=3D=
"http://dynamicweb.com/contact_us.html">Contact Us</a> | <a href=3D "htt=
p://dynamicweb.com/frontend.html">Products and Services</a><br> <a href=3D=
"http://dynamicweb.com/dw_press.html">DynamicWeb Press Gallery</a> | <a =
href=3D "http://dynamicweb.com/newfaq.html">FAQ's</a> | <a href=3D "http:=
//dynamicweb.com/employment.html">Employment Opportunities</a></center><b=
r><br><br></td></tr><tr><td></td><td><center><h5>Copyright 1997, DynamicW=
eb™ Enterprises, Inc.<br> Comments to <a href=3D=
"mailto: webmaster@dynamicweb.com">webmaster@dynamicweb.com</a><br> =
Latest Update : Tue Apr 22, 1997 09:08:08 EDT</h5></cent=
er></td></tr> </table><DT> </DT></BODY></HTML>
--------------74823421E08--
------------------------------
Date: Fri, 25 Apr 1997 14:35:54 -0500
From: Doug Veldhuisen <dveldhui@ionet.net>
Subject: Serial IO with perl
Message-Id: <3361079A.167EB0E7@ionet.net>
I am trying to send this again..so please bear with me if you see
this message twice:
I am trying to write a perl script to receive serial output from
another computer. Here is what I have sofar:
#!/usr/bin/perl -w
use FileHandle;
use Fcntrl:
sysopen(TTYPORT, "/dev/cua1", O_RDONLY|O_NOCTTY|O_NONBLOCK) or die
"bad";
vec($rin, fileno(TTYPORT), 1) = 1;
while () {
if (select($rout=$rin, undef, undef, undef)) {
sysread(TTYPORT, $BUFF, 80);
print "Buffer: $BUF\n";
}
}
This script is running on a LINUX box with perl 5.003. I have
tested the serial link and it is OK. Oh this program does not
need to respond to the other computer it just needs to accept
data from it.
The program appears to wait forever at the select statement.
Can anyone please shed some light on where my problem with this
program lies??
TIA
Doug Veldhuisen
------------------------------
Date: 25 Apr 1997 19:02:10 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Trouble with Emacs auto formatter
Message-Id: <5jqv3i$frq$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Dave Thomas
<Dave@Thomases.com>],
who wrote in article <slrn5m1oe7.dc8.dave@fast.thomases.com>:
> On Fri, 25 Apr 1997 20:48:46 +1000, Chris Phillips wrote:
>
> > $ra = ${$filedata{RA}}[$imatch]; # Emacs autoformatter does
> > $dec = ${$filedata{DEC}}[$imatch]; # Not like these two lines
>
> Have you tried putting a space between the $ and the {?
>
> $dec = $ {$filedata{DEC}}[$imatch];
>
> The latest CPerl mode does this automatically.
Note that the latest CPerl mode (if used with latest Emacs's, starting
from 19.34.94 of Apr 15) will handle **most** Perl constructs
correctly. What remains is to add
a) s{}() filter (different matching parenths on `s' and `tr');
b) $blah'foo filter
and 99.999% of Perl code is going to be covered.
Ilya
------------------------------
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 373
*************************************
