[9235] in Perl-Users-Digest
Perl-Users Digest, Issue: 2830 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 10 14:07:15 1998
Date: Wed, 10 Jun 98 11:00:56 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 10 Jun 1998 Volume: 8 Number: 2830
Today's topics:
[Q] unpack( q/%32C*/ ... ) kissel@kissel.spicerack.ibm.com
Re: accessing a:\ (Abigail)
Re: base64 encoding <rootbeer@teleport.com>
Re: Certified Perl Programmers (Stuart McDow)
Re: Certified Perl Programmers justinb@ignored.cray.com
Re: Certified Perl Programmers (Chris Nandor)
Re: Command line substitution thru subdirectories <quednauf@nortel.co.uk>
Re: Command line substitution thru subdirectories <xuming@emai.unc.edu>
Re: Command line substitution thru subdirectories (Abigail)
Re: Command line substitution thru subdirectories <tchrist@mox.perl.com>
Complete newbie question: Please help if possible! (ProjectPHE)
Document contains no data? (Dom Franco)
Embedding VRML inside a Perl Script??? (Craig Pickles)
Errno <htmlmail@htmlplace.com>
Re: Errno <tchrist@mox.perl.com>
Re: flock <rootbeer@teleport.com>
Re: I get no errors, but I get no Sys::Syslog(ing)... (Paul David Fardy)
Re: McCabe complexity analysis (Stuart McDow)
Re: McCabe complexity analysis <Russell_Schulz@locutus.ofB.ORG>
Re: MODERATION: Time to Vote (John Stanley)
Re: Need to plot charts (gif format ?) from ascii data (John Stanley)
Re: Need to plot charts (gif format ?) from ascii data (Chris Nandor)
Re: Newbie : How to append one file to another? <rootbeer@teleport.com>
Re: Newbie: Unrecongized character <rootbeer@teleport.com>
Re: Not even an RFD (yet)... comp.lang.perl.(newbie|que (Chris Nandor)
Re: NT and .htpasswd - .htaccess (Steve Linberg)
Number of digits in a string <probavm@cat.com>
Re: Number of digits in a string <probavm@cat.com>
Re: pack/unpack seps <tchrist@mox.perl.com>
Perl to C translator <nmaderna@nospam.co.uk>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 10 Jun 1998 11:51:36 -0400
From: kissel@kissel.spicerack.ibm.com
Subject: [Q] unpack( q/%32C*/ ... )
Message-Id: <Pine.A32.3.91.980610114446.18800A-100000@kissel.spicerack.ibm.com>
I'm a little puzzled by the results of unpack; can someone explain the
following results to me? I must be overlooking something.
perl -e 'print unpack( q/%32C*/, (qq/\cA/ x 4294967296) ), qq/\n/'
0 # expected result
perl -e 'print unpack( q/%32C*/, (qq/\cA/ x 4294967297) ), qq/\n/'
1 # expected result
perl -e 'print unpack( q/%32C*/, (qq/\cA/ x 4294967298) ), qq/\n/'
2 # expected result
perl -e 'print unpack( q/%32C*/, (qq/\cA/ x 4294967295) ), qq/\n/'
0 # unexpected! wanted 4294967295!
perl -e 'print unpack( q/%32C*/, (qq/\cA/ x 4294967294) ), qq/\n/'
0 # unexpected! wanted 4294967294!
Thank you for your kind attention.
------------------------------
Date: 10 Jun 1998 17:12:30 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: accessing a:\
Message-Id: <6lmepu$k47$3@client3.news.psi.net>
Tom Christiansen (tchrist@mox.perl.com) wrote on MDCCXLIV September
MCMXCIII in <URL: news:6lm96u$e1j$4@csnews.cs.colorado.edu>:
++ [courtesy cc of this posting sent to cited author via email]
++
++ In comp.lang.perl.misc, cpierce1@cp500.fsic.ford.com (Clinton Pierce) writes:
++ : open(FOO, $foo) || die "Can't open $foo: $!";
++ :
++ :On page 547. Looks like at the time of the last editing, the authors were
++ :still using the "open() || die" idiom, while somewhat endorsing the other.
++
++ I use ||. Larry stands by or. You heard both voices.
Which is exactly the Perl way. If Perl offers you more than one way to
do something [1], don't ask which is better. If one method was better
than the other, Perl wouldn't have given you a choice.
[1] With the exception of deprecated ways which are only maintained for
backwards compatability reasons.
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
------------------------------
Date: Wed, 10 Jun 1998 16:20:04 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: base64 encoding
Message-Id: <Pine.GSO.3.96.980610091900.29617d-100000@user2.teleport.com>
On 8 Jun 1998, Vitali Chkebelski wrote:
> I'm sending mail with mime-attachments encoded with perl MIME-library
> function encode_base64.
>
> They are good understood by Netscape mail-client, but not by MS Exchange
> and Eudora.
> The comparison between source text of mine and those of Netscape message
> shows a slight difference in encoding of the same file (for example
> gif-file).
You may need to check the standards. If the files are being properly
encoded, it's the other program's fault. If they aren't, it's the library
function's fault. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 10 Jun 1998 16:11:45 GMT
From: smcdow@arlut.utexas.edu (Stuart McDow)
Subject: Re: Certified Perl Programmers
Message-Id: <6lmb81$lkt$1@ns1.arlut.utexas.edu>
mjd@op.net (Mark-Jason Dominus) writes:
>
> For my scheme to work, it helps to have as many competing certifynig
> authorities as possible.
Well, shoot, then. I'll certify people, too.
My dba is Angry Grammar, so if you want to be an Angry Grammer
Certified Perl Programmer, drop me a line.
--
Stuart McDow Applied Research Laboratories
smcdow@arlut.utexas.edu The University of Texas at Austin
"Look for beauty in roughness, unpolishedness"
------------------------------
Date: 10 Jun 1998 11:21:06 -0500
From: justinb@ignored.cray.com
Subject: Re: Certified Perl Programmers
Message-Id: <o8nhg1tns7h.fsf@springer.cray.com>
Tom Christiansen <tchrist@mox.perl.com> writes:
> [courtesy cc of this posting sent to cited author via email]
>
> In comp.lang.perl.misc, joel@wmi0.wmi.com (Joel Coltoff) writes:
> :I think we need to be more formal about this. We find a perl goddess
> :and on a periodic basis she taps the qualified recipients on each shoulder
> :with her scimitar and dubs them "Lord High Programmer, Certified Perl
> :Engineer, Keeper Of the Faith, Grand Poobah Of Grep, User of Map In
> :A Non-Void Context" A certificate suitable for placing at the bottom of
> :a bird cage is then presented. This is followed by cocktails and dinner.
> :Black tie is optional.
>
> We could ask Elizabeth Zwicky whether she would please be our goddess.
> It's been done before.
I forwarded the posting to her, just in case.
--
Justin Banks - Silicon Graphics Inc. Eagan, MN
Give a man a fish, and you'll feed him for a day. Give him a religion,
and he'll starve to death while praying for a fish.
--Timothy Jones
------------------------------
Date: Wed, 10 Jun 1998 17:12:19 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Certified Perl Programmers
Message-Id: <pudge-1006981306370001@dynamic174.ply.adelphia.net>
In article <6lk05p$9h3$1@monet.op.net>, mjd@op.net (Mark-Jason Dominus) wrote:
# set. ``Oh, yes. I've been a certified Perl developer since 1997.''
You rule.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Wed, 10 Jun 1998 16:53:12 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: Command line substitution thru subdirectories
Message-Id: <357EABE8.AB155D9E@nortel.co.uk>
Tom Christiansen wrote:
>
> In comp.lang.perl.misc, I wrote:
> :Why don't the C++ groups ever get questions like, "How do
> :use C++ on all the files in all my directories recursively?"
>
> On the other hand, I *do* note that the html groups get questions like,
> "How do I html all the files in all my websites recursively?"
>
> I begin to smell a connection.
Yep. The demand for people to do webstuff is enoormous. So imagine the
following:
Boss: I need that webpage yesterday. We bought a server, T1 connection, and we
wanna sell stuff
PHE (poor hapless employee): But, I don't have a f.. clue about how to go on
about that.
Boss: Learn html, Learn Perl
PHE: Perl? Isn't it that magic language that makes easy things easy and
difficult things possible? But I have never programmed before
Boss: Do I care? I care about the rate of change of my bank account, always keep
it positive. If you can't help me, maybe someone else can...
PHE: OK then.
PHE goes along, tries to learn Perl, probably manages, but has never heard of
iterations, recursions, conditionals...
so yes, you won't get these questions in C++ or Fortran, because the clientel is
quite different. What can you do about it? I dunno really...
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Wed, 10 Jun 1998 11:20:01 -0400
From: Xuming Wang <xuming@emai.unc.edu>
Subject: Re: Command line substitution thru subdirectories
Message-Id: <357EA421.93D73366@emai.unc.edu>
Wolfgang Denk wrote:
>
> xuming@email.unc.edu (Xuming Wang) writes:
>
> >"Uwe Honekamp" <uwe.honekamp@etas.de> wrote:
>
> >>On win32, however, you have to install a proper working find and xargs.
> >>These (and more) can be found at www.cygnus.com/win32.
> ...
> >programmer. but I am a newbie in programming and no one (until you,
> >Uwe, thanks) told me where to get this non-Perl tool which is required
>
> It is not really "required". Life is just a LOT easier when you have
> the right tools. This is a Perl group, so we won't discuss where you
> can get all the other precious tools you may want to have.
whatever it is required by his script or not he didn't say. I tried his script
and posted the result and got this from him:
> Stop bitching about not having tools. It's not our fault that you're
> too lazy, stupid, or rude to bother to install an operating system.
> You can't get any useful work done with your problem. If you want
> to program, install a programming environment. If you prefer to
> watch MTV, you know where to find it.
>
> --tom
no one has told me what kind of programming envionment besides an OS and a perl
distribution is needed to learn Perl. anyway, now I know that without a find
and xargs from www.cygnus.com/win32 I can't get any useful work done with my
problem. thanks guys.
so would anyone kindly point out where people discuss or where can I ask where I
can get all the other precious tools which are not really required but can make
my life a LOT easier as a full time graduate student in biochemistry major who
just wants to learn a little bit of Perl for fun or at least can make Tom's
scripts runnable? comp.os.ms-windows.programmer.tools*? but I also use Unix.
thanks in advance.
> However, feel free to ask...
yeah, but I won't post any testing results anymore (I guess this can also make
my life a LOT easier).
--
Xuming Wang
------------------------------
Date: 10 Jun 1998 17:08:02 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Command line substitution thru subdirectories
Message-Id: <6lmehi$k47$2@client3.news.psi.net>
Xuming Wang (xuming@emai.unc.edu) wrote on MDCCXLIV September MCMXCIII in
<URL: news:357EA421.93D73366@emai.unc.edu>:
++
++ no one has told me what kind of programming envionment besides an OS and a pe
++ distribution is needed to learn Perl. anyway, now I know that without a find
++ and xargs from www.cygnus.com/win32 I can't get any useful work done with my
++ problem. thanks guys.
Of course not. Otherwise, if we need to list all the requirements
necessary to run a perl program, the actual answer to the question
would be buried in a long list of requirements.
What's next? "I am so pityful cause noone told me I needed a computer
to run a perl program"?
++ so would anyone kindly point out where people discuss or where can I ask wher
++ can get all the other precious tools which are not really required but can ma
++ my life a LOT easier as a full time graduate student in biochemistry major wh
++ just wants to learn a little bit of Perl for fun or at least can make Tom's
++ scripts runnable? comp.os.ms-windows.programmer.tools*? but I also use Unix
You have a Unix without find or xargs? Complain at your vendor.
As for canned solutions to emulate Unix tools on an MS platform,
ask in an MS specific group. Not a Perl group.
Abigail
--
perl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}-
------------------------------
Date: 10 Jun 1998 16:55:58 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Command line substitution thru subdirectories
Message-Id: <6lmdqu$man$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Xuming Wang <xuming@emai.unc.edu> writes:
:> However, feel free to ask...
:
:yeah, but I won't post any testing results anymore (I guess this can also make
:my life a LOT easier).
But apparently you will post private mail to a public forum.
--tom
--
"Since nobody ever compared Hitler to Hitler, being compared with Hitler
immediately disqualifies you for Hitlerhood."
--Larry Wall
------------------------------
Date: 10 Jun 1998 16:02:42 GMT
From: projectphe@aol.com (ProjectPHE)
Subject: Complete newbie question: Please help if possible!
Message-Id: <1998061016024200.MAA23451@ladder01.news.aol.com>
OK, I am almost completely new to perl. I mean, I've read the mans for it, but
I just can't get it into my head. All I want to do is one simple little thing,
and I'm fairly certain that it has been done before (probably many times), and
instead of trying to reinvent the wheel, I was hoping that I could get some
help.
See, all that I want to do is:
1) Have the user fill out a form. One of the data fields is a name for a file
that the user decides.
2) Check to see if that file name is being used or not. If not, then
everything is ok, if so, notify the user and go back to 1.
3) Create an html file with the given name. Actually, the vast majority of
the html file will be preset, I just want to plug in the values that the user
entered into the form, in various places in the new html file.
4) Notify the user that everything went OK.
See? Incredibly simple. I mean, if javascript supported writing to files on
the server side, I could do it in a heart beat, and I just started learning
about javascript recently (actually after I started learning about perl). But
since it has to be in perl, I can't get my mind around it. : ( Is there a
good samaritan out there who can either show me an example or point me towards
the right direction? I don't want to have to learn another programming
language just for this one script, if possible, but I guess I can if necessary.
: )
Any and all help will be greatly appreciated. : )
------------------------------
Date: Wed, 10 Jun 1998 16:17:37 GMT
From: dfranco@inav.net (Dom Franco)
Subject: Document contains no data?
Message-Id: <357eb13e.9317170@news.inav.net>
I recently downloaded and installed the Omnihttpd server on my
computer. When I try to run simple Perl scripts locally I get the
message "Document contains no data." What does this mean?
Thanks
------------------------------
Date: Wed, 10 Jun 1998 17:31:59 GMT
From: pickles_c@hotmail.com (Craig Pickles)
Subject: Embedding VRML inside a Perl Script???
Message-Id: <357ec1d6.114952571@news.demon.co.uk>
How do you embed vrml inside a perl script,
I have tried setting the content type to:
print "Content-type: x-world/x-vrml\n\n";
then I block print the vrml script like I would an HTML page, but I
dont get anything back, just a black page (netscape says that it is
loading the plugin (cosmo) but then just leaves me with a blank
script). In netscape, the source appears to be simply the VRML
script, bu in netscape its just gobblygook with </HTML> at the
end..... where is it getting the </HTML> from? does anybody know
anywhere on the web where there are examples of how this is done? I'm
getting a little desperate.......
Thanks for you help, and for listening
Craig Pickles
------------------------------
Date: Wed, 10 Jun 1998 13:09:50 -0400
From: "HtmlPlace.Com" <htmlmail@htmlplace.com>
Subject: Errno
Message-Id: <357EBDDE.22BC@htmlplace.com>
Hello,
Is there any documentation anywhere that lists possible error codes?
I am running a script I wrote and I am coming up with errno 2 as an
error in my error logs.
Thanks in Advance,
Mark Jervis
------------------------------
Date: 10 Jun 1998 17:20:21 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Errno
Message-Id: <6lmf8l$man$3@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
"HtmlPlace.Com" <htmlmail@htmlplace.com> writes:
:Is there any documentation anywhere that lists possible error codes?
:I am running a script I wrote and I am coming up with errno 2 as an
:error in my error logs.
/usr/include/sys/errno.h is the traditional place for this.
Linux bolluxed it, but you can kinda follow the pointers.
--tom
--
"But Billy! A *small* allowance prepares you for a lifetime of small
salaries and for your Social Security payments." --Family Circus
------------------------------
Date: Wed, 10 Jun 1998 16:13:18 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: flock
Message-Id: <Pine.GSO.3.96.980610091251.29617b-100000@user2.teleport.com>
On Wed, 10 Jun 1998, Deva Seetharam wrote:
> close(TEMPLATE);
> close (TEMPFILE);
>
> # tempfile and template contains the name of the files.
> rename ($tempfile, $template);
When you closed the files, you gave up their locks. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 10 Jun 1998 15:34:07 GMT
From: pdf@morgan.ucs.mun.ca (Paul David Fardy)
Subject: Re: I get no errors, but I get no Sys::Syslog(ing)...
Message-Id: <6lm91f$do0$1@coranto.ucs.mun.ca>
3c9x5.remove@altabates.com (T Perkins) writes:
>I know the syslog daemon is OK 'cuz at the shell things are fine:
>In perl however, all is quiet. Here's my script:
> #!/usr/bin/perl
> use Sys::Syslog;
> use File::Basename;
> openlog(basename($0),'ndelay,pid','user');
> syslog('notice','Narf');
> closelog();
> exit(1);
I have the same problem. I was trying to debug modifications to
Perl printer filter and I was using syslog for tracing/debugging
messages. But it silently failed and it was some time later
that I discovered the script would run correctly on another system.
I've patched my system, then upgraded my system, then upgraded
Perl, but my script doesn't work and yours fails for me, too.
I noticed that there are substantial differences between
Perl5.003 Sys/Syslog.pm and perl5.004_04 Sys/Syslog.pm and
that may be significant.
I found that my script failed on Perl5.003 on one system and
worked on another. We're running Digital UNIX V4.0B and V4.0D.
I found that, on my workstation, my script failed under the
following installations:
perl5.003 built on Digital UNIX V3.2G, running on:
Digital UNIX V4.0B + patchkit6
Digital UNIX V4.0B + patchkit7
perl5.004_04 built and running on:
Digital UNIX V4.0D + patchkit1
The sample script above works on several V4.0B(p6) systems
running perl5.003, but silently fails on the V4.0D system
running perl5.004_04.
Can anyone suggest ways to debug this problem? It's not hard to
find
unless (send(SYSLOG,"<$sum>$whoami: $message",0)) {
but how I do check the integrity of SYSLOG at this point.
I have found that lsof reports:
perl 2574 pdf 12u inet 0x00ad8cc0 0t0 UDP porthos:1158->porthos:syslog
The send(SYSLOG) "succeeds" as far as perl is concerned, but
nothing shows up in the syslog files.
Where can I go from here?
Paul Fardy
--
Paul David Fardy | pdf@morgan.ucs.mun.ca
Computing and Communications | pdf@InfoNET.st-johns.nf.ca
Memorial University of Newfoundland |
St. John's, NF A1C 5S7 |
------------------------------
Date: 10 Jun 1998 15:53:23 GMT
From: smcdow@arlut.utexas.edu (Stuart McDow)
Subject: Re: McCabe complexity analysis
Message-Id: <6lma5j$hk0$1@ns1.arlut.utexas.edu>
Stefaan.Eeckels@ecc.lu (Stefaan A Eeckels) writes:
>
> Warning C4706: Assignment within conditional expression.
Get out. Really?
How annoying.
I wonder why they feel like they need to do so much hand-holding.
--
Stuart McDow Applied Research Laboratories
smcdow@arlut.utexas.edu The University of Texas at Austin
"Look for beauty in roughness, unpolishedness"
------------------------------
Date: Wed, 10 Jun 1998 12:23:38 +0100
From: Russell Schulz <Russell_Schulz@locutus.ofB.ORG>
Subject: Re: McCabe complexity analysis
Message-Id: <19980610.122338.0t5.rnr.w164w@locutus.ofB.ORG>
gebis@albrecht.ecn.purdue.edu (Michael J Gebis) quotes and writes:
>> if (p)
>> and
>> if (p == NULL)
>
>> When of course, there isn't.
>
> Except, of course, that they are exactly the opposite.
> But we know what you meant.
but would a compiler...?
--
Russell_Schulz@locutus.ofB.ORG Shad 86c
------------------------------
Date: 10 Jun 1998 17:24:57 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: MODERATION: Time to Vote
Message-Id: <6lmfh9$rag$1@news.NERO.NET>
In article <6lltsk$4bm$1@csnews.cs.colorado.edu>,
Tom Christiansen <tchrist@mox.perl.com> wrote:
>There's a vote going on at news.groups for a moderated
>Perl newsgroup going on. Please find the article that says
>CFV on it and do as it says.
The vote is going on USENET wide, and you will find the CFV not only in
news.groups, but in comp.lang.perl.misc, comp.lang.perl.announce, and
news.announce.newgroups.
But before you do what it says, read it very carefully. Almost as
important as what it says is what it leaves unsaid.
------------------------------
Date: 10 Jun 1998 17:19:02 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: Need to plot charts (gif format ?) from ascii data
Message-Id: <6lmf66$r6a$1@news.NERO.NET>
In article <6lk6gm$dvs$1@thefuture.qualcomm.com>,
Vinit Jindal <vjindal@qualcomm.com> wrote:
>Is there a freeware / shareware utility available that I can use to
>plot charts from ascii data.
Not perl. Find thee gnuplot or plotxy.
------------------------------
Date: Wed, 10 Jun 1998 17:38:35 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Need to plot charts (gif format ?) from ascii data
Message-Id: <pudge-1006981332500001@dynamic174.ply.adelphia.net>
In article <6lmf66$r6a$1@news.NERO.NET>, stanley@skyking.OCE.ORST.EDU
(John Stanley) wrote:
# In article <6lk6gm$dvs$1@thefuture.qualcomm.com>,
# Vinit Jindal <vjindal@qualcomm.com> wrote:
# >Is there a freeware / shareware utility available that I can use to
# >plot charts from ascii data.
#
# Not perl. Find thee gnuplot or plotxy.
People do it in perl all the time. PGPLOT. GIFgraph.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Wed, 10 Jun 1998 16:20:39 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Newbie : How to append one file to another?
Message-Id: <Pine.GSO.3.96.980610092025.29617e-100000@user2.teleport.com>
On Wed, 10 Jun 1998, Irsan Widarto wrote:
> open(FILE1, "FILE1");
> open(FILE2, ">>FILE2");
Even when your script is "just an example" (and perhaps especially in that
case!) you should _always_ check the return value after opening a file.
Thanks!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 10 Jun 1998 16:18:23 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Newbie: Unrecongized character
Message-Id: <Pine.GSO.3.96.980610091330.29617c-100000@user2.teleport.com>
On Wed, 10 Jun 1998, Ellington Brown wrote:
> When I execute the following perl script I receive an error message:
When perl gives you an unfamiliar error message, the perldiag manpage may
be able to tell you in more detail what's going on. Does that help?
> I think that there is a unseen character located on the first line of
> the program. I just wish I could see it.
Any good text editor should be able to show you what's in your file. There
are several good text editors made by and for programmers. The best way to
choose a text editor is generally to ask your local expert what he or she
uses, since that's the person who is going to help you when you get stuck.
:-)
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 10 Jun 1998 17:08:54 GMT
From: pudge@pobox.com (Chris Nandor)
Subject: Re: Not even an RFD (yet)... comp.lang.perl.(newbie|questions)
Message-Id: <pudge-1006981303130001@dynamic174.ply.adelphia.net>
In article <4TCe1.700$%a.752646@news.randori.com>, garyg@gator.net (Gary
M. Greenberg) wrote:
# otoh, what is the status of the potential c.l.p.moderated?
Vote on it. See news.groups. Look for the Subject with CFV and perl in it.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Wed, 10 Jun 1998 12:49:38 -0400
From: linberg@literacy.upenn.edu (Steve Linberg)
Subject: Re: NT and .htpasswd - .htaccess
Message-Id: <linberg-1006981249390001@projdirc.literacy.upenn.edu>
In article <357E4E63.49F5DBEB@skynet.be>, bassline@tb-303.com wrote:
> Hi there,
>
> I have a problem to resolve :
>
> I must protect a dir with login and password, but the user database
> must be a single file editable by a CGI.
>
> Can someone help me ?
Undoubtedly, in a newsgroup that discusses operating systems and CGI
programming. Your question, as it is phrased, has nothing whatsoever to
do with Perl, so it doesn't belong here.
_____________________________________________________________________
Steve Linberg National Center on Adult Literacy
Systems Programmer &c. University of Pennsylvania
linberg@literacy.upenn.edu http://www.literacyonline.org
------------------------------
Date: Wed, 10 Jun 1998 12:49:24 -0500
From: "Vincent M. Probasco" <probavm@cat.com>
Subject: Number of digits in a string
Message-Id: <357EC724.E68A5D5E@cat.com>
I have a script where the user needs to input a number. I need to check
to make sure that
this number has exactly six digits. I looked in the camal manual and
all I could find was how
to count the number of distinct charaters in a string using tr//. Any
help with this would be greatly
appreciated. Thanks,
Vince
------------------------------
Date: Wed, 10 Jun 1998 12:51:30 -0500
From: "Vincent M. Probasco" <probavm@cat.com>
Subject: Re: Number of digits in a string
Message-Id: <357EC7A1.50B901FE@cat.com>
Whoops ! Did I say camal ? I meant Llama. I know I'll catch some heck
for that. Oh well,
thanks again for any help.
Vince
------------------------------
Date: 10 Jun 1998 16:06:57 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: pack/unpack seps
Message-Id: <6lmav1$e1j$5@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Ruben I Safir <rs83@is7.nyu.edu> writes:
:I started with the "CAMEL" book which did not explain the differences in
:behavior I see.
The crux of the matter is this: was it a character or a numeric value?
Chapter 3, under pack, reads:
a An ASCII string, will be null padded.
A An ASCII string, will be space padded.
c A signed char value.
C An unsigned char value.
....
$out = pack "cccc", 65, 66, 67, 68; # $out eq "ABCD"
$out = pack "c4", 65, 66, 67, 68; # same thing
The length on an \f(CR"a"\fP field applies only to one string:
$out = pack "a4", "abcd", "x", "y", "z"; # "abcd"
To get around that limitation, use multiple specifiers:
$out = pack "aaaa", "abcd", "x", "y", "z"; # "axyz"
$out = pack "a" x 4, "abcd", "x", "y", "z"; # "axyz"
That means that the "c" format is for C's single-byte integral
type. The examples seem clear when they demo that packing 65
with "c" gives you "A", and that packing "x" using the "c" format
gives you "x".
What part remain unclear?
--tom
--
"Help save the world!" --Larry Wall in README
------------------------------
Date: Wed, 10 Jun 1998 16:56:56 +0100
From: "N Maderna" <nmaderna@nospam.co.uk>
Subject: Perl to C translator
Message-Id: <6lmacl$acn@romeo.logica.co.uk>
Probably this question has been made thousands of times, but ... Does a Perl
to C translator exist???? and if it does where do I get it?
Nicola
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 2830
**************************************
