[11826] in Perl-Users-Digest
Perl-Users Digest, Issue: 5426 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Apr 20 09:07:28 1999
Date: Tue, 20 Apr 99 06:00:18 -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 Tue, 20 Apr 1999 Volume: 8 Number: 5426
Today's topics:
Re: 'die' function problem <Philip.Newton@datenrevision.de>
Re: Adding TCPIP # <gellyfish@gellyfish.com>
Re: Another beginner question <Philip.Newton@datenrevision.de>
Re: DBM and Perl <gellyfish@gellyfish.com>
Re: FAQ 3.22: How can I compile my Perl program into by <Philip.Newton@datenrevision.de>
Re: FAQ 3.27: Where can I learn about CGI or Web progra <gellyfish@gellyfish.com>
Re: Fork() and defunct state problem <Wm.Blasius@ks.sel.alcatel.de>
How to join two hashes? <fabascal@gredos.cnb.uam.es>
Re: Installation of Perl for Win32 w/o a C compiler <thimal@my-dejanews.com>
Re: Looping with Tk <ibelgaufts@gfc-net.de>
Re: pack format control string help <picardk@my-dejanews.com>
Re: Perl cookbook ... <bruceb3@zipworld.com.au>
Perl DBM Files - File Size thelizardman@my-dejanews.com
Perl notation question? <vasquez@zap.a2000.nl>
Perl to display spreadsheet data vivekvp@yahoo.com
Re: Perl to display spreadsheet data <gellyfish@gellyfish.com>
Re: Perl, VB, or Java??? <Michael.Cameron@nospam.technologist.com>
Re: Problem with writing to file. <Philip.Newton@datenrevision.de>
Re: scriptlet to add line breaks at even multiples? <ronald_f@my-dejanews.com>
search msoffice documents ombiasan@hotmail.com
searching for perl scripts <dmeyer@pcw-computer.de>
Re: T-shirt with potential Perl-logo <Philip.Newton@datenrevision.de>
Re: Top 10 newbie errors? <Philip.Newton@datenrevision.de>
Re: Top 10 newbie errors? <Philip.Newton@datenrevision.de>
Re: Top 10 newbie errors? (Bart Lateur)
Re: TPJ still shipping? <revjack@radix.net>
Re: What is the end of file character for Mac (Chris Nandor)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 20 Apr 1999 14:04:32 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: 'die' function problem
Message-Id: <371C6D4F.98EA5116@datenrevision.de>
Alex Guberman wrote:
>
> print "$tpl";
Lose those quotes. They're superfluous, and this practice can cause you
harm later on. For example, >print @foo;< is not the same as >print
"@foo";< (try it out with @foo=qw[one two three]).
Cheers,
Philip
------------------------------
Date: 20 Apr 1999 11:28:22 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Adding TCPIP #
Message-Id: <371c56c6@newsread3.dircon.co.uk>
Jonathan Stowe <gellyfish@gellyfish.com> wrote:
>
> Anyhow to match dotted quad IP number you could use:
>
> /(d+\.d+\.d+\.d+)/
>
Come on wake up people ;-} I thought things were bad yesterday but now I can see the
awful truth - that should of course be
/(\d+\.\d+\.\d+\.\d+)/
Deary deary me.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: Tue, 20 Apr 1999 12:32:00 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: Another beginner question
Message-Id: <371C57A0.BC00F2FB@datenrevision.de>
Jonathan Stowe wrote:
>
> Kevin Genus <kgenus@tidalwave.net> wrote:
> >
> > #! no !# ...
> >
> > Also, if you are using windows, you do not need that line ... you should
> > set up associations and file types using FTYPE and ASSOC commands from
> > the command prompt.
> >
>
> Except of course if he does that then he is foregoing the facility of using
> any switches that might be applied there - Perl itself does use the shebang
> line to determine if any switches should be used regardless of whether the
> OS supports running 'interpreted' programs in this way.
Case in point:
#!perl -w
Cheers,
Philip
------------------------------
Date: 20 Apr 1999 12:37:13 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: DBM and Perl
Message-Id: <371c66e9@newsread3.dircon.co.uk>
jas237@superlink.net wrote:
> This is my first attempt writing perl code. I am trying write a Perl script
> that will read a record from a DBM file, increment one of the values, delete
> the orginal record, and then write the updated record back to the DBM file.
> The script that I wrote reads the file, increments the value, deletes the
> orginal record, but does not write the updated record back to the DBM file.
> Below is what I have written. Can anyone advise me on what I am doing wrong
> or is there an easier way to change a value within a record.
>
Yes, because the hash is tied to the DBM file theb any changes made to the
hash are reflected in the file. All you need do is simply increment
the hash value and youre away.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: Tue, 20 Apr 1999 13:10:47 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: FAQ 3.22: How can I compile my Perl program into byte code or C?
Message-Id: <371C60B7.1A4D6E6E@datenrevision.de>
Tom Christiansen wrote:
>
> (This excerpt from perlfaq3 - Programming Tools
> ($Revision: 1.35 $, $Date: 1999/04/16 01:38:05 $)
> this, it will make it miniscule. For example, on one author's
s/miniscule/minuscule/
Cheers,
Philip
------------------------------
Date: 20 Apr 1999 11:45:45 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: FAQ 3.27: Where can I learn about CGI or Web programming in Perl?
Message-Id: <371c5ad9@newsread3.dircon.co.uk>
Arzhan I. Kinzhalin <kai@sparc.spb.su> wrote:
> On 20 Apr 1999, Tom Christiansen wrote:
>
> ->
> -> CGI FAQ
> -> http://www.webthing.com/page.cgi/cgifaq
> ->
>
> This link seems to be broken - requsted document was not found on this server.
> Should it be revised? :)
>
It is now at :
<http://www.webthing.com/tutorials/cgifaq.html>
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: Tue, 20 Apr 1999 11:36:09 +0200
From: William Blasius #42722 <Wm.Blasius@ks.sel.alcatel.de>
Subject: Re: Fork() and defunct state problem
Message-Id: <371C4A89.167EB0E7@ks.sel.alcatel.de>
Dumar wrote:
>
> Hi;
>
> I am trying to write a perl script which forks a process and waits for
> sometime for that process to complete (with sleep) and if it is not
> finished, it is trying to kill the process. If the process finishes its
> job on time, it simply exits with exit(1) and forks another.
>
> Everything seems fine, the problem is, when you kill the child process
> (that was created by fork()) or the child process terminates itself by
> exit(1), you see that process in the <defunct> state and after sometime,
> a lot of <defunct> processes exist around.
>
> How am I supposed to get rid of these <defunct> processes ? I can't kill
> them unless I kill the parent process, but parent process has to live in
> an infinite loop so that the program accompishes its objectives.
>
> Thanks ...
A defunct (zombie) process uses no system resources except for its
process table entry. To get rid of them, see
perldoc -f wait
hth
Wm Blasius
Stuttgart
--
...now I'm <wm.blasius@ks.sel.alcatel.de> - no matter what my mail
server says!
------------------------------
Date: Tue, 20 Apr 1999 12:45:09 +0200
From: Federico Abascal <fabascal@gredos.cnb.uam.es>
Subject: How to join two hashes?
Message-Id: <371C5AB4.84699EC9@gredos.cnb.uam.es>
Hello,
does anybody knows how to join two hashes, if possible? (The two hashes
have some keys similar)
Thanks,
Federico
------------------------------
Date: Tue, 20 Apr 1999 10:07:59 GMT
From: Thimal <thimal@my-dejanews.com>
Subject: Re: Installation of Perl for Win32 w/o a C compiler
Message-Id: <7fhjlt$8re$1@nnrp1.dejanews.com>
Hi John,
> ActiveState makes the ofiicial Win32 Perl (like what you would find on CPAN).
Yup.... and also heard later on, that build 509 is a bit more stable than the
latest release, build 515..... But I also heard that you require the same
compiler (Visual C++) if you wish to build modules for Activestate from
source....
> Checking their site frequently will keep you up to date. As for your C
>compiler problem, go to www.gnu.org and pick up a C compiler there--that is if
> your sysadmin will allow to install it in your Win32 systems.
Aaaaaaah... the crux.... CDK is an installshield application, and much as I
love to replicate the Unix stuff, Installshield throws me a curveball :o), so
I am now considering bribing/intimidating/begging my sysop to let me install
it :o)
>jump up and down in your boss' office until he gives in and gets you a C
> compiler. ;-)
Thanks :o) :o) :o) :o), doing that too... and I guess it will work.. sooner or
later...
> On a different note, while Win32::GUI may be cool, using Tk will make your
> code far more portable.
yes, you're absolutely right.... I'm been overtaken by the Visual Basic GUI
building mania, most likely.... resolve to exorcise myself of it... :o) :o)
> Hope this helps.
Sure did... thanks...
Thimal
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 20 Apr 1999 14:56:12 +0200
From: =?iso-8859-1?Q?J=FCrgen?= Ibelgaufts <ibelgaufts@gfc-net.de>
To: markaw2091@my-dejanews.com
Subject: Re: Looping with Tk
Message-Id: <371C796C.BEEDA919@gfc-net.de>
markaw2091@my-dejanews.com wrote:
>
> Hi There,
>
> I am trying to do some work with a SQL Server Error Log. Basically, I want to
> be able to refresh my current view of the log every 5 minutes. (For the
> purposes of this code I am doing the refresh every 1000ms.) Basically, I am
> using Tk to show the current errorlog and on reading it in am performing some
> basic work to colour-code the text (Pretty straight forward really.
>
> The problem I have (and can't seem to find the answer to) is how do I
> instruct Perl to reload the file after the timeout? I have tried to use to
> subroutines - one to open the file and the other to close the file but this
> appears to be where I am having problems. This is my first venture into
> working with Tk. Here is the code I am currently working with:
>
> use strict;
> use Tk;
>
> my $top = MainWindow->new;
> $top->title('MAW SQL Error Log Status');
>
> my $text = $top->ROText( qw/-width 100 -height 40 /);
> $text->tagConfigure("blue-text", -foreground => 'blue');
> $text->tagConfigure("red-text", -foreground => 'red');
> $text->tagConfigure("black-text", -foreground => 'black');
> $text->pack;
>
> my $timer = $text->repeat(1000, \&PresentFile);
> $timer = $text->repeat(1000, \&CloseFile);
> MainLoop;
>
> sub PresentFile {
> open FLE, "errorlog" || die "Could not open file: $!";
> while (<FLE>) {
> if ($_ =~ m/.*err.*/i) {
> $text->insert('end', "$_", "red-text");
> } elsif ($_ =~ m/.*dump.*/i) {
> $text->insert('end', "$_", "black-text");
> } else {
> $text->insert('end', "$_", "blue-text");
> }
> }
> }
>
> sub CloseFile {
> close FLE;
> }
>
Hi,
1. why do you make two independently running loops (one for open
and read, one for close)? Should work better if you put
everything into a single subroutine.
2. After closing the file, you might have to update the main
window ($top -> update).
3. Consider the case that opening and reading the file takes
more than a second: your timer tasks will start overlapping each
other and possibly come out of order.
Hope this helps
Juergen Ibelgaufts
------------------------------
Date: Tue, 20 Apr 1999 11:08:53 GMT
From: Keith P <picardk@my-dejanews.com>
Subject: Re: pack format control string help
Message-Id: <7fhn83$bo4$1@nnrp1.dejanews.com>
In article <371B4869.35BE914D@no.spam.technologist.com>,
Michael Cameron <Michael.Cameron@no.spam.technologist.com> wrote:
> Keith P wrote:
>
> >
> > Please, could someone who has more experience with unpack and/or Solaris
> > structures tell me what is necessary?
>
> You will probably find the answers in the Solaris header files (try utmp.h &
> time.h ? ) but I would suggest getting out of the guts of Solaris files and
> concentrating on some of the more interesting (and less system dependent)
aspects
> of learning Perl instead.
>
> I had a whole heap of bother with pack/unpack under Solaris which I eventually
> solved by poring over hexdumps. The functions work, its the file format
that is
> difficult.
>
> Or you could always install Linux ;-)
>
> Michael Cameron
>
>
--
I have had a look at the time.h header file, as recommended, and I wish I
hadn't bothered. I understand your lack of enthusiasm regarding Solaris
OS structures but that's what I'm stuck with here. That and Dynix/ptx, AIX,
SCO and a variant of SVR4! No Linux yet. Still, once I've cracked this nut,
I'm confident I'll be able to use the knowledge for a variety of purposes. I
will "endeavour to persevere".
Keith Picard
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 20 Apr 1999 20:08:33 +1000
From: "Bruce Woodward" <bruceb3@zipworld.com.au>
Subject: Re: Perl cookbook ...
Message-Id: <7fhjn6$mlv$1@the-fly.zip.com.au>
Should'nt the "or" be "||" so it would read ....
open(SENDMAIL, "|/usr/lib/sendmail -oi -t -odq") || die "Can't fork for
sendmail: $!\n"
Ron Reidy wrote in message <371BD678.1DC4D87D@uswest.net>...
>Hi all,
>
>A co-worker of mine was writing a SIMPLE perl program to send e-mail to
>a group of users when a certain event has cmpleted processing on our
>server. He used an example right from the cookbook, but it didn't work.
>
>The cookbook example is locate on page 651:
>
>open(SENDMAIL, "|/usr/lib/sendmail -oi -t -odq")
> or die "Can't fork for sendmaile: $!\n";
>...
>...
>...
>
>
>We could not force the die statement to fail. Is it me/him, or is there
>something missing here.
>
>I would appreciate hearing from anyone with constructive suggestions or
>help.
>
>Thanks
>
>rr
>
------------------------------
Date: Tue, 20 Apr 1999 11:21:34 GMT
From: thelizardman@my-dejanews.com
Subject: Perl DBM Files - File Size
Message-Id: <7fhnvs$cac$1@nnrp1.dejanews.com>
Recently a Perl DBM file has jumped in size from 3Mb to 51Mb.
There are about 700 records, the key is less than 10 digits, the value is less
than 1k.
Why the sudden 10 fold jump? Is there anything I can do about it?
I've tried reading the data into a variable and saving it as a new file, but
the filesize remains the same.
Jason Shallcross
jason@worthing.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 20 Apr 1999 12:59:48 +0200
From: Joel Wijngaarde <vasquez@zap.a2000.nl>
Subject: Perl notation question?
Message-Id: <371C5E24.2FF1C2FD@zap.a2000.nl>
Hi,
Can somebody tell me in a clear way what the difference is between:
open(IN, "$ARGV[$i]/$input") or die("Can't open file: $!\n");
and
open IN, "$ARGV[$i]/$input" or die "Can't open file: $!\n";
I mean what the difference is between the expression with '(' and
without the '('.
Why do they both exist?
Thanks in advance,
Joel Wijngaarde
--
Jokl Wijngaarde (vasquez@zap.a2000.nl)
Quote:
"The final solution is possibly a little extreme - create a new
country - and then export all lawyers there. The Brit's tried
this with Australia, but somehow something went awry
somewhere along the line."
"Hrm. The whole of Europe did that with America and it seems to
have been moderately successful."
------------------------------
Date: Tue, 20 Apr 1999 10:13:45 GMT
From: vivekvp@yahoo.com
Subject: Perl to display spreadsheet data
Message-Id: <7fhk0n$90h$1@nnrp1.dejanews.com>
Hello - I posted before, but was not clear in my post - my apologies.
I would like to take data from an excel spreadsheet and display in on a web
page. I do not want the brower to ask to open an excel spreadsheet. I just
want to take the spreadsheet data (in .xls) format, and use perl to reorganize
to display on a web page - so any browser can view it.
I hope this is what perl will allow me to do. If you have any more info on
what to do - or if you think my explanation is a bit vague - please email me
at vivekvp@spliced.zzn.com
Thank you!
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 20 Apr 1999 11:27:54 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Perl to display spreadsheet data
Message-Id: <371c56aa@newsread3.dircon.co.uk>
vivekvp@yahoo.com wrote:
> Hello - I posted before, but was not clear in my post - my apologies.
>
> I would like to take data from an excel spreadsheet and display in on a web
> page. I do not want the brower to ask to open an excel spreadsheet. I just
> want to take the spreadsheet data (in .xls) format, and use perl to reorganize
> to display on a web page - so any browser can view it.
>
You can use an ODBC driver for Excel and Win32::ODBC - of course next you're
going to say that your're on a Unix machine - in which case you could
probably look at :
<http://user.cs.tu-berlin.de/~schwartz/pmh/>
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: Tue, 20 Apr 1999 11:35:06 +0000
From: Michael Cameron <Michael.Cameron@nospam.technologist.com>
To: Jim Durkin <jdurkin@gw.total-web.net>
Subject: Re: Perl, VB, or Java???
Message-Id: <371C666A.677C6344@nospam.technologist.com>
Jim Durkin wrote:
> Hello,
>
> I am trying to decide if I should use Perl or Java to perform the following
> task. I need to constantly
> monitor the output of call records being generated by a switch.
One of the many "standard" voice switches generating one of the many
"standard" CDR formats?
> These records are being spooled to a network management station (NT
> Server with IIS).
NT a requirement?
> Multiple files will be created. These records are
> delimited by
> commas and contain data that determine the performance and error status (if
> any) of voice calls.
CSVs - no problems there.
> I need to look at certain fields of each record
> and determine if an event needs to be generated to a my network management
> software (NNM).
What NMS? Your own or a package? On the same machine, if not what platform?
> In addition, I
> plan to massage the data and make it available on the Internet.
How? Again, the same platform or a different one.
> I have a
> couple of questions:
>
> 1. What language do you recommend to perform this task? (Perl for NT,
> Java, or VB?)
There are probably a number of tasks:
a) get the data
b) generate alarms/traps
c) post data
> 2. Should I feed the records into a database, such as an SQL server?
> Then, utilize SQL to access the pertinent data?
>
Almost certainly yes but you could do it with flat files.
>
> Thanks for any advice,
>
> Jim Durkin
You also probably want to look at:
volume of data
timing of alarms/events (do you want real-time or near real-time or is next
day acceptable?)
timing of reporting
how mission critical is all this?
what is offered by the switch manufacturer (many have apps to do this kind of
stuff)?
do you have a great deal of choice or are some options already fixed?
what budget do you have?
scalability of solution
robustness of solution
I would almost certainly say do not use NT for a platform that is supposed to
support any kind of mission critical event handling so VB is out - but hey,
what would I know?
Michael Cameron
Integration Architect for BT and AT&T Frame Relay Performance Reporting
Systems
(Independent Consultant)
Views expressed are mine and, since I am self employed, my employers too.
------------------------------
Date: Tue, 20 Apr 1999 14:12:25 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: Problem with writing to file.
Message-Id: <371C6F29.DC9BCA69@datenrevision.de>
Michael Cameron wrote:
>
> One change (adding the shebang line which I assume you have
[...]
> #!/usr/bin/perl
What happened to -w ?
Cheers,
Philip
------------------------------
Date: Tue, 20 Apr 1999 10:37:47 GMT
From: Ronny <ronald_f@my-dejanews.com>
Subject: Re: scriptlet to add line breaks at even multiples?
Message-Id: <7fhldr$a2n$1@nnrp1.dejanews.com>
In article <371C263B.A747D8FA@counsel.net>,
"Counsel.Net" <webmaster@counsel.net> wrote:
> Is there a simple solution for adding linebreaks on long fields? I have
> a field fed by a web form which I want to wrap at about 80 characters.
> Wrapping the field via the HTML input textarea is not an option here. I
> figure I want the data to wrap at the first word break less than 80
> characters for each line. Is there a simple substitution operation I
> can do on this data that will do this for me?
Not simple maybe.....
$field_with_breaks="";
while($your_long_field =~ s/(.{1,80})\s//)
{
$field_with_breaks .= "$1\n";
}
Ronald
--
Ronald Fischer <ronald_f@my-dejanews.com>
http://ourworld.compuserve.com/homepages/ronald_fischer/
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 20 Apr 1999 10:47:21 GMT
From: ombiasan@hotmail.com
Subject: search msoffice documents
Message-Id: <7fhlvp$aho$1@nnrp1.dejanews.com>
hello everybody,
i need to know if there are any possibilities to search msoffice documents
(95/97) for a certain content (e.g. string)
i know that i could search documents with VBA, but i thought of a Unix/Linux
platform, so VBA can not be used here. the best would be a CGI/Perl module
any help out there? thanks in advance
bye,
Adam.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 20 Apr 1999 13:47:29 +0200
From: "Dominik Meyer" <dmeyer@pcw-computer.de>
Subject: searching for perl scripts
Message-Id: <7fhpek$kid$1@news.online.de>
Hello,
I am in need of a cgi-script with which I can add mail accounts to
virtual domains.
We host some virtual domains and want that our customers
can add, change and delete E-mail accounts from their virtual domain.
The other script I search is a script with which users can change their
mailalias.
I hope someone can help me find such a script.
so long
Dominik Meyer
------------------------------
Date: Tue, 20 Apr 1999 14:14:10 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: T-shirt with potential Perl-logo
Message-Id: <371C6F92.37429151@datenrevision.de>
Daniel Pfeiffer wrote:
>
> Perl |berall:
> Perl everywhere: http://beam.to/iPerl/
> Perl ^cien:
Hmm.. the "|berall" and "^cien" don't seem to agree. Shouldn't it be
either "|berallhin" and "cxien" or "|berall" and "cxie"?
Cheers,
Philip
------------------------------
Date: Tue, 20 Apr 1999 12:54:29 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: Top 10 newbie errors?
Message-Id: <371C5CE5.563E1504@datenrevision.de>
John Callender wrote:
>
> I still can count on
> one or two curly-bracket goofs in any decent-sized script (yes, I know
> I should be using a real editor that checks that for me).
Make sure the editor is Perl-aware, or you may get weird results in rare
cases -- for example, today I was playing around with $" which confused
my editor (Programmer's File Editor) since it thought that was the
beginning of a string, causing it not to find the correct matching
curly. Changed it to $"" temporarily to check the curlies, then back to
$" :)
Cheers,
Philip
------------------------------
Date: Tue, 20 Apr 1999 13:04:06 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: Top 10 newbie errors?
Message-Id: <371C5F26.817BB508@datenrevision.de>
Jerome O'Neil wrote:
>
> There is very little difference between:
>
> my($foo) = q{bar};
>
> and
>
> $foo = q{bar};
OK, then how about this:
1) my($foo) = localtime;
2) my $foo = localtime;
3) $foo = localtime;
(Substitute anything returning different values in scalar and list
contexts [such as an array] for localtime).
1) makes $foo be the seconds, 2) and 3) make $foo be a string
representing the current time.
This probably makes some sort of argument, but I'm not sure what kind.
Cheers,
Philip
------------------------------
Date: Tue, 20 Apr 1999 12:04:24 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Top 10 newbie errors?
Message-Id: <371e65b8.2527978@news.skynet.be>
John Callender wrote:
>I'm putting together a list of the top 10 ways that people new to both
>Perl and programming screw things up.
Here's just one (various incarnations):
print <<EOT;
Hello, world!
EOT
-> Can't find string terminator "EOT" anywhere before EOF
Bart.
------------------------------
Date: 20 Apr 1999 11:18:52 GMT
From: Loki Cushman <revjack@radix.net>
Subject: Re: TPJ still shipping?
Message-Id: <7fhnqs$6ec$1@news1.Radix.Net>
Keywords: Hexapodia as the key insight
Len Bolivia explains it all:
:__END_THREAD__
No, I must insert one more off-topic comment, out of fairness. My TPJ
order is the victim of missing e-mails and missing snail mail. Mr. Orwant
shipped on time, and of late has been giving me his undivided attention in
this matter.
--
/~\ went percentage Midwestern negligent floc coverage kittenish mi
C oo midshipmen roadhouse gallberry irrefutable cartwheel Palatine p
_( ^) 1 , 0 0 0 , 0 0 0 m o n k e y s c a n ' t b e w r o n g
/___~\ http://3509641275/~revjack 04/20/99 07:12:27 revjack@radix.net
------------------------------
Date: Tue, 20 Apr 1999 07:50:18 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: What is the end of file character for Mac
Message-Id: <pudge-2004990750420001@192.168.0.77>
In article <dwilgaREMOVE-1304991553020001@wilga.mtholyoke.edu>,
dwilgaREMOVE@mtholyoke.edu (Dan Wilga) wrote:
# AFAIK, there isn't one. I think you would have to modify your code a
# little to look for some special sequence, like this, for instance:
#
# while( <STDIN> ) {
# last if /^\.end/;
# buffer .= $_;
# }
#
# This will keep reading from STDIN until it sees the string ".end".
As Ronald said, ctrl-D will usually work in MacPerl.
Note that these questions and more are probably going to be answered in
the MacPerl book, and this is a shameless plug by one of the coauthors of
said book.
http://www.macperl.com/ptf_book/
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
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 5426
**************************************
