[11478] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 5078 Volume: 8

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Mar 7 02:07:18 1999

Date: Sat, 6 Mar 99 23:00:17 -0800
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, 6 Mar 1999     Volume: 8 Number: 5078

Today's topics:
    Re: anyone on OS2? (William Herrera)
        append 3 huge log files vnguyen2891@my-dejanews.com
    Re: Catching output from AT <rick.delaney@home.com>
        Compile warnings (was Re: Tk binding and callbacks, EOT <bwarnock@gtemail.net>
    Re: does perl discourage obfuscated code? (was Re: Perl <jdf@pobox.com>
        FAQ 2.7: Is there an ISO or ANSI certified version of P <perlfaq-suggestions@perl.com>
        FAQ 2.8: Where can I get information on Perl?   <perlfaq-suggestions@perl.com>
        Fast DNS lookups? <jengland@enetis.net>
        file extension .pl (deltabob)
    Re: Form to a text file... (Mark P.)
    Re: getting 4 digit years (William Herrera)
        Help-Perl has stopped on my IIS server! <neil@cqit.qld.edu.au>
        Improving code (Alan Young)
    Re: Lynux (Abigail)
    Re: New bies quest <jgraham@uvic.ca>
    Re: Re: How would I split out specific elements? (Alan Young)
    Re: Seriously confused about subscripts <aqumsieh@matrox.com>
    Re: Sub calls: how can I do this? <bwarnock@gtemail.net>
    Re: Sub calls: how can I do this? <rick.delaney@home.com>
    Re: use strict & packages <rick.delaney@home.com>
    Re: Want Reminder Script for $$$ (Mark P.)
        Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Sun, 07 Mar 1999 04:05:28 GMT
From: posting.account@lynxview.com (William Herrera)
Subject: Re: anyone on OS2?
Message-Id: <36e1f9fe.46337276@news.rmi.net>

tOn Wed, 24 Feb 1999 17:12:32 -0600, "Walter" <tavi367@ibm.net> wrote:

Perl is portable. This is nice, and applies to working legacy systems.

I run perl between NT, Win95, OS/2, and Linux without problems
(remember to use the '\\' in pathnames only on DOS lineage machines
for system() calls, though.

I have had a machine with OS/2 3.0 Connect working nonstop as an
internet router/server and local network file server (REPL on) running
in a closet nonstop for over two years now without any problems except
to replace a power supply. I wish the NT server at work worked as
stably.

I also would be happy to test your script. I converted a few REXX
scripts to Perl this past few months. It does speed things up.


>If so, please reply directly.
>
>I have one question and a test script I would like you to run to see if it
>works on OS2.
>
>Thanks
>
>Walter <walter@tscinternet.com>
>
>

---
The above from: address is spamblocked. Use wherrera (at) lynxview (dot) com for the reply address.


------------------------------

Date: Sun, 07 Mar 1999 06:38:50 GMT
From: vnguyen2891@my-dejanews.com
Subject: append 3 huge log files
Message-Id: <7bt6tq$a5b$1@nnrp1.dejanews.com>

Hello guys,

I got 3 huge log files which I want to append them all into one file ( put 3
files into 1 file). Do you have any suggestion to do it? Please give me
detailed suggestion.

Thanks in advance
Van Nguyen

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Sun, 07 Mar 1999 06:10:12 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Catching output from AT
Message-Id: <36E21A2C.A7D6B031@home.com>

[posted & mailed]

Simon Wistow wrote:
> 
>         at -f $scriptname + 1 minute > dev/null
                                       ^^
    at -f $scriptname + 1 minute 2> dev/null

> 
> doesn't work neither does have something like
> 
>         system(@run_command) || die $?;
>         while (<STDERR>){}
> 
> any ideas?

For a Perl answer, search the FAQ for capturing stderr.  Also read about
'open' in perlfunc.

-- 
Rick Delaney
rick.delaney@home.com


------------------------------

Date: Sun, 07 Mar 1999 04:00:06 GMT
From: "Bryan C. Warnock" <bwarnock@gtemail.net>
Subject: Compile warnings (was Re: Tk binding and callbacks, EOT)
Message-Id: <aRmE2.1632$573.1117@news.rdc1.md.home.com>


Jonathan Stowe wrote in message <7bs1r1$1uc$1@gellyfish.btinternet.com>...
>On Tue, 02 Mar 1999 23:15:43 GMT Bryan C. Warnock wrote:
>>
>>                                            but does anywhere care about
>> compiler warnings when building Perl?  (Warnings like trying to test
>> equality between a negative value and an unsigned int, for example.)
>>
>
>Generally - *warnings* are to be watched but not worried about - one might
>get a lot of pointer/integer warnings for instance.  Of course if your
>'make test' starts failing then you might want to be concerned and go
>back and look at the warnings that were generated.
>

Yeah, most of them I just ignore - they're mainly warnings about not casting
pointers of different types.  (Never understood how you could have a DWIM
compiler with Nazi rules...)

However, I did run across one that I had to look twice at... testing for EOF
(-1 under the IRIX 6.2 I was compiling for) with an unsigned type.  All the
tests worked, and to be perfectly honest, I don't remember if this was for
Perl itself or for one of the mods.  The question was mainly FMyI.

exit 0;
>Of course if you dont like the warnings then you could go about creating
>an improved 'hint' file for your platform/compiler :)
>





------------------------------

Date: 07 Mar 1999 01:32:48 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: does perl discourage obfuscated code? (was Re: Perl evangelism)
Message-Id: <m3n21pyflb.fsf@joshua.panix.com>

Russell Schulz <Russell_Schulz@locutus.ofB.ORG> makes up some quotes:

> Randal> in fact, I think I'll call him a LIAR!  for calling Perl obscure!
> Randal> if he claims it's case-sensitive I'll question his ancestry!

Hmm.  Grammar flames, putting words in a person's mouth, must be a
troll.  How boring.

*plonk*

-- 
Jonathan Feinberg   jdf@pobox.com   Sunny Brooklyn, NY
http://pobox.com/~jdf


------------------------------

Date: 6 Mar 1999 20:11:56 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 2.7: Is there an ISO or ANSI certified version of Perl?  
Message-Id: <36e1ee7c@csnews>

(This excerpt from perlfaq2 - Obtaining and Learning about Perl 
    ($Revision: 1.30 $, $Date: 1998/12/29 19:43:32 $)
part of the standard set of documentation included with every 
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq2.html
if your negligent system adminstrator has been remiss in his duties.)

  Is there an ISO or ANSI certified version of Perl?

    Certainly not. Larry expects that he'll be certified before Perl
    is.

-- 
s = (unsigned char*)(SvPVX(sv));    /* deeper magic */
    --Larry Wall, from util.c in the v5.0 perl distribution


------------------------------

Date: 6 Mar 1999 22:41:58 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 2.8: Where can I get information on Perl?  
Message-Id: <36e211a6@csnews>

(This excerpt from perlfaq2 - Obtaining and Learning about Perl 
    ($Revision: 1.30 $, $Date: 1998/12/29 19:43:32 $)
part of the standard set of documentation included with every 
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq2.html
if your negligent system adminstrator has been remiss in his duties.)

  Where can I get information on Perl?

    The complete Perl documentation is available with the perl
    distribution. If you have perl installed locally, you probably
    have the documentation installed as well: type `man perl' if
    you're on a system resembling Unix. This will lead you to other
    important man pages, including how to set your $MANPATH. If
    you're not on a Unix system, access to the documentation will be
    different; for example, it might be only in HTML format. But all
    proper perl installations have fully-accessible documentation.

    You might also try `perldoc perl' in case your system doesn't
    have a proper man command, or it's been misinstalled. If that
    doesn't work, try looking in /usr/local/lib/perl5/pod for
    documentation.

    If all else fails, consult the CPAN/doc directory, which contains
    the complete documentation in various formats, including native
    pod, troff, html, and plain text. There's also a web page at
    http://www.perl.com/perl/info/documentation.html that might help.

    Many good books have been written about Perl -- see the section
    below for more details.

    Tutorial documents are included in current or upcoming Perl
    releases include the perltoot manpage for objects, the
    perlopentut manpage for file opening semantics, the perlreftut
    manpage for managing references, and the perlxstut manpage for
    linking C and Perl together. There may be more by the time you
    read this. The following URLs might also be of assistance:

        http://language.perl.com/info/documentation.html
        http://reference.perl.com/query.cgi?tutorials

-- 
    No, I'm not going to explain it.  If you can't figure it out, you didn't
    want to know anyway...  :-)
            --Larry Wall in <1991Aug7.180856.2854@netlabs.com>


------------------------------

Date: Sat, 6 Mar 1999 19:35:06 -0700
From: Justin England <jengland@enetis.net>
Subject: Fast DNS lookups?
Message-Id: <Pine.SUN.4.05.9903061930000.1992-100000@mail.enetis.net>

I have my apache www server log all of the web access to a MySQL database,
and one of the performance tweaks I have done to apahce is turned off
hostnamelookups.

Well, I am writing a perl / CGI program that will query the MySQL db and
generate some stats.  I am concered about speed, and so far everything
runs as quick I need, except when it comes to DNS lookups.  I know that
their are alot of variables outside of my perl program that will determine
how fast an DNS lookup is, but I am wondering what the fast way would be.
Here's what I am using right now:

$hostname = getremotename($ip);

sub getremotename {

my $ipaddr = shift();
my $retval;
 
my @ip = split(/\./, $ipaddr);
my $rem_addr = pack('C4', @ip);
my $rem_name = gethostbyaddr($rem_addr, AF_INET);
 
if($rem_name)
        { $retval = $rem_name; }
else
        { $retval = $ipaddr; }
 
return($retval);
}

Thanks,

Justin



------------------------------

Date: Sun, 07 Mar 1999 05:01:42 GMT
From: deltabob@telis.org (deltabob)
Subject: file extension .pl
Message-Id: <36e2072d.8429686@news.telis.org>


	Hi

	I have a file with a .PL extension. Can
anyone tell what I need to read this file? I am
using win95B.
                                  Thanks for any help
                                   deltabob


------------------------------

Date: Sun, 07 Mar 1999 03:54:12 GMT
From: mag@imchat.com (Mark P.)
Subject: Re: Form to a text file...
Message-Id: <36e1f799.1153650171@news.ionet.net>

	I wrote a script that does what you want. It sends the form
data to a text file and then emails you a message that there has been
some activity. It would probably have to be customized for your form
though. 
	It also has a script that reads the data and displays it on a
secure server. 

On Thu, 4 Mar 1999 16:56:42 +0100, "Thomas Leuthard"
<Leuthard@WebShuttle.ch> wrote:

>I'm looking for a CGI-Script that make a textfile out of a HTML Form. This
>is because the server uses SSL and I cannot send this encrypted by E-Mail.
>So I write this file to the server and get it over a SSL secured connection.
>
>Where can I find such a Form to Text script?
>
>Thanks for your help.
>
>Thomas Leuthard
>www.leuthard.com
>
>
>



------------------------------

Date: Sun, 07 Mar 1999 04:13:05 GMT
From: posting.account@lynxview.com (William Herrera)
Subject: Re: getting 4 digit years
Message-Id: <36e1fc63.46949615@news.rmi.net>

On 6 Mar 1999 00:53:22 -0000, Jonathan Stowe
<gellyfish@btinternet.com> wrote:

>On 5 Mar 1999 00:14:54 GMT Abigail wrote:
>> Brad McBride (bmcbride@bmcbride.access.one.net) wrote on MMXI September
>> MCMXCIII in <URL:news:36DEEF03.C05FF9DB@bmcbride.access.one.net>:
>> ~~ the year as 2 digit. How do I get Perl to return the date with a 4 digit
>> ~~ year.
>> 
>> sub four_digit_year () {
>>     sleep 901 * 365.2425 * 24 * 3600;
>>    (localtime) [5];
>> }
>
>It all depends on how long the CPU fan and the disk drive motors hold out
>really doesnt it ?
>

:)  Actually, the digital millenium in 2038 will  (probably) wrap  the localtime() function, and this will possibly thus never terminate.



