[12456] in Perl-Users-Digest
Perl-Users Digest, Issue: 6053 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 19 11:33:32 1999
Date: Fri, 18 Jun 99 22:00:17 -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 Fri, 18 Jun 1999 Volume: 8 Number: 6053
Today's topics:
Re: accessing nested variable names (Abigail)
Re: Afraid to ask about Y2K! (Abigail)
Re: Beginner program (Marcel Grunauer)
Cron alternative? <admin@wasi.com>
Re: Cron alternative? <rootbeer@redcat.com>
Re: Having trouble making this work... (Eric Bohlman)
Re: Hex to Decimal?? (Eric Bohlman)
Re: How I do setup cookie? (Abigail)
Re: matinal musings and the madrugada (Abigail)
Multi-screen Perl Script <maddog2030@hotmail.com>
Re: odd autoincrement behavior ? (Abigail)
Re: pattern match by column (Abigail)
Re: Printing compound variables (?) (Abigail)
Re: Printing compound variables (explanation) (Eric Bohlman)
Problem installing 5.005_03 under Solaris <aperrin@mcmahon.qal.berkeley.edu>
Problems with MacPerl and modules <mjohnson@h2net.net>
Re: Question (Abigail)
Re: Recommend a simple Online database? (Abigail)
Re: Recommend a simple Online database? (Jeff D)
Re: Writing RTF with Perl <walton@frontiernet.net>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Jun 1999 18:55:41 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: accessing nested variable names
Message-Id: <slrn7mln3n.gnv.abigail@alexandra.delanet.com>
vectorcalculus@my-deja.com (vectorcalculus@my-deja.com) wrote on MMCXVII
September MCMXCIII in <URL:news:7kdilq$hmj$1@nnrp1.deja.com>:
<> With this setup:
<>
<> $first = 'This is the text I want to get at';
<> $second = '$first';
<>
<> Is there a way I can get to the contents of $first
<> by only directly accessing $second? If I knew
<> that $second contained the name of a valid scalar,
<> can I get to the contents of the named scalar?
You *must* be new here. After all, this question was only asked 27 times
this week. And you cannot be bothered to read the FAQ.
Please go away.
Abigail
--
perl -wleprint -eqq-@{[ -eqw\\- -eJust -eanother -ePerl -eHacker -e\\-]}-
-----------== 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: 18 Jun 1999 18:52:00 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Afraid to ask about Y2K!
Message-Id: <slrn7mlmst.gnv.abigail@alexandra.delanet.com>
Lee (rlb@intrinsix.ca) wrote on MMCXVII September MCMXCIII in
<URL:news:B390349996689A6CBF@0.0.0.0>:
,,
,, In Perl, I *expect* to find the imaginary humantime() function. This is one
,, of the few times it has left me disappointed.
It shouldn't take more than a few minutes to write a module to do so, should it?
Abigail
--
perl -e 'for (s??4a75737420616e6f74686572205065726c204861636b65720as?;??;??)
{s?(..)s\??qq \?print chr 0x$1 and q ss\??excess}'
-----------== 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, 19 Jun 1999 02:21:55 GMT
From: marcel.grunauer@lovely.net (Marcel Grunauer)
Subject: Re: Beginner program
Message-Id: <376ffea1.7337580@enews.newsguy.com>
On Fri, 18 Jun 1999 16:32:45 -0700, Amir Schricker
<amirs@uclink4.berkeley.edu> wrote:
>I have the following problem:
>
>I have a long text file with a thousands of short lines in it. About
>every 15 lines or so there are the following two consecutive lines:
>
>Maximum at x
>mean = y
>
>where x and y are some numbers.
>
>I want to write a Perl script to go and extract those numbers (x and y)
>from only those lines.
>
>I'm a Perl newcomer, I just started reading this Programming Perl
>(Oreilly) book this morning, with not that much help. I've gotten as far
>as being able to isolate just those two lines from the file, with a
>while loop and two if ($line =~ /pattern/) statements, but now I need to
>extract just the numbers out. Any ideas how?
>
>If possible, please email me as well as replying to the newsgroup as I
>can't check the newsgroup that often. Thanks in advance.
>
>
>Amir
>
Did you mean something like:
#!/usr/bin/perl -w
use strict;
while (<DATA>) {
print "MAX: $1\n" if /^Maximum at\s+(\d+)/;
print "MEAN: $1\n" if /^mean =\s+(\d+)/;
}
__DATA__
blah
blah
Maximum at 5
mean = 3
blah
blah
blah
Maximum at 27
mean = 19
blah
output:
MAX: 5
MEAN: 3
MAX: 27
MEAN: 19
HTH
Marcel
------------------------------
Date: Fri, 18 Jun 1999 22:55:40 -0500
From: "RLD" <admin@wasi.com>
Subject: Cron alternative?
Message-Id: <7kf4ef$38e$1@hyperion.nitco.com>
Hello,
Writing a program that needs to place user input into a file on a server, no
problem, however... I need the script to automatically after 10 minutes,
check for a response file and email the results to the user without any
further intervention of the user.
My understanding is that once the user who initiates the script with the
browser leaves the page to go on their merry way... the script dies. If a
provider will not allow for cron jobs that can be written by the script the
first time around to execute script 2 in 10 minutes... is there a way to put
the script to sleep for 10 minutes and then have it check for the response?
Browsers will time out before that time... and we wouldn't want the user to
wait on one page that long either while the script pushed for 10 minutes
straight... am I overlooking a simple solution?
Please let me know if you have any experience or ideas with such an issue.
Thanks,
RLD
------------------------------
Date: Fri, 18 Jun 1999 21:28:27 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Cron alternative?
Message-Id: <Pine.GSO.4.02A.9906182121350.5420-100000@user2.teleport.com>
On Fri, 18 Jun 1999, RLD wrote:
> If a provider will not allow for cron jobs that can be written by the
> script the first time around to execute script 2 in 10 minutes...
If you can't use cron, use at. :-)
Seriously, if you need cron/at, that's what you need. A workaround may
be successful, but it will be more work for the system, almost certainly.
Any admin who is any good will encourage you to use cron/at, rather than
to keep your own program around as a poor man's atd.
But if your program is going to be run frequently, that's a waste to keep
scheduling jobs via at. Instead, just have cron check every 15 minutes or
so.
> is there a way to put the script to sleep for 10 minutes and then have
> it check for the response?
Maybe you want sleep().
> Browsers will time out before that time...
You're right. None of this is Perl-specific. Maybe you should check the
docs, FAQs, and newsgroups about programming for the CGI environment.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 19 Jun 1999 04:26:52 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Having trouble making this work...
Message-Id: <ebohlmanFDK4Ct.CGz@netcom.com>
Mitch (portboy@home.com) wrote:
: sub read_config
: {
: my $cfg = shift;
: open(CFG, $cfg) or die "damn't $!";
: while(<CFG>) {
: chomp;
: s/#.*//;
: s/^\s+//;
: s/\s+$//;
: next unless length;
: my ($var, $value) = split ' ', $_, 2;
: $config{$var} = $value;
: #$$var = $value;
: if (/^==(.*)/) {
: my $dir = $1;
: ($name, $path) = fileparse($dir);
: print "name is $name, path is $path\n";
: unless (-d $dir) {
: mkdir $dir, 0777 or die "could not create '$dir' $!";
: }
: open FILE, ">$path/$name" or die "Can't open $path $!";
: while !(/^\--END$/) { <- I know this is broker, but how do you
: "not" an expression like this?
You just move the ! inside the parens.
: print FILE, $_;
: }
The problem is that you've stopped reading from your input file. I'd do the
loop as:
while (<CFG>) {
print FILE $_; # note no comma after FILE
last if /^--END/;
}
close(FILE);
: }
: #} elsif (/^\--END$/) {
: #close FILE;
: #} else {
: #print FILE "$_\n";
: #}
: #}
: close(CFG);
: return;
: }
: What's the plan with the data....hmmmm..... okay, when the multiple lines like
: coke enable
: coke sucks
: are read into the script, they will only be used to see if they exist (meaning if a
: user inputted coke sucks...error coke sucks exists) or to remove them from the
: config file. Also, when the script is running the user might be able to input :
: coke rules. This information (on a "save") needs to be written to the config... so
: you have:
:
: coke enable
: coke sucks
: coke rules
:
: So, since I don't know how to implement this type of data structure - any help?
If you want to be able to check whether a given attribute (like "sucks")
is set for a given element (like "coke") you probably want a hash of
hashes. You should read perlref, perllol and perldsc to learn more about
complex data structures. You'll probably want to do something like changing
$config{$var}=$value;
to
++$config{$var}{$value};
Then, later on, you'll be able to do tests like:
if ($config{coke}{sucks} > $config{coke}{rules}) {
print "More people hated coke than liked it.";
}
After reading the documents I listed, you should be able to figure out
how to output the hash-of-hashes back to a config file.
------------------------------
Date: Sat, 19 Jun 1999 04:27:50 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Hex to Decimal??
Message-Id: <ebohlmanFDK4EE.CIH@netcom.com>
Philip 'Yes, that's my address' Newton (nospam.newton@gmx.net) wrote:
: On 18 Jun 1999 10:16:22 -0600, Daniel Grisinger
: <dgris@moiraine.dimensional.com> wrote:
:
: >You're weak! Weak, I say! Real men don't use brain-sucking,
: >hand-holding, sissy programs like vi or emacs to program.
: >Real men use cat.
:
: _Real_ real men use cat for binaries, too...
*_Real_* _real_ real men use the front-panel switches.
------------------------------
Date: 18 Jun 1999 19:11:52 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How I do setup cookie?
Message-Id: <slrn7mlo25.gnv.abigail@alexandra.delanet.com>
deafclub@my-deja.com (deafclub@my-deja.com) wrote on MMCXVII September
MCMXCIII in <URL:news:7kdnh8$jnt$1@nnrp1.deja.com>:
\\ How I do setup cookie?
Open the cookie box.
Abigail
--
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/'
-----------== 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: 18 Jun 1999 18:49:04 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: matinal musings and the madrugada
Message-Id: <slrn7mlmn8.gnv.abigail@alexandra.delanet.com>
Gregory Snow (snow@biostat.washington.edu) wrote on MMCXVII September
MCMXCIII in <URL:news:7ke85k$14hs$1@nntp6.u.washington.edu>:
%%
%% It appears to me that the context is sorting, is the following a Y2K
%% bug or not?
%%
%% w> perl -de 1
%%
%% Loading DB routines from perl5db.pl version 1.0401
%% Emacs support available.
%%
%% Enter h or `h h' for help.
%%
%% main::(-e:1): 1
%% DB<1> @dates = ('99/06/18','98/06/18','00/06/18','01/06/18');
%%
%% DB<3> print join "\n", sort @dates
%% 00/06/18
%% 01/06/18
%% 98/06/18
%% 99/06/18
Yes, there is bug. The question of course is, is the bug in the data, or
the sorting algorithm. *Given* that the data is of the form 'YY/MM/DD',
I'd say the bug is in the sorting algorithm.
Blindlessly calling 'sort' without taking in consideration the data you're
sorting is a more stupid mistake than most decisions to use 2 digit years.
Abigail
--
perl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}-
-----------== 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, 19 Jun 1999 00:26:35 -0400
From: "John" <maddog2030@hotmail.com>
Subject: Multi-screen Perl Script
Message-Id: <7kf6gg$fvi$1@autumn.news.rcn.net>
Hi,
I know this is a bit off topic, but the PERL/CGI newsgroups were mostly in
other languages that I could'nt understand (not English). Anyway, I am
writing a multi-screen CGI script. I know the standard if-elsif-else
structure method, but I am passing the name of functions in a hidden form
field (name = action, value = name of subfunction to activate without the
'&'). Is there a more efficient way then the if-else structures? I also know
the method like the following:
%subroutines =
(
'add_user' => \&add_user(),
'add_user_screen' => \&add_user_screen(),
............
);
if(%subroutines{"$INPUT{'action'}"})
{
$subroutines{"$INPUT{'action'}"}->();
}
else
{
login_screen();
}
but wondered if I could avoid making the hash at all in a similar method
(because of the fact you just have to add a '&' in front of the value of the
$INPUT{'action'} variable in order to get the correct function call).
Thanks everyone
------------------------------
Date: 18 Jun 1999 18:54:24 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: odd autoincrement behavior ?
Message-Id: <slrn7mln1d.gnv.abigail@alexandra.delanet.com>
M.J.T. Guy (mjtg@cus.cam.ac.uk) wrote on MMCXVII September MCMXCIII in
<URL:news:7ke89c$grh$1@pegasus.csx.cam.ac.uk>:
,, Abigail <abigail@delanet.com> wrote:
,, >Bill Jones (bill@fccj.org) wrote on MMCXVII September MCMXCIII in
,, ><URL:news:376a2569.0@usenet.fccj.cc.fl.us>:
,, >\\ It doesn't like -
,, >\\
,, >\\ print "$_ : $hash{$_}\n" foreach sort keys %hash;
,, >
,, >
,, >That's because you have a syntax error. Where's the list you iterate over?
,,
,, `sort keys %hash' looks like a list to me.
,,
,, That's only a syntax error in perl5.004_04 and earlier. Bill's problem
,, is an out of date Perl.
Duh! I was assuming you couldn't omit the parens.
Abigail
--
perl -wle\$_=\<\<EOT\;y/\\n/\ /\;print\; -eJust -eanother -ePerl -eHacker -eEOT
-----------== 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: 18 Jun 1999 19:08:54 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: pattern match by column
Message-Id: <slrn7mlnsk.gnv.abigail@alexandra.delanet.com>
Michael Culverhouse (mculverhouse@pinnacle.co.uk) wrote on MMCXVII
September MCMXCIII in <URL:news:929719290.28238.0.nnrp-04.9e980b2b@news.demon.co.uk>:
:: I wish to change a certain string say '0101' to '9999' but only in columns
:: 80 through 83.
s/^(.{79})0101/${1}9999/;
Abigail
--
perl -wlpe '}{$_=$.' file # Count the number of lines.
-----------== 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: 18 Jun 1999 18:57:34 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Printing compound variables (?)
Message-Id: <slrn7mln7b.gnv.abigail@alexandra.delanet.com>
vectorcalculus@my-deja.com (vectorcalculus@my-deja.com) wrote on MMCXVII
September MCMXCIII in <URL:news:7kdim1$hms$1@nnrp1.deja.com>:
## If I have this:
##
## $one = "text and stuff";
## $two = '$one';
##
## Is there any way I can get to the contents of $one
## by only accessing $two? Something to the effect
## of:
Is there a reason to ask a question that gets asked 27 times a week
in this group, and that's answered in the FAQ *TWICE*?
Or are you just plain stupid?
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
-----------== 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, 19 Jun 1999 04:44:23 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Printing compound variables (explanation)
Message-Id: <ebohlmanFDK55z.DK9@netcom.com>
greg@dns.kode.net wrote:
: don't know squat about html or web page design. I wanted to separate
: the html portion of the code into separate files so our webmaster can
: modify them without messing with the CGI. I wanted to be able to read
: in a file such as:
: _______________________________________________
: <HTML><HEAD><TITLE>Parameters</TITLE></HEAD>
: <BODY>
: <H1><TT>Parameters</TT></H1>
: <P>
:
: <a
: href="$cgiurl/$user/parameters.cgi?user=$user&command=change">View/Chang
: e Options</a>
: <P>
:
: </BODY>
: </HTML>
: _________________________________________________________________
:
: The variables named ($cgiurl, $user, etc) are already defined and have
: values in the CGI. But our webmaster doesn't know anything about Perl.
: We want him to be able to take the file above and "beautify" the html,
: and let my CGI still be able to read it in and replace the variable
: names with the appropriate values.
There are already quite a few modules on CPAN designed to make this sort
of thing easy. They can be found in the "TEXT" and "HTML" sections and
usually have "template" in their names. This is probably a case where
you don't want to re-invent (and more importantly, have to re-debug!) the
wheel.
In cases like this, you generally want to keep the namespace the user
(e.g. the person who writes the HTML templates) sees and the namespace
the programmer sees distinct. Otherwise the user has to know all sorts
of details about what the programmer is doing in order to avoid naming
conflicts. Hash tables are a good way of translating between interface
and implementation namespaces.
OK, it looks like our first answer to "why do so many people want to use
symrefs?" is "they want to import an external-interface namespace into
the implementation namespace, but don't realize why is usually Not A Good
Idea." The question still remains why people seem more likely to want
this when they're writing Perl than when writing in any other language.
------------------------------
Date: Fri, 18 Jun 1999 20:55:21 -0700
From: Andrew J Perrin <aperrin@mcmahon.qal.berkeley.edu>
Subject: Problem installing 5.005_03 under Solaris
Message-Id: <376B14A9.6CEA4003@mcmahon.qal.berkeley.edu>
Greetings-
Tried upgrading to 5.005_03 today on our Solaris 2.6 (sparc) system;
everything appeared to work okay during configure, make, and make test,
except that ld reported a bad flag -E; when I removed -E from the flags
it compiled and tested fine; HOWEVER, now a script that has worked fine
under 5.004 and uses (among other things) Socket.pm no longer works; it
fails with the error:
unsupported socket function "gethostbyname" called at mchp.pl line 205
I suspect this has to do with the binary incompatibility between the two
versions; any advice on how to proceed? All the libraries (including
Socket.pm) were installed in their new locations, and these locations
are appropriately in @INC.
Thanks-
Andy Perrin
--
-------------------------------------------------------------
Andrew J. Perrin - NT/Unix/Access Consulting - (650)938-4740
aperrin@mcmahon.qal.berkeley.edu (Remove the Junk Mail King)
http://www.geocities.com/SiliconValley/Grid/7544/
-------------------------------------------------------------
------------------------------
Date: Fri, 18 Jun 1999 21:40:08 -0600
From: Mark Johnson <mjohnson@h2net.net>
Subject: Problems with MacPerl and modules
Message-Id: <376B1110.63FF87B7@h2net.net>
Hi,
I'm relatively new to Perl and totally new to MacPerl. My problem lies
in how to
install modules. It's probably a simple solution, but it's driving me
crazy!
Situation: I'm trying to use a perl script that requires libwww.
Several sources
(including the author of the aforementioned script) say that the latest
version
of MacPerl (5.2.0r4, which I'm using) comes with libwww, but when I run
my script I get an error saying that the LWP package can't be found.
OK, maybe
it's not included, so I tried downloading the latest LWP package and its
prerequisites from CPAN. I installed them where I thought they needed
to
go (lib folder), but the best I did was get an error saying that LWP
failed to return
a true value. (?)
What the hell am I doing wrong? I managed to install the required
modules AND run
the script on my Unix machine at work, so I know the script is
functional (and the script
includes versions for unix, mac and windows). I need to run the script
on my mac because
it involves syncing to my Palm Pilot, which I can't easily do at work.
I've checked several MacPerl web sites and the included documentation
(which is not
very thorough when it comes to modules, unfortunately) and am getting
nowwhere!
Any help would be GREATLY appreciated!
-Mark
P.S. If it helps, the script is "Showtimes", a local movie
theater/showtime app for
the Pilot, and can be found at: http://jrray.visionart.com/showtimes/
--
Mark A. Johnson \ "In the future, employees will either be
super-
Denver, CO \ stars or perspiration wipers. Those who
aren't
mjohnson@h2net.net \ qualified to do either will become
managers."
mark.z.johnson@lmco.com \ - Prediction #35, The Dilbert
Future
_______________________________\_____________________________________________
=====----- http://www.h2net.net/p/mjohnson/index.html
-----=====
------------------------------
Date: 18 Jun 1999 19:10:27 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Question
Message-Id: <slrn7mlnvg.gnv.abigail@alexandra.delanet.com>
carmela (info@datalist.com) wrote on MMCXVII September MCMXCIII in
<URL:news:01beb99d$41a9be80$170a0a0a@carmela.idirect.com>:
&&
&&
&& Where do I post employment information for the Perl community in Toronto?
In Toronto's unemployment office.
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: 18 Jun 1999 19:02:15 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Recommend a simple Online database?
Message-Id: <slrn7mlng4.gnv.abigail@alexandra.delanet.com>
Tom Christiansen (tchrist@mox.perl.com) wrote on MMCXVII September
MCMXCIII in <URL:news:376a4a3b@cs.colorado.edu>:
""
""
"" Sometime in the last decade, old words have obviously changed meanings.
"" What's an offline database?
Oh, Sybase knows that very well. You can't use a database that's offline.
Offline databases are those that haven't been recovered yet (during a
bootup), or for which the recovery failed. Also, newly loaded databases
that haven't been brought online with the 'online database' command are
still offline.
AFAIK, there's no way to bring a database offline in a graceful way.
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
-----------== 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: 18 Jun 1999 21:35:08 PDT
From: argnon@argnon.com (Jeff D)
Subject: Re: Recommend a simple Online database?
Message-Id: <376b19b9.1445820@news.concentric.net>
<major el snipo>
> Perl is, after all, the ``Cliff Notes
>of Unix''; its distilled essence, if you would.
That is put so well and now that I've been into it, I really believe
you.
I made the mistake of buying "Programming Perl" first since I usually
like to learn from the 'reference' books. But I was in way over my
head.
Then I bought "Learning Perl" and there was light. It is done so well
especially for the Perl/Unix deficient. Two thumbs up and a major
thank you for all your efforts. I've come a long way and I never
would have made it without you and those books and everyone else
involved in the whole shebang.
Jeff
------------------------------
Date: Sat, 19 Jun 1999 00:05:09 -0400
From: Bob Walton <walton@frontiernet.net>
To: NewtronBoy@aol.com
Subject: Re: Writing RTF with Perl
Message-Id: <376B16F5.E3613D0D@frontiernet.net>
Check out RTF::Parser on cpan. Don't know as it will create an RTF
file, but it might get you started.
NewtronBoy@aol.com wrote:
> Does anyone know of a specification
> of Rich Text Format so I can create RTF files
> with perl?
>
> I'd appreciate any feedback.
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
------------------------------
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 6053
**************************************
