[17621] in Perl-Users-Digest
Perl-Users Digest, Issue: 5041 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Dec 5 21:05:46 2000
Date: Tue, 5 Dec 2000 18:05:12 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <976068312-v9-i5041@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 5 Dec 2000 Volume: 9 Number: 5041
Today's topics:
Re: Adding a Bcc recipient? <tony_curtis32@yahoo.com>
beginner Perl grep Q <no_sp@m.for_me.org>
Re: beginner Perl grep Q <VincentMurphy@mediaone.net>
Re: Beginner's question <wd@denx.muc.de>
Re: Beginner's question <khedger@mindspring.com>
Re: Beginner's question <peter.sundstrom@eds.com>
Re: Beginner's question <harrisr@bignet.net>
Re: Beginner's question (Tad McClellan)
Re: Beginner's question (Logan Shaw)
Re: Can I submit the contents of a form into the same c <vrdoljak@uclink.berkeley.edu>
Re: Can I submit the contents of a form into the same c (Flint Slacker)
Re: Can I submit the contents of a form into the same c <kip@skiltrip.com>
Re: dumb question? - how do i find out current script n <peter.sundstrom@eds.com>
Re: find function nodo70@my-deja.com
Re: help getting started with Active perl win32 (Tad McClellan)
Re: Help! How can a process know its own PID? <quantum_mechanic@my-deja.com>
Re: kill and security (suid) <rick.delaney@home.com>
Re: modify perl modules <godoy@conectiva.com>
Re: Netscape, Apache, Perl and Oracle (Martien Verbruggen)
perl printer problem <crud_alex@yahoo.com>
Re: perl printer problem <taboo@comcen.com.au>
Re: Removing leading spaces <xzrgpnys@yvtugubhfrovm.pbz>
Re: Removing leading spaces (Tad McClellan)
Re: Removing leading spaces (Martien Verbruggen)
resuming? <me@privacy.net>
Re: sorting an array of hashes (cont'd) (Tad McClellan)
Re: these young girls take wonderful ass shots 2399 <erik.ykema@usa.net>
Re: Two dimensional array to file. <VincentMurphy@mediaone.net>
Ugh! I hope I can explain this... cputek1@my-deja.com
Re: Ugh! I hope I can explain this... (Logan Shaw)
Re: Ugh! I hope I can explain this... cputek1@my-deja.com
valentyn@openoffice.nl <erik.ykema@usa.net>
Willing to review a 90 line Perl program? <ted_graham@my-deja.com>
Re: Willing to review a 90 line Perl program? (Tad McClellan)
Re: Willing to review a 90 line Perl program? (Chris Fedde)
Re: Your help please <nigeljennison@cs.com>
Re: Zip files in a directory by zipping directory <erik.ykema@usa.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 05 Dec 2000 19:18:01 -0600
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Adding a Bcc recipient?
Message-Id: <87r93me4ae.fsf@limey.hpcc.uh.edu>
>> On Wed, 06 Dec 2000 01:04:27 GMT,
>> "hokiebear" <ayambema@adelphia.net> said:
> What syntax does one use to add a blind copy (Bcc)
> recipient?
perl != mail
If this actually does have something to do with perl,
please show some context/code...
hth
t
--
Eih bennek, eih blavek.
------------------------------
Date: Wed, 06 Dec 2000 01:24:42 GMT
From: mike <no_sp@m.for_me.org>
Subject: beginner Perl grep Q
Message-Id: <jblmtufibp.fsf@analog.net>
I've been having a little trouble getting something worked out and am not
getting anywhere with the few different ways I've tried.
I'm writing a Perl script which will be used to check in RCS-controlled
files. If the file being checked in already has the RCS keyword '$Header: $'
I want the script to just check it in. If it doesn't have the keyword I
want the script to add it. So I need to check the file to decide which
case I have. To make it more fool-proof though I want the regexp to
optionally include 'filename,v' since a file previously checked in by RCS
will contain the file's name. So my regexp (I think) should look like
(where $file = filename):
\$Header: \$.*($file,v)?.*
But the problem is that although I can get GNU grep to find this no
problem when run at the command line I can't figure out how to get it to
work inside Perl. I've tried:
if (system "/opt/gnu/bin/grep '\$Header: \$.*($file,v)?.*' $file") {
and
$a = grep(/\$Header: \$.*($file,v)?.*/, $file);
along with various permutations but so far I can't get anything to work.
No matter what I use I get the same result whether or not the RCS keyword
is in the file. Is there something wrong with my regexp? All I want is a
simple way to get the grep accomplished from within the Perl script as
easily as it works at the command line. So either my regexp is wrong (for
Perl) or I'm not using either grep correctly.
Thanks...
Mike
--
------------------------
hardymi@NO_SPAM@earthlink.net
Auntie Em: Hate you, hate Kansas; took the dog - Dorothy
------------------------------
Date: Wed, 06 Dec 2000 01:46:20 GMT
From: Vinny Murphy <VincentMurphy@mediaone.net>
Subject: Re: beginner Perl grep Q
Message-Id: <m3hf4ie084.fsf@vmurphy-hnt1.athome.net>
>>>>> "Mike" == mike <no_sp@m.for_me.org> writes:
Mike> I've been having a little trouble getting something worked out
Mike> and am not getting anywhere with the few different ways I've
Mike> tried.
Mike> I'm writing a Perl script which will be used to check in
Mike> RCS-controlled files. If the file being checked in already has
Mike> the RCS keyword '$Header: $' I want the script to just check it
Mike> in. If it doesn't have the keyword I want the script to add it.
Mike> So I need to check the file to decide which case I have. To make
Mike> it more fool-proof though I want the regexp to optionally include
Mike> 'filename,v' since a file previously checked in by RCS will
Mike> contain the file's name. So my regexp (I think) should look like
Mike> (where $file = filename):
Mike> \$Header: \$.*($file,v)?.*
You probably want to look at the Rcs.pm. I have used it in the past, and
it is very useful. You can find it at CPAN.
HTH.
-Vinny
------------------------------
Date: Tue, 5 Dec 2000 22:34:01 GMT
From: Wolfgang Denk <wd@denx.muc.de>
Subject: Re: Beginner's question
Message-Id: <G549Cp.LG6.7.denx@denx.muc.de>
Nick <square-sun@terra.es> writes:
>Is it possible to get a Perl interpreter to run on a Win98 machine so I
>don't have to go online to test scripts?
No, that's absolutely impossible.
You cannot run it on any system when it is not online.
Wolfgang Denk
--
Software Engineering: Embedded and Realtime Systems, Embedded Linux
Phone: (+49)-8142-4596-87 Fax: (+49)-8142-4596-88 Web: www.denx.de
"Free markets select for winning solutions." - Eric S. Raymond
------------------------------
Date: Tue, 05 Dec 2000 23:13:45 GMT
From: "bigtiny" <khedger@mindspring.com>
Subject: Re: Beginner's question
Message-Id: <JEeX5.69386$751.1795653@typhoon.ne.mediaone.net>
Yes, go to CPAN (search on the web) and get the binary distribution for w9x.
There will be some differences due to OS though, so its usefulness to you
will depend on exactly the kind of stuff your working on....
k
Nick <square-sun@terra.es> wrote in message
news:F5wvK7AjAVL6Ewao@terra.es...
> Is it possible to get a Perl interpreter to run on a Win98 machine so I
> don't have to go online to test scripts?
> --
> Nick
> news@square-sun.co.uk
> Chainsaw sculpture - Wooden books - Pictures
> http://www.square-sun.co.uk
------------------------------
Date: Wed, 6 Dec 2000 11:55:59 +1300
From: "Peter Sundstrom" <peter.sundstrom@eds.com>
Subject: Re: Beginner's question
Message-Id: <90jrq0$o4v$1@hermes.nz.eds.com>
Nick <square-sun@terra.es> wrote in message
news:F5wvK7AjAVL6Ewao@terra.es...
> Is it possible to get a Perl interpreter to run on a Win98 machine so I
> don't have to go online to test scripts?
Go to http://www.activestate.com/
BTW, your subject line is meaningless. A better subject line would have
been "Is Perl available for Win98"
------------------------------
Date: Tue, 5 Dec 2000 20:28:47 -0500
From: "Randy Harris" <harrisr@bignet.net>
Subject: Re: Beginner's question
Message-Id: <t2r5hb4k7rsp25@corp.supernews.com>
Wolfgang Denk <wd@denx.muc.de> wrote in message
news:G549Cp.LG6.7.denx@denx.muc.de...
> Nick <square-sun@terra.es> writes:
>
> >Is it possible to get a Perl interpreter to run on a Win98 machine so
I
> >don't have to go online to test scripts?
>
> No, that's absolutely impossible.
Of course he can get Perl for Win98. Why would you say that?
>
> You cannot run it on any system when it is not online.
>
> Wolfgang Denk
>
> --
> Software Engineering: Embedded and Realtime Systems, Embedded Linux
> Phone: (+49)-8142-4596-87 Fax: (+49)-8142-4596-88 Web: www.denx.de
> "Free markets select for winning solutions." - Eric S. Raymond
------------------------------
Date: Tue, 5 Dec 2000 19:20:30 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Beginner's question
Message-Id: <slrn92r1ie.op4.tadmc@magna.metronet.com>
Peter Sundstrom <peter.sundstrom@eds.com> wrote:
>
>Nick <square-sun@terra.es> wrote in message
>news:F5wvK7AjAVL6Ewao@terra.es...
>BTW, your subject line is meaningless.
It is actually _worse_ than meaningless.
It says:
I cannot be bothered to tell you what I am writing about
ahead of time. You must read the article it to find out
what it is about.
Many folks won't (read it, that is). They will just move
on to an article where they know what it is about.
You are in competition with a hundred other people when you
post here. It is in your own best interests to spend some
care on your Subject header.
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 5 Dec 2000 20:03:30 -0600
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: Beginner's question
Message-Id: <90k6pi$e3i$1@pip.cs.utexas.edu>
In article <t2r5hb4k7rsp25@corp.supernews.com>,
Randy Harris <harrisr@bignet.net> wrote:
>Wolfgang Denk <wd@denx.muc.de> wrote in message
>news:G549Cp.LG6.7.denx@denx.muc.de...
>> Nick <square-sun@terra.es> writes:
>> >Is it possible to get a Perl interpreter to run on a Win98 machine so
>I
>> >don't have to go online to test scripts?
>>
>> No, that's absolutely impossible.
>
>Of course he can get Perl for Win98. Why would you say that?
Read the rest of the post where he says...
>> You cannot run it on any system when it is not online.
In other words, Mr. Denk was trying to point out the misuse of the
terminology "on-line". "on-line" doesn't mean "connected to the
Internet". It means "running" or "operational" or "available".
Thus, not having "to go online to test scripts" means not having to
cause some device to become operational in order to test scripts.
That, of course, is not possible. You need a functioning computer to
run Perl scripts.
- Logan
------------------------------
Date: Tue, 05 Dec 2000 16:09:44 -0800
From: Gordon Vrdoljak <vrdoljak@uclink.berkeley.edu>
To: flint@flintslacker.com
Subject: Re: Can I submit the contents of a form into the same cgi script which generated the form?
Message-Id: <3A2D83C8.F84B3596@uclink.berkeley.edu>
Thanks for the reply,
but I am still at somewhat of a loss... The cgi script receives input from an
html form and creates another form:
-----------code begins.....
#!/usr/bin/perl -wT
use CGI;
use CGI qw(:standard);
use CGI::Carp qw (fatalsToBrowser );
$week = param("week");
opendir(DIR, '/home/httpd/cgi-bin');
@schedfiles = grep { /SCHED/ } readdir(DIR);
closedir(DIR);
@schedfiles = sort { $a <=> $b } @schedfiles;
if ($week == 1) {$file = $schedfiles[0];}
if ($week == 2) {$file = $schedfiles[1];}
if ($week == 3) {$file = $schedfiles[2];}
if ($week == 4) {$file = $schedfiles[3];}
if ($week == 5) {$file = $schedfiles[4];}
open(SCHEDULE, "$file") || die "Could not create open scedule.";
while (my $line = <SCHEDULE>) { # line refers to each line from the schedule
(my $time, my $user) = split(":", $line); # line is parsed by time and user
$sched{$time} = $user;
}
print <<END_of_Start;
Content-type: text/html
<HTML>
<HEAD>
<TITLE>Administration form for Schedules</TITLE>
</HEAD>
<BODY>
<FORM METHOD = POST
ENCTYPE = "text/plain"
ACTION = "http://wilfred.berkeley.edu/cgi-bin/admin2.cgi">
<BODY BGCOLOR="WHITE">
<CENTER><H1>Schedule of file: $file</H1></CENTER>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html charset=iso-8859-1">
<TITLE>Schedule</TITLE>
<CENTER><TABLE BORDER COLS=11 WIDTH="85%" >
<TR ALIGN=CENTER VALIGN=CENTER>
<TD ALIGN=CENTER VALIGN=CENTER><B></B>
</TD>
<TD>
<CENTER><B>9:00</B></CENTER>
</TD>
<TD>
<CENTER><B>10:00</B></CENTER>
</TD>
<TD>
<CENTER><B>11:00</B></CENTER>
</TD>
<TD>
<CENTER><B>12:00</B></CENTER>
</TD>
<TD>
</TR>
<TR><TD><CENTER><B>Monday</B><BR><B>($monday[4])-$monday[3]</B></CENTER></TD>
<TD><CENTER><SELECT NAME="$monday-9">
<OPTION selected>$sched{("$monday"."-9")}
<option>open
<option>EM LAB
<option>LAB CLOSED
</select></CENTER></TD>
<TD><CENTER><SELECT NAME="$monday-10">
<OPTION selected>$sched{("$monday"."-10")}
<option>open
<option>EM LAB
<option>LAB CLOSED
</select></CENTER></TD>
<TD><CENTER><SELECT NAME="$monday-11">
etc... for other table form elements
END_of_Start
--------------------------
Now how can I get the result of this form put into the next code, where I write
it back out to the schedule file?
Sorry for my difficulties, but I can't seem to find a good reference. I have
the Oreilly perl and CGI books, but they don't go into a lot of detail for me.
Gordon.
Flint Slacker wrote:
>
> Yes you can do this, try using some hidden values in the form...
>
> if($cgi{'action'} eq "stepone") {
> #do this
> } elsif($cgi{'action'} eq "steptwo") {
> #do this
> } else {
> #maybe an error
>
> Flint
>
> On Tue, 05 Dec 2000 14:55:48 -0800, Gordon Vrdoljak
> <vrdoljak@uclink.berkeley.edu> wrote:
>
> >Hello,
> >I was wondering if the following is possible. I have a form in html which
> >passes three values to a cgi script. The cgi script takes these three values,
> >generates a table form from the values and what it reads from another text
> >file. Is it possible to submit the action or results of this table form to the
> >same cgi script -ie another part of the program? I tried form action =
> >subroutine(), but that didn't work...
--
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
Gordon Ante Vrdoljak Electron Microscope Lab
ICQ 23243541 http://nature.berkeley.edu/~gvrdolja 26 Giannini Hall
vrdoljak@uclink.berkeley.edu UC Berkeley
phone (510) 642-2085 Berkeley CA 94720-3330
fax (510) 643-6207 cell (510) 290-6793
------------------------------
Date: Tue, 05 Dec 2000 23:18:36 GMT
From: flint@flintslacker.com (Flint Slacker)
Subject: Re: Can I submit the contents of a form into the same cgi script which generated the form?
Message-Id: <3a3675a0.116016926@news.tcn.net>
Yes you can do this, try using some hidden values in the form...
if($cgi{'action'} eq "stepone") {
#do this
} elsif($cgi{'action'} eq "steptwo") {
#do this
} else {
#maybe an error
Flint
On Tue, 05 Dec 2000 14:55:48 -0800, Gordon Vrdoljak
<vrdoljak@uclink.berkeley.edu> wrote:
>Hello,
>I was wondering if the following is possible. I have a form in html which
>passes three values to a cgi script. The cgi script takes these three values,
>generates a table form from the values and what it reads from another text
>file. Is it possible to submit the action or results of this table form to the
>same cgi script -ie another part of the program? I tried form action =
>subroutine(), but that didn't work...
------------------------------
Date: Tue, 5 Dec 2000 20:42:14 -0500
From: "jKip" <kip@skiltrip.com>
Subject: Re: Can I submit the contents of a form into the same cgi script which generated the form?
Message-Id: <t2r69v65vmrved@corp.supernews.com>
If I am understanding you correctly, you'll want to do something like
this....
if (param()) { # if parameters were passed
in...
# execute code to manipulate data passed in....
} else
# print the form out to the browser.
<form action="this script name here"> # script calls itself
}
hope this is what you are looking for.
Kip / Skiltrip Development
www.skiltrip.com
------------------------------
Date: Wed, 6 Dec 2000 12:14:08 +1300
From: "Peter Sundstrom" <peter.sundstrom@eds.com>
Subject: Re: dumb question? - how do i find out current script name
Message-Id: <90jss2$q68$1@hermes.nz.eds.com>
David Wong <tdwong@powertv.com> wrote in message
news:90jp0v$4jb$1@nntp1.ba.best.com...
> Hi there,
>
> This is could be a dumb question, but I have looked all over the place
> and cannot find an answer.
>
> In a perl script, how do I find out the current script name?
>
> In other shell scripting languages, such as sh, csh, ksh, or bash,
> argv[0] is always reserved as the script name. Same holds true for C,
> C++, and java. But not for perl 8-(.
How much sh/ksh/bash/zsh scripting have you done? Same in those shells as
it is in Perl.
$0
------------------------------
Date: Wed, 06 Dec 2000 00:27:41 GMT
From: nodo70@my-deja.com
Subject: Re: find function
Message-Id: <90k15m$31d$1@nnrp1.deja.com>
Anyone know why it only find only one time and exit out of for loop
base on snip code below? What I try to do is check what files missing
from new folder compare to old folder (only certain folder like under
fg folder name). Thanks.
#!/usr/local/bin/perl -w
use Cwd;
use File::Find;
$curDir = cwd();
$oldDir = $ARGV[0];
$newDir = $ARGV[1];
opendir(DIR, "$oldDir") || die("Can't find $oldDir directory !!!");
@files = readdir(DIR);
closedir(DIR);
chdir "$oldDir";
foreach $subDir (sort @files) {
undef @realFiles;
if ( -d $subDir ) {
if ( ! (($subDir =~ /^..$/i) or ($subDir=~ /^.$/i) )) {
$nextDir .= $oldDir . "\/" . $subDir . '/fg';
chdir "$nextDir";
find(\&wanted,'.');
foreach $file (@realFiles) {
$newDirFile = $newDir . "\/" . $subDir . '/fg/' . $file;
unless (-e $newDirFile) {
print '.';
push @deletedFiles, $file;
}
}
next;
}
}
}
sub wanted {
unless (-d $_) {
$_ = $File::Find::name;
s/^.\///; # get rid of leading "./"
push @realFiles, $_;
}
}
> > >> The explicit package name should be:
> > >>
> > >> $_ = $File::Find::name;
> > >>
> > >
> > >Then it would complaint:
> > ^^^^^
> >
> > "would" or "does"?
> >
> > >Name "File::Find::name" used only once: possible typo at test.pl
> line
> > >19
> > >
> > >Any advise?
> >
> > I can't make it say that:
> >
> > ---------------------
> > #!/usr/bin/perl -w
> > use strict;
> > use File::Find;
> >
> > find( \&wanted, '.');
> >
> > sub wanted {
> > print "$File::Find::name\n";
> > }
> > ---------------------
> >
>
> Thanks Tad. Excuse my bad English.
>
> > --
> > Tad McClellan SGML consulting
> > tadmc@metronet.com Perl programming
> > Fort Worth, Texas
> >
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 5 Dec 2000 18:25:50 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: help getting started with Active perl win32
Message-Id: <slrn92qubu.olj.tadmc@magna.metronet.com>
Alan J. Flavell <flavell@mail.cern.ch> wrote:
>But don't omit the -wT and the "use strict;", at least while
>debugging, or you're toast here.
^^^^
All we do here is talk (errr, type). Getting toasted here
can wear off quickly. No long-lasting ill effects.
If you don't do those 3 for _all_ "forms processing", you're
toast *out there*, in The World, on your job, in front of
your boss and/or friends.
_That_ may have some long-lasting effects...
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 06 Dec 2000 01:42:00 GMT
From: Quantum Mechanic <quantum_mechanic@my-deja.com>
Subject: Re: Help! How can a process know its own PID?
Message-Id: <90k5h8$6ed$1@nnrp1.deja.com>
In article <slrn92omk2.2rg.sjs@ragnar.stevens.gulch>,
Steven Smolinski <sjs@yorku.ca> wrote:
> Abigail <abigail@foad.org> wrote:
> > Liang Tang (Liang.Tang@nrj.ericsson.se) wrote:
> > ++ How can a process know its own PID (process ID)? I remembered
there is a
> > ++ function "getpid()" in C, but I can only find getppid() in Perl,
which
> > ++ returns the PID of the parent process. This is really strange.
> >
> > ($pid = getppid ()) =~ s/\d+/$$/;
>
> OMG. I think I've seen this kind of crap in code I've had to
maintain.
>
> Here I thought it was some evil programmer trying to make himself
> indispensible by writing obfuscated code. But now I realize it's just
> people who ask about something already in the docs and uncritically
> listen to Abigail!
>
> That's one hell of a piece of cargo some poor maintainer will have to
> deal with. :-)
>
> Steve
> --
> But they all have the same weakness: they're flipping web crud.
> --Tom Christiansen in <3a02e17a@cs.colorado.edu>
>
Abigail has been recruited by the Dark Side.
--
Quantum Mechanics: The dreams stuff is made of.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 06 Dec 2000 00:57:04 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: kill and security (suid)
Message-Id: <3A2D924B.4B66B587@home.com>
Anno Siegel wrote:
>
> Chris Fedde <cfedde@fedde.littleton.co.us> wrote in comp.lang.perl.misc:
> >In article <87k89ftryb.fsf@nujoma.perrins>,
> >Andrew J. Perrin <aperrin@demog.berkeley.edu> wrote:
> >>
> >>system("/bin/kill $_") foreach (split(/\s+/,$pppds));
> >>
> > system('/bin/kill', '-TERM', $_); # called with proper switch
>
> Indeed. The system() variant couldn't work the way the OP wrote it.
Why not? It works for me on a Linux box where SIGTERM is the default
signal for kill.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: 05 Dec 2000 23:47:31 -0200
From: Jorge Godoy <godoy@conectiva.com>
Subject: Re: modify perl modules
Message-Id: <kp7l5ejp70.fsf@dagon.conectiva>
On Tue, 5 Dec 2000, dsdf@sdfd.com wrote:
>
> modify perl modules
>
> I had to modify some modules (http user agent and parser plus some
> others), but now my script works only on my pc, but I would like to
> make it work on a remote pc that I can telnet. Is there a way to
> ''put perl modules'' inside my script?
You should have created other modules that inherited the original
modules features... If you did that, you'd be able to just copy the
new modules to whatever machine you wanted without breaking anything
on other scripts.
You can:
1. Copy the modified modules and modify the @INC to load these
modified modules
2. Include these modules in your source code (not elegant, thought)
If you have enough time, do the right thing(tm) and create new
modules... It will be worth.
See you,
--
Godoy. <godoy@conectiva.com>
Departamento de Publicações Conectiva S.A.
Publishing Department Conectiva Inc.
------------------------------
Date: Wed, 06 Dec 2000 02:04:07 GMT
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Netscape, Apache, Perl and Oracle
Message-Id: <slrn92r7jk.nr.mgjv@verbruggen.comdyn.com.au>
On Tue, 05 Dec 2000 00:08:29 +0100,
R.C. van der Zant <rvdzant@planet.nl> wrote:
>
> 1) Edit the HTTP start shell script and add : ORACLE_HOME,
> LD_LIBRARY_PATH and extend PATH with : ${ORACLE_HOME}/bin.
> Restart the HTTP processes.
> The situation remains unaltered.
IIRC Apache won't use its own environment for CGI processes, but
instead gives it a clean one. You have to do something with the
configuration of apache to set environment variables in CGI processes.
Consult the manual or an apache group to find out more (and whether
I'm right).
> 2) Add :
>
> $ENV{LD_LIBRARY_PATH}='/db/oracle/rel815/lib';
> $ENV{ORACLE_HOME}='/db/oracle/rel815';
> $ENV{ORACLE_SID}='SVR815';
>
> to the cgi script above the line that says :
>
> $DBH=DBI->connect("dbi:Oracle:$svn","$usn","$pwd")
> or $q->p("Connectie naar $svn mislukt. Foutcode : $DBI::errstr");
>
> This still produces the same error.
Too late. Maybe putting this in a BEGIN{} block all the way at the top
of your program will work, but I don't even know that for sure.
Martien
--
Martien Verbruggen |
Interactive Media Division | If it isn't broken, it doesn't have
Commercial Dynamics Pty. Ltd. | enough features yet.
NSW, Australia |
------------------------------
Date: Wed, 6 Dec 2000 08:21:26 +0800
From: "»´ä¸}" <crud_alex@yahoo.com>
Subject: perl printer problem
Message-Id: <90k0u2$b07$1@taliesin.netcom.net.uk>
open (PRNT , ">LPT1") || die "$!";
and the error message is " Permission denied at C:\B.PL line 2."?
it's running on the win98 system?what's going wrong?
--
------------------------------
Date: 6 Dec 2000 11:45:39 +1100
From: "Kiel Stirling" <taboo@comcen.com.au>
Subject: Re: perl printer problem
Message-Id: <3a2d8c33@nexus.comcen.com.au>
"»´ä¸}" <crud_alex@yahoo.com> wrote:
>open (PRNT , ">LPT1") || die "$!";>
>and the error message is " Permission denied at C:\B.PL line 2."?
>
>it's running on the win98 system?what's going wrong?
it's windoz that's whats wrong
------------------------------
Date: 05 Dec 2000 23:11:16 GMT
From: kevin metcalf <xzrgpnys@yvtugubhfrovm.pbz>
Subject: Re: Removing leading spaces
Message-Id: <3A2D76A3.B0B0F841@yvtugubhfrovm.pbz>
Jonathan MILLEY wrote:
>
> I'm trying to find an effective way to trim leading spaces from
> a string.
>
> What I'm doing is I have a script which reads a html page source
> file and a template file and fills in the appropriate feilds,
> but I allways end up with an extra space at the beginning of each
> of my feilds. so instead of getting "./school.html" I get
> " ./school.html" this isn't such a big problem, except it prevents
> my cgi scripts from executing properly.
>
> Any and all suggestions are welcome.
You mean other then the perl manual/faq/cpan perscribed way:
$the_variable =~ s/^\s*//;
of doing it?
Sure, but it's a lot more work.
--
email: xzrgpnys@yvtugubhfrovm.pbz
Huh? http://www.flactem.com/utils/rot13.html
------------------------------
Date: Tue, 5 Dec 2000 18:33:32 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Removing leading spaces
Message-Id: <slrn92quqc.olj.tadmc@magna.metronet.com>
Jonathan MILLEY <jmilley@tera.engr.mun.ca> wrote:
>I'm trying to find
^^^^^^^^^^
What, exactly, have you tried?
Have you, for instance, tried checking the Perl FAQ before
posting to the Perl newsgroup?
I'm sure you have, as it would be pretty rude to not have, so
I guess you just missed it when you checked.
>an effective way to trim leading spaces from
>a string.
Perl FAQ, part 4:
"How do I strip blank space from the beginning/end of a string?"
You are expected to check the FAQ *before* you post.
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 06 Dec 2000 01:54:40 GMT
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Removing leading spaces
Message-Id: <slrn92r71t.nr.mgjv@verbruggen.comdyn.com.au>
On 05 Dec 2000 23:11:16 GMT,
kevin metcalf <xzrgpnys@yvtugubhfrovm.pbz> wrote:
> Jonathan MILLEY wrote:
>>
>> I'm trying to find an effective way to trim leading spaces from
>> a string.
>
> You mean other then the perl manual/faq/cpan perscribed way:
> $the_variable =~ s/^\s*//;
> of doing it?
The FAQ actually uses a + instead of a *, because it'll be slightly
faster.
Martien
--
Martien Verbruggen |
Interactive Media Division | +++ Out of Cheese Error +++ Reinstall
Commercial Dynamics Pty. Ltd. | Universe and Reboot +++
NSW, Australia |
------------------------------
Date: Wed, 06 Dec 2000 01:58:21 GMT
From: "EM" <me@privacy.net>
Subject: resuming?
Message-Id: <13hX5.7404$Nw6.24653@news.iol.ie>
i use this code to print the contents of a file to the browser
use File::Copy 'copy';
copy("$filetodownload",\*STDOUT);
but if i use getright (a resuming download manager) to download it tells me
the server does not support resuming
but my server does support resuming so i guess its a cgi thing
how do i allow a user to resume a download?
the reason i use file copy to download is i want to perform some
authentication tasks first
and a redirect is not secure enough
-----------
Eric
------------------------------
Date: Tue, 5 Dec 2000 18:48:16 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: sorting an array of hashes (cont'd)
Message-Id: <slrn92qvm0.olj.tadmc@magna.metronet.com>
kcount <kcount@ardenhouse.com> wrote:
>When I sort on my regexed last name, a few times i have a name that's
>similar to Kelly Smith III, (like Kelly Smith the 3rd.).
How about these:
Kelly Smith Jr. MD PhD JD
Mary Jo Smith
Bob El Hasad
Mary Jo El Hasad
??
>what kind of regex can i use to extract the last
>name,
It is not possible to do it reliably with a pattern match.
Even a *human* might not be able to tell given name from surname.
Some names have the surname first and the given name last
(so even "last name" is a Hard Thing to nail down).
You do not have a Perl question here. You have an Artificial
Intelligence question, that I don't think even Real Intelligence
can solve reliably.
Better to enter the parts of the names individually when
the data is taken.
Probably too late for that huh?
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 05 Dec 2000 23:46:13 GMT
From: "eriky" <erik.ykema@usa.net>
Subject: Re: these young girls take wonderful ass shots 2399
Message-Id: <97fX5.46521$lR2.1526852@afrodite.telenet-ops.be>
you're a little inapropriate here
<jxfowh@ool.com> wrote in message news:3a2cef04@172.16.4.124...
> http://www.lightningfree.com/13/placez/
> isgmuetuidldlulilgcuigoddiym
>
------------------------------
Date: Wed, 06 Dec 2000 00:57:03 GMT
From: Vinny Murphy <VincentMurphy@mediaone.net>
Subject: Re: Two dimensional array to file.
Message-Id: <m3k89ee2i9.fsf@vmurphy-hnt1.athome.net>
>>>>> "Ilya" == Ilya Zakharevich <ilya@math.ohio-state.edu> writes:
Ilya> [A complimentary Cc of this posting was sent to Vinny Murphy
Ilya> <VincentMurphy@mediaone.net>], who wrote in article
Ilya> <m3ofyrpo0k.fsf@vmurphy-hnt1.athome.net>:
>> to dump the data structure you do
>>
>> print FILEHANDLE Dumper( \@array_of_array);
>>
>> to get it back you would do an eval on the data in the file.
Ilya> ... and this is why one should never use Data::Dumper for
Ilya> serialization. Use serialization modules, such as FreezeThaw
Ilya> and/or Storable.
Thank you - this solved a problem for me.
--Vinny
------------------------------
Date: Tue, 05 Dec 2000 23:19:58 GMT
From: cputek1@my-deja.com
Subject: Ugh! I hope I can explain this...
Message-Id: <90jt6p$vhn$1@nnrp1.deja.com>
I'm calling a subroutine in a perl script from other perscripts
(using "required"). How do I tell which script called the subroutine
from within the subroutine?
I hope that made sense...
thanks
CMF
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 5 Dec 2000 18:51:32 -0600
From: logan@cs.utexas.edu (Logan Shaw)
Subject: Re: Ugh! I hope I can explain this...
Message-Id: <90k2ik$dgl$1@pip.cs.utexas.edu>
In article <90jt6p$vhn$1@nnrp1.deja.com>, <cputek1@my-deja.com> wrote:
>I'm calling a subroutine in a perl script from other perscripts
>(using "required"). How do I tell which script called the subroutine
>from within the subroutine?
By passing an argument to that subroutine.
Of course, you could read $0, but that would be a hack and I don't
advise it if you want to make your code maintainable.
- Logan
------------------------------
Date: Wed, 06 Dec 2000 00:55:31 GMT
From: cputek1@my-deja.com
Subject: Re: Ugh! I hope I can explain this...
Message-Id: <90k2q2$45j$1@nnrp1.deja.com>
In article <90jt6p$vhn$1@nnrp1.deja.com>,
cputek1@my-deja.com wrote:
> I'm calling a subroutine in a perl script from other perscripts
> (using "required"). How do I tell which script called the subroutine
> from within the subroutine?
>
> I hope that made sense...
> thanks
> CMF
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
>
never mind.. the calling script is contained in $0(zero) It took a
while but I found it.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 06 Dec 2000 00:14:22 GMT
From: "eriky" <erik.ykema@usa.net>
Subject: valentyn@openoffice.nl
Message-Id: <yxfX5.46637$lR2.1528190@afrodite.telenet-ops.be>
$;=s//,rekcah lreP rehtona tsuJ\n/;$;+=$;while
print,s/(.{$;})(.{1,$;})/$2$1/g
begin 666 japh.pl
M)#L]<R\O+')E:V-A:"!L<F50(')E:'1O;F$@='-U2EQN+SLD.RL])#MW:&EL
G92!P<FEN="QS+R@N>R0[?2DH+GLQ+"0[?2DO)#(D,2]G#0H-"@T*
`
end
------------------------------
Date: Tue, 05 Dec 2000 23:28:23 GMT
From: Ted <ted_graham@my-deja.com>
Subject: Willing to review a 90 line Perl program?
Message-Id: <90jtmf$1n$1@nnrp1.deja.com>
I am learning Perl, and would like someone to review a small program I
have written. As a C++ and Java programmer, I have learned the value
of expert (or even peer) review, but I don't know any other Perl
programmers. The functionality isn't important, I'm looking instead
for style, technique, language or design advice. Comments here or
mailed to Ted_Graham at yahoo dot com are welcome.
Thanks,
Ted
--- modifyFlatFile.pl follows --->
#!/usr/bin/perl -w
# Summary: Modify a CompanyNameDeleted Flat File for import into
ProductNameDeleted
# Takes a CompanyNameDeleted flat file in CSV format
# 12/5/00 - Ted Graham - Creation.
(scalar @ARGV == 1) or die "usage: modifyFlatFile <flatfilename>\n";
$file = shift @ARGV;
open(IN, $file) || die "cannot open $file for reading: $!\n";
open(OUT, ">$file.temp") || die "cannot create $file.temp: $!\n";
# count all the lines so we can give good messages (could remove for a
perf boost)
while( $line = <IN> )
{
$totalLines++;
}
close(IN); # close IN and reopen it to reset the file pointer
open(IN, $file) || die "cannot open $file for reading: $!\n";
# we'll print 10 messages during processing
$messageCount = $totalLines/10 + 1;
while( $line = <IN> )
{
$count++;
if( $count%$messageCount == 0)
{
print "Processing line $count of $totalLines in $file...\n";
}
$line = add_sale_id($line);
$line = check_month_formats($line);
print OUT $line;
}
close(IN); # close the files we've been using so we can work with
them.
close(OUT);
rename("$file", "$file.old"); # rename the original to .old
rename("$file.temp", "$file"); # rename the new one to the original
name
#################### End of main function, sub procedures follow. ####
# Ensure there is a SaleID (a sequential, unique number) as the first
column of each line
sub add_sale_id
{
my($line)=$_[0];
@array = split(/,/,$line);
# 1) Add a sequential, unique number as the first column of each line
if($array[0] != $count) #check that it isn't already there.
{
$array[0] = $count . "," . $array[0];
}
$line = join(',',@array);
return $line;
}
# Check that the new second (bill month) and third (revenue month)
columns have
# the date in MMYY format (with leading 0).
sub check_month_formats
{
my($line)=$_[0];
@array = split(/,/,$line);
# 2) Check that the second (bill month) and third (revenue month)
columns have
# the date in MMYY format (with leading 0).
$array[1] = enforceDateFormat($array[1]);
$array[2] = enforceDateFormat($array[2]);
$line = join(',',@array);
return $line;
}
# Force a string into MMYY format
sub enforceDateFormat
{
my($dateString)=$_[0];
( $dateString =~ /\d{3}/ ) ||
die "The string '$dateString' is an invalid date format (must
be MMYY) at line $count.\n";
if( length($dateString) == 3 )
{
$dateString = "0" . $dateString;
}
return $dateString;
}
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 5 Dec 2000 19:39:21 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Willing to review a 90 line Perl program?
Message-Id: <slrn92r2lp.op4.tadmc@magna.metronet.com>
Ted <ted_graham@my-deja.com> wrote:
>
>I am learning Perl, and would like someone to review a small program I
>have written.
>I'm looking instead
>for style, technique, language or design advice.
>#!/usr/bin/perl -w
use strict;
This is a *must*. In my book, it is a firing offense to
write Perl without strictures turned on.
>(scalar @ARGV == 1) or die "usage: modifyFlatFile <flatfilename>\n";
^^^^^^
^^^^^^ that is redundant. Conditionals are *always* scalar context.
Most would write that:
die "usage: modifyFlatFile <flatfilename>\n" unless @ARGV == 1;
It even reads kind of Englishy.
>rename("$file", "$file.old"); # rename the original to .old
The quotes serve no purpose, other than making your code harder to read.
You should check the return value here too:
rename($file, "$file.old") || die "could not move '$file' $!";
>sub add_sale_id
>{
> my($line)=$_[0];
I find $_[0] profoundly homely (besides also being passed
by-reference, which could be dangerous).
my $line = shift;
or, better:
my($line) = @_;
> @array = split(/,/,$line);
> $array[0] = $count . "," . $array[0];
Most would write that:
$array[0] = "$count,$array[0]";
>sub enforceDateFormat
>{
> my($dateString)=$_[0];
> ( $dateString =~ /\d{3}/ ) ||
> die "The string '$dateString' is an invalid date format (must
>be MMYY) at line $count.\n";
I recommend not getting carried away with using || and friends
as control structures.
Sometimes they "seem right", but often they are just obfuscation.
If you want an "if", just say "if" :-)
if ( $dateString !~ /\d{3}/ )
{ die "The string '$dateString' is an ..." }
or
if ( ! $dateString =~ /\d{3}/ )
{ die "The string '$dateString' is an ..." }
or
unless ( $dateString =~ /\d{3}/ )
{ die "The string '$dateString' is an ..." }
or even
die "The string '$dateString' is an ..." unless $dateString =~ /\d{3}/;
--
Tad McClellan SGML consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 06 Dec 2000 01:44:03 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: Willing to review a 90 line Perl program?
Message-Id: <DRgX5.82$T3.170908160@news.frii.net>
In article <90jtmf$1n$1@nnrp1.deja.com>, Ted <ted_graham@my-deja.com> wrote:
>
>
>I am learning Perl, and would like someone to review a small program I
>have written. As a C++ and Java programmer, I have learned the value
>of expert (or even peer) review, but I don't know any other Perl
>programmers. The functionality isn't important, I'm looking instead
>for style, technique, language or design advice. Comments here or
>mailed to Ted_Graham at yahoo dot com are welcome.
Peer level maybe but I'll give my comments anyway. They are intermingled
with your code.
General comments: Be careful with word wrap. Somewhere things got wrapped
and some comments and print statements were wrapped for you. I tend to
format code to 78 columns even though Holorith has been dead for about 130
years.
>--- modifyFlatFile.pl follows --->
>#!/usr/bin/perl -w
>
># Summary: Modify a CompanyNameDeleted Flat File for import into
>ProductNameDeleted
># Takes a CompanyNameDeleted flat file in CSV format
>
># 12/5/00 - Ted Graham - Creation.
>
>(scalar @ARGV == 1) or die "usage: modifyFlatFile <flatfilename>\n";
>
>$file = shift @ARGV;
>
>open(IN, $file) || die "cannot open $file for reading: $!\n";
>open(OUT, ">$file.temp") || die "cannot create $file.temp: $!\n";
>
># count all the lines so we can give good messages (could remove for a
>perf boost)
>while( $line = <IN> )
>{
> $totalLines++;
>}
>close(IN); # close IN and reopen it to reset the file pointer
>open(IN, $file) || die "cannot open $file for reading: $!\n";
>
># we'll print 10 messages during processing
>$messageCount = $totalLines/10 + 1;
Seems wasteful to read the file just to get this count.
I'd choose something else.
Maybe stat the file to get it's size in bytes
devide that by 10 and print the tracking message every time tell(IN)
crosses one of the boundries.
>
>while( $line = <IN> )
>{
> $count++;
> if( $count%$messageCount == 0)
> {
> print "Processing line $count of $totalLines in $file...\n";
> }
>
> $line = add_sale_id($line);
> $line = check_month_formats($line);
>
> print OUT $line;
>}
>
>close(IN); # close the files we've been using so we can work with
>them.
>close(OUT);
>rename("$file", "$file.old"); # rename the original to .old
>rename("$file.temp", "$file"); # rename the new one to the original
>name
>
>#################### End of main function, sub procedures follow. ####
>
># Ensure there is a SaleID (a sequential, unique number) as the first
>column of each line
>sub add_sale_id
>{
> my($line)=$_[0];
>
> @array = split(/,/,$line);
Is there any likelyhood that there would be an escaped comma inside a
field? If there is then you might want to use something smarter about
splitting it. Text::CSV_XS might be usable.
> # 1) Add a sequential, unique number as the first column of each line
> if($array[0] != $count) #check that it isn't already there.
> {
> $array[0] = $count . "," . $array[0];
> }
> $line = join(',',@array);
> return $line;
>}
>
># Check that the new second (bill month) and third (revenue month)
>columns have
># the date in MMYY format (with leading 0).
>sub check_month_formats
>{
> my($line)=$_[0];
>
> @array = split(/,/,$line);
> # 2) Check that the second (bill month) and third (revenue month)
>columns have
> # the date in MMYY format (with leading 0).
> $array[1] = enforceDateFormat($array[1]);
> $array[2] = enforceDateFormat($array[2]);
> $line = join(',',@array);
>
> return $line;
>}
>
># Force a string into MMYY format
>sub enforceDateFormat
>{
> my($dateString)=$_[0];
> ( $dateString =~ /\d{3}/ ) ||
Are there supposed to be three digits or four digits?
> die "The string '$dateString' is an invalid date format (must
>be MMYY) at line $count.\n";
Is dieing really the right behavior? Maybe an exception records
file would be a better way of tracking this.
>
> if( length($dateString) == 3 )
> {
> $dateString = "0" . $dateString;
> }
> return $dateString;
>}
>
>
>Sent via Deja.com http://www.deja.com/
>Before you buy.
--
This space intentionally left blank
------------------------------
Date: Wed, 06 Dec 2000 01:07:00 GMT
From: Nigel <nigeljennison@cs.com>
Subject: Re: Your help please
Message-Id: <90k3fh$4sk$1@nnrp1.deja.com>
In article <90if3b$61i$1@pheidippides.axion.bt.co.uk>,
"Katie Foster" <unknown@boat.bt.com> wrote:
> I haven't been doing Perl very long, so I was hoping someone on here
could
> help me, please.
>
> My group have upgraded from Perl 3 to Perl 5.05. Some of our scripts
no
> longer work, I have fixed some of them, but have come accross a
problem with
> one particular script.
>
> The script is called from another scripts which sets the frames up on
the
> page. Two of the frames work fine, but one frame doesn't work. It
> produces the error message Premature end of script headers: /name of
file.
>
> If you re-fresh the frame then it works and does not produce an error
> message.
> I have cheked the environment variables by printing them to the
errorlog,
> When I do this the script works fine. If I just print a line saying
Test
> into the errorlog then that also works.
>
> Anyone any ideas on why it isn't working or how to fix it??
>
> Thanks Katie
>
>
I also want to upgrade but I heard that 5.05 will be replaced by
version 6 soon? Anybody else verify that?
--
Worker
Disk Drive Computer Books
http://disk.vstorecomputers.com
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 05 Dec 2000 23:44:28 GMT
From: "eriky" <erik.ykema@usa.net>
Subject: Re: Zip files in a directory by zipping directory
Message-Id: <w5fX5.46516$lR2.1527122@afrodite.telenet-ops.be>
simple dos would serve you, and can be translated to Perl easily, I suppose:
c:>for %%a in (directory\*.*) do \bin\pkzip25.exe -add %a.zip
or something like that
good luck
erik.ykema@usa.net
<aldenave@hotmail.com> wrote in message news:90jdrr$hjo$1@nnrp1.deja.com...
> I am looking for PERL code that will enable me to zip individual files
> within a directory by just zipping the directory proper. e.g. I have
> a directoy with 5 thousand files. I want each file to be zipped but I
> do not want to go in and zip each file one at a time. Ask suggestions
> or recomendations? Zipping the entire directory proper is not an
> option. Each file must be seperately zipped. Thanks
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 5041
**************************************