---
The above from: address is spamblocked. Use wherrera (at) lynxview (dot) com for the reply address.


------------------------------

Date: Sun, 7 Mar 1999 15:49:30 +1000
From: "Neil Barker" <neil@cqit.qld.edu.au>
Subject: Help-Perl has stopped on my IIS server!
Message-Id: <7bt40h$mtr$1@reader1.reader.news.ozemail.net>

I upgraded to the latest perl from activestate and suddenly nothing works.
When I run a perl script it says "The specified module could not be found."

Can anyone help?  I no longer have the old perl.

Neil




------------------------------

Date: Sun, 07 Mar 1999 01:50:11 GMT
From: alany@2021.com (Alan Young)
Subject: Improving code
Message-Id: <36e1d912.2338397@news.supernews.com>

I previously posted some code without actually testing it and asked
for help in improving it.  Hence the muffled sounds coming from my
direction (foot in mouth).  Basically, I got too big fer ma britches,
thinking I understood it well enough to fire it off w/o testing it.

I have since made it work, but it seems clumsy to me.  Here is a test
program that I was able to produce the results I wanted (yes, I
actually tested it this time *blush*).  You can look at
http://alany.office2office.com/cgi-bin/alany/tst
to see what it looks like.

My biggest concern is in creating the table tag.  I'm using CGI.pm
throughout my script, but here I've been forced to manually print the
table tag instead of using CGI::table.  It doesn't seem to matter one
way or the other, but it certainly looks screwy.

