[6499] in Perl-Users-Digest
Perl-Users Digest, Issue: 124 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Mar 15 20:07:14 1997
Date: Sat, 15 Mar 97 17:00:22 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 15 Mar 1997 Volume: 8 Number: 124
Today's topics:
Re: basic documentation (Efigenio Ataide)
Re: exec & nohup <gjsincla@tddcae99.fnts.com>
executing a external program (Subesh Ghose)
Re: Extracting Day of Week (Nathan V. Patwardhan)
Help, Please- change table layou??? (Charles)
How to sort? (Georges Martineau)
Re: How to sort? <tchrist@mox.perl.com>
Module organization (Clay Irving)
Need help with script! <areed@mphs.com>
Re: Need help with script! (Nathan V. Patwardhan)
Newbie needs help? (crazyblake)
Re: Newbie needs help? (Nathan V. Patwardhan)
Re: PERL on Windows NT <agavurin@ix.netcom.com>
Perl5.003 3x memory inefficient, Perl4.003 better? (Eric Arnold)
Re: Please Help Me! -- Unsigned Integers <fawcett@nynexst.com>
Prolifieration of time-handling modules: Bad?? (Allen S. Rout)
Review of script <mstich@erols.com>
Re: running perl/cgi scripts on Win95 m/c <joel@xl.ca>
Re: Sorting help (Efigenio Ataide)
T: Extracting the file owner, get time in miliseconds <mambaum@xs4all.nl>
Unable to load ISAPI dll perlis.dll <mambaum@xs4all.nl>
Unable to load ISAPI dll perlis.dll <mambaum@xs4all.nl>
What is the best Perl book? <gt2666b@prism.gatech.edu>
Re: Who makes more $$ - Windows vs. Unix programmers? (Darin Johnson)
Re: Who makes more $$ - Windows vs. Unix programmers? <tchrist@mox.perl.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 16 Mar 1997 00:22:42 GMT
From: ataide@planetarium.com.br (Efigenio Ataide)
Subject: Re: basic documentation
Message-Id: <332b3b7c.21075663@newsfeed.pnl.gov>
http://briet.berkeley.edu/perl/perl_tutorial.txt
http://www.hway.net/damaceno/frame8.html
Alfredo Campos <apardo@siu.cen.buap.mx> wrote:
>hey! i need some help please!
>i'm a neewbie in perl... in fact i don't know how to use it ... i have it
>in my unix account...
>Where could i find some basic guide to use this lenguage???
------------------------------
Date: Sat, 15 Mar 1997 13:32:51 -0600
From: Greg Sinclair <gjsincla@tddcae99.fnts.com>
Subject: Re: exec & nohup
Message-Id: <332AF963.69ED@tddcae99.fnts.com>
Alan Vu wrote:
>
> Hi Greg:
> This is UNIX question. It is not Perl. Howerver, you can
> do man page on nohup to learn about it. Type the following
> line on UNIX prompt:
> man nohup
> Bye
>
> Greg Sinclair wrote:
> > hello,
> > i have a simple question concerning the exec command. does exec
> > work like 'nohup' in that the executed process/program will
> > continue running even if the terminal or session is closed? i am
> > seeing this behaviour, but have not seen any documentation describing
> > this type of a situation.
> > Thanks for your help.
> > Greg Sinclair
hello,
i know how 'nohup' works. i've used it many times. i just want to
know if do the following in a perl script:
exec("some_command_that_takes_a_long_time");
works just like saying from the command line:
nohup some_command_that_takes_a_long_time;
it appears as if these work the same way. where can i find
some documentation about 'exec' that describes the behavior
i am seeing. i've check my perl books, but can not find any
shred of a description about exec that describes this.
thanks
greg sinclair
--
------------------------------------------------------------------------
Greg Sinclair g_sinclair@fujitsu-fnc.com
Sr. Hardware Designer voice : (972)479-3846
Fujitsu Network Communications fax : (972)479-2666
------------------------------------------------------------------------
------------------------------
Date: 15 Mar 1997 15:09:20 -0600
From: sghose@tiger.lsu.edu (Subesh Ghose)
Subject: executing a external program
Message-Id: <5gf360$2guc@tiger2.ocs.lsu.edu>
I have a VB program that is already written that interfaces with a
database. I can set up the VB to output its results in a tab delimited
file that I can parse and convert into a HTML file. My question is this:
How can I *start* up the VB program with a perl script on a web page.
Can I pass parameters to the VB program? These parameters tell the VB what
selection criteria the database should use to produce its output.
Any help is appreciated.
Subesh
--
--
subesh
XXX Has Your Back
------------------------------
Date: 15 Mar 1997 19:08:51 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Extracting Day of Week
Message-Id: <5ges43$4b8@fridge-nf0.shore.net>
Monte Ohrt (monte@ispi.net) wrote:
: If I know the MM/DD/YYYY, what is the easiest way to get the weekday?
: I know I can translate this into timelocal(), and then get the
: weekday back with localtime(), but is there an easier, more
: efficient way?
Here's a slightly hackish way to do it:
Using localtime(), grab the $wday value, and pass it into week_day,
which contains %days where each key (a weekday) is mapped to an integer.
Then foreach() %days, and compare $wday (passed in as $day_name) against
$day.
sub week_day {
my($day_name) = @_;
# %days => 0 signifies 0 days from Sunday ... or Sunday. :-)
# from localtime
%days = (
'Sunday' => 0,
'Monday' => 1,
## etc etc etc
);
foreach $day (keys %days) {
if($day_name == $days{$day}) {
return($day);
}
}
}
HTH!
--
Nathan V. Patwardhan
nvp@shore.net
------------------------------
Date: 15 Mar 1997 20:58:03 GMT
From: charles@max-net.com (Charles)
Subject: Help, Please- change table layou???
Message-Id: <5gf2gr$7hb$1@aphex.direct.ca>
If anyone can help,
The following sub routine displays a table tha goes across the screen.
What I need it to do is Display down the screen,
eg. <tr><td>@db_display_fields</TD><TD>$fields[$index]</TD></TR>
Or if not in table format thats ok as long as each as the two different
fields are lined up beside each other down the page.
Thanx in advance!
Charles
sub search_results_body
{
# Notice that in this subroutine we have access to the
# $total_row_count hits variable if we want to display it.
print qq~
Your search turned up $total_row_count hits<P>
<TABLE BORDER = "1">
<TR>~;
# Basically, we will display a simple HTML table to show
# all of the rows which satisfied the search criteria
# entered by the user.
#
# The idea is this. We will go through the @database_rows
# (which was given to us by db-lib.pl and contains all of
# the hits) one element at a time and convert the pipe
# delimited database row into an HTML row.
foreach $header (@db_display_fields)
{
print "<TH>$header</TH>";
}
print "</TR>";
foreach $row (@database_rows)
{
print "<TR>";
@fields = split (/\|/, $row);
# Of course, we will only actually display fields which we
# have defined as displayable in @db_index_for_display and
# we will be careful to convert all pipe sybmbols and new
# lines from our db representation values into their
# original forms.
foreach $index (@db_index_for_display)
{
$fields[$index] =~ s/~p~/\|/g;
$fields[$index] =~ s/~nl~/\n/g;
# Also, we will check to see if the current field being
# displayed happens to be an email field. If so, we will
# make it a clickable mailto link.
#
# Notice that you would use the exact same method for
# making a clickable URL.
if ($index == $index_for_email)
{
print qq~
<TD><A HREF = "mailto:$fields[$index]">$fields[$index]</A></TD>\n~;
}
else
{
print "<TD>$fields[$index]</TD>\n";
}
} # End of foreach $index (@db_index_for_display)
print "</TR>";
}
print "</TABLE>";
}
------------------------------
Date: 15 Mar 1997 17:49:26 GMT
From: martig@cam.org (Georges Martineau)
Subject: How to sort?
Message-Id: <5genf6$kmp@tandem.CAM.ORG>
I have the following data(data file):
John=17
Peter=25
Fred=10
Andrew=7
I would like to get:
Peter...25
John...17
Fred...10
Andrew...7
What would be the Perl script(Content-type:text/html)
------------------------------
Date: 16 Mar 1997 00:48:27 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: How to sort?
Message-Id: <5gfg0r$qdo$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
martig@cam.org (Georges Martineau) writes:
:I have the following data(data file):
: John=17
: Peter=25
: Fred=10
: Andrew=7
:I would like to get:
: Peter...25
: John...17
: Fred...10
: Andrew...7
:What would be the Perl script(Content-type:text/html)
For $100, we'll show you.
Come on, guy, what research did you do on your own? USENET
it not free consulting -- it's mutual aid. And what in blazes
does Content-type:text/html have to do with anything?
Go read the sort entry in the perlfunc man page. Then try
the FAQ.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
Travel important today; Internal Revenue men arrive tomorrow.
------------------------------
Date: 15 Mar 1997 17:07:55 -0500
From: clay@panix.com (Clay Irving)
Subject: Module organization
Message-Id: <5gf6jr$rbg@panix.com>
I've taken a project to try to organize and document Perl modules. I started
by taking the long modules list and parsing it into a data file. Once I have
the data, I can slice and dice it, and add additional data elements. I reviewed
all the information I could find in CPAN, but I have a few remaining questions:
I chopped the data from CPAN into these columns:
section
category
module
DSLI
description
info
comments
source
'section' is defined by a section table:
2 Perl Core Modules, Perl Language Extensions and Documentation Tools
3 Development Support
4 Operating System Interfaces
5 Networking, Device Control (modems) and InterProcess Communication
6 Data Types and Data Type Utilities (see also Database Interfaces)
7 Database Interfaces (see also Data Types)
8 User Interfaces (Character and Graphical)
9 Interfaces to or Emulations of Other Programming Languages
10 File Names, File Systems and File Locking (see also File Handles)
11 String Processing, Language Text Processing, Parsing and Searching
12 Option, Argument, Parameter and Configuration File Processing
13 Internationalization and Locale
14 Authentication, Security and Encryption (see also Networking)
15 World Wide Web, HTML, HTTP, CGI, MIME etc (see Text Processing)
16 Server and Daemon Utilities
17 Archiving, Compression and Conversion
18 Images, Pixmap and Bitmap Manipulation, Drawing and Graphing
19 Mail and Usenet News
20 Control Flow Utilities (callbacks and exceptions etc)
21 File Handle, Directory Handle and Input/Output Stream Utilities
22 Microsoft Windows Modules
23 Miscellaneous Modules
'category' is optional -- Sometimes, we use it; sometimes we don't. An example
of a category is:
Pod::HTML
Pod::Index
In this example "Pod" is the category. Some modules, like "GD", don't have
a category designation.
'module' is the module name. It seems the standard nomenclature concatenates
category and module to form the module name?
'DSLI' data is translated:
%dsli = (
"i", "Development Stage: Idea, listed to gain consensus or as a placeholder",
"c", "Development Stage: under construction but pre-alpha (not yet released)",
"b", "Development Stage: Alpha/Beta testing",
"R", "Development Stage: Released",
"M", "Development Stage: Mature (no rigorous definition)",
"S", "Development Stage: Standard, supplied with Perl 5",
"m", "Support: Mailing-list",
"d", "Support: Developer",
"u", "Support: Usenet newsgroup <a href=news:comp.lang.perl.misc>comp.lang.pe,
"n", "Support: None known, try <a href=news:comp.lang.perl.misc>comp.lang.per,
"p", "Language Used: Perl-only, no compiler needed, should be platform indepe,
"c", "Language Used: C and perl, a C compiler will be needed",
"+", "Language Used: C++ and perl, a C++ compiler will be needed",
"o", "Language Used: perl and another language other than C or C++",
"f", "Interface Style: plain Functions, no references used",
"r", "Interface Style: some use of unblessed References or ties",
"O", "Interface Style: Object oriented using blessed references and/or inheri"
);
'description' is a short description of the module.
'info' is (usually) the author id.
'comments' is a longer description of the module.
'source' is a URL for the location of the module. "B" indicates the module
is bundled with the current Perl distribution.
Questions:
1) What defines an "official" Perl module? -- Listing in CPAN?
2) Why are pragmas listed as modules that aren't really modules?
3) Is my thinking about categories/modules correct?
4) Why can't I find some of the modules?
- Example: Find VCS::RCS
Finally, do you have any suggestions or comments? :)
First swack is found at: http://www.panix.com/~clay/perl/module_list.cgi
Any help would greatly be appreciated.
--
Clay Irving See the happy moron,
clay@panix.com He doesn't give a damn,
http://www.panix.com/~clay I wish I were a moron,
My God! Perhaps I am!
------------------------------
Date: Sat, 15 Mar 1997 13:39:35 -0600
From: Alison Reed <areed@mphs.com>
Subject: Need help with script!
Message-Id: <332AFAF7.375F@mphs.com>
Hi, I saw your name on a CD-ROM from a book called Perl5-Interactive
Course, saying you'd had
several years experience with Perl, So I thought I'd write you on a whim
that you could help me.
Nobody in the mailing lists or newsgroups can.
I'm trying to generate several thousand html pages from a perl script.
I need help with altering a functional script.
Here's what I'm doing:
2. html template (state.template)-has variables defined that match field
names from my text based table.
3. text-based table (state.txt)
1. perl script-which works, but only reads one record at a time and
generates a page based on that record. I need it to read several records
and then generate a page.
What I need it to do:
1. Read several records, then build an html page.
For example, i need all the records in the field STATECODE with the
value 01 to make one page,
where these fields are arrays.
msavalue (possible 20 for each page), selectmsa (possible 20 for each
page),
countyvalue (possible 150 for each page), selectcounty (possible 150
for each page)
cityvalue (possible 650 for each page), selectcity (possible 650 for
each page)
Variables on html template (state.template):
-----------------------------------------
statename (1 possible for each page)
stategif (1 possible for each page)
msavalue (possible 20 for each page)
selectmsa (possible 20 for each page)
countyvalue (possible 150 for each page)
selectcounty (possible 150 for each page)
cityvalue (possible 650 for each page)
selectcity (possible 650 for each page)
banner (1 possible for each page)
Variables only in text-based table (state.txt):
-----------------------------------------
statecode: identifies the state (1 page per state)
filename: name of file to create (ex. ga.html)
dirname: directory where created file will be stored (/states/ga/)
6 records from text-based table (state.txt):
(first row is column headings/field names)
-----------------------------------------
StateCode,FILENAME,STATENAME,STATEGIF,MSAVALUE,SELECTMSA,COUNTYVALUE,SELECTCOUNTY,CITYVALUE,SELECTCITY,DIRNAME,BANNER
01,al.html,Alabama,al,,,,,,,c:/acn/html/states_g,1
01,,,,http://www.acn.net/states_gate/al/msa/gag.msa.colu,Columbus,,,,,,
01,,,,,,http://www.acn.net/states_gate/al/county/alg.cty.w,Walker,http://www.acn.net/states_gate/al/county/alg.cty.w,Jasper
,,
02,ak.html,Alaska,ak,,,,,,,c:/acn/html/states_g,1
02,,,,http://www.acn.net/states_gate/ak/msa/akg.msa.anch,Anchorage,,,,,,
02,,,,,,http://www.acn.net/states_gate/ak/county/akg.cty.k,Kenai
Peninsula,http://www.acn.net/states_gate/ak/county/akg.cty.k,Homer ,,
Here's the script I need altered (running on Win95/Perl5):
-----------------------------------------
#!/perl5
# =-=-= The variable setting part
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# where the text-based table is stored
$database = "c:/statescript/state.txt";
# the html template
$template = "c:/statescript/state.template";
#
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
open (F, $database) || die "Couldn't open file $database: $!\n";
$firstline = <F>; # get rid of the first line (column headers)
while (<F>) {
chop;
($filename,$statename,$stategif,$msavalue,$selectmsa,$countyvalue,
$selectcounty,$cityvalue,$selectcity,$dirname,$banner) = split(/\t/);
$newfile = $dirname.$filename;
open(NEWFILE,">$newfile") || die "Couldn't open file $newfile: $!\n";
open (TEMPLATE, $template) || die "Couldn't open file $template:
$!\n";
@lines = <TEMPLATE>;
close TEMPLATE;
foreach $line (@lines) {
$line =~ s/%%FILENAME%%/$filename/;
$line =~ s/%%STATENAME%%/$statename/;
$line =~ s/%%STATEGIF%%/$stategif/;
$line =~ s/%%MSAVALUE%%/$msavalue/;
$line =~ s/%%SELECTMSA%%/$selectmsa/;
$line =~ s/%%COUNTYVALUE%%/$countyvalue/;
$line =~ s/%%SELECTCOUNTY%%/$selectcounty/;
$line =~ s/%%CITYVALUE%%/$cityvalue/;
$line =~ s/%%SELECTCITY%%/$selectcity/;
$line =~ s/%%DIRNAME%%/$dirname/;
$line =~ s/%%BANNER%%/$banner/;
print NEWFILE $line;
}
close NEWFILE;
print "Successfully wrote file: $newfile\n";
}
print ".... done for now.\n";
close F;
#
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
I want every record with the same StateCode to build 1 html file.
Thanks so much for your help, I'm totally boggled about how to do this.
Any ideas would be wonderful!! Thank you.
Alison Reed
areed@mphs.com
------------------------------
Date: 15 Mar 1997 20:57:57 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Need help with script!
Message-Id: <5gf2gl$bit@fridge-nf0.shore.net>
Alison Reed (areed@mphs.com) wrote:
: Hi, I saw your name on a CD-ROM from a book called Perl5-Interactive
: Course, saying you'd had
[snip]
Saw whose name? Several people who read this newsgroup / post to this
newsgroup have published materials available.
--
Nathan V. Patwardhan
nvp@shore.net
------------------------------
Date: Sat, 15 Mar 1997 14:14:18 -0800
From: crazyblake@earthlink.net (crazyblake)
Subject: Newbie needs help?
Message-Id: <crazyblake-1503971414330001@206.149.197.109>
I'm trying to start out programming perl, with only a little knowledge of
C or any other languages :( . What I need is a program that runs in the
background that will recieve data from a server, store it in a file, and
serve it back out on a specific TCP port. Can anyone help me start out
with perl (preferably without buying a book) and/or write this program?
Any hel is much appreciated!
crazyblake@hotmail.com
------------------------------
Date: 15 Mar 1997 23:20:21 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Newbie needs help?
Message-Id: <5gfarl$k2t@fridge-nf0.shore.net>
crazyblake (crazyblake@earthlink.net) wrote:
: What I need is a program that runs in the background that will recieve
: data from a server, store it in a file, and serve it back out on a specific
: TCP port.
These kinds of requests never cease to amaze me -> learning to walk before
learning to crawl, and/or "just banging something out" has become a tragic
theme these days.
: Can anyone help me start out with perl (preferably without buying a book)
: and/or write this program? Any hel is much appreciated!
I'm not trying to flame you, but I'm a bit interested in how you got stuck
with this program/project if you don't know anything about Perl/programming.
How do you expect to learn something without doing any background reading?
Then again, your question was very vague, i.e. -
What version of Perl are you using? What have you read so far? Who told
you to do this project? What's the program supposed to do? Sockets vary
between platforms, as (for example) the NTPerl version of Perl doesn't
have 100% implementation of the sockets you'll see on SUN OS 4.1.3, so asking
a general question about sockets implementation is rather tough to answer
unless we know the version/platform you're using.
--
Nathan V. Patwardhan
nvp@shore.net
------------------------------
Date: Sat, 15 Mar 1997 16:20:21 -0800
From: Arnold Gavurin <agavurin@ix.netcom.com>
To: Daniel McManus <mcmanus@ait.fredonia.edu>
Subject: Re: PERL on Windows NT
Message-Id: <332B3CC5.6F8@ix.netcom.com>
Daniel McManus wrote:
>
> Anyone out there using WindowsNT and have PERL running.
>
> I tried to set up PERL on NT and its not working. But I'm too baffeled to
> be able to say what the symptoms are so, if there is anyone out there who
> is doing this please contact me so I can ask you a couple of questions.
>
> Thanks greatly
>
> --Dan McManus
I went through that last week and it is not hard. I got "hello world" to
run from "run" in file manager. I am using win nt 3.51. Is that what you
are using?
Ask me any questions..
Arnold Gavurin
------------------------------
Date: 15 Mar 97 23:42:29 GMT
From: eric.arnold@sun.com (Eric Arnold)
Subject: Perl5.003 3x memory inefficient, Perl4.003 better?
Message-Id: <ERIC.97Mar15234229@m-e-ir1.sun.com>
I notice that this:
perl -le 'for($i=0;$i<10_000;$i++){$s.="x"x1_000};'
uses about 30Mbytes, where Perl4 only used 10Mbytes. Is this fixed
in Perl5.004?
-Eric
------------------------------
Date: 15 Mar 1997 15:31:55 -0500
From: Tom Fawcett <fawcett@nynexst.com>
To: Eric Mosterd <emosterd@sundance.usd.edu>
Subject: Re: Please Help Me! -- Unsigned Integers
Message-Id: <8jvi6sj3r8.fsf@nynexst.com>
Eric Mosterd <emosterd@sundance.usd.edu> writes:
> I am writing a program to convert ASCII to the IBM Mainframe EBCDIC
> character set for my Data Communications class. What I need to know is
> if there is a way to read/write unsigned integers to a file?
Perl's pack and unpack functions can handle unsigned integers.
See the documentation.
If you just want ASCII<->EBCDIC conversion, there are many utilities to do
it already, eg Unix's dd utility:
dd if=file1 conv=ebcdic of=file2
-Tom
------------------------------
Date: 15 Mar 1997 15:49:52 -0500
From: asr@burn.cise.ufl.edu (Allen S. Rout)
Subject: Prolifieration of time-handling modules: Bad??
Message-Id: <8brahgop73.fsf@burn.cise.ufl.edu>
I'd like to suggest that those who wrote the various Date:* and Time:*
libraries put their heads together and decide on a single interface to keep
alive. while There's More Than One Way To Do It, there's a difference between
choices and race conditions. :)
Strptime for this, strftime for that, GetDate, strtotime, whatever.. I think
most of us want to be able to use the most recently released library that
addresses our needs, but having two sets of libraries that are constructed
differently, yet cover the same area, is a little difficult.
So, am I a fascist? :)
-Allen S. Rout
-Coding Production systems in perl for at least four years...
------------------------------
Date: Sat, 15 Mar 1997 16:33:52 -0500
From: Matthew Stich <mstich@erols.com>
Subject: Review of script
Message-Id: <332B15BE.630C@erols.com>
Would anyone be willing to see and review my script for a guestbook?
I will send via email as attachments.
Please respond via email.
Matthew
------------------------------
Date: 15 Mar 1997 23:19:57 GMT
From: "Joel MacDonald" <joel@xl.ca>
Subject: Re: running perl/cgi scripts on Win95 m/c
Message-Id: <01bc3197$bdfb0a60$6f840cce@joel.xl.ca>
You need a Perl Interpreter to run Perl scripts (I'm pretty sure there are
many free ones available). If you want to run these scripts from your
browser you will need a Web server too. I just installed OmniHTTPd on my
win95 machine and it's extremely simple, compact, and FREE
(http://www.fas.harvard.edu/~glau/httpd/).
This article was also posted here a short time ago. It helped me find all
the information I needed to know to set up a web server on my machine:
> Sorry that I won't give you the full response on this one, but I've
> answered it about 5 times in the last two weeks, so the easiest thing
> for both of us is if you go to dejanews <http://www.dejanews.com/> and
> do a usenet search with the keywords:
>
> local&server&CGI&test&script
>
> This will pull up all sorts of discussion on this topic, including my
> recent 5 explanations.
Joel
narendran@hotmail.com wrote in article <858406690.22545@dejanews.com>...
> hi,
>
> Could somebody tell me how to run perl cgi scripts on a windows 95 m/c.
> I have written the script, and want to test it. How do i call the same
> from the browser ?
>
> Thanx in advance
>
------------------------------
Date: Sat, 15 Mar 1997 22:49:13 GMT
From: ataide@planetarium.com.br (Efigenio Ataide)
Subject: Re: Sorting help
Message-Id: <332b264a.15648139@newsfeed.pnl.gov>
@stuff = ('James', 'adam', 'robert', 'Michael');
@sorted = sort byname (@stuff);
foreach (@sorted) {
print $_, "\n";
}
sub byname {
my ($aa, $bb);
$_ = $a; tr/A-Z/a-z/; $aa = $_;
$_ = $b; tr/A-Z/a-z/; $bb = $_;
$aa cmp $bb;
}
adam
James
Michael
robert
niksun@lconn.net (Niksun) wrote:
>Here's my problem. Let's say that:
>
>@stuff = ("aaaa","BBBB");
>
>When I sort @stuff:
>
>@sorted = sort (@stuff);
>
>the order gets switched to ("BBBB","aaaa") because capital letters are
>placed before lowercase letters. I don't want this. I want to be
>able to sort an array so that everything is sorted by letter,
>regardless of case. In other words, an example final sort would be:
>
>adam
>James
>Michael
>robert
>
>Thanks.
>
>Niksun
------------------------------
Date: Sat, 15 Mar 1997 21:42:11 +0100
From: Martin Ambaum <mambaum@xs4all.nl>
Subject: T: Extracting the file owner, get time in miliseconds
Message-Id: <332B09A3.63C0@xs4all.nl>
I am using NT4.0/MIIS3.0 ASP with perlis.dll
Does anybody know:
1. Is there a method to extract the owner of file ?
2. If I use the time functions in perl under NT I get the time rounded
to full seconds, but I would like to have miliseconds, to be able
to clock the times the scripts need to be executed.
Is there a method to do so ?
Thanks... :-)
------------------------------
Date: Sat, 15 Mar 1997 21:27:17 +0100
From: Martin Ambaum <mambaum@xs4all.nl>
Subject: Unable to load ISAPI dll perlis.dll
Message-Id: <332B0625.64C2@xs4all.nl>
Help...
I don't know what I changed in my server setup but I get the following
message:
Unable to load ISAPI DLL 'C:\WINNT\System32\inetsrv\perlis.dll': Win32
Error Code = 126
Failed to execute CGI script '/lib/scripts/title.pl': Win32 Error Code =
0
I checked the location of the perlis.dll at least 4 times.
Everybody on the PC has all rights to access the file perlis.dll.
Does anybody have a clue what could be wrong ?
:-(
------------------------------
Date: Sat, 15 Mar 1997 21:41:11 +0100
From: Martin Ambaum <mambaum@xs4all.nl>
Subject: Unable to load ISAPI dll perlis.dll
Message-Id: <332B0967.46BB@xs4all.nl>
Help...
I don't know what I changed in my server setup but I get the following
message:
Unable to load ISAPI DLL 'C:\WINNT\System32\inetsrv\perlis.dll': Win32
Error Code = 126
Failed to execute CGI script '/lib/scripts/title.pl': Win32 Error Code =
0
I checked the location of the perlis.dll at least 4 times.
Everybody on the PC has all rights to access the file perlis.dll.
Does anybody have a clue what could be wrong ?
:-(
------------------------------
Date: 15 Mar 1997 23:46:57 GMT
From: "Brian Ling" <gt2666b@prism.gatech.edu>
Subject: What is the best Perl book?
Message-Id: <01bc319b$2c4f07c0$46223d80@prism.gatech.edu.r34h70.res.gatech.edu>
I need to get a book on Perl and I wanted to know which one was the best.
Thanks in advance.
------------------------------
Date: 11 Mar 1997 21:10:07 GMT
From: darin@connectnet1.connectnet.com (Darin Johnson)
Subject: Re: Who makes more $$ - Windows vs. Unix programmers?
Message-Id: <slrn5ibijb.paq.darin@connectnet1.connectnet.com>
>> Subject says it all. Based on your personal experience and statistics,
>> where a good programmer can make more money - in Windows or Unix arena?
COBOL on AS/400. Windows and UNIX programmers don't make nearly as
much as independent applications consultants for big blue boxes; on
the other hand, they have fewer coronaries.
>> I want to be in the consulting field.
>
>You would want to learn *a lot* about Database work. Design,
>programming, administration, then. This is one of the areas
>where there is a lot of money, and will continue to be.
If you want to be a consultant, the first step is to forget about
learning only one OS. A consultant ends up doing a lot of different
things. Even if you market yourself as a Windows or UNIX consultant,
you're going to be asked to integrate an application across MVS, UNIX,
and NT sooner or later.
And besides, do you really want to be in the consulting field? Some of
the MVS consultants have it cushy (get a few well paying customers
and you often only need to work one week a monthh), but for everyone
else, consulting is numbing work.
>As for the UNIX/Win32 divicion, my experience tells me that
>there is more money in UNIX, but not the same amount of jobs.
And UNIX programming tend to be more stable. When Windows programmers
are a dime a dozen, it's hard to keep your head above water. But there
are a heck of lot more entry level grunt Windows programming jobs.
But really, you should do what YOU feel is better. Money is not as
important as how well you like what you're doing. If programming is
just a way to make money, you should go into a different field. But
it's too late now, you should have been told that as a freshman.
Decide which is more interesting to you, and what will be more
interesting in the future, or which will be the bigger boost to doing
more interesting things (fashion WILL change, in 5-10 years, you likely
won't be programming either).
--
Darin Johnson
darin@connectnet.com
------------------------------
Date: 15 Mar 1997 19:55:08 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Who makes more $$ - Windows vs. Unix programmers?
Message-Id: <5geuqs$dv9$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Da Borg <vlad_imip@uniserve.com> writes:
:It is a common knowledge that DOS batch language provides only 20 - 30%
:functionality of Unix sh or only 10 % that of Perl.
Make that 1%. (Just inject some Perl content into something posted
to the Perl group.)
It's sad how quickly the new generation has forgotten the painful lessons
learned from being locked into closed, proprietary systems, the same
reasons that made the open systems approach embodied by Unix win against
the old folks, like IBM and DEC. It's not going to be pleasant to watch.
And remember: if you don't get source code, it's not open, which means
you'll eventually get screwed.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
X-Windows: You'll envy the dead.
--Jamie Zawinski
------------------------------
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 124
*************************************
