[10861] in Perl-Users-Digest
Perl-Users Digest, Issue: 4462 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Dec 19 18:07:20 1998
Date: Sat, 19 Dec 98 15:00:18 -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, 19 Dec 1998 Volume: 8 Number: 4462
Today's topics:
Re: ------What should I use as a Win32 perl interpreter <kperrier@blkbox.com>
Re: ------What should I use as a Win32 perl interpreter (Jim Weisgram)
Re: Easy newbie questions (Clay Irving)
Re: Easy newbie questions (BXTC)
Global vars and a recursive sub (Jim Foltz)
Re: How do I .....? (Larry Rosler)
how to prevent sybperl from polling? <rjberman@mindspring.com>
Mac, Perl, uploading, help! (Kent)
Re: numbers in base 36 <r28629@email.sps.mot.com>
Re: numbers in base 36 <r28629@email.sps.mot.com>
Perl -- Newsltr Send Problem <john_z@hotmail.com>
Re: reading all files in a directory--Ok here is sample <tspencer@exconet.co.uk>
Re: reading all files in a directory (Clay Irving)
reading form files <martin.schager@vienna.at>
Re: reading form files <due@murray.fordham.edu>
Re: reading form files <due@murray.fordham.edu>
Re: reading form files (Tad McClellan)
Re: replacing text with a variable (Tad McClellan)
Re: Retrospective on comp.lang.perl.moderated? birgitt@my-dejanews.com
Re: Retrospective on comp.lang.perl.moderated? (Larry Rosler)
Re: Retrospective on comp.lang.perl.moderated? (Jude Crouch)
Re: Retrospective on comp.lang.perl.moderated? (Larry Rosler)
Re: Retrospective on comp.lang.perl.moderated? <flavell@mail.cern.ch>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 19 Dec 1998 14:27:34 -0600
From: Kent Perrier <kperrier@blkbox.com>
Subject: Re: ------What should I use as a Win32 perl interpreter-----
Message-Id: <ysik8znj2rt.fsf@blkbox.com>
summere1@pilot.msu.edu (Brett Summerer) writes:
> Right now I use ActivePerl, because it's free. Any other
> ideas? Also, does anyone know where I can find a decent book on
> getting perl scripts to run on a NT box? All of the ones that I found
> are written with UNIX in mind. I do my development on Sparqs, but our
> web server is Domino on NT.
Why don't you upgrade to Domino on Solaris ;)
Kent
------------------------------
Date: Sat, 19 Dec 1998 22:57:01 GMT
From: jweisgram@hotmail.com (Jim Weisgram)
Subject: Re: ------What should I use as a Win32 perl interpreter-----
Message-Id: <367c2de8.142751917@news.teleport.com>
summere1@pilot.msu.edu (Brett Summerer) wrote:
> Right now I use ActivePerl, because it's free. Any other
>ideas? Also, does anyone know where I can find a decent book on
>getting perl scripts to run on a NT box? All of the ones that I found
>are written with UNIX in mind. I do my development on Sparqs, but our
>web server is Domino on NT.
>
> -Brett Summerer
>summere1@pilot.msu.edu
I believe the ActivePerl port is now the Win32 Perl of choice.
It seems your questions about running Perl scripts on NT are really about
running Perl as a CGI handler. The details vary depending on which web server.
is being used. There is a FAQ about getting Perl to run with a variety of web
servers. I don't know the URL, but I am sure you can find it by starting at
www.perl.com, or searching against this newsgroup in www.dejanews.com
If you want something about using Perl on Win32, but not specifically web
oriented, there is an O'Reilly title: "Learning Perl on Win32 Systems".
--
All opinions expressed are mine and not my employers (but they ought to be)
Jim Weisgram
Oregon Department of Transportation
------------------------------
Date: 19 Dec 1998 15:06:14 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: Easy newbie questions
Message-Id: <75h0vm$2u9@panix.com>
In <367B0379.F6FB6A58@forfree.at> "(BXTC)" <bxtc@forfree.at> writes:
>I have just started learning Perl and am tring to write a small program
>to write html templetes from existing files. My first question is what
>symbol/combination works as a wild card (*)? For instance I want to
>search a string $name to see if it look like *.html Meaning does the
>name end in .html whatever the filename is. I tried using it like that
>but it only would detect "*.html" (one single file). Well I guess thats
>it for now, I'm using Red Hat 5.1 Perl5.00404. Thanks for any help,
>Bryce
Maybe this will help -- This program:
#!/usr/local/bin/perl5 -w
while ($file = <DATA>) {
chomp $file;
if ( $file =~ /\.html$/) {
print "$file\n";
}
}
__DATA__
foo.bar
foo.txt
foo.html
foo.htmls
foo.html.
bar.html
html.foo
prints:
foo.html
bar.html
--
Clay Irving
clay@panix.com
------------------------------
Date: Sat, 19 Dec 1998 10:42:31 -0500
From: "(BXTC)" <bxtc@forfree.at>
Subject: Re: Easy newbie questions
Message-Id: <367BC967.47AE197@forfree.at>
Thanks to everyone who answered. I have it working now. And I
appologize for asking such an easy question. The FAQ that this NG sends
is really good. From now on I will search all of the places listed for
the info first. Thanks again for your help
(BXTC) ICQ# 23289202
------------------------------
Date: Sat, 19 Dec 1998 19:59:30 GMT
From: aa204@acorn.net (Jim Foltz)
Subject: Global vars and a recursive sub
Message-Id: <F48A76.8A5@freenet.akron.oh.us>
Hello,
I have the follwing subroutine which recursivley parses a directory tree,
and fills a 2 global vars: %dirhash and @filenamekeys.
I would like to use private vars and return them to the caller. But
declaring the %dirhash var with my causes a new %dirhash to be created for
each recursive call.
How can I use private vars in this sub? Can references be use (I don't fully
understand references?) Aha! If the sub accepted a ref to a hash, and also
returned a ref to the has, the same hash would be used each call?
sub get_local_directory_list {
my ($dir, $level) = @_;
if (! defined $level) {
chdir($dir);
$dir="";
$level = 0;
}
for (parse_dir(ls -l $dir)) { # File::Listing
my ($name, $type, $size, $mtime, $mode) = @$_;
if ($level > 0) { $name = $dir."/".$name; }
if ($type eq "d") { $size = -1 }
push @filenamekeys, $name;
$dirhash{$name}{'type'} = $type;
$dirhash{$name}{'size'} = $size;
$dirhash{$name}{'mtime'} = $mtime;
$dirhash{$name}{'mode'} = $mode;
if ($type eq "d") { get_local_directory_list($name, $level + 1) }
}
}
--
Jim Foltz <aa204@acorn.net>
------------------------------
Date: Sat, 19 Dec 1998 12:44:18 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: How do I .....?
Message-Id: <MPG.10e5affddbd0c402989967@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <75gt07$hfm$1@news-02.meganews.com> on Sat, 19 Dec 1998
10:59:54 -0800, PCM <pulsecode@mailandnews.dot.com> says...
...
> # Strip out any HTML the user entered
> $FORM{'name'} =~ s/<!--(.|\n)*-->//g;
'(.|\n)' is better written as simply '.' with a suffix modifier of 's';
the greediness of '*' will eat up more than you want if there is more
than one comment (or why do you have the 'g' modifier?). So:
$FORM{'name'} =~ s/<!--.*?-->//gs;
> $FORM{'name'} =~ s/<([^>]|\n)*>//g;
'([^>]|\n)' is better written as simply '[^>]'. So:
$FORM{'name'} =~ s/<[^>]*>//g;
One should be aware, though, that these regexes might fail on some
pathologically written HTML, so some will recommend the use of the
module HTML::Parser.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 19 Dec 1998 17:31:44 -0500
From: Bob Berman <rjberman@mindspring.com>
Subject: how to prevent sybperl from polling?
Message-Id: <367C2906.56A97C87@icehouse.com>
If I run Apache with mod_ssl enabled on Solaris, whenever I attempt to
connect to Sybase via a Sybperl CGI script, I get a child died on a
signal Pollable Event (22) error and one of the httpd processes dies
off. If I disable mod_ssl, everything runs fine or if I run the same
test on a mod_ssl enabled Apache on Linux, it runs fine too. Only on
Solaris with mod_ssl enabled do I encounter this problem. But as my
Sun machine is more powerful than my Linux machine, I'd like to know
how to disable polling in Sybperl? I know there is some constant called
CS_DISABLE_POLL in CTLib. How do I enable it so that CTLib will not do
polling? Or does anyone have a better idea?
------------------------------
Date: 19 Dec 1998 20:19:54 GMT
From: maxilious@earthlink.net (Kent)
Subject: Mac, Perl, uploading, help!
Message-Id: <maxilious-ya02408000R1912981219290001@news.earthlink.net>
Everytime I try to ulpoad a perl script with FETCH to my server the people
at the isp say it is corrupted.
Now when I upload my html to my regular dirs I have no problems with fetch
(set to raw data). I edit in BBedit light, should I be saving in a specific
format?
Please e-mail if you can?
Ken
------------------------------
Date: Sat, 19 Dec 1998 15:53:42 -0500
From: Tk Soh <r28629@email.sps.mot.com>
Subject: Re: numbers in base 36
Message-Id: <367C124B.69951858@email.sps.mot.com>
Matthew Bafford wrote:
[...]
> => MB> for ( split //, $number ) {
> => MB> $ret += $chars{$_} * $multi;
> =>
> => MB> if ( $multi == 1 ) { $multi = $base }
> => MB> else { $multi *= 2 }
> => ^^^
> => $multi
>
> Um, no. That's not how this works.
>
> The multiplier doubles every position, not squares.
'basic' mathematics: for every digit to the left, increase the power (of base)
by one, not doubling it.
Well, seriously, this has nothing to do with Perl.
-TK
------------------------------
Date: Sat, 19 Dec 1998 16:07:21 -0500
From: Tk Soh <r28629@email.sps.mot.com>
Subject: Re: numbers in base 36
Message-Id: <367C157E.7C8C5076@email.sps.mot.com>
Randal L. Schwartz wrote:
>
> >>>>> "deja" == deja <deja@kiama.com> writes:
>
> deja> Is there a way for perl to read numbers in bases other 8,10, and 16?
> deja> There is a function in Java to format an integer in any base, I would like to
> deja> create a base 36 number in java and pass it to a perl script. Can perl convert
> deja> it back to decimal?
>
> Well, here's a hack that just dawned on me:
>
> sub base36_to_dec {
> my $x = shift;
> $x =~ tr/0-9a-zA-Z/\x00-\x09\x0a-\x23\x0a-\x23/d;
> my $y = 0;
> for (unpack "C*", $x) {
> $y = $y * 36 + $_;
> }
> $y;
> }
>
> print map "base36($_) = ".base36_to_dec($_)."\n",
> qw(1 z Z 10 1z 1Z randal);
Bravo !!!
------------------------------
Date: Sat, 19 Dec 1998 16:30:46 -0500
From: "John Zeng" <john_z@hotmail.com>
Subject: Perl -- Newsltr Send Problem
Message-Id: <75h97t$ap5$1@birch.prod.itd.earthlink.net>
This is a multi-part message in MIME format.
------=_NextPart_000_001C_01BE2B6C.EE6C7460
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
A lil' help needed ~~> this is part of the script that sends my =
newsletter... however, it does not send it when there is more than one =
e-mail address in the file.. I need to know how to set up the email file =
so the script will send to every email address (if the script is =
fine)...thx
~~~~PART OF SCRIPT~~~~
open (DATABASE, "<$database") || die "File Error";
@lines =3D <DATABASE>;
close (DATABASE);
foreach $email_address (@lines)
{
chop($email_address);
print "Newsletter Sent To:<br> $email_address\n";
}
~~~~END PART OF SCRIPT~~~~
I've tried these combinations in the file containing the e-mail =
addresses....
=3D=3DEMAIL FILE=3D=3D
email@isp.net
email2@isp.com
xyz@abc.isp
=3D=3DANOTHER EMAIL FILE=3D=3D
email@isp.net; email2@isp.com; xyz@abc.isp
=3D=3DANOTHER EMAIL FILE=3D=3D
email@isp.net email2@isp.com xyz@abc.isp
------=_NextPart_000_001C_01BE2B6C.EE6C7460
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>
<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.3110.7"' name=3DGENERATOR>
</HEAD>
<BODY>
<DIV><FONT size=3D2>A lil' help needed ~~> this is part of the script =
that=20
sends my newsletter... however, it does not send it when there is more =
than one=20
e-mail address in the file.. I need to know how to set up the email file =
so the=20
script will send to every email address (if the script is=20
fine)...thx</FONT></DIV>
<DIV><FONT size=3D2><STRONG>~~~~PART OF SCRIPT~~~~</STRONG></FONT></DIV>
<DIV><FONT size=3D2> open (DATABASE, "<$database") || =
die=20
"File Error";<BR> @lines =3D =
<DATABASE>;<BR> close=20
(DATABASE);<BR> foreach $email_address (@lines)<BR> =
{<BR> =20
chop($email_address);<BR> print "Newsletter Sent =
To:<br>=20
$email_address\n";</FONT></DIV>
<DIV><FONT size=3D2>}</FONT></DIV>
<DIV><FONT size=3D2><FONT size=3D2><STRONG>~~~~END PART OF=20
SCRIPT~~~~</STRONG></FONT></FONT></DIV>
<DIV><FONT size=3D2><FONT size=3D2><STRONG></STRONG>I've tried these =
combinations in=20
the file containing the e-mail addresses....</FONT></FONT></DIV>
<DIV><FONT size=3D2><FONT size=3D2><FONT size=3D2><STRONG>=3D=3DEMAIL=20
FILE=3D=3D</STRONG></FONT></FONT></FONT></DIV>
<DIV><FONT size=3D2><A =
href=3D"mailto:email@isp.net">email@isp.net</A></FONT></DIV>
<DIV><FONT size=3D2><A=20
href=3D"mailto:email2@isp.com">email2@isp.com</A></FONT></DIV>
<DIV><FONT size=3D2><A =
href=3D"mailto:xyz@abc.isp">xyz@abc.isp</A></FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2>
<DIV><FONT size=3D2><FONT size=3D2><FONT size=3D2><STRONG>=3D=3DANOTHER =
EMAIL=20
FILE=3D=3D</STRONG></FONT></FONT></FONT></DIV>
<DIV>
<DIV><FONT size=3D2><A href=3D"mailto:email@isp.net">email@isp.net</A>; =
</FONT><FONT=20
size=3D2><A href=3D"mailto:email2@isp.com">email2@isp.com</A>; =
</FONT><FONT=20
size=3D2><A href=3D"mailto:xyz@abc.isp">xyz@abc.isp</A></FONT></DIV>
<DIV><FONT size=3D2></FONT> </DIV>
<DIV><FONT size=3D2><FONT size=3D2><FONT size=3D2><STRONG>=3D=3DANOTHER =
EMAIL=20
FILE=3D=3D</STRONG></FONT></FONT></FONT></DIV>
<DIV><FONT size=3D2>
<DIV><FONT size=3D2><A href=3D"mailto:email@isp.net">email@isp.net</A> =
</FONT><FONT=20
size=3D2><A href=3D"mailto:email2@isp.com">email2@isp.com</A> =
</FONT><FONT size=3D2><A=20
href=3D"mailto:xyz@abc.isp">xyz@abc.isp</A></FONT></FONT></DIV></DIV></DI=
V></FONT></DIV></BODY></HTML>
------=_NextPart_000_001C_01BE2B6C.EE6C7460--
------------------------------
Date: Sat, 19 Dec 1998 22:07:28 -0000
From: "Tony" <tspencer@exconet.co.uk>
Subject: Re: reading all files in a directory--Ok here is sample code.
Message-Id: <367c24df.0@glitch.nildram.co.uk>
Ok
Here is a sample of code I am currently using to read data from one users
file...
-------------------code-------------------------
# get user info
open (userfile, "<user/paul");
@userdata=<userfile>;
close (userfile);
foreach (@userdata)
{ if (substr ($_, -1) eq "\n") { chop; } }
@fulldata = split ($separator, $userdata[8]);
@option = split ($separator, $userdata[7]);
if ($option[12] == 2)
{
$userdata[3] = '';
}
print <<EOC;
Content-type: text/html
<HTML>
<HEAD>
<TITLE>
User Information
</TITLE>
</HEAD>
<H2>User Information</H2>
<HR>
<b>Full Name :</b> $user/userdata[0]
<BR><b>E-mail address :</b> <a href="mailto:$userdata[3]">$userdata[3]</a>
</BODY>
</HTML>
EOC
--------------------------End code------------------------------
As you can see I specify open (userfile, "<user/paul"); the name of the
directory (user/) and have specified the name of the file to look at (paul).
Then extracted the fields from the users file holding the name and email
address of the user.
This is fine for having to only specify the one persons file and printing
the info to an hmtl page.
Now I want to read every users file and extract the name and email address
for each user, and put them all into a web page seperated by a couple of
carriage returns.
The directory holding the files is user/ this directory has lots of files in
some with extensions that are not users files, the files without extensions
are users files.
The files are named by the users name, eg paul, tony, john etc, and I only
want to read these files one at a time and put the extracted info into the
web page.
I was looking to see if I could use a wildcard in a Perl script like so
user/* that would read every file without and extension, instead of putting
user/*.txt that would read every file with a .txt extension.
Now I guess my script above will be blown to bits by some, but I have only
been learning Perl for a short time and the code above is stuff I have
pieced together from existing scripts.
So please be kind I am only just learning to get to grips with all this.
I was looking also into use something like
foreach $userfile ("userdata[0]","userdata[3]") {
print "$userfile Name: userdata[0] Email : userdata[3] \n";
}
Somewhere in the part that generates the HTML page, this is totally wrong I
guess and will not work but as I said I have only just started looking into
this.
Thanks for any help
Tony
------------------------------
Date: 19 Dec 1998 15:21:04 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: reading all files in a directory
Message-Id: <75h1rg$3vi@panix.com>
In <367bf9b2.0@glitch.nildram.co.uk> "Tony" <tspencer@exconet.co.uk> writes:
>I am use Perl to try to read certain files in a directory and return the
>data asked for to a web page.
>The directory I am trying to get the script to read contains a number of
>users files with users information and a number of other files.
>The user files just have a name and no extension, the other files that do
>not contain users info have an extension.
>I need to tell the script to open the $users directory and read the users
>files one at a time
Hmm? Open a directory...
perldoc -f readdir
=item readdir DIRHANDLE
Returns the next directory entry for a directory opened by opendir().
If used in a list context, returns all the rest of the entries in the
directory. If there are no more entries, returns an undefined value in
a scalar context or a null list in a list context.
If you're planning to filetest the return values out of a readdir(), you'd
better prepend the directory in question. Otherwise, because we didn't
chdir() there, it would have been testing the wrong file.
opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
@dots = grep { /^\./ && -f "$some_dir/$_" } readdir(DIR);
closedir DIR;
$ perldoc opendir
$ perldoc -f opendir
=item opendir DIRHANDLE,EXPR
Opens a directory named EXPR for processing by readdir(), telldir(),
seekdir(), rewinddir(), and closedir(). Returns TRUE if successful.
DIRHANDLEs have their own namespace separate from FILEHANDLEs.
Read a directory...
perldoc -f readdir
=item readdir DIRHANDLE
Returns the next directory entry for a directory opened by opendir().
If used in a list context, returns all the rest of the entries in the
directory. If there are no more entries, returns an undefined value in
a scalar context or a null list in a list context.
If you're planning to filetest the return values out of a readdir(), you'd
better prepend the directory in question. Otherwise, because we didn't
chdir() there, it would have been testing the wrong file.
opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
@dots = grep { /^\./ && -f "$some_dir/$_" } readdir(DIR);
closedir DIR;
>and return the field containing the users name and email address to the
>web page the script generates.
>The users name is in a field represented by $userdata[1]
>The email address is in a field by itself and is represented by $userdate[4]
>.
>So can anyone supply a snipet of code that will open the directory specified
>by $users and read all the files without an extension one at a time and for
>each $userdata[1] $userdata[4] print the data to a webpage and do a carriage
>return.
>Hope this is clear
No. Maybe if you posted sample code it would be clear...
--
Clay Irving
clay@panix.com
------------------------------
Date: Sat, 19 Dec 1998 21:39:07 +0100
From: Martin Schager <martin.schager@vienna.at>
Subject: reading form files
Message-Id: <367C0EEB.403D9391@vienna.at>
Hi I!
I have the following problem:
I create a file using perl.
When I read it with the following routine, it only reads the first line
(open (FIL, "<" . $file)){
$fi_content = <FIL>;
close (FIL);
}
How do I read the entire file into a variable by keeping the line format
(paragraphs,[\n's ,\t, s ], etc)
Thanks
MS
------------------------------
Date: 19 Dec 1998 21:56:03 GMT
From: "Allan M. Due" <due@murray.fordham.edu>
Subject: Re: reading form files
Message-Id: <75h7dj$m8m$0@206.165.165.155>
Martin Schager wrote in message <367C0EEB.403D9391@vienna.at>...
|Hi I!
Hi U!
|I have the following problem:
||I create a file using perl.
||When I read it with the following routine, it only reads the first line
| (open (FIL, "<" . $file)){
|$fi_content = <FIL>;
|close (FIL);
|}
You can't kid me, there is really an if in front isn't there <g>. Actually
what you have is fine (as long as you are checking that open) so your problem
lies elsewhere. You don't really need the "<", but you can keep it if you
like. You are checking that open aren't you?
HTH
AmD
------------------------------
Date: 19 Dec 1998 22:15:46 GMT
From: "Allan M. Due" <due@murray.fordham.edu>
Subject: Re: reading form files
Message-Id: <75h8ii$odc$0@206.165.165.155>
Allan M. Due wrote in message <75h7dj$m8m$0@206.165.165.155>...
|Martin Schager wrote in message <367C0EEB.403D9391@vienna.at>...
||Hi I!
|Hi U!
||I have the following problem:
|||I create a file using perl.
|||When I read it with the following routine, it only reads the first line
|| (open (FIL, "<" . $file)){
||$fi_content = <FIL>;
||close (FIL);
||}
|You can't kid me, there is really an if in front isn't there <g>. Actually
|what you have is fine (as long as you are checking that open) so your problem
|lies elsewhere. You don't really need the "<", but you can keep it if you
|like. You are checking that open aren't you?
Ok, there is a funny story behind my last post but lets let sleeping dogs lie.
Try this:
if (open (FIL, "<" . $file)){
local $/;
$fi_content = <FIL>;
close (FIL);
}
Yikes.
AmD
------------------------------
Date: Sat, 19 Dec 1998 16:34:39 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: reading form files
Message-Id: <vl9h57.g64.ln@magna.metronet.com>
Martin Schager (martin.schager@vienna.at) wrote:
: How do I read the entire file into a variable by keeping the line format
: (paragraphs,[\n's ,\t, s ], etc)
{
local $/; # $/ = undef for "slurp mode"
open(FIL, $file) || die "could not open '$file' $!";
$fi_content = <FIL>;
close(FIL);
}
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 19 Dec 1998 14:52:18 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: replacing text with a variable
Message-Id: <2m3h57.co3.ln@magna.metronet.com>
Allan M. Due (due@murray.fordham.edu) wrote:
: groans@mailexcite.com wrote in message <75gquq$dh1$1@nnrp1.dejanews.com>...
: |Hello all,
: |Lets say I want to change:
: |/some/text
: |to
: |$a/some/text
: |where $a is any text value.
: |Could I use the following commmand?
: |s!/s!$a/s!is;
: Well, what happened when you tried it? I am not sure why you have the s there
: but I am going to believe you that you need it.
He cannot possibly need it.
The /s option affects only the interpretation of the dot character,
and his pattern has no dot characters in it...
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 19 Dec 1998 20:43:49 GMT
From: birgitt@my-dejanews.com
Subject: Re: Retrospective on comp.lang.perl.moderated?
Message-Id: <75h365$jqh$1@nnrp1.dejanews.com>
In article <MPG.10e56c1c512e52a3989966@nntp.hpl.hp.com>,
lr@hpl.hp.com (Larry Rosler) wrote:
> comment on how comp.lang.perl.moderated has performed over its life of
> six months or so, relative to the hopes and expectations of its
> proponents?
I remember that the expectation of at least one moderator in clp.moderated,
namely that clp.misc would be wasteland after clp.moderated would have come to
life for a couple of months, didn't fulfill.
One reason this was expected, I remember, was the belief that newbies would
flock with the experts to get the information they want. With the experts
running over to clp.moderated for a quieter environment, one would have
thought this was a reasonable, logic conclusion and expectation.
But did it happen ?
My question today would be, if one can prove that most newbies now read more
clp.moderated than clp.misc, if they ask different questions, if they flock
mostly behind the experts and where the experts ended up being.
>
> A cost-benefit analysis at this time might be enlightening.
>
I started to read clpm at the height of heated debates and flame wars, around
nine months ago. IMHO I think, that the thoughts, distraction and emotions put
into the question of why creating a moderated group was necessary, were too
costly.
I voted for a moderated group, I read the moderated group and am supportive
of its existence, but I would not want to miss clp.misc either. If I had to
choose between the two today, I would stick with clp.misc.
The dynamics for the ups and downs of clp.misc, the amount of noisyness,
crowdyness and the overall behaviour of posters in clp.misc, I believe, all of
it is not influenced by the existence of clp.moderated.
That doesn't mean that its existence is superflous. Fulfilling the wish to
have a less crowded and more technical oriented Perl newsgroup should not be
denied.
But I wonder, if the amount of time, effort and nerves which goes into
creating and maintaining a moderated group within the current system, is not
too high.
birgitt
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sat, 19 Dec 1998 13:03:32 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Retrospective on comp.lang.perl.moderated?
Message-Id: <MPG.10e5b4805ff0d4fa989968@nntp.hpl.hp.com>
In article <MPG.10e5aa56543d532b989768@news.scescape.net> on Sat, 19 Dec
1998 12:20:07 -0500, Matthew Bafford <dragons@scescape.net> says...
+ In article <MPG.10e56c1c512e52a3989966@nntp.hpl.hp.com>, lr@hpl.hp.com
+ says...
+ => I crossposted this submission as shown below:
+ => Newsgroups: comp.lang.perl.moderated, comp.lang.perl.misc
+ => It has appeared in ...moderated, but not in ...misc! Isn't that a
+ => surprise?
...
+ It appears in .misc. Your newsreader didn't show it, since you had
+ already read it in .moderated.
+
+ :-)
+
+ --Matthew
+
+ Another Gravity user.
Ulp. Yes, Gravity does that (and I like it!).
At least now you know which of the two groups I read first. :-)
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 19 Dec 1998 13:28:37 -0600
From: jcrouch@MCS.COM (Jude Crouch)
Subject: Re: Retrospective on comp.lang.perl.moderated?
Message-Id: <75gup5$1du6$1@Mercury.mcs.net>
In comp.lang.perl.moderated Larry Rosler <lr@hpl.hp.com> wrote:
> With year-end-assessment time rapidly approaching, would anyone care to
> comment on how comp.lang.perl.moderated has performed over its life of
> six months or so, relative to the hopes and expectations of its
> proponents?
> A cost-benefit analysis at this time might be enlightening.
I'm just a lurker who wanted to let you know I am very interested
in this assessment. I'm a regular on several
comp.infosystems.www.authoring.* groups, and as many of you
may know, an attempted reorganization of CIWA* was attempted
earlier this year, including creating a moderated HTML group.
Altho it never went to a CFV, it is likely that a new attempt
will be made sometime in the future to reorg, so please do not
hold back on your comments. They will be important to us.
I'll go back to lurking here for a while, while I continue
learning perl. Thank you all.
Jude
--
Jude Crouch (jcrouch@pobox.com) - Computing since 1967!
Crouch Enterprises - Telecom, Internet & Unix Consulting
Oak Park, IL 708-848-0134 URL: http://www.pobox.com/~jcrouch
------------------------------
Date: Sat, 19 Dec 1998 13:23:56 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Retrospective on comp.lang.perl.moderated?
Message-Id: <MPG.10e5b943eff011aa989969@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <x7ww3oknkd.fsf@sysarch.com> on 19 Dec 1998 13:13:06 -0500,
Uri Guttman <uri@sysarch.com> says...
+ >>>>> "LR" == Larry Rosler <lr@hpl.hp.com> writes:
+ LR> I crossposted this submission as shown below:
+ LR> Newsgroups: comp.lang.perl.moderated, comp.lang.perl.misc
+ LR> It has appeared in ...moderated, but not in ...misc! Isn't that
+ LR> a surprise?
+
+ are you sure? many newsreaders will not show a posting that was read
+ already in one of its cross posted list. if you read it first in
+ moderated, you wouldn't see it in misc. you have to do some special
+ magic to locate the post (by id i think) in a given group.
+
+ i know this happens in emacs gnus and others have that feature.
Yes, including mine (Gravity). I simply forgot.
I note that you set your followup comment to ...moderated only. By
cross-posting, I wanted to inform everyone that at least some
reexamination and retuning of the new group might take place. I trust
it will be productive.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sat, 19 Dec 1998 22:26:50 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Retrospective on comp.lang.perl.moderated?
Message-Id: <Pine.HPP.3.95a.981219222145.22012E-100000@hpplus01.cern.ch>
On Sat, 19 Dec 1998, Larry Rosler wrote:
> At least now you know which of the two groups I read first. :-)
alphabetical order?
This seems like it could be a disadvantage of any *.misc/*.moderated
pair. If a reader had superficially scanned the misc group, not spotted
one of the articles as being of particularly high value, and that
article had been cross-posted, then one would not be offered the chance
of reconsidering one's opinion when one reached the moderated group.
If not cross-posted, then the article would have stood a better chance,
it seems to me. (Or are my observations untypical, or what?).
------------------------------
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 4462
**************************************