Thanks for your time.

begin perl
==========
#!/u/alany/bin/perl -Tw

use strict;
use vars qw(%Inventory);
use CGI::Pretty qw(:all -no_debug);
use IO;

  # Build a hash for the inventory
  my $inventory = "./inventory.db";
  my $INV = new IO::File "<$inventory";
  die "Unable to open inventory file" if !$INV;

  %Inventory = map {(split /\|/)[0], $_} <$INV>;

  my $cart = "./user.cart";
  my $CART = new IO::File "<$cart";
  die "Unable to open $cart." if !$CART;

  # Slurp the cart.
  my @CartContents = <$CART>;

  # Build array of information for existing items
  my @items = sort map {
    my ($itm, $qty) = (split /\|/); 
    my $item = $Inventory{$itm} || " Item $itm does not exist in
inventory.";
    chomp $item;
    $item =~ /^$itm\|/ ? $item . "|$qty" : $item;
  } @CartContents;

print header, start_html, start_form, "<TABLE cellpadding=2 border=yes
width=\"60%\">", th(['Item', 'Description', 'Quantity', 'Price',
'Subtotal']);

foreach (@items) {
  CASE: {
    /not exist/ and do {
      print Tr(td({colspan=>'5'}, "&nbsp;&nbsp;$_"));
      last CASE;
    };

    my @item = split /\|/;
    print Tr(td({-align=>'center', valign=>'center'}, $item[0]),
             td({-align=>'left', valign=>'center'}, $item[5]),
             td({-align=>'center', valign=>'center'}, 
                textfield(-maxLength=>'4', -name=>'quantity',
-size=>'4',
                          -value=>$item[-1])
               ),
             td({-align=>'right', valign=>'center'},
                [$item[6], sprintf('%.2f', $item[6] * $item[-1])]
               )
            );
  }
}

