[13358] in Perl-Users-Digest
Perl-Users Digest, Issue: 768 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Sep 12 03:07:17 1999
Date: Sun, 12 Sep 1999 00:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 12 Sep 1999 Volume: 9 Number: 768
Today's topics:
Re: /etc/passwd <wyzelli@yahoo.com>
[Q]: use imagemagick' "convert" in pipe... (ahq)
adding garbage to a file <tfiedler@elvis.icontech.com>
Re: countdown timer on web page (Abigail)
division by zero <raggmopp@ix.netcom.com>
Re: division by zero <jeff@vpservices.com>
Home command? <dcr@canville.net>
Re: Home command? (Abigail)
Re: Home command? <sjs@yorku.ca>
Re: how can I check a list of words to see which ones a (Burt lewis)
Object version 0.21 does not match bootstrap parameter <alrope@zaz.com.br>
Re: perl -w strangeness <rootbeer@redcat.com>
Re: perl -w strangeness (Abigail)
Re: PERL4 vs PERL5 (Abigail)
Re: Possibly Simple problem? <madebeer@igc.apc.org>
Re: Possibly Simple problem? <madebeer@igc.apc.org>
Re: Pros/cons of using Perl vs. C to develop web site? (Abigail)
Re: s/// problem <ab@cd.com>
Re: s/// problem <rootbeer@redcat.com>
Re: s/// problem <JFedor@datacom-css.com>
Re: s/// problem (Abigail)
Searching subdirs with unknown names in known dirs. <jfrey@bon.net>
way to print all variables ? (Ryan Ngi)
Re: Y2K bugs on the Internet <news@elmbronze.demon.co.uk>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 12 Sep 1999 14:10:37 +0930
From: "Wyzelli" <wyzelli@yahoo.com>
Subject: Re: /etc/passwd
Message-Id: <89GC3.17$q66.2561@vic.nntp.telstra.net>
Abigail <abigail@delanet.com> wrote in message
news:slrn7tlvb3.71l.abigail@alexandra.delanet.com...
>
<Really bad re-write of a good song snipped>
>
> Abigail
> --
Wyzelli Pukes!
------------------------------
Date: 12 Sep 1999 01:21:00 GMT
From: ahq@bigfoot.com (ahq)
Subject: [Q]: use imagemagick' "convert" in pipe...
Message-Id: <8E3F1027Bahqbigfootcom@nntp.smartdna.com>
[posted and mailed]
Hi, All:
i like to generate eps then transfer to gif.
(use gnuplot 3.7, ImageMagick's convert)
is there a perl script which can utilize unix pipe function
and won't generate intermedia file?
this is the script i have now:
----------------------------------------------------------
$out_eps = "/SPC/html/output/test_5.eps";
$out_gif = "/SPC/html/output/test_5.gif";
my $GNUPLOT = '/home/gnuplot/bin/gnuplot';
$|=1;
open (GRAPH,"| $GNUPLOT > $out_png_") || print " not $out_eps\n" ;
my $buf ="";
$buf .= "set term postscript eps color dashed 'Times-Romans' 18\n";
$buf .= "set linestyle 1 lt 12 lw 5 pt 7 ps 2\n"; #data1
......
......
$buf .= "plot.......";
print GRAPH "$buf \n";
close GRAPH;
# this is the line i like to combined into the pipe with the gnuplot.
system(" /home/gnuplot/bin/convert -density 144 $out_eps $out_gif");
------------------------------------------------------------
Is the a way i can put the "convert" (from ImageMagick) into the pipe?
( the usage for convert: convert xx.eps xx.gif)
Thanks.
Q
ps: aditional email to me would be appriciated. :)
------------------------------
Date: Sat, 11 Sep 1999 11:08:17 -0400
From: "T Fiedler" <tfiedler@elvis.icontech.com>
Subject: adding garbage to a file
Message-Id: <37da7770.0@mail.icontech.com>
i need to add a line of garbage:
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
after every 500 lines in a file,
im not very adept at perl but i try when i get a chance:
heres what i have so far 7 im stumped:
open(FH, "+>> !mb_out.txt") || die ":$!";
while(<FH>) {
## <---TEMP CODE--->
$count++;
## <--END TEMP CODE--->
if ($_) {
open(NEW, "+>> new.txt") || die ":$!";
select NEW;
print;
close NEW;
}
}
## <---TEMP CODE--->
open (STATS, "+>> stats.txt") || die ":$!";
select STATS;
print"There are $count Lines in your file";
close STATS;
## <--END TEMP CODE--->
close FH;
------------------------------
Date: 12 Sep 1999 00:55:00 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: countdown timer on web page
Message-Id: <slrn7tmg6o.7c5.abigail@alexandra.delanet.com>
Dan and/or Shelly (wedeking@msa.attmil.ne.jp) wrote on MMCCII September
MCMXCIII in <URL:news:7rephu$r31$1@news.misawa.attmil.ne.jp>:
"" I want to use perl to create a web page count down timer that will display
"" how many days I have left here in Misawa, Japan.
That's easy.
"" Then I can set the web
"" page as my desktop background. Will this work?
I dunno. That's not a Perl question. That depends on whatever program(s)
make your background.
"" Is there a way to make it
"" continuously update and show how many Months, Days, Hours, Minutes, and
"" seconds I have left in Misawa?
It's fairly trivial to continuously update a document.
{ my $now = time;
do_whatever_to_update_page ();
sleep ($now + 1 - time);
redo;
}
"" My wife and I are leaving Japan on 1
"" December 2000.
And you know the time when your plane leaves up to the second?
Abigail
--
You must really hate Japan....
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sat, 11 Sep 1999 22:52:38 -0600
From: RAGGMOPP <raggmopp@ix.netcom.com>
Subject: division by zero
Message-Id: <37DB3195.E50FF975@ix.netcom.com>
A little help for a newbie:
I am in the process of learning perl and really have just begun.
I have written a simple and short little script that involves some math.
Some of that math includes division and to make a long story short, it
is possible
to exit the loop and thereby do a division by zero. Not good.
I have looked in the camel book, the Que book, and a SAMS 21 day book. I
cannot find
a procedure for avoiding or creating a statement to the zero division
issue.
Partial script is listed below:
do {
$choice = <STDIN>;
chop choice;
if (($choice eq A) || ($choice eq B) || $choice eq C) {
$choice = $veg;
$veg++;
}
elsif (($choice eq D) || ($choice eq E) || ($choice eq F)) {
$choice = $fruit;
$fruit++;
}
} until ($choice eq X);
$tot = $veg + $fruit;
$perveg = ($veg / $tot) * 100;
$perfru = ($fruit / $tot) * 100;
As can be seen, if $tot == 0 then the script goes kaput.
I am seeking some help or directions to the location where I can find
the information.
Help is greatly appreciated and my thanks to all.
Rick
raggmopp@ix.netcom.com
------------------------------
Date: 12 Sep 1999 05:21:40 GMT
From: Jeff Zucker <jeff@vpservices.com>
To: RAGGMOPP <raggmopp@ix.netcom.com>
Subject: Re: division by zero
Message-Id: <37DB3765.DC3FDD69@vpservices.com>
RAGGMOPP wrote:
> $tot = $veg + $fruit;
> $perveg = ($veg / $tot) * 100;
> $perfru = ($fruit / $tot) * 100;
>
> As can be seen, if $tot == 0 then the script goes kaput.
Exactly! You've got the logic of it down pat. And you even have the
correct Perl word to look up (if).
In order not to go kaput, you need to rephrase the if statement:
*if* $tot is something other than zero, do do the division, *else*
don't:
$tot = $veg + $fruit;
if( $tot ) {
$perveg = ($veg / $tot) * 100;
$perfru = ($fruit / $tot) * 100;
)
else {
$perveg = 0;
$perfru = 0;
}
Alternatively you could rephrase it along the lines of *if* $tot is
zero, go back and ask the user for differnt input, *else* do the
division. Either way, an IF will prevent the script from attempting a
division by zero.
--
Jeff
------------------------------
Date: Sun, 12 Sep 1999 00:36:59 +0000
From: "Dan C. Rinnert" <dcr@canville.net>
Subject: Home command?
Message-Id: <37DAF5A7.6BA7@canville.net>
Does Perl have the equivalent of the HOME command of old computers; i.e.
something that will clear the screen and start printing at the top of
the newly cleared screen?
Thanks,
Dan
------------------------------
Date: 12 Sep 1999 01:13:33 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Home command?
Message-Id: <slrn7tmh9h.7c5.abigail@alexandra.delanet.com>
Dan C. Rinnert (dcr@canville.net) wrote on MMCCIII September MCMXCIII in
<URL:news:37DAF5A7.6BA7@canville.net>:
!! Does Perl have the equivalent of the HOME command of old computers; i.e.
!! something that will clear the screen and start printing at the top of
!! the newly cleared screen?
No.
Clearing the screen is terminal dependent. Of course, Perl is quite
capable of outputting whatever character sequence you need to clear
the screen.
What exactly you need to output however, isn't a Perl question.
Abigail
--
perl -we 'print q{print q{print q{print q{print q{print q{print q{print q{print
qq{Just Another Perl Hacker\n}}}}}}}}}' |\
perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w | perl -w
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 12 Sep 1999 02:11:05 -0500
From: Steven Smolinski <sjs@yorku.ca>
Subject: Re: Home command?
Message-Id: <m3d7vo61va.fsf@hank.yorku.ca>
"Dan C. Rinnert" <dcr@canville.net> writes:
> Does Perl have the equivalent of the HOME command of old computers; i.e.
> something that will clear the screen and start printing at the top of
> the newly cleared screen?
Why not do this?
perl -we 'system "clear";'
Steve
------------------------------
Date: Sun, 12 Sep 1999 02:10:37 GMT
From: burt@ici.net (Burt lewis)
Subject: Re: how can I check a list of words to see which ones are contained in another list of words?
Message-Id: <xYDC3.1$gN.5475@news.goodnet.com>
In article <7rep6a$qpp$1@news.misawa.attmil.ne.jp>, wedeking@msa.attmil.ne.jp
says...
>
>How can I check a list of words to see which ones are contained in another
>list of words? I have a file with a long list of words, a different word on
>each line. I want to find an easy way to go through this list and check
>each word to see if it is contained in another file with an even longer list
>of words. Can perl do this easily?
>
>Dan
>wedeking@msa.attmil.ne.jp
>
>
Sure can!
------------------------------
Date: Sun, 12 Sep 1999 00:36:05 -0300
From: "Alexandre" <alrope@zaz.com.br>
Subject: Object version 0.21 does not match bootstrap parameter ?
Message-Id: <7rf6pd$ibb$1@srv4-poa.nutecnet.com.br>
Please Programmers,
I installed the DBD-ODBC in my system, and when a run a simple programm
appear the message:
" Install_driver(ODBC) failed: DBD::ODBC object version 0.21 does not match
bootstrap parameter
0 at C:\Perl\5.005\lib/MSWin32-x86-object/DynaLoader.pm line 187."
What should i make ?
The package was installed by VMP in the Internet.
Tanks,
Alexandre Roberto Perestrelo
alrope@zaz.com.br
------------------------------
Date: Sat, 11 Sep 1999 21:06:48 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: perl -w strangeness
Message-Id: <Pine.GSO.4.10.9909112104110.25903-100000@user2.teleport.com>
On Fri, 10 Sep 1999, John Cokos wrote:
> I'm getting strange errors when running perl -w on a program:
>
> Error:
> Use of uninitialized value at test.cgi line 119.
>
> Line 119:
> $global{'action'}="$PROG_URL";
>
> First line in program:
> use vars qw (%global,%users,$misc,$sth,$rc,@rows);
Odd, if that's your first line and you're using -w as you claim, you
should get the error message:
Possible attempt to separate words with commas at - line 1.
Unless, of course, someone has hacked that error out of your copy of Perl,
thinking that that was so obvious that Perl needn't warn you about it.
But wait! You're getting a very helpful, clear error message from line
119. Could it be that, perhaps, you're using an uninitialized value on
that line? Say, $PROG_URL, maybe?
> Why would that line cause an error, when clearly, it was defined.
Nothing you've shown us has been clearly defined. Heck, even you use of
quoting is suspect.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 12 Sep 1999 01:10:41 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: perl -w strangeness
Message-Id: <slrn7tmh45.7c5.abigail@alexandra.delanet.com>
John Cokos (jcokos@ccs.net) wrote on MMCCI September MCMXCIII in
<URL:news:37daff5e_4@goliath.newsfeeds.com>:
^^ I'm getting strange errors when running perl -w on a program:
^^
^^ Error:
^^ Use of uninitialized value at test.cgi line 119.
^^
^^ Line 119:
^^ $global{'action'}="$PROG_URL";
^^
^^ First line in program:
^^ use vars qw (%global,%users,$misc,$sth,$rc,@rows);
That would create one variable, a hash, with the rather strange name
`%global,%users,$misc,$sth,$rc,@rows'. If you really ran with -w, you
should have seen a message about your use of `,' inside qw //.
You want to use a space there, not a comma.
However, that doesn't solve your problem. Line 119 uses 2 variables,
%global, and $PROG_URL. Why you are stringifying $PROG_URL is totally
unclear to me, but if you want to stringify an undefined value, Perl
will complain about a use of unitialized value.
Did you set $PROG_URL to a defined value? Note that simply adding
$PROG_URL to use vars doesn't help. Not stringifying would get rid
of the warning, but then $PROG_URL is still undefined, and probably
not what you want.
^^ Why would that line cause an error, when clearly, it was defined.
Huh? Nothing in your posting shows $PROG_URL is defined.
^^ I've replace "use vars qw" with "my" to try and localize, but the same
^^ error shows.
It should get rid of at least one warning :-)
Furthermore, note that just interchanging "use vars" and "my" isn't a good
aproach. "use vars" creates *package* variables, while "my" creates lexicals.
Different beasts, different purposes.
Unless you really need package variables, use lexicals. If you don't
know what you need, use 'my'. If it doesn't do what it is supposed to do,
you could always try use vars later.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 12 Sep 1999 01:18:47 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: PERL4 vs PERL5
Message-Id: <slrn7tmhja.7c5.abigail@alexandra.delanet.com>
David Salvador Flores (dsf3g@node8.unix.Virginia.EDU) wrote on MMCCIII
September MCMXCIII in <URL:news:7rerg3$kuc$1@murdoch.acc.Virginia.EDU>:
// In article <37D1459C.A5A1EFE4@earthlink.net>,
// Natalie Murphy <nmurphy708@earthlink.net> wrote:
// >What's a good reference to understand the differences between PERL4 and
// >PERL5? Can they run at the same time on the same machine?
// >
//
// To answer your second question: Yes, they can both run on the same
// machine. I learned Perl last semester at UVA (on my own) and was
Ah, the University of Amsterdam.... ;-)
// bedevilled early on with crazy errors that didn't make sense to me until i
// asked someone on this newsgroup and they suggested that my machine might
// be running Perl4. It was. When I cornered one of the school's sysadmins,
// she told me that to run my scripts in Perl5 I had to call Perl5. So
// instead of typing "Perl test.pl" I had to type "Perl5 test.pl" Kinda
// silly. Don't know why UVA did it that way. But it works.
They probably have lots of programs that use #!/usr/local/bin/perl (or
wherever perl is installed) and are written in the perl4 era, that will
either break, or of which people don't have the resources to find out
whether it will break, under perl5. Rather spending a lot of resources
in renaming all occurances of 'perl' to 'perl4', by the time perl5 came
around, it was a lot simpler to require people to use perl5 instead
of perl.
Abigail
--
sub camel (^#87=i@J&&&#]u'^^s]#'#={123{#}7890t[0.9]9@+*`"'***}A&&&}n2o}00}t324i;
h[{e **###{r{+P={**{e^^^#'#i@{r'^=^{l+{#}H***i[0.9]&@a5`"':&^;&^,*&^$43##@@####;
c}^^^&&&k}&&&}#=e*****[]}'r####'`=437*{#};::'1[0.9]2@43`"'*#==[[.{{],,,1278@#@);
print+((($llama=prototype'camel')=~y|+{#}$=^*&[0-9]i@:;`"',.| |d)&&$llama."\n");
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sat, 11 Sep 1999 18:38:27 -0700 (PDT)
From: Michael de Beer <madebeer@igc.apc.org>
Subject: Re: Possibly Simple problem?
Message-Id: <APC&1'0'50775da2'99b@igc.apc.org>
perldoc -f sort will sort of tell you how to do it.
one example in it is:
# sort SUBNAME LIST
#
# sort using explicit subroutine name
sub byage {
$age{$a} <=> $age{$b}; # presuming numeric
}
@sortedclass = sort byage @class;
You could also check out this tutorial:
http://www.google.com/search?q=cache:57878439&dq=cache:w4.lns.cornell.edu/~pvhp/perl/sort.html
-Michael
------------------------------
Date: Sat, 11 Sep 1999 18:40:31 -0700 (PDT)
From: Michael de Beer <madebeer@igc.apc.org>
Subject: Re: Possibly Simple problem?
Message-Id: <APC&1'0'50775da3'a1f@igc.apc.org>
Here is a better tutorial:
http://www.sysarch.com/perl/sort_paper.html
-Michael
------------------------------
Date: 12 Sep 1999 01:24:50 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Pros/cons of using Perl vs. C to develop web site?
Message-Id: <slrn7tmhum.7c5.abigail@alexandra.delanet.com>
Collin Starkweather (collin.starkweather@colorado.edu) wrote on MMCCII
September MCMXCIII in <URL:news:37DAAE8F.EF93013A@colorado.edu>:
// There are virtually no cons to using Perl over C and a virtual plethora
// of pros.
//
// If you are running Unix/Apache/mod_perl (or, I believe, NT/MIIS/PerlEX
// is comperable, but don't quote me), you don't have to worry about the
// performance penalties.
That entirely depends on what you are doing, doesn't it?
Many website for instance use a database. I certainly would not want to
use a database server written in Perl. I can't picture a web server with
the performance of Apache in Perl either.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sat, 11 Sep 1999 21:05:36 -0500
From: "Blair Heuer" <ab@cd.com>
Subject: Re: s/// problem
Message-Id: <7rf1s0$3r2$1@ash.prod.itd.earthlink.net>
> You need a different concept. Playing with $/ might be an option.
> And use eq, not s///.
Ok thanks. I only have one book on Perl, "Perl for Dummies," and cant find a
desciption on how to use these, seeing as it is mainly an introductory book.
Could you please point me to somewhere on the web or elsewhere where i could
find a desciption of how to use these commands? Thanks again.
------------------------------
Date: Sat, 11 Sep 1999 21:12:25 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: s/// problem
Message-Id: <Pine.GSO.4.10.9909112108460.25903-100000@user2.teleport.com>
On Sat, 11 Sep 1999, Blair Heuer wrote:
> > You need a different concept. Playing with $/ might be an option.
> > And use eq, not s///.
>
> Ok thanks. I only have one book on Perl, "Perl for Dummies," and cant
> find a desciption on how to use these, seeing as it is mainly an
> introductory book. Could you please point me to somewhere on the web
> or elsewhere where i could find a desciption of how to use these
> commands?
Hey, if you want to read about how to use these features of Perl, you're
not a Dummy any more! So, burn that book and you can start reading
something for Smart People. There are some good suggestions in the
perlbook manpage.
eq and s/// are described in the perlop manpage.
$/ is described in the perlvar manpage.
If you use the command 'man perl' or 'perldoc perl' that should get you
started reading the manpages on most systems. If those don't work, ask
your local expert where the perl manpages are.
Have fun with Perl!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sun, 12 Sep 1999 01:36:12 -0400
From: "Jody Fedor" <JFedor@datacom-css.com>
Subject: Re: s/// problem
Message-Id: <7rfc37$qog$1@plonk.apk.net>
Blair Heuer wrote in message <7rf1s0$3r2$1@ash.prod.itd.earthlink.net>...
>Ok thanks. I only have one book on Perl, "Perl for Dummies
>
http://www.datacom-css.com/books/perl.htm
Jody
------------------------------
Date: 12 Sep 1999 00:48:32 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: s/// problem
Message-Id: <slrn7tmfqj.7c5.abigail@alexandra.delanet.com>
Blair Heuer (ab@cd.com) wrote on MMCCIII September MCMXCIII in
<URL:news:7rf1s0$3r2$1@ash.prod.itd.earthlink.net>:
** > You need a different concept. Playing with $/ might be an option.
** > And use eq, not s///.
**
** Ok thanks. I only have one book on Perl, "Perl for Dummies," and cant find a
** desciption on how to use these, seeing as it is mainly an introductory book.
** Could you please point me to somewhere on the web or elsewhere where i could
** find a desciption of how to use these commands? Thanks again.
Why go out of the door if you can find it at home?
Perl comes with a complete and extensive documentation. Use it.
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=>()'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 12 Sep 1999 02:21:13 -0400
From: Joe frey <jfrey@bon.net>
Subject: Searching subdirs with unknown names in known dirs.
Message-Id: <37DB4658.E9C2780D@bon.net>
Hello, I'm using the find module to search for files in a known dir. By
known I mean I know the name. Users are supposed to put their files
here. Sometimes my users create subdirs in the known dir and place their
files there. How do I search for the subdir name? TIA. Joe.
------------------------------
Date: Sun, 12 Sep 1999 06:54:58 GMT
From: ryanngi@hotmail.com (Ryan Ngi)
Subject: way to print all variables ?
Message-Id: <37db4b44.69849166@news.inet.co.th>
is there any way to print all variable of the language
include
%SIG,and special variable,%ENV...every variable
------------------------------
Date: Sun, 12 Sep 1999 02:10:54 +0100
From: Dave Eastabrook <news@elmbronze.demon.co.uk>
Subject: Re: Y2K bugs on the Internet
Message-Id: <gHiTzAAe2v23Ewhj@elmbronze.demon.co.uk>
on Sat, 11 Sep 1999 Lawrence Kirby <fred@genesis.demon.co.uk> wrote
>
>That everybody else has missed the point, of course.
Brave man, and correct IMHO.
We all have to start somewhere, and *produce* under budget pressure:
http://www.elmbronze.co.uk/year2000/perlprob.htm
It's not Demon by the way, though it might be as well, who knows ...
:Dave
--
Ain't Y2k hilaryarse - http://www.elmbronze.co.uk/year2000/humour/
Dave Eastabrook; all anonymous donations gratefully acknowledged.
Major credit cards welcome, secure payment facility is on the way.
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
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 768
*************************************
