[11336] in Perl-Users-Digest
Perl-Users Digest, Issue: 4936 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Feb 19 01:07:24 1999
Date: Thu, 18 Feb 99 22:00:26 -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 Thu, 18 Feb 1999 Volume: 8 Number: 4936
Today's topics:
Re: <<HERE code (Pedro Miguel A. C. Raposo)
Re: @files = <*.*>; doesn't work (Pedro Miguel A. C. Raposo)
Apache htpasswd updater problem <ddb@crystal.uwa.edu.au>
Re: can i use perl to filter NT event viewer logs? <morrowc@his.com>
Changing group ID does not work on Perl5/Solaris geoid@iname.com
DBI / DBD Driver for SAS davem@web.co.nz
Re: delete line? (Ronald J Kimball)
Re: efficient , -> TAB substitution? <trent@mail.utexas.edu>
FAQ 5.34: Why do I get weird spaces when I print an arr <perlfaq-suggestions@perl.com>
FAQ 8.1: How do I find out which operating system I'm r <perlfaq-suggestions@perl.com>
FAQ 8.2: How come exec() doesn't return? <perlfaq-suggestions@perl.com>
File Locking Question <undefined@null.com>
Re: good code vs code that works (Ronald J Kimball)
Re: help! navigating URLs in Perl (Ronald J Kimball)
HELP: CGI.pm/perlmod forgets data?!? (Rudolf Potucek)
Re: HELP: CGI.pm/perlmod forgets data?!? (Steve Linberg)
Re: how do I get a date in perl? <morrowc@his.com>
Re: how do I get a date in perl? (Ronald J Kimball)
Re: MySQL Perl Interface (Steve Linberg)
need help with s/// pattern problem <khowe@performance-net.com>
Re: need help with s/// pattern problem (Steve Linberg)
Re: Perl evangelism (VicodinES /CB /TNN)
Re: Perl interpreter for Win95? (Rod MacBain)
Re: Problem with oraperl in a web-browser <morrowc@his.com>
Re: Problems getting rid of \n!! <morrowc@his.com>
Problems with automating ftp <niting@raleigh.ibm.com>
Re: Spilting File into 2 (Ronald J Kimball)
writing a cgi script that would accept a user upload??? <abp@holly.colostate.edu.spamm>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 19 Feb 1999 03:09:05 GMT
From: Pedro.Raposo@tmn.pt (Pedro Miguel A. C. Raposo)
Subject: Re: <<HERE code
Message-Id: <7aiks5$qr1$1@duke.telepac.pt>
In article <7aetpp$221$1@camel0.mindspring.com>, "Allan M. Due" <Allan@due.net> wrote:
>joec@impacttech.com wrote in message <7aeql9$7hi$1@nnrp1.dejanews.com>...
>:I have to copy a fairly large block of text to a variable.
>:I would like to do it with a similar construct to the construct:
>:print <<EOT;
>:this is test
>:EOT
>:
>:Something on the order of
>:
>:$SampleText = <<EOT;
>:this is a test
>:EOT
>
>
>Well the code is correct, when I hear this complaint I always think, no
>newline at the end of thefile.
>
>EOT token cannot be the last element of the file, there must be at least one
>additional line. I often end up recommending that folks write the above as
>
>$SampleText = <<EOT;
>this is a test
>EOT
>;
>
>The useless ; ensures that there is the necessary extra newline. Or just
>make sure you hit return at least once <g>.
>
Found the very same problem under ActiveState Perl build 509.
If the token is the last line on the source file, i.e. there is not at least
one empty line after the token, it won't work.
My editor of choice, PFE, seems to "absorb" one last-empty-line per save ...
kinda a stupid ... I also use the not-so-useless ";"
Pedro Raposo
------------------------------
Date: Fri, 19 Feb 1999 04:14:55 GMT
From: Pedro.Raposo@tmn.pt (Pedro Miguel A. C. Raposo)
Subject: Re: @files = <*.*>; doesn't work
Message-Id: <7aionk$nbl$1@duke.telepac.pt>
In article <7adt4d$ppp$1@news1.fast.net>, "John Counts" <jcounts@voicenet.com> wrote:
>I had the same experience, except that I am running on NT server, same
>version of Activeperl.
>
>I had to change @files = glob("//s1/vol3/now/*.TXT"); to
>opendir(G, "//s1/vol3/now");
>
>I'm puzzled too!!
>
>Steven Lee wrote in message ...
>>I am running Perl version 5.005_02, build 509 with 1 registered patch
>>by ActiveState. The filename glob operator does not seem to work on
>>Windows 95.
>
>
>
Globbing doesn't work on Win/Dos boxes as it does on UNIXes, where globbing is
done by the OS.
That's why you have File::DosGlob and perlgob.exe.
Read The Kama Sutra, for a change ...
Pedro Raposo
------------------------------
Date: Fri, 19 Feb 1999 12:02:15 +0800
From: Douglas du Boulay <ddb@crystal.uwa.edu.au>
Subject: Apache htpasswd updater problem
Message-Id: <36CCE247.5F51C231@crystal.uwa.edu.au>
Hi,
I was trying to write a very minimal script to generate random
passwords for
a number of web site directories with restricted access. I wanted to
update the passwords
on a regular basis as a cron job so I was after a script that would
gnerate the passwords,
log them, and add them to the appropriate Apache web server password
file.
The script included below was my guess, but it doesn't communicate
properly via the pipe to
the Apache htpasswd program. The process is forked, but won't read
from its input pipe.
Rather it wants to read STDIN from the terminal.
How can I fix this and what am I missing ?
Thanks in advance
Doug
#!/usr/bin/perl
# random number seed
$seed = time() ^ $$ ^ unpack "%32L*", `ps axww | gzip`;
srand( $seed );
# the download groups
%group = ("osf1",0,
"vms",0,
"ultrix",0,
"aix",0,
"irix",0,
"sunos",0,
"win32",0,
"linux",0,
"source",0);
# use random number generator to generate passwords
foreach $key (keys %group ){
$pass = "";
$len= 12;
while ( $len ) {
$num = rand( 94 ) ;
$num= ($num % 94 ) +33;
$pass .= chr $num ;
--$len ;
}
$group{$key} = $pass;
}
# record the new passwords in the passlog file
open LOG, '>>/etc/passlog' or die "Can't open the passlog file \n";
print LOG localtime(time) . "\n";
foreach $key (keys %group ){
$pass = $group{$key};
print LOG "$key $pass \n";
}
close LOG;
# update the password file
$location="/usr/src/apache_1.3.3";
foreach $key (keys %group ){
$pass=$group{$key} ;
$HTPASSWD=open(HTP,"|$location/bin/htpasswd
$location/etc/xtal.htpasswd $key")
or die "can't fork: $!";
print HTP "$pass\n" ; # enter password first time
print HTP "$pass\n" ; # confirm password second time
close(HTP);
}
------------------------------
Date: Thu, 18 Feb 1999 22:30:35 -0500
From: Chris Morrow <morrowc@his.com>
To: eric <guadomatic@hotmail.com>
Subject: Re: can i use perl to filter NT event viewer logs?
Message-Id: <36CCDADB.4B8420B7@his.com>
Try both the dumpevnt resource kit tool, which I THINK will dump to CSV
(and zero the logs also?)... then process as you like in perl.
-Chris
eric wrote:
>
> Does anyone have scripts to filter event viewer logs on
> Windows NT? In particular, I'm looking for something to
> pull out logon/logoff attempts. Can I do this with perl,
> or do I have to resort to C?
>
> Eric
------------------------------
Date: Fri, 19 Feb 1999 03:45:58 GMT
From: geoid@iname.com
Subject: Changing group ID does not work on Perl5/Solaris
Message-Id: <7aimpk$lg1$1@nnrp1.dejanews.com>
Hello, World.
I think I did everything I can do. I read `man perlvar`, 'Programming Perl'
and searched FAQ, comp.lang.perl.misc group. Even I've rebuilt Perl several
times. So, do not say 'read this' or 'visit there'. Please, take it
seriously.
Here is my problem.
I want to change [re]uid and [re]gid while the script is running. I need this
because I have to open new file which is initially owned by certain user and
group.
(Yes, I can do 'chown' afterward. But, this is not real solution I think)
To see what's going on, I wrote tiny perl code to extract the core of problem.
I executed following script as root(UID:1, GID:1).
User of UID 999 is a member of group(GID:1000).
--- cut here ---
#!/usr/local/bin/perl5
print "UID $<, EUID $>\n";
print "Changing UID\n";
$< = $> = 999;
print "UID $<, EUID $>\n";
print "\n";
print "GID '$(', EGID '$)'\n";
print "Changing GID\n";
$) = $( = 1000;
print "GID '$(', EGID '$)'\n";
--- cut here ---
The result :
UID 0, EUID 0
Changing UID
UID 999, EUID 999
GID '1 1', EGID '1 1'
Changing GID
GID '1 1', EGID '1 1'
--- cut here ---
Testing Environment :
1. Solaris 2.6 / UltraSparc2
Perl version 5.004_04 built for sun4-solaris
Built with Sun WorkShop 4.2
2. Solaris 2.6 / x86
Perl version 5.005_02 built for i86pc-solaris
Built with EGCS-1.1.1 release
Well, why can't I change group ID whether real or effective?
As descrived in `man perlvar`, I gave numeric value to $(.
I read several posting regarding this problem. but those were not answered.
Please check it out, and let me know what about other platform.
Thanks for reading.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 19 Feb 1999 04:28:27 GMT
From: davem@web.co.nz
Subject: DBI / DBD Driver for SAS
Message-Id: <7aip93$nej$1@nnrp1.dejanews.com>
Has anyone written or contemplated writing a DBD driver for the SAS database?
If so, please let us know! If not, is anyone interested in collaboration?
Thanks,
Dave Moskovitz
Technical Director
The Web Limited
Wellington, New Zealand
davem@web.co.nz
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 19 Feb 1999 00:25:50 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: delete line?
Message-Id: <1dng423.141phy5wfg9siN@bay2-338.quincy.ziplink.net>
Allan M. Due <Allan@due.net> wrote:
> Hmm, are you Dan and Thelma? If not then it may be premature to label my
> suggestion a failure (then again- maybe not <g>). Does your newsreader
> indicate that my followup was directed to a post you made? It was not.
Whoa... I thought the whole point of newsgroups was that the answers
are available and the discussions are open to everyone. If you don't
want other people joining in, Allan, might I suggest that you send your
answers via email instead?
You appear to be under the mistaken assumption that Thelma was
questioning the validity of your response. She was not. She was simply
saying that, having followed the advice in your response, she required
further help. Don't take it personally, huh?
> Now, if in your post you indicate that you have read the FAQ and the docs,
> you have tried X but it still doesn't work, and you don't know why; then
> folks will generally try to help reach a better understanding of the
> material.
Well, it doesn't seem to have worked in this case. Thelma clearly
stated that she had read the FAQ, and that she didn't understand it, and
that she had tried doing X, and that X is too slow and tedious. But
instead of trying to help her reach a better understanding, you attacked
her for responding to your message, needlessly justified your previous
post which was not at question, and gave her instructions on posting
that she had already followed.
Oh, no, wait, in the end of the message you did post a snippet of help,
but then followed with a snide comment that was completely undeserved.
:-(
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
perl -le 'print "Just another \u$^X hacker"'
------------------------------
Date: Thu, 18 Feb 1999 22:33:20 -0600
From: Robert D Trent <trent@mail.utexas.edu>
Subject: Re: efficient , -> TAB substitution?
Message-Id: <Pine.GSO.3.96.990218220359.19273A-100000@piglet.cc.utexas.edu>
On Thu, 18 Feb 1999, Larry Rosler wrote:
> In article <7ai52f$7q1@courier.xilinx.com> on 18 Feb 1999 22:43:27 GMT,
> Jeff Stampes <stampes@xilinx.com> says...
> > Robert D Trent <trent@mail.utexas.edu> wrote:
> > :
> > : written the following C-shell script to do the substitution
> > : but it takes almost 90 minutes to complete.
> >
> > : #!/bin/csh
> > : sed -n -e 's/","/" "/g' -e 'p' $argv[1] > $argv[2]
>
> >
> > perl -pi.bak -e 's/,/\t/go' filename
>
> perl -pi.bak -e 's/","/"\t"/g' filename
>
> It would be informative to tell us how this performs compared to the
> 'sed' script.
Thanks for the help! I'm (obviously) just learning perl.
perl won hands-down, by the way. While sed took close to 90 minutes, perl
was done in just 9! Wow. I've gotta keep my nose in that perl book!
Another interesting thing... The original files have a little more than 2
null characters per line which get stripped out by the sed approach. perl
leaves them in - the output file is the exact same size as the input. I
don't think they're causing any harm, just thought it odd there was a
difference.
- Robert
------------------------------
Date: 18 Feb 1999 20:06:09 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 5.34: Why do I get weird spaces when I print an array of lines?
Message-Id: <36ccd521@csnews>
(This excerpt from perlfaq5 - Files and Formats
($Revision: 1.34 $, $Date: 1999/01/08 05:46:13 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq5.html
if your negligent system adminstrator has been remiss in his duties.)
Why do I get weird spaces when I print an array of lines?
Saying
print "@lines\n";
joins together the elements of `@lines' with a space between them. If
`@lines' were `("little", "fluffy", "clouds")' then the above statement
would print:
little fluffy clouds
but if each element of `@lines' was a line of text, ending a newline
character `("little\n", "fluffy\n", "clouds\n")' then it would print:
little
fluffy
clouds
If your array contains lines, just print them:
print @lines;
--
"To claim any more than that is to invite a religious war, which I ain't.
Go thou and don't likewise."
--Larry Wall
------------------------------
Date: 18 Feb 1999 20:34:37 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 8.1: How do I find out which operating system I'm running under?
Message-Id: <36ccdbcd@csnews>
(This excerpt from perlfaq8 - System Interaction
($Revision: 1.36 $, $Date: 1999/01/08 05:36:34 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq8.html
if your negligent system adminstrator has been remiss in his duties.)
How do I find out which operating system I'm running under?
The $^O variable ($OSNAME if you use English) contains the operating
system that your perl binary was built for.
--
Pretty printers mechanically produce pretty output that accentuates
irrelevant detail in the program, which is as sensible as putting all
the prepositions in English text in bold font. --Rob Pike
------------------------------
Date: 18 Feb 1999 21:34:40 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 8.2: How come exec() doesn't return?
Message-Id: <36cce9e0@csnews>
(This excerpt from perlfaq8 - System Interaction
($Revision: 1.36 $, $Date: 1999/01/08 05:36:34 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq8.html
if your negligent system adminstrator has been remiss in his duties.)
How come exec() doesn't return?
Because that's what it does: it replaces your currently running program
with a different one. If you want to keep going (as is probably the case
if you're asking this question) use system() instead.
--
Unix is defined by whatever is running on Dennis Ritchie's machine.
------------------------------
Date: Thu, 18 Feb 1999 11:24:14 -0500
From: "Bill Sanders" <undefined@null.com>
Subject: File Locking Question
Message-Id: <7ahes7$7vs@news1.snet.net>
In a script I've written, I use flock to protect the file while it's being
written to. Code snippet:
open (COUNT, ">$count_file") || die "Unable to open $count_file: $!\n";
flock(COUNT, 2);
print COUNT $count;
flock(COUNT, 8);
close (COUNT);
However, I have experienced what appears to be a file corruption. The
counter went from about 4500 to 10 overnight.
My question: If another process is simply reading this file, while another
is writing, will this corrupt it? Presently, I do not use flock in the code
where the file is being read. Should I be doing this?
Any thoughts as to if this may be the cause of my error are appreciated!
Thanks.
------------------------------
Date: Fri, 19 Feb 1999 00:25:51 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: good code vs code that works
Message-Id: <1dng4ww.7kmfwt182gd34N@bay2-338.quincy.ziplink.net>
23_skidoo <23_skidoo@geocities.com> wrote:
> > print qq(<a href="$homepage" target="_top">back</a><br>\n);
> >
> > Easier to read, and less characters to type to boot.
>
> true i guess but i'm probably one of the few people in here programming
> perl on a mac using bbedit. the text colouring (invaluable for newbies
> like me, spotting almost all of my typos) picks up my version
> recognising everything inside the "s as stuff to be printed as it
> recognises when you escape a ", your version highlights only the words
> "$homapage" and "_top"
What version of BBEdit are you using??
BBEdit, even in version 4.5 (the current version is 5.0), properly
colors 'qq' in operator blue and '(<a href="$homepage"
target="_top">back</a><br>\n)' in string pink.
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
perl -e'$_="\012534`!./4(%2`\cp%2,`(!#+%2j";s/./"\"\\c$&\""/gees;print'
------------------------------
Date: Fri, 19 Feb 1999 00:25:53 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: help! navigating URLs in Perl
Message-Id: <1dng54m.1nfemdtbuy6buN@bay2-338.quincy.ziplink.net>
Gord Barentsen <gpb@ppaolucci.com> wrote:
> print "Location:
> http://somewhere.com/perlscript.pl?name1=value1&name2=value2 etc.
> etc., but it doesn't seem to want to work - it just displays the
> string to the screen.
Are you sure you didn't already print the HTTP headers earlier in your
program? That would push this header into the document contents.
--
chipmunk (Ronald J Kimball) <rjk@linguist.dartmouth.edu>
perl -e 'print map chop, sort split shift, reverse shift
' 'j_' 'e._jP;_jr/_je=_jk{_jn*_j &_j :_j @_jr}_ja)_js$_j
~_jh]_jt,_jo+_jJ"_jr>_ju#_jt%_jl?_ja^_jc`_jh-_je|' -rjk-
------------------------------
Date: 19 Feb 1999 04:53:59 GMT
From: potucek@acs1.acs.ucalgary.ca (Rudolf Potucek)
Subject: HELP: CGI.pm/perlmod forgets data?!?
Message-Id: <7aiqp7$bcu@ds2.acs.ucalgary.ca>
Hi!
I have a pretty complex script that uses apache/perlmod and CGI.pm (as
included in RH5.2) and exploits the fact that global data will be retained.
The problem is that on one of the subsequent calls the
$myobj = new(CGI)
just looses some of the data that it should get from the calling form.
The odd part is, it seems to be loosing only some checkboxes ...
Any suggestions
a) what the problem might be or
b) how to conveniently trace what is REALLY passed to the script?
Thx,
Rudolf
--
------------------------------
Date: Fri, 19 Feb 1999 05:14:30 GMT
From: slinberg@crocker.com (Steve Linberg)
Subject: Re: HELP: CGI.pm/perlmod forgets data?!?
Message-Id: <slinberg-1902990014290001@cc11620-a.lwmrn1.pa.home.com>
In article <7aiqp7$bcu@ds2.acs.ucalgary.ca>, potucek@acs1.acs.ucalgary.ca
(Rudolf Potucek) wrote:
> Hi!
>
> I have a pretty complex script that uses apache/perlmod
Assuming you mean mod_perl?
> and CGI.pm (as
> included in RH5.2) and exploits the fact that global data will be retained.
> The problem is that on one of the subsequent calls the
>
> $myobj = new(CGI)
>
> just looses some of the data that it should get from the calling form.
> The odd part is, it seems to be loosing only some checkboxes ...
I don't know if calling it that way makes a difference, but perldoc CGI.pm
will tell you that
my $q = new CGI;
is a standard method. Further documentation will show you how to get the
entire query string that's been passed. Be sure to check the mod_perl
traps document too, for important information about running under
mod_perl. Finally, checkboxes, being grouped, are passed as an array, and
you have to use a list context, iirc, to retrieve them. Otherwise you'll
just get the first one. The CGI.pm documtentation explains all of this.
------------------------------
Date: Thu, 18 Feb 1999 22:26:37 -0500
From: Chris Morrow <morrowc@his.com>
Subject: Re: how do I get a date in perl?
Message-Id: <36CCD9ED.226C7F61@his.com>
Hmm,
perldoc perlfunc and look for the information about localtime ? there is
even an example of the array of output from localtime(time)... with all
variables explained (the code snippet is quite useful)
It's amazing what you find while RTFM'ing :)
-Chris
Joe Meree wrote:
>
> It would be hard to get a date in Perl because most programmers
> are guys. However, you should include a lot of romantic comments
> in your scripts. Then when that special someone reads your script
> they will like you and want to go on a date with you...
>
> In article <1dmzj9b.1mir3okdgax8sN@bay2-161.quincy.ziplink.net>,
> rjk@linguist.dartmouth.edu (Ronald J Kimball) wrote:
> > Duc Le <bamboo@best.com> wrote:
> >
> > > Subject: how do I get a date in perl?
> >
> > Sorry, Perl is for computer programmers, who are widely known not to get
> > dates. If you want to get a date, try something more glamorous, like
> > racecar driving.
> >
> > --
> > _ / ' _ / - aka - rjk@linguist.dartmouth.edu
> > ( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
> > / http://www.ziplink.net/~rjk/
> > perl -e'$_="\012534`!./4(%2`\cp%2,`(!#+%2j";s/./"\"\\c$&\""/gees;print'
> >
>
> Joe Meree
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Fri, 19 Feb 1999 00:25:54 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: how do I get a date in perl?
Message-Id: <1dng56m.12cfc9i1va9gahN@bay2-338.quincy.ziplink.net>
Chris Morrow <morrowc@his.com> wrote:
> perldoc perlfunc and look for the information about localtime ? there is
> even an example of the array of output from localtime(time)... with all
> variables explained (the code snippet is quite useful)
>
> It's amazing what you find while RTFM'ing :)
What does this have to do with getting a date? Last time I used the
line about an example of the array of output from localtime(time) at a
singles bar, I got a drink thrown in my face.
I think I'll stick with "What's your sign?".
;-)
--
_ / ' _ / - aka - rjk@linguist.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Fri, 19 Feb 1999 05:22:38 GMT
From: slinberg@crocker.com (Steve Linberg)
Subject: Re: MySQL Perl Interface
Message-Id: <slinberg-1902990022360001@cc11620-a.lwmrn1.pa.home.com>
In article <7afbun$nse$1@nnrp1.dejanews.com>, Bosco Tsang
<bosco@ipoline.com> wrote:
> Here is what the error I've got when I 'make test'. The Perl I am using is
> 5.004_03. Any one got any idea?
Hmm. Your gcc is current, your Perl is still a wee bit old. I couldn't
say if it makes a difference or not, but I'm using 5.005_02. What's the
state of your libc, has that been brought up to date?
------------------------------
Date: Fri, 19 Feb 1999 00:54:19 -0400
From: "Kevin Howe" <khowe@performance-net.com>
Subject: need help with s/// pattern problem
Message-Id: <u86z2.7489$134.63585@tor-nn1.netcom.ca>
This is a multi-part message in MIME format.
------=_NextPart_000_00DB_01BE5BA2.61F3F4C0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Could someone please help me figure out why the s// function won't work =
for following script, I am pulling my hair out on this one. I think it =
may have to do with the pattern variables ($1 , $2 , etc..) but can't =
say for sure.
=20
Greatly appreciated,
Sincerely,
Kevin Howe
=20
The Template File
-------------------------------
<title>
<fmEVAL>
$title
</fmEVAL>
</title>
<fmEVAL>&getMeta;</fmEVAL>
=20
=20
The Script
-----------------------------
#!C:\PERL\bin\perl.exe
=20
$title =3D"The James Brown Soul Homepage"; ## Test Variable
=20
open(LIST,"template.shtml"); ## Open the template =
file
@LINES =3D <LIST>;
close(LIST);
=20
$LINE =3D join("<n>",@LINES); ## <n> is placeholder =
for when we split it later on
$LINE =3D~ s/\n//g; ## Eliminate =
newlines
$LINE =3D~ s/\t/<tab>/g; ## Convert TABS (lets =
me see them)
=20
&go; ## Run the main script
=20
sub go
{
=20
## If there is an embedded tag in the template
if ($LINE =3D~ m/(<fmEVAL>(.*?)<\/fmEVAL>)/)
{
my $full_tag =3D $1;
my $tag_value =3D $2;=20
=20
print "$full_tag\n";
print "$tag_value\n";
=20
$tag_value =3D~ s/<n>//g;
$tag_value =3D~ s/<tab>//g;
$tag_value =3D~ s/\s//g;
=20
print "$tag_value\n";
## Evaluate Embedded Perl Code
$tag_value =3D eval($tag_value);
=20
print "$tag_value\n";
$LINE =3D~ s/$full_tag/$tag_value/; ## For some reason Perl can't =
find the pattern
=20
print $LINE;
## Invoke the subroutine again to check for other tags
##&go;
}
else
{ ### Finished studying this line!
print "done\n";
print $LINE;}
}
------=_NextPart_000_00DB_01BE5BA2.61F3F4C0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.2106.6"' name=3DGENERATOR>
</HEAD>
<BODY>
<DIV>
<DIV><FONT face=3DVerdana size=3D2>Could someone please help me figure =
out why the=20
<FONT color=3D#ff0000>s// </FONT>function won't work for following =
script, I am=20
pulling my hair out on this one. I think it may have to do with the =
pattern=20
variables ($1 , $2 , etc..) but can't say for sure.</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2>Greatly appreciated,</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2>Sincerely,</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2>Kevin Howe</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT face=3DVerdana size=3D2>The Template File</FONT></DIV>
<DIV><FONT face=3DVerdana =
size=3D2>-------------------------------</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2><title><BR> =20
<fmEVAL><BR> &=
nbsp; =20
$title<BR> =
</fmEVAL><BR></title><BR></FONT></DIV>
<DIV><FONT face=3DVerdana=20
size=3D2><fmEVAL>&getMeta;</fmEVAL></FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2>The Script</FONT></DIV>
<DIV><FONT face=3DVerdana =
size=3D2>-----------------------------</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2>#!C:\PERL\bin\perl.exe</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2>$title =3D"The James Brown Soul=20
Homepage"; ## Test Variable</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana=20
size=3D2>open(LIST,"template.shtml"); &n=
bsp; &nb=
sp; =20
## Open the template file<BR>@LINES =3D =
<LIST>;<BR>close(LIST);</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2>$LINE =3D=20
join("<n>",@LINES); &n=
bsp; &nb=
sp;=20
## <n> is placeholder for when we split it later on<BR>$LINE =3D~=20
s/\n//g;  =
; =
=20
## Eliminate newlines<BR>$LINE =3D~=20
s/\t/<tab>/g; =
&=
nbsp; =20
## Convert TABS (lets me see them)</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2>&go; ## Run the main=20
script</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2>sub go<BR>{</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2> ## If there is an embedded tag =
in the=20
template<BR> if ($LINE =3D~=20
m/(<fmEVAL>(.*?)<\/fmEVAL>)/)<BR> {<BR> my =
$full_tag =3D=20
$1;<BR> my $tag_value =3D $2; </FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2> print =
"$full_tag\n";<BR> =20
print "$tag_value\n";</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2> $tag_value =3D~ =
s/<n>//g;<BR> =20
$tag_value =3D~ s/<tab>//g;<BR> $tag_value =3D~ =
s/\s//g;</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2> print=20
"$tag_value\n";<BR><BR> ## Evaluate Embedded Perl =
Code<BR> =20
$tag_value =3D eval($tag_value);</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2></FONT> </DIV>
<DIV><FONT face=3DVerdana size=3D2> print=20
"$tag_value\n";<BR><BR><FONT color=3D#ff0000> $LINE =3D~ =
s/$full_tag/$tag_value/; ## For some reason Perl can't find =
the=20
pattern</FONT></FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2><FONT =
color=3D#ff0000></FONT></FONT><FONT=20
color=3D#000000 size=3D2> </FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2> print $LINE;</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2><BR> ## Invoke the subroutine =
again to=20
check for other tags<BR> ##&go;<BR> }<BR></FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2>else<BR> { ### Finished studying =
this=20
line!<BR> print "done\n";</FONT></DIV>
<DIV><FONT face=3DVerdana size=3D2> print=20
$LINE;}<BR>}</FONT></DIV></DIV></BODY></HTML>
------=_NextPart_000_00DB_01BE5BA2.61F3F4C0--
------------------------------
Date: Fri, 19 Feb 1999 05:19:50 GMT
From: slinberg@crocker.com (Steve Linberg)
Subject: Re: need help with s/// pattern problem
Message-Id: <slinberg-1902990019500001@cc11620-a.lwmrn1.pa.home.com>
In article <u86z2.7489$134.63585@tor-nn1.netcom.ca>, "Kevin Howe"
<khowe@performance-net.com> wrote:
> This is a multi-part message in MIME format.
Please don't do this. Microsoft Outlook Express 4.72.2110.0 doesn't
produce readable text for posting to newsgroups. Your columns are too
large, and you have MIME data everywhere making this post an unreadable
mess.
> Could someone please help me figure out why the s// function won't work =
> for following script, I am pulling my hair out on this one. I think it =
> may have to do with the pattern variables ($1 , $2 , etc..) but can't =
> say for sure.
Early on, for starters, you're trying to do a multi-line substitution
without the /s modifier. There may be other things wrong, but your code
is really illegible the way you posted it and it's hard to look at without
going crosseyed. You might want to consider using a better newsreader.
------------------------------
Date: Thu, 18 Feb 1999 20:15:16 -0800
From: jsteinberger@usweb.com (VicodinES /CB /TNN)
Subject: Re: Perl evangelism
Message-Id: <MPG.1136852e37592e5298969c@news.cybernautics.com>
Just thought I'd point out that Ask Jeeves is now http://www.ask.com -
they got that cool new domain name. I think the old url will still work
for some time, but the new one's a keeper plus it's less typing and more
memorable.
Cheers,
Patti
In article <36ca1856.0@usenet.fccj.cc.fl.us>, bill@fccj.org says...
> In article <7acmjk$dku$1@nnrp1.dejanews.com>, aixgod@ix.netcom.com wrote:
>
>
> > Currently, one of the companies I work for is on a kick to reduce everything
> > to one platform (NT) and one set of programming "frameworks" (Visual Studio -
> > VB primarily ... some J++). The idea being that the company is already a
> > "Microsoft Shop" (because it uses Office...yeah, I know, I have no idea why
> > that makes a difference). The argument goes that reducing the # of platforms
> > and development environments makes long-term support and hiring cheaper.
>
> I've found that without Political Support, there are no
> business models that will help. They will probably go thru
> a migration process, like many others before, and MAYBE,
> just MAYBE, they will realize that one platform cannot do
> all that they will need done in the coming future.
>
> The best that you can hope for is to learn to evolve,
> adapt and wait - yes wait - for either the migration back
> to a multi-platform environment or you find another environment.
>
> I've been there, have that t-shirt so to speak; no I am
> not saying give up in what you believe, but if you have
> the desire to continued success, then you should at least
> look like you are playing along, otherwise they will feel
> that you are on 'the other-side' and you may no longer
> have a choice or a voice.
>
> These sites may help you in your endeavors:
> http://www.perl.com
> http://www.apache.org
>
> As well as a search at AltaVista of "Why perl?"
> (I got over 12 Thousand hits to this question...)
>
> Also, after asking http://www.askjeeves.com about
> "Perl evangelism", I got referred to about 40 sources.
>
> Hmmm, maybe the fact that there are roughly 250
> questions asked here a day may be significant -
> but ignore the fact that 200 are the same questions -
> over and over...
>
> Choose your battles well.
>
> HTH,
> -Sneex- :]
> ______________________________________________________________________
> Bill Jones | FCCJ Webmaster | http://www.fccj.org/cgi/mail?webmaster
> Join the Jax, Fl Perl Mongers Chapter - http://jacksonville.pm.org/
> http://certserver.pgp.com:11371/pks/lookup?op=get&search=0x37EFC00F
------------------------------
Date: Fri, 19 Feb 1999 05:49:34 GMT
From: darcys@.nbnet.nb.ca (Rod MacBain)
Subject: Re: Perl interpreter for Win95?
Message-Id: <36ccfa9b.40256884@allnews.nbnet.nb.ca>
"Robb" <REMOVErobbh@home.com> spake thusly:
>...snip..
>say nothing about it being an interpreter, just that it was Perlv5.0.
>Plus, the instructions for install in the readme.txt file were not
>clear, mentioning several subdirectory variations that would have to be
>manually created depending on different factors.
>
>Is there a Perl interpreter for Win95 that would serve my purposes, and
>also has an install utility that would make installation easier?
>
>Robb
Yeah go to www.activestate.com and run the self installing binary. It
runs for most people right out of the box. BTW almost any version of
perl you get will be an interprer - there are perl compilers out
there, but not for Win95 I don't think.
Rod
------------------------------
Date: Thu, 18 Feb 1999 22:22:06 -0500
From: Chris Morrow <morrowc@his.com>
To: schoedema@my-dejanews.com
Subject: Re: Problem with oraperl in a web-browser
Message-Id: <36CCD8DE.32300FB@his.com>
1) Your script is running from the WWW Server...as a CGI.
2) you might have set the ORACLE_HOME in the CGI script and now since
you have upgraded (and removed the old version) the ORACLE_HOME is
different???
Just a thought and a comment.
This seems to most likely NOT be a problem with Apache, it seems like
your code might need a quick fix (change ORACLE_HOME to be correct?)
-Chris
schoedema@my-dejanews.com wrote:
>
> I have the following configuration:
> Solaris 2.5, Apache 1.2.5, Netscape 4.04 under Solaris.
> I have a Perl script, that connects to an oracle-DB via CGI and Oraperl from a
> browser (IE4 or Netscape 4). Under Oracle V.7.3.2 everything works fine.
> After upgrading the DB to V.7.3.4 the script didn't work properly anymore. The
> Apache error-log produces the follwing message:
>
> ---------- install_driver(Oracle) failed: Can't load
> '/usr/local/lib/perl5/site_perl/sun4- solaris/auto/DBD/Oracle/Oracle.so' for
> module DBD::Oracle: ld.so.1: /usr/local/bin/perl: fatal: libclntsh.so.1.0:
> can't open file: errno=2 at
> /usr/local/lib/perl5/sun4-solaris/5.00403/DynaLoader.pm line 155.
>
> at (eval 1) line 2
>
> DBI::install_driver('DBI', 'Oracle') called at
> /usr/local/lib/perl5/site_perl/Oraperl.pm line 57 require Oraperl.pm called
> at /usr/local/www/cgi-bin/digidat/list_msanl line 21 main::BEGIN() called at
> /usr/local/lib/perl5/site_perl/Oraperl.pm line 0 eval {...} called at
> /usr/local/lib/perl5/site_perl/Oraperl.pm line 0 BEGIN failed--compilation
> aborted at /usr/local/www/cgi-bin/digidat/list_msanl line 21. -----------
>
> If I create a softlink from the old oraclehome to new oraclehome the script
> is running without a problem even from the webbrowser. Obviously there seems
> to be a problem with the path-tracking within the Apache server.
>
> I'm grateful for any suggestions concerning my problem.
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 18 Feb 1999 22:39:39 -0500
From: Chris Morrow <morrowc@his.com>
To: sbott@earthlink.net
Subject: Re: Problems getting rid of \n!!
Message-Id: <36CCDCFB.1457ABA8@his.com>
Steve,
s/\n+$//;
This should remove the returns at the END of the variable (or $_)
Your example might be NOT working because you input you are getting is
really by "line" of input? As in from a file? so a blank line is just a
"\n" with nothing else. Anchor your search to a n" at the end and look
for multiples... if you KNOW there will only be one "\n" just use chomp.
-Chris
Steven Bott wrote:
>
> I have a question about writing data to a file without the returns -
> replacing the \n with the word RETURN....
>
> I have tried
>
> s/\n/RETURN/g;
>
> but I can only get rid of one return by using that on the $val in
> cgi-lib.pl.
> When I try
>
> s/\n\n/RETURN/g;
>
> nothing happens!
>
> I keep getting two returns for one, and I can only get rid of one. Am I
>
> putting the command in the wrong place?? I tried it in the program just
>
> before writing it to the file, but my syntax was incorrect when using
> values(%input_array) = s/\n/RETURN/g;.
>
> Does anyone know why this extra return won't go away and what I'm doing
> wrong? Someone suggested chop($val); but as a newbie, I have no idea
> where to put it. I also have no idea why the substitute isn't doing it!
>
> Thank You in Advance!!
>
> Steven Bott
> sbott@earthlink.net
------------------------------
Date: Thu, 18 Feb 1999 19:07:10 -0800
From: "Nitin Gupta" <niting@raleigh.ibm.com>
Subject: Problems with automating ftp
Message-Id: <7aikl4$169u$1@ausnews.austin.ibm.com>
I have this little script which opens a ftp connection with a server and
puts a file there. Somehow I cannot get this to work! :(
The connection is initiated and the logon works but all the script is able
to do is create a file with the same name but zero contents!
Any ideas?
#!/usr/bin/perl
use Net::FTP;
print "Initiating connect......\n";
$ftp = Net::FTP->new("my.server.com");
print "Logging in.........\n";
$ftp->login("my_user_id","my_password");
print "putting file............\n";
$ftp->put("my.file");
$ftp->quit;
After printing out "putting file......" the script waits for a minute or two
before returning to the prompt. The file never gets transferred, instead a
empty file "my.file" is created on the destination server. I know I am
skipping out some little detail..........
-Nitin
------------------------------
Date: Fri, 19 Feb 1999 00:25:55 -0500
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Spilting File into 2
Message-Id: <1dng5oq.o1ezme1pi5iq2N@bay2-338.quincy.ziplink.net>
Trader15 <"trader15@"@hotmail.com> wrote:
> I have a file with formt like this e.g.
>
> Original File
> [Header 1]
> etc ---- Multiple lines
> [Header 2]
> etc
> [Header 3]
> etc
> [Header 4]
> etc
> eof
>
> Anyone has a simple method of spilting this into two files like this
>
> New File 1
> [Header 1]
> etc
> [Header 3]
> etc
> eof
>
> New File 2
> [Header 2]
> etc
> [Header 4]
> etc
> eof
>
> Suggestion for the shortest codes possible ? I'm presently using grep to
> do this but my codes are way too long .
$orig = "Original_File";
$new1 = "New_File_1";
$new2 = "New_File_2";
open(IN, $orig) or die "Could not open $orig: $!\n";
@newfh = ('NEW1FH', 'NEW2FH');
open($newfh[0], "> $new1") or die "Could not open $new1: $!\n";
open($newfh[1], "> $new2") or die "Could not open $new2: $!\n";
$out = 1;
while(<IN>) {
if (/Header/) {
$out ^= 1;
}
print { $newfh[$out] } $_;
}
Note that this assumes that the first line in the file will be a header,
so that the first block of output will go to New_File_1.
--
#!/usr/bin/sh -- chipmunk (aka Ronald J Kimball)
perl -e'for(sort keys%main::){print if $$_ eq 1}
' -s -- -' Just' -' another ' -'Perl ' -'hacker
' http://www.ziplink.net/~rjk/ [rjk@linguist.dartmouth.edu]
------------------------------
Date: Thu, 18 Feb 1999 21:08:52 -0700
From: "Aaron Propst" <abp@holly.colostate.edu.spamm>
Subject: writing a cgi script that would accept a user upload???
Message-Id: <7aioaa$2e4m@yuma.ACNS.ColoState.EDU>
I'm sorry if this question is being asked in the wrong place, but I need to
write a perl script that can accept a file upload from a user on a webpage.
I know there is an <input type="file" name=... tag in html, that will
return a filename, but I need to figure out how to get that file from a
client HD to the server. Is this possible? I know people such as Hotmail
do it for attachments, but i'm not sure how i would write such a thing.
any help is appreciated
Aaron Propst
abp@holly.colostate.edu.spam (remove the spam)
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 4936
**************************************