print "<\TABLE>";

print table(Tr(td(submit(-name=>'action', -value=>'Submit Changes')),
               td(reset('Undo any changes since last load'))));

print end_form, end_html;

-- 
Alan Young                                            Technical Support
http://members.xoom.com/AlanYoung                 2021.Interactive, LLC
If your happy and you know it, clunk your chains!   http://www.2021.com

865 I just walk right through the door...



------------------------------

Date: 7 Mar 1999 01:47:09 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Lynux
Message-Id: <7bslqt$6bb$1@client2.news.psi.net>

Matt (info@blue.uk.com) wrote on MMXIII September MCMXCIII in
<URL:news:7brv7e$fjf$1@starburst.uk.insnet.net>:
`` Where can I get software for running perl on Lynux


Perl hasn't been ported to the Lynux operating system yet. But you
might have made a typo. Perl runs on both Linux and LynxOS. Just
get the main distribution and read the instructions.




Abigail
-- 
perl -wlne '}print$.;{' file  # Count the number of lines.


------------------------------

Date: Sun, 07 Mar 1999 02:40:55 GMT
From: "Jonah Graham" <jgraham@uvic.ca>
Subject: Re: New bies quest
Message-Id: <XGlE2.2154$v57.4270@news.rdc1.bc.wave.home.com>

You got other responses for your asked problem, but I would like to point
out to you that the second line will never do a substitution.

$in = "b Bold Text? bb";
$text =~ s%b%<b>%g;
print $in; #printed: <b> Bold Text? <b><b>
$text =~ s%bb%</b>%g;
print $in; #printed same thing as above since no substitues
           #have been made.

