[28173] in Perl-Users-Digest
Perl-Users Digest, Issue: 9537 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jul 29 18:06:06 2006
Date: Sat, 29 Jul 2006 15:05:05 -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 Sat, 29 Jul 2006 Volume: 10 Number: 9537
Today's topics:
Re: adding a string ~300 times <bik.mido@tiscalinet.it>
Re: adding a string ~300 times <bik.mido@tiscalinet.it>
Re: adding a string ~300 times <bik.mido@tiscalinet.it>
Re: adding a string ~300 times <john@castleamber.com>
Re: Amending Posting Guidelines [was re: Improving perf <bik.mido@tiscalinet.it>
counting number of empty strings in a multidimensional <jack_posemsky@yahoo.com>
Re: counting number of empty strings in a multidimensio <bik.mido@tiscalinet.it>
Re: counting number of empty strings in a multidimensio <mumia.w.18.spam+nospam.usenet@earthlink.net>
How to control PDF printer rafalk@comcast.net
Re: How to control PDF printer <segraves_f13@mindspring.com>
Re: Improving performance of a simple Perl script <bik.mido@tiscalinet.it>
Re: Problem with perl script and form <mgarrish@gmail.com>
Re: same code diff result <Amaninder.Saini@gmail.com>
Re: same code diff result <someone@example.com>
Search a Text File for a String, Return String to Funct cl@supportreport.org
Sending data from perl to gnuplot and getting an "ASCII <a24061@yahoo.com>
Re: Text descriptions of signal codes? allenjo5@mail.northgrum.com
What is "or equal" in perl? Thanks <ongtiongheng@gmail.com>
Re: What is "or equal" in perl? Thanks <someone@example.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 29 Jul 2006 09:38:00 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: adding a string ~300 times
Message-Id: <bu3mc2t16tc55hrouuqvdg1rkbmbntm9j3@4ax.com>
On 28 Jul 2006 14:49:46 -0700, "gavino" <bootiack@yahoo.com> wrote:
>> > how would a perler add that line below each instance of .bak"; ?
>>
>> Read in the file and after each line containing 'internal.bak add
>> the required additional line to the output.
(Note: edited for clarity. Please be so kind and avoid top-posting as
it makes one's reading and replying experience a real pita.)
>How would I run that perl code if the file is called
>named.conf.testing?
Given that the person you replied to didn't post any actual *perl*
code, a wild guess:
$ perl_code named.conf.testing
$ perl_code < named.conf.testing
$ perl_code -i named.conf.testing
depending on how you want it to read its input. If you simply use the
ARGV filehandle, as seems appropriate for a quick hack, both of the
first two options will work.
>Is that a tab in the middle of the code?
*What* "that"?!? In the middle of *what* code?!?
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 29 Jul 2006 09:38:00 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: adding a string ~300 times
Message-Id: <kv3mc29adrmtmq3kq3eirpr9ukhns80o85@4ax.com>
This is top-posting, as is your reply. Q: Where is my actual reply? A:
at the top of the message, whereas logically it fits better below.
Please note that even if I *deliberately* top-posted for
illustrational purposes, at least I trimmed the quoted content. A
common practice, and one which despite its simplicity greately aids
communication is to trim the quoted content *and* put one's reply
after each relevant chunk of it...
On 28 Jul 2006 23:18:18 -0700, "gavino" <bootiack@yahoo.com> wrote:
>What is top post?
>I dont understand this response?
>That should be run in vi?
>
>axel@white-eagle.invalid.uk wrote:
>> gavino <bootiack@yahoo.com> wrote:
>>
>> Please don't top post.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 29 Jul 2006 09:38:01 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: adding a string ~300 times
Message-Id: <d04mc2toi7qr0a03dsstfitlui8obd04a8@4ax.com>
On 28 Jul 2006 14:51:40 -0700, "gavino" <bootiack@yahoo.com> wrote:
(edited for clarity)
>> perl -lpi -e '$_ .= "\nadded_line" if /\.bak";$/'
>substitute added_line for the new line?
The line you want to add below each line ending with '.bak";'.
>if the file to be changed is called named.conf.testing how would the
>command look?
1. *Please* do not top-post!!
2. perl -lpi -e '$_ .= "\nadded_line" if /\.bak";$/' any_file
any_file can be named.conf.testing, or a list of files.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 29 Jul 2006 08:36:36 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: adding a string ~300 times
Message-Id: <Xns980F24B80FFCCcastleamber@130.133.1.4>
"gavino" <bootiack@yahoo.com> wrote:
> What is top post?
Next time if you wonder about something in a technical group, don't do it
aloud (might make you look silly), but enter it in Google, e.g.
http://www.google.com/search?q=top%20post
It works also very well for some errors or warnings you might get when
using software.
--
John Bokma Freelance software developer
&
Experienced Perl programmer: http://castleamber.com/
------------------------------
Date: 29 Jul 2006 09:52:05 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Amending Posting Guidelines [was re: Improving performance of a simple Perl script]
Message-Id: <gn4mc29nd3mrjtrb7sbe59pghmpautqndk@4ax.com>
On Fri, 28 Jul 2006 22:54:45 GMT, axel@white-eagle.invalid.uk wrote:
>> I wrote a little script in Perl to make stats on a log file. You can
>> view the source at: http://pastebin.ca/104391 . When running on an
>
>Would it be possible to amend the Posting Guidelines so that it is made
>clear that posting URLs for scripts is unwanted and unnecessary and
>that they should be posted to the group?
While I *do* prefer minimal example to be explicitly exhibited in the
post one is sending to the group, I don't feel like *banning* links
pointing to code in web pages altogether. Maybe a "it's strongly
preferred" would be a better option.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 29 Jul 2006 08:03:25 -0700
From: "Jack" <jack_posemsky@yahoo.com>
Subject: counting number of empty strings in a multidimensional array column
Message-Id: <1154185405.333669.123410@b28g2000cwb.googlegroups.com>
Hi some folks helped me with uniques in this context, but this is a
different beast..
trying to count the number of empty strings in a multidimensional array
column without creating too much memory overhead since I need to do
this for each column (and I dont want to create a new array just for
that column).. so I tried the below which is a similar approach to what
some experts on this site suggested for uniques, but didnt lend itself
to evaluating each value in the array as you will see in the code
below, any ideas would be appreciated -
Many thanks,
Jack
$nullcount= nulls(map { $_->[$p] } @multiarray);
push @nullcounts, $count;
$nullcount=0;
sub nulls
{
my %nulls = ();
if (/^\z/)) { $nulls{$1}++ foreach @_}
return keys %nulls;
}
------------------------------
Date: 29 Jul 2006 17:52:25 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: counting number of empty strings in a multidimensional array column
Message-Id: <ik0nc2df1bhv1gquk7941sm4qq1oo73nkv@4ax.com>
On 29 Jul 2006 08:03:25 -0700, "Jack" <jack_posemsky@yahoo.com> wrote:
>$nullcount= nulls(map { $_->[$p] } @multiarray);
What is $p?!?
>push @nullcounts, $count;
What is $count?
(IMPORTANT!) Are you under strict and warnings, anyway?
>$nullcount=0;
>
>sub nulls
>{
> my %nulls = ();
no need to initialize...
> if (/^\z/)) { $nulls{$1}++ foreach @_}
the conditional matches over $_. And what does $_ evaluate to at this
point?
> return keys %nulls;
You can return ""; FWIW...
All in all it's not entirely clear to me what you want to do, but I
think you may be after
my @nulls=map { scalar grep $_ eq '', @$_ } @multiarray;
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Sat, 29 Jul 2006 20:25:38 GMT
From: "Mumia W." <mumia.w.18.spam+nospam.usenet@earthlink.net>
Subject: Re: counting number of empty strings in a multidimensional array column
Message-Id: <6vPyg.6206$bP5.1480@newsread1.news.pas.earthlink.net>
On 07/29/2006 10:03 AM, Jack wrote:
> Hi some folks helped me with uniques in this context, but this is a
> different beast..
> trying to count the number of empty strings in a multidimensional array
> column without creating too much memory overhead since I need to do
> this for each column (and I dont want to create a new array just for
> that column).. so I tried the below which is a similar approach to what
> some experts on this site suggested for uniques, but didnt lend itself
> to evaluating each value in the array as you will see in the code
> below, any ideas would be appreciated -
> Many thanks,
> Jack
>
> $nullcount= nulls(map { $_->[$p] } @multiarray);
> push @nullcounts, $count;
> $nullcount=0;
>
> sub nulls
> {
> my %nulls = ();
> if (/^\z/)) { $nulls{$1}++ foreach @_}
> return keys %nulls;
> }
>
This should count the number of empty strings in a column:
sub countNulls {
no warnings 'uninitialized';
my ($arref, $col) = @_;
my $count = 0;
$_->[$col] =~ /^\z/ && $count++ for (@$arref);
$count;
}
------------------------------
Date: Sat, 29 Jul 2006 08:11:20 -0400
From: rafalk@comcast.net
Subject: How to control PDF printer
Message-Id: <qbjmc21gdgbl31o7t6pgboo4fsvj730553@4ax.com>
Q: How can I control thses Adobe PDF settings with perl?
My question, I suspect, is an extension of what the "Green Devil"
diavolo-verde@libero.it was inquiring above.
I'd like to convert the Excel to pdf by printing to Adobe PDF (I have
Distiller). Like Diavolo, I was beset by the PDF window popping up.
Here's the relevant excerpt from the code:
$Book->PrintOut({
ActivePrinter => "Adobe PDF on Ne01:",
Copies => 1,
Collate => True,
#PrintToFile=> 0,
#OutputFileName => "c:\\PDF_files\\bull5.pdf",
#PrintToFile => 1,
#PrToFileName => 'bull5.pdf'
});
The commented out lines show that I tried all the permutations of
controling thsese attributes to no avail.
Here's how I *partially* solved the problem:
I opened the printer properties and set three attributes like this:
- uncheck "View Adobe PDF result"
- uncheck "Do not send fonts to Adobe PDF"
- specified the "Adobe PDF Output Folder" to what I wanted
It works! However, I'd prefer to be able to control these attributes
dynamically, either from inside the script or even with a separate
pre-processing script.
Q: How can I control thses Adobe PDF settings with perl?
------------------------------
Date: Sat, 29 Jul 2006 19:10:55 GMT
From: "Bill Segraves" <segraves_f13@mindspring.com>
Subject: Re: How to control PDF printer
Message-Id: <3pOyg.4724$gF6.3084@newsread2.news.pas.earthlink.net>
<rafalk@comcast.net> wrote in message
news:qbjmc21gdgbl31o7t6pgboo4fsvj730553@4ax.com...
> Q: How can I control thses Adobe PDF settings with perl?
<snip>
> It works! However, I'd prefer to be able to control these attributes
> dynamically, either from inside the script or even with a separate
> pre-processing script.
>
> Q: How can I control thses Adobe PDF settings with perl?
You might try a Google Groups search with "cameron dorey win32::ole acrobat"
to see a relevant contribution by Prof. Cameron Dorey.
--
Bill Segraves
------------------------------
Date: 29 Jul 2006 09:48:35 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Improving performance of a simple Perl script
Message-Id: <hb4mc2d7aspqm5o1qrdfhtkjjuk9e6ftp1@4ax.com>
On 28 Jul 2006 19:09:16 -0700, vfoley@gmail.com wrote:
>Thank you for your suggestions, John. Using a hash of hashes really
>improved the performance, I went from 35-36 seconds to 6 seconds, a 6x
>improvement. Thank you again!
Which suggestions? Care to quote some relevant content? Said this, I
noticed that in your code you call the mktime sub like &mktime, which
is an obsolete form of sub call and nowadays doesn't do what you
suppose it to do. Just call it like mktime(@args). Not only, in your
current code it's called only once. Since you'd better put accessory
definitions out of it in any case, what's left is just a single
statement, that you may well inline: this is a micro-optimization, but
it may buy you something since sub call is notoriously expensive.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 29 Jul 2006 08:05:07 -0700
From: "Matt Garrish" <mgarrish@gmail.com>
Subject: Re: Problem with perl script and form
Message-Id: <1154185507.886330.25980@m79g2000cwm.googlegroups.com>
Songhw@gmail.com wrote:
> Hello,
>
> I am try to run a Perl script from a form. I tested both the form and
> the script seperatlly. they are fine. But when I put them together, the
> IE was not runing the script but giving me a alert messagebox let to
> choose if I will open it or download it. if I choose open, the script
> will be run in the dos mode and return back with nothing.
>
> Can someone tell me the steps I have to follow to run my program ?
>
The first question is have you configured your server to run perl
scripts? If it doesn't know what to do with a .pl file you'll get a
regular download prompt.
The next most likely culprit is that you're trying to send a text/plain
content type to IE. IE likes to do whatever it wants with headers, and
I've found that the text/plain header from a .pl file usually results
in a prompt to save the script to disk. Try switching to text/html and
see if it runs as you expect, or better yet try a better browser like
Firefox.
Matt
------------------------------
Date: 29 Jul 2006 06:45:42 -0700
From: "Amaninder" <Amaninder.Saini@gmail.com>
Subject: Re: same code diff result
Message-Id: <1154180742.608756.15370@b28g2000cwb.googlegroups.com>
John W. Krahn wrote:
> Amaninder wrote:
> >
> > I tried lot of things but can not able to figure out why the same code
> > in for loop is giving me different results.
> > Code 1 is giving me the correct result but Code 2 does NOT. All i am
> > doing in ths Code 1 is that i have
> > my $got = "3 500 1660 17800 19360 N";
> > my $exp = "<0 3> <0 500> <0 1660> 17800 19360 <0
> > N>";
> >
> > and i am filling @btw with ('"0 3". "3", "0 500", "500", "0 N" ,
> > "N").
>
> I get the same results as your program using this:
>
> $ perl -le'
> my $exp = "<0 3> <0 500> <0 1660> 17800 19360 <0 N>";
> my @btw = $exp =~ /<(\S.*?(\S+))>/g;
> print for @btw;
> '
> 0 3
> 3
> 0 500
> 500
> 0 1660
> 1660
> 0 N
> N
>
>
> You probably need to simplify your code.
>
>
> John
> --
> use Perl;
> program
> fulfillment
Sweet
How about if
my $got = "d 500 166 17800 19360 N";
my $exp = "<s 3> 500 <a 1660> 17800 19360
<XXX>";
and output will be
s 3
d
a 1660
166
XXX
N
Thanks
Amaninder :)
------------------------------
Date: Sat, 29 Jul 2006 20:07:52 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: same code diff result
Message-Id: <sePyg.179457$771.27955@edtnps89>
Amaninder wrote:
> John W. Krahn wrote:
>>Amaninder wrote:
>>>I tried lot of things but can not able to figure out why the same code
>>>in for loop is giving me different results.
>>>Code 1 is giving me the correct result but Code 2 does NOT. All i am
>>>doing in ths Code 1 is that i have
>>>my $got = "3 500 1660 17800 19360 N";
>>>my $exp = "<0 3> <0 500> <0 1660> 17800 19360 <0
>>>N>";
>>>
>>>and i am filling @btw with ('"0 3". "3", "0 500", "500", "0 N" ,
>>>"N").
>>I get the same results as your program using this:
>>
>>$ perl -le'
>>my $exp = "<0 3> <0 500> <0 1660> 17800 19360 <0 N>";
>>my @btw = $exp =~ /<(\S.*?(\S+))>/g;
>>print for @btw;
>>'
>>0 3
>>3
>>0 500
>>500
>>0 1660
>>1660
>>0 N
>>N
>
> How about if
> my $got = "d 500 166 17800 19360 N";
> my $exp = "<s 3> 500 <a 1660> 17800 19360
> <XXX>";
>
> and output will be
>
> s 3
> d
> a 1660
> 166
> XXX
> N
$ perl -le'
my $got = "d 500 166 17800 19360 N";
my $exp = "<s 3> 500 <a 1660> 17800 19360 <XXX>";
$exp =~ s/(<\S+)( )(?=\S+>)/$1\0/g; # preprocess
my @gots = split " ", $got;
my @exps = split " ", $exp;
my @btw;
for my $i ( 0 .. $#exps ) {
next unless $exps[ $i ] =~ tr/\0<>/ /d;
push @btw, $exps[ $i ], $gots[ $i ];
}
print for @btw;
'
s 3
d
a 1660
166
XXX
N
John
--
use Perl;
program
fulfillment
------------------------------
Date: 29 Jul 2006 09:19:14 -0700
From: cl@supportreport.org
Subject: Search a Text File for a String, Return String to Function
Message-Id: <1154189954.863811.188980@75g2000cwc.googlegroups.com>
Howdy
So while I've been able to do things similar to this in other languages
I thought I'd sharpent my Perl skills but, alas, those skills were more
dull then I thought.
What I'm trying to do is search a text file for a string "<a
href="something">" and return that something do another part of the
script. The "something" part changes at random so that one day the
first line of the file I am searching could be
"<a href="something">"
and the next day it could be
"<a href="and now for something completly different">"
So I guess what I'm saying is I want to return whatever is between the
quotes that start after the first instance of href that Perl finds in
the file.
Thoughts on how to go about this in a somewhat effeciant way?
------------------------------
Date: Sat, 29 Jul 2006 21:31:31 +0100
From: Adam Funk <a24061@yahoo.com>
Subject: Sending data from perl to gnuplot and getting an "ASCII-art" graph back?
Message-Id: <36tsp3-cm1.ln1@news.ducksburg.com>
I'm generating some data points in a Perl program and trying to send
them to gnuplot and get back an "ASCII-art" graph (the kind that
gnuplot generates with the "set term dumb" setting). I'd like to
improve on the following steps:
(1)
foreach $x (sort {$a <=> $b} keys(%table) ) {
$y = $table{$x};
$line = sprintf("%5d %5d\n", $x, $y);
$max_y = $y if ($y > $max_y);
print($line) if ($option{v}); # verbose option
push(@output,$line);
}
This produces lines like this:
-5 2
-2 5
(2) Then I use recipe 7.5 from the Perl Cookbook to generate two temp
files, $data_file and $cmd_file, and I write @output from step (1)
into $data_file.
(3) Then I write a bunch of gnuplot commands as lines to $cmd_file:
set term dumb
set ylabel \"Frequency\"
set xlabel \"Time\"
unset key
set yrange [0:$max_y]
plot \"$temp_filename\" with impulses
(4) and call gnuplot thus:
system('gnuplot', $cmd_file);
The Perl program runs and prints the plot to the screen. I'm about to
modify it to use backticks
$gnuplot_output = `gnuplot $cmd_file`
but I can't believe there isn't a better way than what I've done to
send a list of commands to gnuplot and get the plot back.
Is there?
--
Thanks,
Adam
------------------------------
Date: 29 Jul 2006 08:16:44 -0700
From: allenjo5@mail.northgrum.com
Subject: Re: Text descriptions of signal codes?
Message-Id: <1154186204.431618.185580@75g2000cwc.googlegroups.com>
Ben Morrow wrote:
> At least on my system, this stuff isn't in signal.h. You need to read
> the sys_siglist array. I wrote a tiny XS module to do just that, which I
> guess I could upload to CPAN if that would help you...
Hmmm, yes, I guess access to the sys_siglist array is what I want.
There's also the psignal() system call that provides the same info.
Both seem to be in the standard C library (on AIX anyway). I don't
want it bad enough to be the sole reason that you upload such a CPAN
module, but if you did I wouldn't mind :-)
John.
------------------------------
Date: 29 Jul 2006 11:03:30 -0700
From: "perlie_newbie" <ongtiongheng@gmail.com>
Subject: What is "or equal" in perl? Thanks
Message-Id: <1154196210.220374.26370@h48g2000cwc.googlegroups.com>
What is "or equal" in perl? Thanks
Eg:
my %vacadb;
my $vacadb =
tie(%vacadb,'DB_File',"$Vaca_dir/.$username.db",O_RDWR|O_CREAT,0666) ||
die "Cannot open vacation database: $!\n";
$vacadb{$sendto} ||= 0;
------------------------------
Date: Sat, 29 Jul 2006 19:40:36 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: What is "or equal" in perl? Thanks
Message-Id: <UQOyg.179449$771.25101@edtnps89>
perlie_newbie wrote:
> What is "or equal" in perl? Thanks
>
> Eg:
>
> my %vacadb;
>
> my $vacadb =
> tie(%vacadb,'DB_File',"$Vaca_dir/.$username.db",O_RDWR|O_CREAT,0666) ||
> die "Cannot open vacation database: $!\n";
>
> $vacadb{$sendto} ||= 0;
That is short for:
$vacadb{$sendto} = $vacadb{$sendto} || 0;
Which assigns $vacadb{$sendto} to $vacadb{$sendto} if $vacadb{$sendto} is TRUE
or assigns 0 to $vacadb{$sendto} if $vacadb{$sendto} is FALSE where FALSE can
be undef, 0, '' or '0'.
John
--
use Perl;
program
fulfillment
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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.
#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 V10 Issue 9537
***************************************
