[31233] in Perl-Users-Digest
Perl-Users Digest, Issue: 2478 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 15 14:09:41 2009
Date: Mon, 15 Jun 2009 11:09:06 -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 Mon, 15 Jun 2009 Volume: 11 Number: 2478
Today's topics:
Clean the text from a multiline form <finar76@gmail.com>
Re: Clean the text from a multiline form <mail@bananas-playground.net>
format the multiselect option froma web form <finar76@gmail.com>
Re: format the multiselect option froma web form <tadmc@seesig.invalid>
Lexical variables in (?{...}) regexp constructs <ala.netstuff@gmail.com>
new CPAN modules on Mon Jun 15 2009 (Randal Schwartz)
Re: reading a select form from perl <RedGrittyBrick@spamweary.invalid>
Re: regex problem sln@netherlands.com
Re: regex problem <ben@morrow.me.uk>
Re: require from autoload module <1usa@llenroc.ude.invalid>
Re: require from autoload module <1usa@llenroc.ude.invalid>
Re: require from autoload module <marc.girod@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 15 Jun 2009 00:11:07 -0700 (PDT)
From: Vit <finar76@gmail.com>
Subject: Clean the text from a multiline form
Message-Id: <ac19be40-9a6a-4769-9984-6d074b808380@v23g2000pro.googlegroups.com>
Hi All,
on a .cgi application, I get some data from a "multiline text form"
and I like to process it as a singular line... is it possible???
my $enquiry = $query->param("enquiry");
how can I "reformat" the multitext line as a singular line???
thanks all
Vit
------------------------------
Date: Mon, 15 Jun 2009 11:46:29 +0200
From: =?ISO-8859-1?Q?=22j=2Eke=DFler=22?= <mail@bananas-playground.net>
Subject: Re: Clean the text from a multiline form
Message-Id: <h1559l$2na$02$2@news.t-online.com>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
Vit wrote:
> Hi All,
>
> on a .cgi application, I get some data from a "multiline text form"
> and I like to process it as a singular line... is it possible???
>
> my $enquiry = $query->param("enquiry");
>
> how can I "reformat" the multitext line as a singular line???
>
> thanks all
>
> Vit
You need to replace or strip any newline character.
But it should normally not be neccessary, since it could mess up the input
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v2.0.11 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iEYEARECAAYFAko2GHUACgkQE++2Zdc7Ete4PACePwaNSEZf9ukMpkYeMlLcPP2f
psYAnRspkBJ6n4HDj6VB3/gUSDs4I87t
=M2LW
-----END PGP SIGNATURE-----
------------------------------
Date: Mon, 15 Jun 2009 00:16:41 -0700 (PDT)
From: Vit <finar76@gmail.com>
Subject: format the multiselect option froma web form
Message-Id: <e914e7e6-9d3e-4b21-ab58-1c8fb1467c4c@v23g2000pro.googlegroups.com>
Hi All,
I have a .cgi that read the value from a "multiselect option list" and
I get the following results:
$VAR1 = '1-option1';
$VAR2 = '3-option3';
$VAR3 = '5-option5';
is it possible to change the $VAR1, $VAR2 etc. etc. with something
customizable???
is it possible to format like this:
option1: selected
option2: not selected
option3: selected
option4: not selected
option5: selected
option6: not selected
the perl code is the following:
my @interest = $query->param("interest");
any suggestion?????
thanks all
Vit
------------------------------
Date: Mon, 15 Jun 2009 08:13:29 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: format the multiselect option froma web form
Message-Id: <slrnh3ci7p.l4p.tadmc@tadmc30.sbcglobal.net>
Vit <finar76@gmail.com> wrote:
> I have a .cgi that read the value from a "multiselect option list" and
Where your data comes from is not relevant to your question,
so it should not be included in your question.
Have you seen the Posting Guidelines that are posted here frequently?
> I get the following results:
>
> $VAR1 = '1-option1';
> $VAR2 = '3-option3';
> $VAR3 = '5-option5';
Where is your code that makes that output?
You should try to make a short and complete program *that we can run*
that illustrates your problem.
> is it possible to format like this:
>
> option1: selected
> option2: not selected
> option3: selected
> option4: not selected
> option5: selected
> option6: not selected
>
>
>
> the perl code is the following:
>
> my @interest = $query->param("interest");
That code does not make any output at all, let alone the output
that you claim...
> any suggestion?????
It is a SMOP.
Note that my answer makes no mention of the CGI environment, because
where the data comes from does not matter to the solution.
------------------
#!/usr/bin/perl
use warnings;
use strict;
my @interest = qw/ 1-option1 3-option3 5-option5 /;
my %selected;
foreach my $opt ( 'option1' .. 'option6' ) {
if( grep /$opt/, @interest ) {
$selected{$opt} = 'selected';
}
else {
$selected{$opt} = 'not selected';
}
}
print "$_: $selected{$_}\n" for sort keys %selected;
------------------
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Mon, 15 Jun 2009 10:57:06 -0700 (PDT)
From: Ala <ala.netstuff@gmail.com>
Subject: Lexical variables in (?{...}) regexp constructs
Message-Id: <3d61f50f-bc96-4c41-bc60-5c702854536e@j9g2000prh.googlegroups.com>
Hi all,
In perlre, the documentation for (?{...}) says:
"Due to an unfortunate implementation issue, the Perl code contained
in these blocks is treated as a compile time closure that can have
seemingly bizarre consequences when used with lexically scoped
variables inside of subroutines or loops. There are various
workarounds for this, including simply using global variables instead.
If you are using this construct and strange results occur then check
for the use of lexically scoped variables."
I'm indeed seeing weird things, mainly variables getting undefined for
no reason.
Any ideas on what the "various workarounds" that TFM is speaking of
are? I'd rather stay as far away from global vars as I can.
Thanks,
--Ala
------------------------------
Date: Mon, 15 Jun 2009 04:42:34 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Mon Jun 15 2009
Message-Id: <KL9Jqy.xI@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Apache-SWIT-0.46
http://search.cpan.org/~bosu/Apache-SWIT-0.46/
mod_perl based application server with integrated testing.
----
Array-Compare-1.18
http://search.cpan.org/~davecross/Array-Compare-1.18/
Perl extension for comparing arrays.
----
Authen-CAS-External-0.01
http://search.cpan.org/~dougdude/Authen-CAS-External-0.01/
Authenticate with CAS servers as a browser would.
----
CPAN-1.94_01
http://search.cpan.org/~andk/CPAN-1.94_01/
query, download and build perl modules from CPAN sites
----
CatalystX-CMS-0.004
http://search.cpan.org/~karman/CatalystX-CMS-0.004/
drop-in content management system
----
CatalystX-CRUD-Model-RDBO-0.22
http://search.cpan.org/~karman/CatalystX-CRUD-Model-RDBO-0.22/
Rose::DB::Object CRUD
----
CatalystX-Component-Traits-0.02
http://search.cpan.org/~rkitover/CatalystX-Component-Traits-0.02/
Automatic Trait Loading and Resolution for Catalyst Components
----
Class-Method-Modifiers-1.03
http://search.cpan.org/~sartak/Class-Method-Modifiers-1.03/
provides Moose-like method modifiers
----
Config-General-Easy-0.1
http://search.cpan.org/~jacquelin/Config-General-Easy-0.1/
Easy use of Config::General for simple ordinary configuration files
----
DBIx-Class-0.08107
http://search.cpan.org/~ribasushi/DBIx-Class-0.08107/
Extensible and flexible object <-> relational mapper.
----
DBIx-Class-ResultSet-HashRef-1.002
http://search.cpan.org/~rbo/DBIx-Class-ResultSet-HashRef-1.002/
Adds syntactic sugar to skip the fancy objects
----
DateTime-Format-Natural-0.77
http://search.cpan.org/~schubiger/DateTime-Format-Natural-0.77/
Create machine readable date/time with natural parsing logic
----
Devel-LeakGuard-Object-0.02
http://search.cpan.org/~andya/Devel-LeakGuard-Object-0.02/
Scoped checks for object leaks
----
Devel-PPPort-3.19
http://search.cpan.org/~mhx/Devel-PPPort-3.19/
Perl/Pollution/Portability
----
Encode-EUCJPASCII-0.01
http://search.cpan.org/~nezumi/Encode-EUCJPASCII-0.01/
An eucJP-open mapping
----
Env-Sanctify-Auto-1.0
http://search.cpan.org/~frequency/Env-Sanctify-Auto-1.0/
Automatically clean up your %ENV
----
FindBin-libs-1.41
http://search.cpan.org/~lembark/FindBin-libs-1.41/
Locate and 'use lib' directories along the path of $FindBin::Bin to automate locating modules. Uses File::Spec and Cwd's abs_path to accomodate multiple O/S and redundant symlinks.
----
Grades-0.05
http://search.cpan.org/~drbean/Grades-0.05/
A collocation of homework, classwork and exams
----
HTML-Widgets-NavMenu-1.0300
http://search.cpan.org/~shlomif/HTML-Widgets-NavMenu-1.0300/
A Perl Module for Generating HTML Navigation Menus
----
KSx-Search-WildCardQuery-0.04
http://search.cpan.org/~sprout/KSx-Search-WildCardQuery-0.04/
Wild card query class for KinoSearch
----
Marpa-0.001_013
http://search.cpan.org/~jkegl/Marpa-0.001_013/
General BNF Parsing (Experimental version)
----
Module-Install-GithubMeta-0.10
http://search.cpan.org/~bingos/Module-Install-GithubMeta-0.10/
A Module::Install extension to include GitHub meta information in META.yml
----
Moose-Tiny-0.04
http://search.cpan.org/~perigrin/Moose-Tiny-0.04/
Why Should Object::Tiny get all the Fun
----
MooseX-AttributeHelpers-0.19
http://search.cpan.org/~sartak/MooseX-AttributeHelpers-0.19/
Extend your attribute interfaces
----
MooseX-Role-Parameterized-0.08
http://search.cpan.org/~sartak/MooseX-Role-Parameterized-0.08/
parameterized roles
----
MooseX-Role-Parameterized-0.09
http://search.cpan.org/~sartak/MooseX-Role-Parameterized-0.09/
parameterized roles
----
MooseX-Role-Parameterized-undef
http://search.cpan.org/~sartak/MooseX-Role-Parameterized-undef/
----
MooseX-Types-0.12
http://search.cpan.org/~rkitover/MooseX-Types-0.12/
Organise your Moose types in libraries
----
MySQL-Sandbox-3.0.04
http://search.cpan.org/~gmax/MySQL-Sandbox-3.0.04/
Quickly installs MySQL side server, either standalone or in groups
----
Object-Simple-2.0005
http://search.cpan.org/~kimoto/Object-Simple-2.0005/
Light Weight Minimal Object System
----
Parse-CPAN-Cached-0.01
http://search.cpan.org/~sysmon/Parse-CPAN-Cached-0.01/
Parse CPAN meta files & cache the results
----
Path-Class-0.17
http://search.cpan.org/~kwilliams/Path-Class-0.17/
Cross-platform path specification manipulation
----
Perlanet-0.10
http://search.cpan.org/~davecross/Perlanet-0.10/
A program for creating web pages that aggregate web feeds (both RSS and Atom).
----
RPM-Spec-0.01
http://search.cpan.org/~rsrchboy/RPM-Spec-0.01/
A very simplistic read-only method of accessing RPM spec files
----
Sort-SQL-0.06
http://search.cpan.org/~karman/Sort-SQL-0.06/
manipulate SQL sort strings
----
Test-CheckChanges-0.07
http://search.cpan.org/~gam/Test-CheckChanges-0.07/
Check that the Changes file matches the distribution.
----
Test-Weaken-2.003_002
http://search.cpan.org/~jkegl/Test-Weaken-2.003_002/
Test that freed memory objects were, indeed, freed
----
Tie-Handle-TtyRec-0.03
http://search.cpan.org/~sartak/Tie-Handle-TtyRec-0.03/
write a ttyrec
----
Unicode-LineBreak-1.000_02
http://search.cpan.org/~nezumi/Unicode-LineBreak-1.000_02/
UAX #14 Unicode Line Breaking Algorithm
----
Variable-Lazy-0.01
http://search.cpan.org/~leont/Variable-Lazy-0.01/
Lazy variables
----
autobox-Closure-Attributes-0.04
http://search.cpan.org/~sartak/autobox-Closure-Attributes-0.04/
closures are objects are closures
----
autovivification-0.01
http://search.cpan.org/~vpit/autovivification-0.01/
Lexically disable autovivification.
----
smokeinabox-0.06
http://search.cpan.org/~bingos/smokeinabox-0.06/
CPAN Tester smoke environment boxed
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Mon, 15 Jun 2009 11:15:09 +0100
From: RedGrittyBrick <RedGrittyBrick@spamweary.invalid>
Subject: Re: reading a select form from perl
Message-Id: <4a361f33$0$18253$da0feed9@news.zen.co.uk>
Peter J. Holzer wrote:
> On 2009-06-10 11:34, Tad J McClellan <tadmc@seesig.invalid> wrote:
>> Vit <FiNaR76@gmail.com> wrote:
>>> print MAIL "From: $email_address\n";
>>> print MAIL "To: test\@domain.com\n";
>>> print MAIL "Subject: Web Request\n\n";
>>> print MAIL "Comment: $enquiry\n";
>
> I would split these two lines into three:
>
> print MAIL "Subject: Web Request\n";
> print MAIL "\n";
> print MAIL "Comment: $enquiry\n";
>
> Otherwise the end of the header is too easy to miss.
I prefer one statement instead of three:
print MAIL "Subject: Web Request\n",
"\n",
"Comment: $enquiry\n";
But really I prefer a here-doc.
Just my ¤0.02 worth.
--
RGB
------------------------------
Date: Sun, 14 Jun 2009 18:24:50 -0700
From: sln@netherlands.com
Subject: Re: regex problem
Message-Id: <8e5b3510d7681of68npra84ubj5tebsp7u@4ax.com>
On Sun, 14 Jun 2009 15:26:16 -0400, Charlton Wilbur <cwilbur@chromatico.net> wrote:
>>>>>> "BM" == Ben Morrow <ben@morrow.me.uk> writes:
>
> BM> Quoth Charlton Wilbur <cwilbur@chromatico.net>:
> >> >>>>> "s" == sstark <sstark@us.ibm.com> writes:
>
> BM> [ sstark's code was
>
> BM> $line =~ s/^$prev//;
>
> BM> ]
>
> s> Why isn't it deleting the value of $prev in $line?
>
> >> Because ^ doesn't do what you think it does, and it only works in
> >> the code you have there out of pure luck and coincidence.
>
> BM> Please explain further. ^ means 'match at the beginning of the
> BM> string', unless /m is given, in which case it means 'match at
> BM> the beginning of any line'. How is this not what the OP thought
> BM> it meant?
>
>Because the strings he wants are at the start of the strings he's
>looking at purely by accident -- it's not part of his specification.
>
>Charlton
I don't think its by coincidence.
The carret ^ in this:
/^(.*?href\s*=\s*\")([^\"]+)(\".*)/i
is not actually needed since .*? will only grab the first instance of the
matching pattern, everything from the beginning of the line.
However he needs /is. So the basic principle is sound, still it doesen't
matter if the ^ is there or not. No global modifier anyway, the pos() of
the match is not remembered in the while, search will be renewed
at position 0.
On top of that the contents of (.*?href\s*=\s*\") is used as a pattern
in a later substitution regex (but he had a metachar quoting problem). The line
is still the same until he does the substitution, but he needs to quote metachar
when using the capture from the while regex, as a pattern in the lower substitution
regex. It finds the exact same thing because the line didn't change and it would
be the first found in the substitution regex.
The fact that he does this in a while() statement is misleading until you
read it a little more closely.
What he is in fact trying to do is a cheap buffering method that appends file
stream data, line by line, to the buffer ($line) after the substitution, thus
avoiding the global modifier /g and non-substitution.
His code doesen't show it, but it would probably have to do something like below
for it to work.
while (defined ($buff = <DATA>))
{
$line .= $buff;
while($line =~ /^(.*?href\s*=\s*\")([^\"]+)(\".*)/i){ #"
while($line =~ /^(.*?href\s*=\s*")([^"]+)"/is) # fixed up
{
my $prev =$1;
my $href =$2;
$prev = quotemeta $prev; # the fix
$href = quotemeta $href; # the fix
$line =~ s/^$prev//;
$line =~ s/^$href//;
}
}
# see whats left in $line
In reality the ^ shouldn't be needed, but doesen't seem to hurt.
This method is pretty slow, but its cheap buffering. The alternative is
something like below.
-sln
-------------
use strict;
use warnings;
# /(?:(.*?href\s*=\s*)(["'])(.*?)\2)|(.+)/isg
my ($line,$buff) = (''.'');
my $count = 1;
while (defined ($_ = <DATA>))
{
$line = $buff.$_;
while( $line =~ /(?:(.*?href\s*=\s*)(["'])(.*?)\2)|(.+)/isg )
{
if (defined $1) {
print "Pass ".$count++.":\n------------\n";
print "prev:\n".$1.$2."\n"; # previous, print to file
print "val:\n".$3."\n"; # href, modify & print to file
print "end:\n".$2."\n"; # closing quote, print to file
}
elsif (defined $4) {
$buff = $4; # remainder, buffer it
}
}
}
if (length $buff) {
print "Pass ".$count++.":\n------------\n";
print "buff:\n".$buff."\n"; # remainding buffer, print to file
}
__DATA__
<pre>
some junk content
<li>description <a href
="overview_mh.html#overview">(1)</a>,
<a href = 'catalog.html#catalog'>(2)</a>
</pre>
------------------------------
Date: Mon, 15 Jun 2009 03:26:06 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: regex problem
Message-Id: <u2ogg6-i5d.ln1@osiris.mauzo.dyndns.org>
Quoth Charlton Wilbur <cwilbur@chromatico.net>:
> >>>>> "BM" == Ben Morrow <ben@morrow.me.uk> writes:
>
> BM> Quoth Charlton Wilbur <cwilbur@chromatico.net>:
> >> >>>>> "s" == sstark <sstark@us.ibm.com> writes:
>
> BM> [ sstark's code was
>
> BM> $line =~ s/^$prev//;
>
> BM> ]
>
> s> Why isn't it deleting the value of $prev in $line?
>
> >> Because ^ doesn't do what you think it does, and it only works in
> >> the code you have there out of pure luck and coincidence.
>
> BM> Please explain further. ^ means 'match at the beginning of the
> BM> string', unless /m is given, in which case it means 'match at
> BM> the beginning of any line'. How is this not what the OP thought
> BM> it meant?
>
> Because the strings he wants are at the start of the strings he's
> looking at purely by accident -- it's not part of his specification.
The relevant bits of the original code are
while($line =~ /^(.*?href\s*=\s*\")([^\"]+)(\".*)/i){
my $prev =$1;
# ...
$line =~ s/^$prev//;
so it's *not* coincidence that the string he's searching for is at the
beginning. If it wasn't we wouldn't have got here in the first place
(note the ^ at the start of the original match).
Ben
------------------------------
Date: Sun, 14 Jun 2009 22:59:13 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: require from autoload module
Message-Id: <Xns9C2AC12CBFFA2asu1cornelledu@127.0.0.1>
Ben Morrow <ben@morrow.me.uk> wrote in
news:30bdg6-f8e.ln1@osiris.mauzo.dyndns.org:
>
> Quoth "A. Sinan Unur" <1usa@llenroc.ude.invalid>:
>> Marc Girod <marc.girod@gmail.com> wrote in
>> news:b941014b-b523-4fb1-8d5e-
>> 6705b6e8454d@y7g2000yqa.googlegroups.com:
>>
>> > On Jun 13, 3:07 pm, Marc Girod <marc.gi...@gmail.com> wrote:
>> >
>> >> Also, I read now perlmod, and try to use the UNITCHECK, CHECK, and
>> >> INIT blocks...
>> >
>> > Some progress...
>> > I use now:
>> > require $fl
>> > with $fl having the file name...
>> > Somehow, eval "require $fl" seems not to inject the functions names
>> > to my scope.
>> > And I added a 'no AutoLoader' at the block level.
>>
>> It is hard for me to follow what you are doing and I am not sure why
>> you need the eval.
>
> The eval is conventional as a way of turning
>
> require Foo::Bar;
>
> into
>
> require "Foo/Bar.pm";
>
> and also to catch errors.
Thank you for the explanation.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://www.rehabitation.com/clpmisc/
------------------------------
Date: Sun, 14 Jun 2009 23:01:33 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: require from autoload module
Message-Id: <Xns9C2AC191F241Aasu1cornelledu@127.0.0.1>
Marc Girod <marc.girod@gmail.com> wrote in
news:f81cebc8-a74d-4e8f-b18b-041819907fc6@j18g2000yql.googlegroups.com:
> On Jun 13, 7:05 pm, "A. Sinan Unur" <1...@llenroc.ude.invalid> wrote:
>
>> It is hard for me to follow what you are doing and I am not sure why
>> you need the eval.
>
> I am sorry. It is a bit hard to extract enough, yet not too much.
> I got now something that works, but there surely is room for
> improvement.
>
>> Is:
>>
>> require $fl;
>> $fl->import;
>>
>> not doing what you want?
>
> "perldoc -f require" explains that eval is required in that case.
I cannot believe I failed to realize this for such a long time. Thank
you for pointing it out.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(remove .invalid and reverse each component for email address)
comp.lang.perl.misc guidelines on the WWW:
http://www.rehabitation.com/clpmisc/
------------------------------
Date: Mon, 15 Jun 2009 02:05:05 -0700 (PDT)
From: Marc Girod <marc.girod@gmail.com>
Subject: Re: require from autoload module
Message-Id: <1cdeeda2-e6d0-4bf9-8990-f844bcf10ac9@r33g2000yqn.googlegroups.com>
On Jun 15, 12:01=A0am, "A. Sinan Unur" <1...@llenroc.ude.invalid> wrote:
> I cannot believe I failed to realize this for such a long time. Thank
> you for pointing it out.
Well, thank you for the 'import'.
I had read the 'require' page, but not the 'use' one.
And 'import' is not mentioned with 'require',
understandably so, would I admit in hindsight...
I could drop the no Autoload.
The resulting code (diffs) are in:
http://code.google.com/p/clearcase-cpan/source/detail?r=3D330
or in context:
http://code.google.com/p/clearcase-cpan/source/diff?spec=3Dsvn330&r=3D330&f=
ormat=3Dside&path=3D/branches/ClearCase-Wrapper-MGi/dev/MGi.pm
Thanks!
Marc
------------------------------
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 V11 Issue 2478
***************************************