what you can do is change the lines to:
$in = "b Bold Text? bb";
$text =~ s%\bb\b%<b>%g;
print $in; #printed: <b> Bold Text? bb
$text =~ s%\bbb\b%</b>%g;
print $in; #printed: <b> Bold Text? </b>

The added \b forces the b or bb to be a "word"

See perlre for more information about \b

Jonah



Ann-Charlotte Bostrvm <ac.bostrom@mail.bip.net> wrote in message
news:36e1a340.0@d2o78.telia.com...
>Hi everyone. I am trying to learn this wonderful lang. I am trying to do a
>smal script that change b to <b> and bb to</b>.
>like this:
>$text=~s/b/<b>/g;
>$text=~s/bb/</b>/g;
>but the problem is that when it shall change from bb to </b> i got a error.
>I understand it must be the </b> that is the problem and its probleby the
>"/" that cause the error. How do i command the / to be print out as a / and
>not a perlcommandsign...
>Hope you understand it and thanks alot if you can help me.
>Your freind AC
>
>




------------------------------

Date: Sun, 07 Mar 1999 02:57:43 GMT
From: alany@2021.com (Alan Young)
Subject: Re: Re: How would I split out specific elements?
Message-Id: <36e2e907.6424713@news.supernews.com>

[cc'd ]

I don't remember if I ever replied to this, so I'll risk it and reply
now.

On Thu, 4 Mar 1999 23:28:26 -0800, lr@hpl.hp.com (Larry Rosler) wrote:

>>              foreach my $item (@items) {
>>                ($itm, $qty) = split /\|/;
>
>This splits $_, but the loop items are in $item.  Make up your mind!

Yeah ... this is a problem I have continually.  For some reason I keep
thinking (or not, depening on your pov) that $_ is the same as the
foreach variable ($item in this case).

>There are at least six different errors in this expression!  Are you out 
>to set a record?

:/

>2.  You cannot use qw() simply to save commas, because it doesn't 
>support interpolation of variables.  Its definition is

Thank you ... that cleared up several other problems I was having
elsewhere.

>3.  The backslash looks more like C than Perl.

That was just a 'the next line is really part of this line' indicator.
Looking back on it, it wasn't such a good idea for cut'n'paste ops
though.

>You shouldn't post code that is syntactically invalid (semantics is 
>another matter).  If your real code did compile, you should copy-and-
>paste it into your post, not type it in again.

I wrote that in my editor in win and didn't send it up to my server.
Basically I thought I understood it and didn't need to test it since
it was obviously correct.  I get that way sometimes and end up putting
my head in the lions mouth as a result.

>The following is my best guess at what you want:
>
>                 my @item = ($itm, $qty, $ITEM[5], $ITEM[6],
>                             sprintf('%.2f', $ITEM[6] * $qty));

Close.  See my post 'Improving code' for what I've done to get what I
want.

Thanks.

-- 
Alan Young                                            Technical Support
http://members.xoom.com/AlanYoung                 2021.Interactive, LLC
If your happy and you know it, clunk your chains!   http://www.2021.com

857 I hate prejudiced people.



------------------------------

Date: Sun, 07 Mar 1999 01:16:48 GMT
From: @l@ <aqumsieh@matrox.com>
Subject: Re: Seriously confused about subscripts
Message-Id: <7bsk1r$rm5$1@nnrp1.dejanews.com>

In article <7bp15a$tcr$1@nnrp1.dejanews.com>,
  John "Chris" Wren <jcwren@atlanta.com> wrote:

> I have an array.  The array is a result of HTML parsing, and contains the
> following data.  It is the result of using the HTML::LinkExtor->links
> function, so the space between each words indicates an array element
>
> a href doc_aa.htm
> a href doc_ab.htm
> ...
> a href doc_zz.htm
>
> If I perform the loop "for (@docs) { print "$_->[2]\n"; }" I get what I
> expect, each line displaying just the "doc_XX.htm" entry.  I now want to
> create a hashed table, with the index being the ?? portion of the file name
> (?? being the two lettes after the underscore).

If that's all you want, then:

my $pat;
for my $elem (@docs) {
	($pat) = $elem->[2] =~ /_(\w{2})/;
	$hash{$pat} = $elem->[2];   # or whatever you want the values to be
}

> And I'm under the impression that using s/// requires that the data you want
> to substitute to be in $/.

Where did you get that idea from? Did you read any docs? Did you read perlre?

> Am I being too 'C'-centric and missing the obvious?

I believe you just need to read some more on Perl. Having a 20 year
programming experience is a great asset, but isn't enough to let you assume
things about Perl.

--Ala
$monger->{montreal}->[0];

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Sun, 07 Mar 1999 04:16:09 GMT
From: "Bryan C. Warnock" <bwarnock@gtemail.net>
Subject: Re: Sub calls: how can I do this?
Message-Id: <d4nE2.1633$573.988@news.rdc1.md.home.com>


Rafala wrote in message <7bsbti$fug$1@news.campus.mci.net>...
>How can I do this?
>
>Suppose my script uses a module with a slew of subs in it. But the script
>doesn't know which of those subs to call until the sub name is passed via
an
>argument or read in through a data file.
>
>I was hoping that I could put the sub name into a scaler and use that in
the
>call, e.g.:
>
>$yyy = $ARGV[0];        #the sub name was passed as an argument
>@xxx = $yyy ("hello");
>
>Of course, it looks kind of silly now that I've tried it.
>
>I hope I don't have to do something like
>
>if ($ARGV[0] = "sub_1") {
>    @xxx = sub_1 ("hello");
>} elsif ($ARGV[0] = "sub_2") {
>    @xxx = sub_2 ("hello");
>} elsif ...
>
>}
>
>Can someone steer me in the right direction?
>

