[16962] in Perl-Users-Digest
Perl-Users Digest, Issue: 4374 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 19 14:05:34 2000
Date: Tue, 19 Sep 2000 11:05:13 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <969386713-v9-i4374@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Tue, 19 Sep 2000 Volume: 9 Number: 4374
Today's topics:
Re: 2 Questions <uri@sysarch.com>
Re: 2 Questions <juex@deja.com>
Re: 2 Questions <juex@deja.com>
[Q] CRLF/LF transl. in qx// retn. val. (R. S. K.)
Re: Aritifical Intelligence... rathmore@tierceron.com
Re: Aritifical Intelligence... (Jerome O'Neil)
Re: Calling a Unix function from a Perl program c315633@my-deja.com
Re: Can I dynamically create hashes? (Bryce Pursley)
Re: Can I dynamically create hashes? (Randal L. Schwartz)
Can you store a condition in a variable? <umartsr@lexis-nexis.com>
Re: Can you store a condition in a variable? (Rafael Garcia-Suarez)
Re: Can you store a condition in a variable? (Abigail)
Re: Compiling Perl on Win32 (With Borland) gdelfino@my-deja.com
Re: Embed the perl mister (Rafael Garcia-Suarez)
File Parsing, Skipping lines <jstone211@my-deja.com>
Help, need to compair PC date with a date in a variable <mattking@techie.com>
how to allocate storage for Perl-variable from C <lkovacs@danubit.at>
Re: How to Use strict with Find::File <FX@hasnomail.com>
Re: Join our team (David H. Adler)
Newbie Question - Perlshop and 777 permissions (Mark Dressel)
Re: Newbie question <bardicstorm@my-deja.com>
Re: Piping problems s0ulfire@my-deja.com
Re: Please explain how this filename extraction works? nobull@mail.com
Re: popup_menu - how? (BUCK NAKED1)
Problem running script from a SSI command in IIS4 <agustinchernitsky@altavista.com>
Re: Range operator with "... /^$/" ollie_spencer@my-deja.com
reading from file <Marvinas@Takas.lt>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 19 Sep 2000 17:47:05 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: 2 Questions
Message-Id: <x73diwe0kp.fsf@home.sysarch.com>
>>>>> "DF" == Daniel Frey <d.frey@aixigo.de> writes:
DF> I think Perl is a write-only-language - you can't read Perl ;)
i see the smiley and that is still flame bait. i have found the only
people who can't read perl are those who can't write it. you can write
bad code in any language (i have seen enough in too many).
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Tue, 19 Sep 2000 10:53:10 -0700
From: "Jürgen Exner" <juex@deja.com>
Subject: Re: 2 Questions
Message-Id: <39c7a80b$1@news.microsoft.com>
"Frankie" <frankie@centurytel.net> wrote in message
news:39C5974E.AC51F612@centurytel.net...
> My question is what programming language would you recommend to a
> complete beginner in programming?
I would argue for a language that teaches concepts of programming and data
structures and is not cluttered with cryptic abbreviations or complex
syntax, and has a full set of features (like e.g. higher-order functions,
parameterized higher-order datatypes, overloading, etc.).
That eliminates virtually all "standard" languages, in particular C and it's
derivates as well as e.g. Perl, Shell, and many other scripting languages.
Any language that requires the programmer to implement garbage collection on
his own (i.e. has a "new" function for pointers or pointers at all) is out,
too. Lisp and Prolog both have some good conceptual features but they are
just too awkward to learn and to use, not a good choise.
Once you learned the concepts of programming (in particular abstraction and
the use of higher-order functions/procedures and parameterized datatypes as
first-class citizens) it's easy to emulate those features even with the
limited set offered by most standard languages.
I would probably go for something like Haskell or Opal.
jue
------------------------------
Date: Tue, 19 Sep 2000 11:01:04 -0700
From: "Jürgen Exner" <juex@deja.com>
Subject: Re: 2 Questions
Message-Id: <39c7a9e1$1@news.microsoft.com>
"Bruce Roberts" <no.junk.please.ber@attcanada.net> wrote in message
news:mlrx5.6978$YG5.15154@tor-nn1.netcom.ca...
>
> "Frankie" <frankie@centurytel.net> wrote in message
> news:39C5974E.AC51F612@centurytel.net...
>
> > My question is what programming language would you recommend to a
> > complete beginner in programming? I've extensive background in various
[...]
> I'd like to make the case for Pascal as both a beginning and advanced
> language - at least the Delphi dialect.
Although all you wrote is right and true Pascal has too many deficiencies to
be a good introductory language.
- it has no higher-order functions
- it has no parameterized data-types
- it's method to create higher-order data types is crude at best
- pointers considered harmful (they reflect the internal storage of the data
in the main memory and have nothing to do whatsoever with the actual program
design). They are an annoyance at best and asking for bugs in general. And
you can't do any interesting programming, not even a primitive binary tree,
without pointers.
jue
------------------------------
Date: 19 Sep 2000 16:03:47 GMT
From: NOrJUNKsEMAILk@nojunkemail.net (R. S. K.)
Subject: [Q] CRLF/LF transl. in qx// retn. val.
Message-Id: <8q82p3$q88@dispatch.concentric.net>
Keywords: backtick, quoting, DOS, Win32, CRLF
I know I've seen instructions for this SOMEWHERE.
Is there a setting or module or command-line argument that will OVERRIDE
CRLF/LF translation in the output of a qx// operation? Obviously, I can
open a filehandle from a pipe and use binmode, but on Win32/DOS, I seem
to recall seeing some way of throwing a switch or changing a setting in
Perl so that backtick operator returns will NOT undergo the CRLF->LF
translation that is sometimes convenient when a command has text, rather
than binary, output.
If there IS some way of altering the behavior of qx// in Win32/DOS ports
of Perl, I need the version number of Perl in which it was introduced;
I know that it's a latecomer, and a problem that was overlooked originally.
I'm sure I've seen a description of how to accomplish this, so that
$_ = `command_with_binary_output_to_stdout`;
does what it should, short of changing it to
open F, 'command_with_binary_output_to_stdout |';
binmode F; $/=undef;
$_ = <F>;
close F;
Thank you for pointing me at the answer.
=====
To avoid unwanted junk e-mail, I am posting this with falsified Headers.
Bonafide correspondence may be addressed to:
r s k (at) concentric (dot) net
=====
------------------------------
Date: Tue, 19 Sep 2000 16:29:59 GMT
From: rathmore@tierceron.com
Subject: Re: Aritifical Intelligence...
Message-Id: <8q8498$snk$1@nnrp1.deja.com>
www.botspot.com has some interesting reads on the topic of language
bots, which I'm guessing you are referring to.
>What is it you dislike about them?<
*What do I dislike about who?*
>About language bots.<
*What would you like to know about language bots?*
>What do you dislike about them?<
*When you say "them", whom are you referring to?*
>I'm talking about language bots.<
*Do you like language bots?*
>I want to know if YOU like language bots!<
*I like the colour purple. Do you enjoy the colour purple?*
>grrr...<
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 19 Sep 2000 17:17:04 GMT
From: jerome@activeindexing.com (Jerome O'Neil)
Subject: Re: Aritifical Intelligence...
Message-Id: <kcNx5.841$DF5.123215@news.uswest.net>
Will Pennell <jcraaryy@tzh.rqh> elucidates:
> AFAIK, (read: quick scan through the cpan archives) Perl is not a
> strongly supported language for AI, though I could be wrong as I haven't
> really looked through perl's AI mailing list. The closest modules that I
> found in the CPAN archive are a few on Artificial Neural Nets, which
> probably doesn't help you much.
We have CYC's concept identifier in Perl. It's huge and cumbersome, but it works.
------------------------------
Date: Tue, 19 Sep 2000 17:20:00 GMT
From: c315633@my-deja.com
Subject: Re: Calling a Unix function from a Perl program
Message-Id: <8q8778$gr$1@nnrp1.deja.com>
In article <m366nxzl4j.fsf@dhcp11-177.support.tivoli.com>,
Ren Maddox <ren.maddox@tivoli.com> wrote:
> c315633@my-deja.com writes:
>
> > We have a unix function that checks for errors and returns an error
number.
>
> Here is the first problem. This is implemented as a function rather
> than as a script. The easiest solution to this entire dilemma might
> be to write a short shell script that calls this function, and then
> call that shell script from Perl.
-- We made it a function so when calling if from a ksh, it would
-- be more efficient.
>
> > function chk_errors {
> >
> > while read -r line_o_data
> > do
> > error_number=`echo $line_o_data | cut -c 1-3`;
> > error_text=`echo $line_o_data | cut -c 5-`;
> > ERR_1=`cat $JOBLOG/$JOBNAME.log | grep $error_text`
> >
> > if [ $? -eq 0 ]
> > then
> > # found error
> > print $error_number
> > exit
> > else
> > return_value=0
> > fi
> > done < /usr/testlib/doc/error_messages.txt
> >
> > }
>
> You might consider simply implementing this in Perl directly.
> Shouldn't be too difficult. Here's a start...
-- We wanted to have the error checking only in one place so
-- instead of making an a version for the ksh scripts and one
-- for the perl scripts, we made a unix function. I will use the
-- idea of having the perl call a ksh script that calls the function.
>
> sub chk_errors {
> my $error_file = "/usr/testlib/doc/error_messages.txt";
> open ERRFILE, $error_file or die "Could not read $error_file, $!\n";
> while(<ERRFILE>) {
> my($error_number, $error_text) = /(.{3}).(.*)/;
> # though I bet "split / /, $_, 2" might work", but that depends on
> # the actual format of the data
> .
> .
> .
> }
>
> Though now that I've parsed the function a few times I have realized
> that it is probably appropriate to load error_messages.txt into an
> array and then compare each line of the job file with each element of
> the array. This should be significantly more efficient than grepping
> the job file for each error. Unless the error_messages.txt file is
> actually larger than the job file....
>
> > I want to call this unix function from a Perl program.
> >
> > MAIN:
> > {
> >
> > $TESTIT=`$TESTLIB/functions/chk_errors $JOBNAME`;
> > print $TESTIT
> > }
>
> What exactly is $JOBNAME? And why are you passing it as an argument
> to the chk_errors function? As far as I can tell, that function does
> not take any arguments, but rather assumes that JOBNAME (and JOBLOG)
> are set in the environment.
>
-- $JOBNAME is a variable that is being passed from the calling
-- script. Yes you can pass arguments into a function but it can
-- only return one argument back.
-- $JOBLOG is an eviromental variables along with $TESTLIB
> > The way I have it above, does not return the error message. I don't
even
> > know the perl program is really executing the unix function.
>
> You probably need to check the value of $? in the Perl script to see
> if an error occurred in the backticks. I expect that the shell
> function is simply not loaded into the shell that Perl creates for the
> backticks.
>
> --
> Ren Maddox
> ren@tivoli.com
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 19 Sep 2000 17:03:46 GMT
From: hbpursle@duke-energy.com (Bryce Pursley)
Subject: Re: Can I dynamically create hashes?
Message-Id: <39c997b6.1221685190@news.infoave.net>
On 18 Sep 2000 18:16:16 +0100, nobull@mail.com wrote:
>hbpursle@duke-energy.com (Bryce Pursley) writes:
>>
>> What I want to do is to create a separate hash for each unit that is
>> named by the $tid variable.
>
>So you think you want a sybolic referance eh?
>
>Stop thinking that.
>
>Use a hash-of-hashes instead.
>
Well, to make a long story short, I did and it works. I'm not 100%
sure I understand all I know now but it did work. It was a little
hairy printing out the report but that came around too.
>BTW: if you'd put a my() in the right place to limit @tmp to the scope
>in which its needed you could avoid the overhead of creating a copy of
>@tmp:
>
> $tid{$tid}{$timestamp} = \@tmp;
I don't think I got this point completely. I understand that "\@tmp"
is a reference but I'm missing the part about the my() and where I
should put it. I tried the code listed below, where I put "my" in
front of the @tmp assignment but it failed in the section where I
print the report with a bunch of uninitialized value messages. I
guess I'll have to go read up on references and how the "my()"
reserved word affects things.
Thanks for the hash of hashes suggestion. I'll also go read up on
symbolic references to understand why I don't want to use them.
Thanks again.
*****THIS CODE DID NOT WORK*****
#I changed the hash name to %tidhash to help avoid confusion.
while (defined ($filename = glob ($yesthistfilelist)) ) { # Begin
Block 1
open (HISTFILE, $filename) || die "can't open $filename: $!";
while (defined <HISTFILE>) { # Begin Block 1A
foreach (<HISTFILE>) { # Begin Block 1B
my @tmp = split (/,/);
if (($tmp[5] =~ (/^SIMCST/)) && ($tmp[7] =~ (/^ALARM|^Alarm/))) {
$tid = ($tmp[2]);
$timestamp = ($tmp[0]);
$tidhash{$tid}{$timestamp} = [ \@tmp ];
}
} # end Block 1B
} # end Block 1A
} # end Block 1
Bryce
------------------------------
Date: 19 Sep 2000 10:14:01 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Can I dynamically create hashes?
Message-Id: <m18zsowbhi.fsf@halfdome.holdit.com>
>>>>> "Bryce" == Bryce Pursley <hbpursle@duke-energy.com> writes:
Bryce> $tidhash{$tid}{$timestamp} = [ \@tmp ];
That's a reference to a reference to an array. Did you really
want two levels of indirection there?
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Tue, 19 Sep 2000 11:23:18 -0400
From: "Sylvain Martin" <umartsr@lexis-nexis.com>
Subject: Can you store a condition in a variable?
Message-Id: <8q80d8$o5k$1@mailgate2.lexis-nexis.com>
I'd like to add some functionality to a program I wrote that creates dynamic
html pages from templates.
I was wondering if and how could I implement something like this in my
templates
<TD BGCOLOR="PCMD{ print ($current_row mod 2) ? "Green" : "Yellow";}">
my perl script scans and looks for PCMD{} and would save that in a variable
then how can I get perl to interpret this? so that is returns Green for even
and Yellow for odd rows?
--
Sylvain Martin
--
------------------------------
Date: Tue, 19 Sep 2000 15:46:56 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Can you store a condition in a variable?
Message-Id: <slrn8sf2vm.p84.rgarciasuarez@rafael.kazibao.net>
Sylvain Martin wrote in comp.lang.perl.misc:
>I'd like to add some functionality to a program I wrote that creates dynamic
>html pages from templates.
>I was wondering if and how could I implement something like this in my
>templates
>
><TD BGCOLOR="PCMD{ print ($current_row mod 2) ? "Green" : "Yellow";}">
>
>my perl script scans and looks for PCMD{} and would save that in a variable
>then how can I get perl to interpret this? so that is returns Green for even
>and Yellow for odd rows?
The immediate answer to your question is to lookup the eval() function
in the perlfunc section of the docs.
But you might want to look at different ways to embed Perl code in HTML
code. That's one of the main problems with CGI programming in general.
There's a thread currently running about this subject.
--
Rafael Garcia-Suarez | http://rgarciasuarez.free.fr/
------------------------------
Date: 19 Sep 2000 16:45:37 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Can you store a condition in a variable?
Message-Id: <slrn8sf5vb.5fq.abigail@alexandra.foad.org>
Rafael Garcia-Suarez (rgarciasuarez@free.fr) wrote on MMDLXXVI September
MCMXCIII in <URL:news:slrn8sf2vm.p84.rgarciasuarez@rafael.kazibao.net>:
:: Sylvain Martin wrote in comp.lang.perl.misc:
:: >I'd like to add some functionality to a program I wrote that creates dynamic
:: >html pages from templates.
:: >I was wondering if and how could I implement something like this in my
:: >templates
:: >
:: ><TD BGCOLOR="PCMD{ print ($current_row mod 2) ? "Green" : "Yellow";}">
:: >
:: >my perl script scans and looks for PCMD{} and would save that in a variable
:: >then how can I get perl to interpret this? so that is returns Green for even
:: >and Yellow for odd rows?
::
:: The immediate answer to your question is to lookup the eval() function
:: in the perlfunc section of the docs.
Eval? No way. Just interpolation.
<TD BGCOLOR = "${\($current_row ++ mod 2 ? 'Green' : 'Yellow')}">
Of course, you ought to be using a stylesheet.
(Yellow and green? *shudder*)
Abigail
--
CHECK {print "another "} # Ten leaping pikes. Swordmaster
INIT {print "Perl " } # Mushashi weeping.
BEGIN {print "Just " } # A songbird. The King.
END {print "Hacker\n"}
------------------------------
Date: Tue, 19 Sep 2000 16:00:12 GMT
From: gdelfino@my-deja.com
Subject: Re: Compiling Perl on Win32 (With Borland)
Message-Id: <8q82ht$qdp$1@nnrp1.deja.com>
In article <m2zolu9xjn.fsf@eyalb_home.localdomain>,
Eyal Ben-David <eyalb@aks.com> wrote:
>
> (Asked this several days ago. Hope someone will answer)
>
> Hello,
>
> First, I have a working perl (5.6.0) compiled with C++Builder 4.
> I use it successfully in an application that embed Perl in a
> C++Builder GUI. The backend compiler is BC++ 5.4 (from BCB 4)
> I compiled successfully many CPAN modules (libwww, libnet, libw32 and
more)
>
> The same sources fail to build correctly with BC++ 5.5(.1).
> This compiler is available for free download. It is the backend
> compiler for C++Builder 5 too.
>
> I could build the distribtion but many tests failed (90% okay.
> In BC++ 5.4 It is 100% okay)
>
> (Since the distribution support BC++, I think the latest compiler
> should always be supported, especially a free compiler. I'm no
> Perl guru but I can help ifm needed)
>
> Did anyone succeeded with the BC++ 5.5?
> Does anybody know if this compiler will be supported in future
distribtions?
>
> Thanks
> Eyal
Hello Eyal, I trying to learn how to do Perl embedding. I see that you
already have achieved that (at least with bcc 5.4). I don't have a lot
of C/C++ experience but I need to learn this stuff. I am currently
learning about the Perl internal from OReilly's Advanced Perl
Programming book. I bought C++ Builder 5 although I only need to
develop for the command line (I learned about the free compiler too
late...).
I have seen that no one has answered your question here. Did you try
asking in the ActivePerl mailing list? They may be able to help.
Is there a list of supported compilers for perl? I didn't know about
that. Which compilers are supported?
If you have knowledge about embedding that you want to share why don't
you send an article to The Perl Journal? This would help everyone. I
would happy read a draft of it and give you feedback from an article
reader point of view.
Regards,
Gustavo Delfino
NOSPAMgdelfino@mac.com
Caracas, Venezuela
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 19 Sep 2000 15:24:34 GMT
From: rgarciasuarez@free.fr (Rafael Garcia-Suarez)
Subject: Re: Embed the perl mister
Message-Id: <slrn8sf1lo.p4t.rgarciasuarez@rafael.kazibao.net>
Tom Fotheringham wrote in comp.lang.perl.misc:
>I really want to use Perl in a similar way as PHP. How can I embed perl
>programs into HTML. One way I thought of doing it was to read in top
>and bottom HTML pages from within perl and the output them.
>
>Can anyone shed some light on a more convientient way of doing it?
>Any pointers would be gratefully recieved.
Look at ePerl, the embedded perl language:
http://www.engelschall.com/sw/eperl/
(or, search CPAN for 'ePerl').
It can be built as an interpreter, much like PHP, (so it's possible to
write cgi scripts in ePerl), or it can be used as a Perl module (from
within cgi programs written in perl).
--
Rafael Garcia-Suarez | http://rgarciasuarez.free.fr/
------------------------------
Date: Tue, 19 Sep 2000 17:09:58 GMT
From: J. Stone <jstone211@my-deja.com>
Subject: File Parsing, Skipping lines
Message-Id: <8q86kj$vnm$1@nnrp1.deja.com>
If I know I need to move ahead a certain number of lines once I've
found an item in my file, what is the best way to do this?
Also, I need to find a particular header in a file, once I find that I
need to find another header ( the first header is not always followed
by the 2nd header, so I must verify)... then I can read lines and parse
using unpack. Any tips?
Thanks,
J. Stone
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 19 Sep 2000 16:53:56 +0200
From: "Matt King" <mattking@techie.com>
Subject: Help, need to compair PC date with a date in a variable.
Message-Id: <8q8064$8cc$1@news2atm.raleigh.ibm.com>
Hello, I have a problem that so far I have not been able to find in the Perl
docs. I'm hoping that someone here can help me to make this work.
I need a way, without installing any modules (I have to be able to do it
without modules, only base Perl install commands), to compair the PC's
current date with the date in a variable. The veriable date has the format
dd.mm.yy hh:mm:ss (human readable format). I can read in the PC's time and
date and convert it into human readable format, but I can't get it to
compair. What I need to do is take the variable date and compair it with the
PC's date (time check isn't needed), and if the date is 60 or more days old
preform and action, like send a warning message to the screen.
How can I get this done? I was thinking that it would be eaisest to convert
the variable date/time into PC format, then compair that to the PC
date/time, but I can't find any information on how to convert to PC format,
only how to convert from PC format.
Thanks in advance.
Matt
------------------------------
Date: Tue, 19 Sep 2000 17:53:23 +0200
From: "László Kovács" <lkovacs@danubit.at>
Subject: how to allocate storage for Perl-variable from C
Message-Id: <k6Mx5.119$tB3.4571@nreader1.kpnqwest.net>
Hello,
I use some self-written C-functions through the XS-interface from Perl. If I
want to modify the content of a Perl-variable from the C-function, then
there must be a way
to allocate/expand the storage behind of that variable, but I didnt find it
yet.
Does anybody have an idea ?
------------------------------
Date: Tue, 19 Sep 2000 18:39:11 +0200
From: "FX" <FX@hasnomail.com>
Subject: Re: How to Use strict with Find::File
Message-Id: <8q84s4$9or$1@front4.grolier.fr>
Merci Alain !
mais la variable est toujours GLobale... n'y a-t'il pas une autre facon de
faire?
FX
-----
for those who don't understand French ;-)
Thx Al!
But the var is still global .. is there an other way of doing it?
Alain BARBET a écrit dans le message
<39C7566D.6416A5C3@alianwebserver.com>...
>Hi,
>
>Define yout list outside of function :
>use strict;
>my @FileList;
>sub main {}
>sub FileTraitment {}
>
>> PS: by the way does any one know a good, simple, clear, and free
>> Perl Paper that don't assume you know UNIX.
>
>You don't like perldoc ?
>--
>Alain & Estelle BARBET
>http://www.alianwebserver.com
------------------------------
Date: 19 Sep 2000 15:30:28 GMT
From: dha@panix.com (David H. Adler)
Subject: Re: Join our team
Message-Id: <slrn8sf1kk.31h.dha@panix2.panix.com>
On 19 Sep 2000 02:58:02 GMT, Abigail <abigail@foad.org> wrote:
>Joe Getty (joegetty@mediaone.net) wrote on MMDLXXVI September
>MCMXCIII in <URL:news:9vhdss4g1ptpvfcvtkscemab0f9ssvacph@4ax.com>:
>^^ Looking for an individual that is familiar with unix and has a good
> ^^^^
>^^ understanding of HTML. Knowledge of regular expressions is preferred.
>^^ Please e-mail me your resume in either MS Word, HTML, or ASCII format.
> ^^^^^^^
>
>Hmmmm.
>
>Anyway, cue dha.
Ahoy!
You have posted a job posting or a resume in a technical group.
Longstanding Usenet tradition dictates that such postings go into
groups with names that contain "jobs", like "misc.jobs.offered", not
technical discussion groups like the ones to which you posted.
Had you read and understood the Usenet user manual posted frequently
to "news.announce.newusers", you might have already known this. :) (If
n.a.n is quieter than it should be, the relevent FAQs are available at
http://www.faqs.org/faqs/by-newsgroup/news/news.announce.newusers.html)
Please do not explain your posting by saying "but I saw other job
postings here". Just because one person jumps off a bridge, doesn't
mean everyone does. Those postings are also in error, and I've
probably already notified them as well.
If you have questions about this policy, take it up with the news
administrators in the newsgroup news.admin.misc.
There is a Perl Jobs Announce list that may be more helpful to you. See
<http://www.pm.org/mailing_lists.shtml> for details.
Yours for a better usenet,
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
"You're quite free to convert your strings to byte arrays and do the
entire pattern tree by hand in pure logic code if you'd like. By the
time you finish most of the rest of us will be doing contract work on
Mars." - Zenin on comp.lang.perl.misc
------------------------------
Date: Tue, 19 Sep 2000 16:47:43 GMT
From: mark@artwarren.comNOSPAM (Mark Dressel)
Subject: Newbie Question - Perlshop and 777 permissions
Message-Id: <39c795f3.30690116@news.screaming.net>
Hi,
I am trying to set up a perlshop shopping cart, which collects order
data by writing a temporary file to the server. The directory that
store this file, temp_orders, requires 777 acess permissions, but my
ISP will only allow 755 max. When an order button is pressed perlshop
responds with the error message "Cannot open temp_orders/258642077 for
writing" presumably because with only 755 there is no permission to
write.
As it is the perlshop.cgi program doing the writing and not the
customer does the temp_orders directory need 777 permission?
If it does would cgiwrap be a way around this? I understand that
cgiwrap tags the creators ID to any commands issued by Perlshop so 755
permissions would work?
Or do I have to change my ISP?
Thanks in advance.
Mark
------------------------------
Date: Tue, 19 Sep 2000 15:57:03 GMT
From: BardicStorm <bardicstorm@my-deja.com>
Subject: Re: Newbie question
Message-Id: <8q82c3$q40$1@nnrp1.deja.com>
> Or, this will do it too, how to get the ASCII value of a character?
ord($character);
returns the ASCII or UNICODE value of $character -
(caution: if $character contains a string, ord() will only return the
ASCII value of the FIRST character)
-- The man who worries about what will next be
happening to him loses this moment in dread
of the next, and poisons the next in pre-judgement. --
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Tue, 19 Sep 2000 17:10:51 GMT
From: s0ulfire@my-deja.com
Subject: Re: Piping problems
Message-Id: <8q86m7$vpq$1@nnrp1.deja.com>
Wow! Finally someone who has similar problems to mine.
I am trying to write Perl code to run any application over an SSL
stream. However, I cannot figure out how to pipe the application data
over the SSL channel e.g. ping over SSL (just an example folks :) )
Does anyone have any ideas? I would truly appreciate your help.
Regards,
s0ulfire
In article <i4ix5.65735$eR5.1675376@news1.rdc1.on.wave.home.com>,
"Keith Smith" <ksmith@firesnacks.com> wrote:
> Hi folks:
>
> I am trying to pipe some text to my openssl encription util, and then
to
> sendmail.
>
> Currently, my approach is:
>
> open FD, "|openssl ... |mailer ..." # ... are the arguments to
these
> commands.
> print FD @text;
> close FD;
>
> However, when this operation completes, @text seems to never have
reached
> openssl... its almost like openssl executed immediately without
waiting for
> a close on FD. Note that performing the same on the command line
works fine
> (eg. echo 'some text' | openssl ... | mailer ...)
>
> What is the best approach to doing this sort of pipping?
>
> Thanks in advance,
> Keith
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 19 Sep 2000 18:15:14 +0100
From: nobull@mail.com
Subject: Re: Please explain how this filename extraction works?
Message-Id: <u966nss3q5.fsf@wcl-l.bham.ac.uk>
ladesigner1@my-deja.com writes:
> I have this snippet of Perl code that I hope someone can explain (in
> simple English terms) how it works.
Poorly.
> if (m|^.*/(\w+).html|) {
> print "Extracted $1 from $_\n";
> Please explain what the pattern matching process is doing to take the
> mystery out of recognizing the filenames of any character length...
Could you be more precise about what it is you've not managed to
understand by reading perldoc perlre.
Or are you asking for an explaination because you can't be bothered to
read the manual?
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 19 Sep 2000 12:13:51 -0500 (CDT)
From: dennis100@webtv.net (BUCK NAKED1)
Subject: Re: popup_menu - how?
Message-Id: <21959-39C79ECF-26@storefull-243.iap.bryant.webtv.net>
Anyone care to post the correct coding for doing a pop-up alert in Perl?
I can't decipher the correct codes from all of the CC&Ping in the
previous posts, and cannot find any example in the perl docs.
Can an ESMPT mail program accept perl-written pop-ups in an email
message? If so, how would you do it?
--buCKnaked
http://disco.allhere.com
------------------------------
Date: Tue, 19 Sep 2000 13:39:59 -0300
From: "Agustin Chernitsky" <agustinchernitsky@altavista.com>
Subject: Problem running script from a SSI command in IIS4
Message-Id: <8q84t6$elkqn$1@ID-48235.news.cis.dfn.de>
Hi,
I can't determine if this is a problem with my script or with my server.
I am running a simple time script, which is called from an HTML page using
SSI. When I load the page, I get the following error: "Failed to execute
script XXXXX. Win32 Errir cide 16389".
I am running IIS 4 and ActiveState ActivePerl (the last version).
If I test the script alone, without the SSI, it works.
Could this be a script problem or a server configuration problem?
Thanks!
Agustin.
------------------------------
Date: Tue, 19 Sep 2000 15:54:13 GMT
From: ollie_spencer@my-deja.com
Subject: Re: Range operator with "... /^$/"
Message-Id: <8q826p$pph$1@nnrp1.deja.com>
Yep, I did all the standard things, including using binmode(). See some
of my earlier replies for my solution(finally!). Seems that chomp()
only trimmed the \x0a from the end of my NT-stored data, leaving an
\x0d. Evey line had \x0d in it, even those that appeared empty.
Thanks for the reply.
ollie spencer
In article <m34s3dwbin.fsf@dhcp11-177.support.tivoli.com>,
Ren Maddox <ren.maddox@tivoli.com> wrote:
> ollie_spencer@my-deja.com writes:
>
> > The trouble I'm having is probably due to my WinNT platform and the
use
> > of hex 0d0a as the line terminator. I printed $/ to a file and
viewed it
> > using emacs HEXL-MODE; It's one character, "0a", not "0d0a". Maybe
I
> > need to use /^0x0d$/(where 0x0d may not be correct - I may have to
be
> > clever to put a "0d" between ^ and $). Or maybe I can change $/ to
> > hex0d0a for evaluating this file. I had hoped (and still hope)for a
> > magic bullet that would put this problem to bed. I wonder if chomp
> > changes the EOL character to "0a"?
>
> Any chance you've called binmode for this filehandle? If not, then I
> think it *should* work and you shouldn't be having this line ending
> trouble. Unless the file is from a different system (i.e. the file
is
> from an NT system, but you are running on a UNIX-type system).
>
> --
> Ren Maddox
> ren@tivoli.com
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 18 Sep 2000 23:43:05 +0200
From: "Marvinas" <Marvinas@Takas.lt>
Subject: reading from file
Message-Id: <39c7a928@news.takas.lt>
Hello,
Since I am just starting with perl I have this problem: I want to read an
integer from a file, but it returns string as an answer. How I could make my
program return integer?
Thanks
--
Tokios, kaip tu, nebuvo, nera ir nereikia.
------------------------------
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 4374
**************************************
