[12494] in Perl-Users-Digest
Perl-Users Digest, Issue: 6093 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 22 13:07:18 1999
Date: Tue, 22 Jun 99 10:00:28 -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, 22 Jun 1999 Volume: 8 Number: 6093
Today's topics:
Re: 2 simple (not to me tho) questions (Bart Lateur)
Re: 2 simple (not to me tho) questions <jcreed@cyclone.jprc.com>
Re: [q] Timing of a simple looping cycle PERL vs C (brian d foy)
Re: A month behind using localtime(time) ? <tchrist@mox.perl.com>
Re: A month behind using localtime(time) ? <tchrist@mox.perl.com>
Re: A month behind using localtime(time) ? (Malcolm Ray)
Re: A month behind using localtime(time) ? <tchrist@mox.perl.com>
Re: aarrggghhh opening a file... <rootbeer@redcat.com>
Re: aarrggghhh opening a file... <rootbeer@redcat.com>
Re: Beginner Perl Question <uri@sysarch.com>
Changing Nt service startup options murrella@my-deja.com
Re: Database Manipulation <forman@cybersource.com>
Re: DBI / mSQL installion problem: Fetchhash not workin (brian d foy)
Re: DIE DIE DIE Prisoners of Bill (was: How many questi (Bart Lateur)
Re: DIE DIE DIE Prisoners of Bill (was: How many questi <tchrist@mox.perl.com>
Executing commands via backticks <bivey@teamdev.com>
Re: Exporting variables from a module <jeffp@crusoe.net>
Re: foreach and while (<FILE>) <martin@adoma.se>
Re: function to read a line & return it <emschwar@rmi.net>
Re: function to read a line & return it <cassell@mail.cor.epa.gov>
Re: Graphing tools for use with Perl mmo2@my-deja.com
Re: hello looking for script <cassell@mail.cor.epa.gov>
Re: How many questions about localtime? <martin@adoma.se>
Re: how to change a line of text in a file? <cassell@mail.cor.epa.gov>
How to do a 'find -follow ..' in perl? <martin@unix-ag.uni-siegen.de>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 22 Jun 1999 16:13:22 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: 2 simple (not to me tho) questions
Message-Id: <3771b60f.10629745@news.skynet.be>
Tom Christiansen wrote:
>Compare:
>
> @var = qw/grok this/;
> fn( @var );
> fn("@var");
[etc.]
Don't forget this one:
$ref = [qw/grok this/];
fn($ref);
fn("$ref");
Bart.
------------------------------
Date: 22 Jun 1999 12:38:44 -0400
From: Jason Reed <jcreed@cyclone.jprc.com>
Subject: Re: 2 simple (not to me tho) questions
Message-Id: <a13dzkur57.fsf@cyclone.jprc.com>
Tom Christiansen <tchrist@mox.perl.com> writes:
> :>There are enough situations where fn("$var") is different from fn($var)
> :>that you would be doing yourself a favor if you were to get out of
> :>the habit. It's confusing at best, dangerous at worst.
> :
> : It is neither confusing or dangerous.
>
> Golly, Maude, I think I caught me a live one!
>
> Compare:
...
Also:
sub inc { ++$_[0] }
$a = 7;
$b = 7;
inc $a
results in $a == 8.
inc "$b"
evaluates to 8 but leaves $b intact. And, of course,
inc 7
is an error.
---Jason
------------------------------
Date: Tue, 22 Jun 1999 12:34:32 -0400
From: brian@pm.org (brian d foy)
Subject: Re: [q] Timing of a simple looping cycle PERL vs C
Message-Id: <brian-ya02408000R2206991234320001@news.panix.com>
In article <Pine.LNX.3.96.990622182831.31976A-100000@localhost>, Augur the Genius <augur@icelord.net> posted:
> --[a perl snippet d.pl begin]--------------------------
> #!/usr/bin/perl
> for ($i=1; $i<=5000000; $i++){++$a;} print $a, "\n";
> --[a perl snippet d.pl ends]---------------------------
>
> --[a c snippet b.c begin]------------------------------
> #include <stdio.h>
> main() {long int i,a=0;for (i=1;i<=5000000;i++) a++;printf("%u\n",a);}
> --[a c snippet b.cl ends]------------------------------
> Don't you think that 14 seconds for a perl variant is too far against even
> 0.25sec for .c variant?
you should also test the null Perl script so you can have an idea
of how much of that time is Perl overhead. for larger programs that
do a lot of stuff, the Perl overhead will be insignificant.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: 22 Jun 1999 10:05:52 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: A month behind using localtime(time) ?
Message-Id: <376fb460@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
Mark Conlin <Mark.Conlin@bridge.bellsouth.com> writes:
:Becuase I do not have a good book with me right now and in addition
:my connection is so slow that it is almost impossible to search
:through faqs online.
That is inadequate and irrelevant. It's also wrong. I don't care if
you're a Prisoner of Bill. I don't care that you couldn't type in a
command line to save your life. Perl comes with complete documentation.
Every single place where perl is, there's its complete documentation
waiting for you, calling out to you. We didn't spend years of our lives
for you to ignore it. If you don't have its docs, you don't have perl.
Reinstall until you find them. Make sure to reboot a lot. You have
Perl documentation. Use it. Read it. Search it. Grep it. Write your
own searchers. Perl and this newsgroup shall not adapt themselves to
the Microsoft illiterati. *You* shall adapt to us, or you shall fetch
us our fries. Chop-chop!
--tom
--
"Politics is a pendulum whose swings between anarchy and tyranny are fueled by
perennially rejuvenated illusions."
- Albert Einstein
------------------------------
Date: 22 Jun 1999 10:06:44 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: A month behind using localtime(time) ?
Message-Id: <376fb494@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
Mark Conlin <Mark.Conlin@bridge.bellsouth.com> writes:
:> Stop programming by guesswork, or take up another trade.
:I don't have a reference book here and my connection is so terrible
:that it makes using the web faqs impossible.
Irrelevant. It's on your system. Read it or quit programming.
What the MicroHell is this world coming to?
--tom
--
Fine, let them give me the endless crap. --Andrew Hume
------------------------------
Date: 22 Jun 1999 16:13:52 GMT
From: M.Ray@ulcc.ac.uk (Malcolm Ray)
Subject: Re: A month behind using localtime(time) ?
Message-Id: <slrn7mvdi0.4cp.M.Ray@carlova.ulcc.ac.uk>
On Tue, 22 Jun 1999 11:42:03 -0400, Mark Conlin
<Mark.Conlin@bridge.bellsouth.com> wrote:
>> Stop programming by guesswork, or take up another trade.
>
>Now, be nice. If is so troublesome of a task to read and reply to
>this message that you feel the need to insult me then why did you
>do it ? No one is forcing you to respond.
>
>I don't have a reference book here
If you have Perl on your system, you already have the docs.
>and my connection is so terrible
>that it makes using the web faqs impossible.
So, instead, you thought you'd send your question worldwide for
countless thousands of people to waste time reading. Doesn't that
seem a little inconsiderate to you?
>In addition the fact that
>I did not understand the behavior of a perl command does not mean that
>I need to switch jobs.
>
>Mark
Judging by the questions asked on clpm, and examining CGI programs
written in Perl, there are a *lot* of programmers whose approach to
programming is to cut and paste existing code and fill in the gaps
with guesswork. They turn up in clpm when this technique isn't enough.
If you're not one of those programmers, great; but if you are one,
stop right now, because it's *not* an effective way to program, and
can land you and your users/customers/employer in a world of pain.
This is particularly true in the case of localtime, because if you
haven't read what the Perl documentation has to say about it, there's
an excellent chance that your code will roll over and die in a little
over six months.
BTW, since you're posting from bellsouth, you might like to know you
can thank Bell Labs for localtime's behaviour!
--
Malcolm Ray University of London Computer Centre
------------------------------
Date: 22 Jun 1999 10:28:33 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: A month behind using localtime(time) ?
Message-Id: <376fb9b1@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, M.Ray@ulcc.ac.uk (Malcolm Ray) writes:
:Judging by the questions asked on clpm, and examining CGI programs
:written in Perl, there are a *lot* of programmers whose approach to
:programming is to cut and paste existing code and fill in the gaps
:with guesswork.
Those are not programmers -- those are script kiddies, which
were defined by Eric Bohlman as:
Someone who attempts to write Perl (or, rarely, other) code, often
for pay, without having even an elementary mental model of how
the language works and with little or no desire to develop one.
IOW, someone who thinks at the level of "tell me what to type to
make ___ happen," or alternatively someone who can recite code but
can't comprehend it. Not to be confused with a novice programmer,
who is someone who realizes that he needs a mental model to code
properly and is in the early stages of developing one. The script
kiddie treats any piece of Perl code as a black box no matter what
its size is. The novice programmer, OTOH, tries to understand code.
--tom
--
MSDOS is a Neanderthal operating system -- Henry Spencer
------------------------------
Date: Tue, 22 Jun 1999 09:04:25 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: aarrggghhh opening a file...
Message-Id: <Pine.GSO.4.02A.9906220903360.1698-100000@user2.teleport.com>
On Tue, 22 Jun 1999, Casey R Tweten wrote:
> OK dude, as I have learned in the past, you must do your error checking
> before posting something like this here.
>
> open IDOUT, ">$forumfile" || die "Couldn't open: $!";
That's a good try, but it's not doing what you want. Check the precedence
chart and try again. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 22 Jun 1999 09:06:41 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: aarrggghhh opening a file...
Message-Id: <Pine.GSO.4.02A.9906220904530.1698-100000@user2.teleport.com>
On Mon, 21 Jun 1999, Oreg Dixie wrote:
> $forumfile = param("forumfile"); #form's textfield
>
> open(IDOUT, ">$forumfile");
Besides not checking the return value of open, you're letting someone
(probably anyone in the world) try to overwrite any file on your system.
Probably that's not what you want to do. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 22 Jun 1999 12:51:11 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Beginner Perl Question
Message-Id: <x7674g89hc.fsf@home.sysarch.com>
>>>>> "A" == Abigail <abigail@delanet.com> writes:
A> Howie (noone@home.com) wrote on MMCXXI September MCMXCIII in
A> <URL:news:uLCb3.3848$Lx2.3040@news.rdc1.sdca.home.com>: // Is it
A> possible to execute a script every 2 hours ( I need to delete
A> cached // files) using Perl or a CGI script?
A> I have to admit "every 2 hours" and "CGI script" sounds strange to me.
A> One would like to run a CGI script on demand, just as water that comes
A> out of the faucet on demand, and not just every 2 hours.
you could run an LWP process out of cron which hits the cgi every two
hours.
:-)
this is not that stupid if your web host won't let you access cron. but
using a web host like that is stupid to begin with.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Tue, 22 Jun 1999 15:25:46 GMT
From: murrella@my-deja.com
Subject: Changing Nt service startup options
Message-Id: <7ko9ta$bn4$1@nnrp1.deja.com>
I'm using perl for basic system administration and i'm looking for a
way to change the starup options for NT services. Especially the logon
as option (I want to change the password for "this account")
I've looked at win32-service but this only allows the service to be
started, stopped, etc.
has anyone tackled this problem before [1]??
TIA
Andy Murrell
[1] I guess win32-api could be used, but i'm not sure where to begin
using it.......
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 22 Jun 1999 09:07:40 -0700
From: Tim Forman <forman@cybersource.com>
Subject: Re: Database Manipulation
Message-Id: <376FB4CC.F99D2E6C@cybersource.com>
I have done this before where you take the database values and put them
into a hash, so you can call them out on demand. You can then put them in
the form cells from the perl script as you write the html something like
this.
#%x is some hash with sales values in it
#put all of your form stuff in the print area
print <<EOF;
<form name="forecast" action="update.pl" method=POST>
<input type=text size=12 name="sales_numbers" value="$x{sales_value}">
<input type=button value=" SUBMIT " onClick =
"Check_Fields(document.forecast);">
EOF
You'll need one form element for each sales number you'd like for them to be
able to
edit of course. Then when you click on the submit you can pass the values to
another
cgi to do the update. I use JavaScript to do all of the error checking in
the form. You
can also use JavaScript to calculate the field values in the form real time.
This actually works well for the user. I'm sure others have ideas as well.
Tim
Dave Cross wrote:
> paulm@dirigo.com wrote:
> >
> > I currently have a internal website that runs a perl script that will
> > pull that values of a sales forecast from our database into a dynamic
> > web page via DBI and an SQL string. What I want to do now is give the
> > sales people the ability to edit their specific forecasts via the web.
> >
> > The forecast is currently only viewable. I want to right a script that
> > will grab all the values that the "view" script pulled out of the
> > database and put them into a text box. Then I can set the script up to
> > use an SQL string (UPDATE) to update the sales forecast.
> >
> > Pretty simple right? Well, if you know please give me a hint :)
>
> Sounds simple enough. What was your question?
>
> Dave...
------------------------------
Date: Tue, 22 Jun 1999 12:31:06 -0400
From: brian@pm.org (brian d foy)
Subject: Re: DBI / mSQL installion problem: Fetchhash not working
Message-Id: <brian-ya02408000R2206991231060001@news.panix.com>
In article <376fa6f8.5733598@news.attcanada.net>, dico@internetworks.ca (Dico Reyers) posted:
> #!/usr/bin/perl
> %hash=$sth->fetchhash(); #This gives the follwoing error!!
fetchhash is not a DBI method. use fetchrow_hashref instead.
see the DBI documentation for more details.
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: Tue, 22 Jun 1999 16:11:19 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: DIE DIE DIE Prisoners of Bill (was: How many questions about localtime?)
Message-Id: <376fb586.10493256@news.skynet.be>
Tom Christiansen wrote:
>I strong encourage *everyone* to mail the whole flipping manual to *anyone*
>who asks an RTFM *everytime* they do so.
That will encourage them to post using an invalid e-mail address.
Bart.
------------------------------
Date: 22 Jun 1999 10:31:52 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: DIE DIE DIE Prisoners of Bill (was: How many questions about localtime?)
Message-Id: <376fba78@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, bart.lateur@skynet.be (Bart Lateur) writes:
:>I strong encourage *everyone* to mail the whole flipping manual to *anyone*
:>who asks an RTFM *everytime* they do so.
:That will encourage them to post using an invalid e-mail address.
That will encourage me to track down their real addresses and place these
on a web page and as a periodic posting here to help all the wonderful
helpful happy shiny denizens hereof to integrate convenient repliability
into their newsreaders all the better to help these idiots.
--tom
--
/* This bit of chicanery makes a unary function followed by
a parenthesis into a function with one argument, highest precedence. */
--Larry Wall in toke.c from the perl source code
------------------------------
Date: 22 Jun 1999 16:19:55 GMT
From: "William" <bivey@teamdev.com>
Subject: Executing commands via backticks
Message-Id: <01bebccb$1b877e00$583c08cf@bill.jump.net>
Howdy,
I've got the following piece of code that's been handed down to me and,
while I can only assume it worked a long time ago on a system far far
away... it doesn't work on my systems (Windows '95 and NT) for some reason.
$output=`$commandline`;
$rv= $?;
Where $commandline contains "pkzip out.zip in.dat" or something very
similar. Pkzip resides in the current directory, as well as in a utility
directory that's in the path. The only way I can get this to work, however,
is to specify the complete path to the pkzip executable. (The input and
output files have no trouble with relative paths.) For our purposes, we
can't easily specify the directory containing pkzip, so that's not a good
solution.
Copying the string's contents to the DOS command line and executing it
there works just fine. I've checked the docs and none of the caveats
therein seem to apply. Anyone have a suggestion? Any help is, of course,
desperately appreciated.-Wm
------------------------------
Date: Tue, 22 Jun 1999 12:09:04 -0400
From: evil Japh <jeffp@crusoe.net>
Subject: Re: Exporting variables from a module
Message-Id: <Pine.GSO.3.96.990622120456.10236H-100000@crusoe.crusoe.net>
> use strict;
>
> use vars qw(@ISA @EXPORT);
> use Exporter;
> @ISA = qw(Exporter);
> @EXPORT = qw(buildCheckboxes $dbPath $entryFile $entriesPath
> $catagoriesFile $catagoriesPath
> $catTemplate $catRecordSize $keywordsFile $keywordsPath
> $unpackEntryTemplate
> $packEntryTemplate $entrySize $keywordsTemplate $keywordsRecordSize
> );
>
> $dbPath = '/path/to/database/files/';
Do you know what C<use strict;> means? It means (among other things) you
need to qualify your variables in one of several ways:
use vars qw( $variable @this %that ); # Global variables
my ($other, @thing, %here); # Scoped variables
$::variable = 10; # assumes current package
@pkg::array = (10,100); # uses package 'pkg'
You only say C<use vars qw( @ISA @EXPORT );>. You need to predeclare the
other variables, such as $dbPath, as well.
> "Global symbol xyz requires explicit package name..."
An explicit package name is shown here:
$Citizenship::dbPath = "...";
# or
$::dbPath = "..."; # this uses the current package
Read some documentation on strict.pm for more information.
--
Jeff Pinyan (jeffp@crusoe.net)
www.crusoe.net/~jeffp
Crusoe Communications, Inc.
732-728-9800
www.crusoe.net
------------------------------
Date: Tue, 22 Jun 1999 18:03:28 +0100
From: "Martin Quensel" <martin@adoma.se>
Subject: Re: foreach and while (<FILE>)
Message-Id: <7kodaf$b5h$1@cubacola.tninet.se>
Chi-Chiang Shei skrev i meddelandet <376FA74E.63C6@dai.ed.ac.uk>...
>Hello:
>
>Why does while (<FILE>) work only once (for the first element of @array)
>in the following extract:
>
> foreach $element (@index) {
> while (<FILE>)
> print if (/$element/)
> }
> }
>
>How can I do the while bit for each element of @index?
What are you trying to do??
Best regards Martin Quensel
------------------------------
Date: 22 Jun 1999 10:06:51 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: function to read a line & return it
Message-Id: <xkfaetsmd7o.fsf@valdemar.col.hp.com>
"John A. Grant" <zjagrantz@znrcanz.gcz.ca> writes:
> Ok, that makes sense. Since I'm calling the function like this:
> my $lineoftext=ReadLine();
>
> then it should either "return $_" (success) or "return undef" (failure).
Not quite. If you "return undef;", then what will be returned is this:
(undef)
What you want is
undef
Note the difference: one is an array containing one entry, which has the
value undef. The other is undef itself. You want "return ();" or simply
"return;" by itself.
> >If you put a space after the two hyphens, then savvy newsreaders won't
> [...]
>
> The "--" isn't in my .sig file - the newsreader adds "--", so
> I don't have the choice.
Get a better newsreader, then.
-=Eric
------------------------------
Date: Tue, 22 Jun 1999 09:34:27 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: function to read a line & return it
Message-Id: <376FBB13.BE2A843C@mail.cor.epa.gov>
John A. Grant wrote:
>
> Mike Coffin wrote in message <8p6iu8ixj3a.fsf@Eng.Sun.COM>...
> >"John A. Grant" <zjagrantz@znrcanz.gcz.ca> writes:
> >
> >> It seems 'fragile' to rely on it getting the proper context to
> >> determine what "return;" should actually return. After all,
> >> "sub" doesn't exactly specify the type of the returned value.
> >> I'm not used to letting the interpreter make these decisions.
> >
> >This is a fundamental and pervasive feature of Perl, so if you want to
> >use Perl you have to get used to it. (Most languages have their
> >obsessive little quirks; chalk this one up along side Python's
> >whitespace and Lisp's parentheses.)
>
> Thanks for the quiet perspective on the issue. That's more
> helpful than shouting at me to "stop programming in Perl". :)
Not all of us are that grumpy, you know [yes, I saw the smiley].
I prefer to think of list vs scalar context as one of the
strengths of Perl, rather than one of the annoyances. Once you
learn to grok it, you'll find that it is incredibly useful.
@time_stuff = localtime;
$time_stuff = localtime;
for example. It actually isn't fragile at all. However,
sometimes the *programmer* is the fragile component of the
system. :-)
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Tue, 22 Jun 1999 15:28:23 GMT
From: mmo2@my-deja.com
Subject: Re: Graphing tools for use with Perl
Message-Id: <7koa27$bo8$1@nnrp1.deja.com>
In article <7kmf4k$ntr$1@nnrp1.deja.com>,
Howard Jow <ppith@my-deja.com> wrote:
> In article <376DE7ED.CA018D85@se.bel.alcatel.be>,
> spillemw@se.bel.alcatel.be wrote:
> > I'm very happy with the perl gifgraph package.
> >
>
> I like GD.pm myself. Check it out, there should be a link
> to download it somewhere on perl.com in the modules section.
> Here's a great link for learning how to use it:
>
> http://www-genome.wi.mit.edu/pub/software/WWW/GD.html
>
> Have fun.
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
>
The modules PDL and PerlMagick give you some advanced capabilities like
3D graphs, animated GIF's, filters, ...
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Tue, 22 Jun 1999 09:48:41 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
To: "/^PbG`MbQ^\\" <P-aCMa-N@webtv.net>
Subject: Re: hello looking for script
Message-Id: <376FBE69.D8532B6E@mail.cor.epa.gov>
[courtesy cc sent to poster]
P-aCMa-N@webtv.net wrote:
>
> theres a script that lets you Upload to any server that has ftp access
> to your account on that server. theres places called TransLoader and
> FreeLoader. can someone please find this fo rme. i need it and im on
> webtv which is a needed thing. heres one of the addys.
> http://transload.starblvd.net i dont know if u can view the page but if
> u need more info please post or email me. thannx :^)
I'm sorry, but you've made a mistake. This newsgroup is
devoted to Perl programming. If you need a Perl script and
want to write it yourself, then you can get coding advice
here. If you want it found for you, then you'll do much
better using the web to search for it. I hope this helps
clarify the situation.
Furthermore, if you're using a WebTV, will you be able to
*use* any such script on your machine? The WebTV is
extremely limited in its utility and its system capabilities.
I hope that you've looked into this already adn know that it
will work for you.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Tue, 22 Jun 1999 18:02:00 +0100
From: "Martin Quensel" <martin@adoma.se>
Subject: Re: How many questions about localtime?
Message-Id: <7kod7l$b48$1@cubacola.tninet.se>
Dave Cross skrev i meddelandet <376FAE76.D7F4C713@dave.org.uk>...
>Matt Sergeant wrote:
>>
>> How many questions about the return values of localtime() does it take
>> before one goes mad reading this ng?
>
>I don't know, how many questions about the return values of localtime()
>*does* it take before one goes mad reading this ng?
>
Bet you can use localtime() to find out!
if($question_about_localtime){
if($timespan >$timelimit){
$result = GoMad(Blow_up_Brain);
}
}
Bestregards
Martin Q
------------------------------
Date: Tue, 22 Jun 1999 09:16:36 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: how to change a line of text in a file?
Message-Id: <376FB6E4.8AB2601A@mail.cor.epa.gov>
Jody Fedor wrote:
> Tom Christiansen wrote in message <376ec28e@cs.colorado.edu>...
>
> >The only two "links" are to DB_File and to perlrun. [SNIP]
>
> Tom, are these available on the web? I'm using Active States' Active Perl
> with all documentation loades but searches come up empty on DB_File. Any
> help here?
Take a look in the HTML docs. Scroll down the left-hand frame
until you come to the 'Module docs'. Under 'Root Libraries',
in the alphabetical listing you'll find DB_File right between
Cwd and diagnostics. Voila. Or, as we said in high-school
French class to bug the teacher, "Viola!"
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 22 Jun 99 16:36:16 GMT
From: Martin Leja <martin@unix-ag.uni-siegen.de>
Subject: How to do a 'find -follow ..' in perl?
Message-Id: <376fbb80.0@rainbow.hrz.uni-siegen.de>
hi,
I would like to do something like 'bash$ find -follow -name "*.jpg"' in perl
but the mod File::Find doesn't offer an option to follow symlinks, therefore find2perl also fails:
bash$ find2perl -follow
Unrecognized switch: -follow
Is there another find mod out there that can follow symlinks or is there a way to accomplish
this with the existing mod?
--
Regards, martin@unix-ag.org
------------------------------
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 6093
**************************************