Two ways come to mind right off hand.  First, use a soft ref.

@xxx = &{$ARGV[0]}("hello");

However, I don't know a quick way to predetermine if the sub you call
actually exists.
Alternately, in the module (or your code, wherever) you can create a hash of
sub names to sub refs.  Then you can validate your input using exists and
call your code.  A hash mapping will also allow you to create aliases to
your functions, or at least let you name them something other than the
actual sub name.

>mike rafala
>rafalam@cadmus.com
>
>




------------------------------

Date: Sun, 07 Mar 1999 05:25:18 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Sub calls: how can I do this?
Message-Id: <36E20FB3.A74DFE9A@home.com>

[posted & mailed]

Bryan C. Warnock wrote:
> 
> @xxx = &{$ARGV[0]}("hello");
> 
> However, I don't know a quick way to predetermine if the sub you call
> actually exists.

    if ( defined &{$ARGV[0]} ) { }

-- 
Rick Delaney
rick.delaney@home.com


------------------------------

Date: Sun, 07 Mar 1999 05:49:18 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: use strict & packages
Message-Id: <36E2154E.4C2F9F9C@home.com>

[posted & mailed]

mizpoon@my-dejanews.com wrote:
> 
> Does the order that you define packages and lexically scoped variables 
> affect the perl namespaces?
> 
> Ie.
> is 'use strict;package test;'
> any different to 'package test;use strict;'

If they are consecutive like that then there is no difference.  

'use strict' will demand that variables be declared with C<my> (among
other things) from that statement to the end of its lexical scope.  

'package test' will make all variables (among other things) not declared
with C<my> from that statement to the end of its lexical scope reside in
the package 'test'.

Does that help?  What are you really asking?

-- 
Rick Delaney
rick.delaney@home.com


------------------------------

Date: Sun, 07 Mar 1999 04:12:23 GMT
From: mag@imchat.com (Mark P.)
Subject: Re: Want Reminder Script for $$$
Message-Id: <36e1fbef.1154760738@news.ionet.net>

	Would this script then send email reminders, or would they use
it like a start page? I already have a start page with a to do list,
or reminders, or whatever you want. Check it out at
http://imchat.com/start.html

On Wed, 03 Mar 1999 18:54:24 -0600, David <david@davidfreimark.com>
wrote:

>Hi...
>
>I wish to purchase a simple reminder script that I may
>customize to my personal, not for profit, website.  I 
>use an Apache/UNIX setup. It would be executed by a 
>cronjob and the users would be able to see the reminders 
>they have created.
>
>Can you email me with any ideas?  
>
>Thanks...
>
>Dave F.



------------------------------

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 5078
**************************************

home help back first fref pref prev next nref lref last post