[11614] in Perl-Users-Digest
Perl-Users Digest, Issue: 5214 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 24 11:21:22 1999
Date: Wed, 24 Mar 99 08:00:27 -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 Wed, 24 Mar 1999 Volume: 8 Number: 5214
Today's topics:
Re: << string definer (Timothy Larson)
Re: << string definer (Timothy Larson)
Re: << string definer (I R A Aggie)
Re: C function in Perl <ibelgaufts@gfc-net.de>
Re: Can i do tcp/ip programming on NT platforms? <ibelgaufts@gfc-net.de>
Re: choping off whitespace (Greg Bacon)
Compiling Curses under HP-UX vinger@ford.com
Re: Date function question nkaiser@my-dejanews.com
Re: Date function question (Bill Moseley)
Re: Date function question (I R A Aggie)
Re: Executing another SCRIPT on a different SERVER <droby@copyright.com>
Re: File Length And Truncating (Greg Bacon)
File Read Error: Step at / chunk error message <sguidos@nr.infi.net>
Re: Handling white space in path <Allan@due.net>
Help: Memory troubles bmonti@my-dejanews.com
I have a question about a search script> <rollo@enter.net>
MSQL problem with select <cliff@scs.uiuc.edu>
Re: Need username in Perl script (Abigail)
Re: newbe: to find the highest entry in group <vince@oxxfordinfo.com>
Re: Newbie to Perl <olivier.henrot@alcatel.fr>
Re: open3 and flushing STDOUT (I.J. Garlick)
Perl Composer Needed <heebe@nospamthanks.hotmail.com>
Perl not working with PWS <simon_ng@pacific.net.sg>
perl version 4 <chiao.5@osu.edu>
Re: protecting perl scripts (Greg Bacon)
Really Stupid Question... <simon@fsite.com>
Re: Sendmail return address help <Michael.Cameron@REMOVETHIS.technologist.com>
Re: Simple Program (Bart Lateur)
Re: Simple Program <asquith@macconnect.com>
Re: Simple Program <Michael.Cameron@REMOVETHIS.technologist.com>
Re: Simple Program (Larry Rosler)
Re: sorting multi-dim array (Greg Bacon)
Re: UNIX --> WinNT --> Excell Spreadsheet via OLE <smitzla@uswest.com>
Update HTML via perl/cgi? gphoenix@dttus.com
Web Mail <flanker@sonnet.ru>
Re: what is wrong w/ this sorting code? (Greg Bacon)
What to use instead of rename <eric@astro.wesleyan.edu>
Re: Why don't wildcards expand on cmd line- win32 v5.00 (Bart Lateur)
Re: Win32 file size limitations? (the jackal)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 24 Mar 1999 13:10:04 GMT
From: larsot2@krypton.mankato.msus.edu (Timothy Larson)
Subject: Re: << string definer
Message-Id: <7dao7c$kqq$1@nitrogen.mankato.msus.edu>
In article <36F7D8CB.E3B0A557@mail.cor.epa.gov>,
David L. Cassell <cassell@mail.cor.epa.gov> wrote:
>Timothy Larson wrote:
>> In _Teach Yourself Perl in 21 Days_ I found a neat use of << to define
>> multiline strings. I tried it with Perl 5.004 on linux and it doesn't
>> work. OK, the book is an old one, so I was thinking maybe this use of
>> << has been dropped. Does anyone know? I haven't found a mention of it
>> so far. I just thought it would be a convenient way to make my comment
>> block into a string that could be shown to the user if something goes
>> wrong.
>> Tim
>
>This is usually called a 'here document'. It comes from unix shell
>programming. It works on all Perls (as far as I know) and is not going
>to be dropped. Too many people use it in too many places. The most
>common problem people hit with here docs is not getting that last line
>quite right. If you say:
>
>print<<ENDOFJUNK
>Top of the world ma!
>ENDOFJUNK
>
>..then you have to make sure that you have no whitespace or invisible
>characters on either side of that third line. The second most common
>problem is accidentally putting a space between '<<' and 'ENDOFJUNK',
>in which case you just told Perl to print until the first blank line.
>Oops.
>
>You might want to call perl using the -w flag too. It will catch a
>lot of your errors. I *always* use it in any code longer than a
>line, and even in a lot of my one-liners.
That example would have errored out for me too. But
print <<ENDOFJUNK;
Top of the world ma!
ENDOFJUNK
works. All my other examples didn't use a ; either and that was my problem.
Maybe there is something about different versions requiring a ; and others
not? *sigh* Thanks everyone.
Tim
------------------------------
Date: 24 Mar 1999 13:12:26 GMT
From: larsot2@krypton.mankato.msus.edu (Timothy Larson)
Subject: Re: << string definer
Message-Id: <7daobq$kqs$1@nitrogen.mankato.msus.edu>
In article <7d9j4m$h12$1@nitrogen.mankato.msus.edu>,
Timothy Larson <larsot2@krypton.mankato.msus.edu> wrote:
>In article <7d8blh$dv8$1@nitrogen.mankato.msus.edu>,
>Timothy Larson <larsot2@krypton.mankato.msus.edu> wrote:
>>In _Teach Yourself Perl in 21 Days_ I found a neat use of << to define
>>multiline strings. I tried it with Perl 5.004 on linux and it doesn't
>>work. OK, the book is an old one, so I was thinking maybe this use of
>><< has been dropped. Does anyone know? I haven't found a mention of it
>>so far. I just thought it would be a convenient way to make my comment
>>block into a string that could be shown to the user if something goes
>>wrong.
>
>OK, I realize I should have posted an example. I thought maybe my whole
>comment block was too big, so I shorted it up. Here's the beginning of
>my script
>
>#!/usr/local/bin/perl -- -*-perl-*-
>
>use Time::localtime;
>use Time::Local;
>
>$s = <<END
>This is my string.
>END
>print "$s\n";
It was suggested I try $s = <<END; and that worked. I wish all my earlier
examples in the books had said that. I thought not having the ; was a
special syntax and followed it exactly. *sigh*
Thanks for the help everybody.
Tim
------------------------------
Date: 24 Mar 1999 14:25:36 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: << string definer
Message-Id: <slrn7fhu1c.o5f.fl_aggie@stat.fsu.edu>
On 24 Mar 1999 13:12:26 GMT, Timothy Larson
<larsot2@krypton.mankato.msus.edu> wrote:
+ It was suggested I try $s = <<END; and that worked. I wish all my earlier
+ examples in the books had said that. I thought not having the ; was a
+ special syntax and followed it exactly. *sigh*
There *is* a situation where not having the ; doesn't cause problems: at
the end of a block. Consider:
> perl -w
my $s;
if (1) {
$s=<<END
abcd
END
}
print $s;
Results: abcd
This is probably because the interpreter uses the curly brackets to
determine how far to parse. That may explain why occasionally that
syntax would work for you.
James
------------------------------
Date: Wed, 24 Mar 1999 15:18:34 +0100
From: =?iso-8859-1?Q?J=FCrgen?= Ibelgaufts <ibelgaufts@gfc-net.de>
Subject: Re: C function in Perl
Message-Id: <36F8F43A.8E412105@gfc-net.de>
Read perlembed from the pod or html directory. It is included in
your perl distribution.
Juergen Ibelgaufts
-------------------------------------------------------
yue xu schrieb:
>
> Does anyone know how to integrate a C function into
> Perl? i.e. if I have a function doing shell sort, how can
> I make it available in PERL (not mean make it a executable
> and do system)?
------------------------------
Date: Wed, 24 Mar 1999 15:17:18 +0100
From: =?iso-8859-1?Q?J=FCrgen?= Ibelgaufts <ibelgaufts@gfc-net.de>
Subject: Re: Can i do tcp/ip programming on NT platforms?
Message-Id: <36F8F3EE.1CC5B3EA@gfc-net.de>
Hi,
well you *can* write fancy stuff with sockets on NT. I wrote a
webserver that can show directories and process cgi calls (as
perl modules). I developed it under OS/2, and when I went over
to NT, the only surprise was that fork() is not implemented, so
you cannot process several client requests in parallel which
makes the whole thing slow. Unfortunately, the new thread
mechanism in perl still seems very experimental; I only got it
work with very simple examples.
Juergen Ibelgaufts
--------------------------------------------------------------------------------------------
Zenin schrieb:
>
> smnayeem@my-dejanews.com wrote:
> : most of the socket functions of perl comes direct from unix, but how will
> : i do these on NT platform? if anyone knows please let me know, id greatly
> : appreciate ur help.
>
> I've used IO::Socket with no differences for client code. Last I
> looked (a long time ago...) Socket.pm was a wrapper around the
> winsock.dll/Winsock.pm.
>
> I wouldn't try to write really fancy code (eg, a server), but most
> standard client code should be fine.
>
> --
> -Zenin (zenin@archive.rhps.org)
>
> Yah, Emacs is a good OS, but I prefer FreeBSD.
------------------------------
Date: 24 Mar 1999 14:53:30 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: choping off whitespace
Message-Id: <7dau9a$lij$3@info2.uah.edu>
In article <slrn7fgoqk.5i6.morpheus@teleute.rpglink.com>,
morpheus@no-spam.calweb.com (Steve Lamb) writes:
: Because I didn't have my perl book handy so I wasn't absolutely sure on
: the syntax as I don't use s/// all that often and, secondly, I don't read
: the FAQ so I answered anyway. :)
What? You don't read the FAQ? Even Tom and Randal read the FAQ. Do
you know Perl better than they?
Greg
--
Only great masters of style can succeed in being obtuse.
-- Oscar Wilde
Most UNIX programmers are great masters of style.
-- The Unnamed Usenetter
------------------------------
Date: Wed, 24 Mar 1999 13:45:13 GMT
From: vinger@ford.com
Subject: Compiling Curses under HP-UX
Message-Id: <7daq96$2bt$1@nnrp1.dejanews.com>
Hello,
Has anyone had problems compiling Curses (of for that matter, any other
package) under HP-UX? HP's cc (called Bundled CC) doesn't like perl
header files in CORE directory. I didn't have any problems compiling
same package with Sun perl. HP-UX Perl was compiled under OS version
10.20 - I'm trying to compile Curses under 11.
Thanks.
- Slav Inger.
- vinger@ford.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 24 Mar 1999 13:31:29 GMT
From: nkaiser@my-dejanews.com
Subject: Re: Date function question
Message-Id: <7dapfh$1ha$1@nnrp1.dejanews.com>
Thanks, that helps. However, another thing I'll need to be able to do is this:
$time = 'Mar 24 12:00:00';
This is the exact format which I will get a date. It is basically the same as
localtime(time), except it doesn't have the day of the week, year, or
timezone.
Now, I need to convert this to a number (similar to time()) so I can compare
dates. And then be able to change it back to a string.
Is this possible?
Thanks again.
Neal
In article <MPG.11621adfdac5adc99896e6@206.184.139.132>,
moseley@best.com (Bill Moseley) wrote:
> In article <7d9qt2$8n6$1@nnrp1.dejanews.com>, nkaiser@my-dejanews.com
> says...
> > Is there a way to get the current date in as a large number, rather than
> > localtime(time). Then, convert it back to localtime(time) format for
> > displaying.
>
> This what you mean?
>
> $time = time();
>
> $later = $time + 12 * 3600;
>
> $string_date = scalar localtime( $later );
>
> print "And the time was: $string_date\n";
>
> The docs on localtime are enjoyable.
>
> --
> Bill Moseley mailto:moseley@best.com
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 24 Mar 1999 06:24:33 -0800
From: moseley@best.com (Bill Moseley)
Subject: Re: Date function question
Message-Id: <MPG.1162957f9b26170d9896e8@206.184.139.132>
In article <7dapfh$1ha$1@nnrp1.dejanews.com>, nkaiser@my-dejanews.com
says...
> $time = 'Mar 24 12:00:00';
>
> Now, I need to convert this to a number (similar to time()) so I can compare
> dates. And then be able to change it back to a string.
How can I take a string and turn it into epoch seconds?
Is a FAQ question.
--
Bill Moseley mailto:moseley@best.com
------------------------------
Date: 24 Mar 1999 14:30:12 GMT
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Date function question
Message-Id: <slrn7fhu9v.o5f.fl_aggie@stat.fsu.edu>
On Wed, 24 Mar 1999 13:31:29 GMT, nkaiser@my-dejanews.com
<nkaiser@my-dejanews.com> wrote:
+ Thanks, that helps. However, another thing I'll need to be able to do is this:
+
+ $time = 'Mar 24 12:00:00';
+ This is the exact format which I will get a date. It is basically the same as
+ localtime(time), except it doesn't have the day of the week, year, or
+ timezone.
YM "the same as `scalar localtime(time)', except...".
+ Now, I need to convert this to a number (similar to time()) so I can compare
+ dates. And then be able to change it back to a string.
+ Is this possible?
Sure. perldoc Time::Local is your friend.
James
------------------------------
Date: Wed, 24 Mar 1999 14:25:46 GMT
From: Don Roby <droby@copyright.com>
Subject: Re: Executing another SCRIPT on a different SERVER
Message-Id: <7dasku$4ie$1@nnrp1.dejanews.com>
In article <36F6D30D.97CD929C@enhanced-performance.com>,
Dale Sutcliffe <dales@enhanced-performance.com> wrote:
> What if my ISP won't allow me to install perl modules onto the server, only
simple
> perl/cgi scripts. Is there some method to still use LWP or some other socket
type
> script?
>
Look at perlfaq8 under the heading
How do I keep my own module/library directory?
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 24 Mar 1999 15:04:39 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: File Length And Truncating
Message-Id: <7dauu7$lij$5@info2.uah.edu>
In article <7d9o0u$l7q$1@winter.news.rcn.net>,
"David J Whalen-Robinson" <davidrn@pobox.com> writes:
: I want to truncate a file to a shorter length WHILE it is open.
: I think there is a way to do this but I forget how.
Did you bother to search the perlfunc(1) manpage for truncate?
Greg
--
Politicians and diapers have one thing in common. They should both be changed
regularly and for the same reason.
-- Gerry Brooks
------------------------------
Date: Wed, 24 Mar 1999 07:59:26 -0500
From: "Steve Guidos" <sguidos@nr.infi.net>
Subject: File Read Error: Step at / chunk error message
Message-Id: <7danl2$kaj$1@nw001t.infi.net>
My perl script aborts and generates the following error message on a
seemingly random basis:
PRODFILE Step at /u/web/artfo4/cgi-local/cron-RandHome.pl line 35,
<PRODFILE> chunk 454.
Line 35 of that perl script reads:
$TempLine = <PRODFILE> or die($!, "PRODFILE Header"); # header line !
The previous code opens, reads through, closes, and then re-opens the text
file PRODFILE, and line 35 reads in the first line of that file. I cannot
find a description of the 'Step at' error in any of the the perl docs. Can
anyone tell me what the error message means, or what is happening? And why
doesn't my text "PRODFILE Header" get output as part of the error message to
stderr?
Steve Guidos
------------------------------
Date: Wed, 24 Mar 1999 08:08:11 -0500
From: "Allan M. Due" <Allan@due.net>
Subject: Re: Handling white space in path
Message-Id: <7danmg$nju$1@camel21.mindspring.com>
Michael Choueiry wrote in message <36F81BD1.57AC457A@algonquinc.on.ca>...
:Hi all,
: Please check this little script below and if you would tell me how I
:can let it work !
:# Purpose
:# Lists all the files in a specified directory.
:my $directory = "c:\\Program Files\\Windows NT\\Pinball\\*";
:while (glob("$directory"))
:{
: print "File: $_\n";
:}
:As you can see, if the variable directory is given a path with no
:spaces, it works just fine but if like this example, it wouldn't !
:I used GetOpt::Long but didn't work either !
:Any suggestion would be appreciated !
One way:
#!/usr/local/bin/perl -w
use strict;
use Win32;
my $directory = "c:\\Program Files\\Windows NT\\Pinball";
my $short_dir = Win32::GetShortPathName($directory);
while (glob("$short_dir\\*"))
{
print "File: $_\n";
}
--
$email{'Allan M. Due'} = ' All@n.Due.net ';
--random quote --
When you come to a fork in the road take it.
- Yogi Berra
------------------------------
Date: Wed, 24 Mar 1999 15:17:45 GMT
From: bmonti@my-dejanews.com
Subject: Help: Memory troubles
Message-Id: <7davme$7at$1@nnrp1.dejanews.com>
The following Perl script was handed to me to fix.
I am not at all a Perl guru, so I am having a trouble figuring out how to fix
it.
Here is what the script does:
- it parses files sent to it containing HTML, SQL and commands.
- it executes the SQL, creating $sets arrays with the results of the SELECT
queries.
- it then executes the commnds (for, next, if, endif).
- it then parses the HTML, replacing any variables with the SQL results.
Here is the problem:
- the script works just fine most of the time.
- when it doesn't work, it will:
(A) give an Out Of Memory! error
-and, sometimes -
(B) give an Attempt To Free Unreferenced Scalar error
Here are my thoughts:
- there is something about the recursive parse_html sub that is running amok.
- I don't really know that much about how Perl handles memory usage.
- I don't have the foggiest idea of how to fix it!
Here is my plea: - if you have the time, please take a look at the code and
offer any help that you can.
# initialization
$dsn = "[...ODBC Name...]"; #the ODBC data set name
$global_index = 0; #a reference number for @htmllines
$screen = undef; #holds filename to be opened, corresponding to an HTML
screen.
$rownum = undef(); #holds a row number for a set
@htmllines; #holds each chunk of html
$null = undef(); #holds things that wont be executed
@forhistory; #holds rownumbers of for loops to access parent values
$forindex = -1; #holds a number to index the forhistory array
# included modules
use Win32::ODBC;
# consider removing heavy CGI.pm module from use list once in production.
# its only in here to allow us to test cgi output from the command line.
use CGI qw(:all);
# preparation # will need to replace this with the complete header string
before remove CGI.pm print header;
#print"Starting out with screen decision maker...\n";
# screen decision maker
# base case is the login screen
if( param() ) {
$screen = param('screen');
$screen = "data/" . $screen;
$plogin = uc( param('login') );
$ppassword = param('password');
$pcode = param('code');
$precord_id = param('record_id');
$scode = param('code');
$slogin = param('login');
} else {
[...variable setup...]
}
# make connection to db
$db = new Win32::ODBC [...connection string...];
die qq(
[...error message...]
) if ! $db;
#postprocessing of delete queries
if( param('deletequery') ) {
# initialization
$rc = undef; #return code for sql execution; success returns undef
$sql = param('deletequery');
# implementation
$rc = $db->Sql($sql); #if SQL fails $rc gets an error code number
die qq(SQL failed "$sql": ), $db->Error(), qq(\n) if $rc;
}
#postprocessing of insert or update queries
if( param('updatequery') ) {
# initialization
$rc = undef; #return code for sql execution; success returns undef
$sql = param('updatequery');
# implementation
$rc = $db->Sql($sql); #if SQL fails $rc gets an error code number
die qq(SQL failed "$sql": ), $db->Error(), qq(\n) if $rc;
}
#postprocessing of insert or update queries
if( param('insertquery') ) {
# initialization
$rc = undef; #return code for sql execution; success returns undef
$sql = param('insertquery');
# implementation
$rc = $db->Sql($sql); #if SQL fails $rc gets an error code number
die qq(SQL failed "$sql": ), $db->Error(), qq(\n) if $rc;
}
open( HTML, $screen ) or
die "$0-- cant read $screen-- $!\n";
while(<HTML>)
{
s/\r/\r%%/g; #marks tag splits
if( !/^\s*$/ )
{
push @htmllines, split( /%%/ );
}
}
close HTML;
print parse_html( $global_index );
exit;
sub parse_html {
#Usage: parse_html( $first )
#$first is the array reference of the first line we want to parse
my $accum; #$accum hold the string of parsed HTML to be returned
my $first = shift( @_ ); #$first is the first line of HTML to iterate over
my $htmllinenum;
my $temp;
for $htmllinenum ( $first..$#htmllines ) { if( $htmllines[$htmllinenum] =~
m/<!--: *for *([0-9]+) *-->/i ) # FOR LOOPS { # $global_index =
$htmllinenum + 1; # my $local_index = $htmllinenum + 1; # # if(
$#{$sets[$1]} > -1 ) # { # for $rownum ( 0..$#{$sets[$1]} ) # { #
$forindex++; # push( @forhistory, $rownum ); # $accum .= parse_html(
$local_index ); #the for block # pop( @forhistory ); # $forindex--; # }
# } # else # { # $null .= parse_html( $local_index ); #the for block
# } # # $accum .= parse_html( $global_index ); #the rest of doc #
return $accum; # } elsif ($htmllines[$htmllinenum] =~ m/<!--: *next *-->/i
) # NEXT { # $global_index = $htmllinenum + 1; # return $accum; # }
elsif ( $htmllines[$htmllinenum] =~ m/<!--: *if *(.+) *-->/i ) # IF
STATEMENT { # $global_index = $htmllinenum + 1; # # if ( eval $1 == 0 )
# { # $null .= parse_html( $global_index ); # } # else # { #
$accum .= parse_html( $global_index ); # } # # $accum .= parse_html(
$global_index ); # return $accum; # } elsif ( $htmllines[$htmllinenum]
=~ m/<!--: *endif *-->/i ) # ENDIF { # $global_index = $htmllinenum + 1;
# return $accum; # } elsif ( $htmllines[$htmllinenum] =~ m/<!--:SQL/i )
# SQL (START) { # $global_index = $htmllinenum + 1; # $accum =
parse_html( $global_index ); #the block # eval "$accum"; # $accum =
parse_html( $global_index ); #the rest of doc # return $accum; # } elsif
( $htmllines[$htmllinenum] =~ m/:SQL-->/i ) # SQL (END) { # $global_index
= $htmllinenum + 1; # return $accum; #its actually evaluated # }
else # VARIABLES { # AND THE $temp = $htmllines[$htmllinenum]; # REST
OF $temp =~ s/\$\$(\w+)\$\$/${$1}/g; # THE HTML $temp =~
s/\$\$([0-9]+):([0-9]+):(\w+)\$\$/$sets[$1][$2]{$3}/g;# $temp =~
s/\$\$([0-9]+):(\w+)\$\$/$sets[$1][$rownum]{$2}/g; # $temp =~
s/\$\$(\w+)\$\$/${$1}/g; #substitutes scalars # $accum .= $temp; } #
End if( $htmllines[$htmllinenum] =~ m/<!--: *for ([0-9]+) *-->/i ) } # End
for $htmllinenum ( $first..$#htmllines )
return $accum;
} # End of parse_html
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 24 Mar 1999 01:04:43 -0500
From: "Rollo Lawson" <rollo@enter.net>
Subject: I have a question about a search script>
Message-Id: <36f87fc4@news3.enter.net>
Below I have a Perl Script I wrote to search a directory for html files
containing particular words.
The script works fine and everything and spits back the results. My
question to you is I would also like to extract the words contained between
the <title> Descriptive Text</title> tags for only the matches so I could
place a brief description with each match. I cannot figure out how to do
this with the script I have enclosed below. Please Help!
Heres the script Please e-mail me if you have any answers Thanks
rollo lawson
rollo_lawson@yahoo.com
#!/perl/bin/perl
#Marc's Search.pl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs=split(/&/, $buffer);
#Split the Values
foreach $pair (@pairs)
{
($name,$value)=split(/=/,$pair);
$value =~tr/+/ /;
$value =~s/%(..)/pack("C",hex($1))/eg;
$FORM{$name}=$value;
}
$i=0;
foreach $file (</apache/htdocs/*.htm>)
{
print $file;
open(HTML, $file);
undef $/;
$body=<HTML>;
$/="\n";
close(HTML);
if ($body=~/$FORM{key}/i)
{
push(@doclist, $file);
}
}
print "Content-type: text/html\n\n";
print "<HTML>\n<HEAD>\n<TITLE>Your Search results</TITLE></HEAD>\n";
print "<BODY><CENTER><H1>Your Search Results</H1></CENTER>\n<HR><P>\n";
print "The following documents contain the word: <B>$FORM{key}</B>\n<P>\n";
print "<UL>\n";
print "Hello World";
foreach $name (@doclist){
print "<LI><a href=\"$name\">$name</a>\n";
}
print "</UL>\n";
print "</BODY>\n</HTML>\n";
------------------------------
Date: Wed, 24 Mar 1999 09:39:11 -0600
From: Clifford Meece <cliff@scs.uiuc.edu>
Subject: MSQL problem with select
Message-Id: <36F9071F.B01F29DF@scs.uiuc.edu>
I have a SELECT statement that I can't seem to get working in msql.
>From the msql monitor I get the following:
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
mSQL > select * from accounts \g
Query OK. 0 row(s) modified or retrieved.
+----------+----------+----------+----------+----------------------+
| acctId | subAcct | uid | uid2 | acctNum |
+----------+----------+----------+----------+----------------------+
+----------+----------+----------+----------+----------------------+
mSQL > SELECT * FROM accounts WHERE acctNum = '1234' and subAcct = '50'
\g
ERROR : Bad type for comparison of 'subAcct'
mSQL > SELECT * FROM accounts WHERE acctNum = '1234' and subAcct = 50
\g
Query OK. 0 row(s) modified or retrieved.
+----------+----------+----------+----------+----------------------+
| acctId | subAcct | uid | uid2 | acctNum |
+----------+----------+----------+----------+----------------------+
+----------+----------+----------+----------+----------------------+
mSQL >
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Notice it doesn't like the subAcct ='50' because subAcct is an UINT (I
presume)
Now when I try to call an equivalent routine from perl:
$acct="1111022";
$proj="00";
$sth=$dbh->prepare(q{SELECT * FROM accounts WHERE (acctNum = '$acct'
AND subAcct = $proj)});
$sth->execute;
I get :
DBD::mSQL::st execute failed: parse error at line 1 near "= $" at
bin/populate_accounts2.pl line 41, <ACCTS> chunk 1.
i.e. it dos not like the 'subAcct = $proj' part.
So I modify the code:
$sth=$dbh->prepare(q{SELECT * FROM accounts WHERE (acctNum = '$acct'
AND subAcct = '$proj')});
$sth->execute;
Now I get:
DBD::mSQL::st execute failed: Bad type for comparison of 'subAcct' at
bin/populate_accounts2.pl line 41, <ACCTS> chunk 1.
As expected I guess, because subAcct is a UINT.
How do I get it to do this select without changing subAcct to a CHAR ?
INSERT seems to work. I can write:
$sth=$dbh->prepare(q{INSERT INTO accounts (acctId,subAcct,acctNum)
VALUES ($seq,$proj,'$acct')});
Notice $seq is UINT, $acct is CHAR
Any Ideas?
--
===============================================================
Cliff Meece \\ Phone: (217) 333-1728
Unix Systems Administrator \\ Email: cliff@scs.uiuc.edu
School of Chemical Sciences \\ 153 Noyes Lab
===============================================================
------------------------------
Date: 24 Mar 1999 15:57:49 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Need username in Perl script
Message-Id: <7db21t$7b5$1@client2.news.psi.net>
John Dilley (john@deletethisdilley.com) wrote on MMXXX September MCMXCIII
in <URL:news:36f81b55.20750659@news.jps.net>:
\\ Thanks for the response. With some 35,000 + groups showing up in Agent could
\\ you give provide some advice on an appropriate group for authentication
\\ schemes?
You have 35k groups with www in the name?
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
------------------------------
Date: Wed, 24 Mar 1999 10:01:39 -0500
From: "Vincent P. Mautone" <vince@oxxfordinfo.com>
Subject: Re: newbe: to find the highest entry in group
Message-Id: <7dausd$6t3$1@client2.news.psi.net>
Jason,
Try the following(should work with any number of entries as long as comma
separated). Program worked with ActiveState. Good luck.
Vince
# Assume entries in file 'things'
open(fpInput,"things") or die("Unable to open things");
%hThings = ();
while( $line = <fpInput>)
{
chop($line);
# get the left side and right side of comma using split
@aTokens = split(",",$line);
if( !exists($hThings{$aTokens[0]}) )
{
# Here we have not seen the left side before
$hThings{$aTokens[0]} = $aTokens[1];
}
else
{
# here we have seen the left side before
if( $hThings{$aTokens[0]} < $aTokens[1] )
{
$hThings{$aTokens[0]} = $aTokens[1];
}
}
}
# print out results
foreach $key (keys %hThings)
{
print "$key,$hThings{$key}\n";
}
<jas888@my-dejanews.com> wrote in message
news:7d9cvm$tl3$1@nnrp1.dejanews.com...
>hello folks,
>
>I'd to find out the way to look for the highest entry in a group with a
text
>entries looks like this :
>
>things1,2
>things1,3
>things1,4 *
>data5,2
>data5,3 *
>
>For example, "things1,4" is capture for "things1" group and
> "data5,3" is capture for "data5" group
>
>I'd appreciate any pointers.
>Thank you very much.
>
>
>Regards
>Jason
>
>-----------== Posted via Deja News, The Discussion Network ==----------
>http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 24 Mar 1999 15:23:59 +0100
From: Olivier Henrot <olivier.henrot@alcatel.fr>
To: Ken Mar <kenmar@ihug.co.nz>
Subject: Re: Newbie to Perl
Message-Id: <36F8F57F.C6BA431B@alcatel.fr>
> message - Sorry, an error ocurred: unable to open guestbook file,
> showed. However, the "Thank you, so-and-so, for signing the guestbook"
> message was displayed.
> I'm using Win95 and running ActivePerl5.005. Also had the CGI.pm
> installed. Looking at the proggie, I suspect the POSIX module must be
> missing (just guessing). If indeed, where to get one? Are not all the
> exotic modules package into the latest build of ActivePerl? Please
> enlighten this confused guy. Thanks.
>
> Here's the proggie:
>
> #!/usr/bin/perl => should be something like #!c:\\perl\\bin\\perl.exe with Win32 or whatever your perl path is or just #!perl.exe and add the path to perl.exe to your autoexec.bat
#!/usr/bin/perl is an unix thing
> $GUESTBOOKFILE = "./guestbookfile.txt";
=> should be ".\\guestbbokfile.txt"; with Win32
/ is an unix separator
\ is a windows one and since it's an escape character to perl you
must double it...
just took a quick glance at your program, there might be others "unix"
things you'll have to change.
hope that helps a little.
------------------------------
Date: Wed, 24 Mar 1999 11:36:02 GMT
From: ijg@csc.liv.ac.uk (I.J. Garlick)
Subject: Re: open3 and flushing STDOUT
Message-Id: <F93K82.9pC@csc.liv.ac.uk>
In article <MPG.1161d2ee6f6520b49896e5@206.184.139.132>,
moseley@best.com (Bill Moseley) writes:
>
> I didn't use his Sendmail.pm, but I did use his open3 call to catch
> STDERR and STDOUT. Here's what I'm doing:
I did, mucho good piece of coding.
> Here's the problem. When I do the open3() call my current STDOUT seems
> to get flushed - AGAIN. So my web page get's the text that's already
> been print()ed displayed once again. Everything up to that point is
> displayed twice. (And this happens if running the script from the
> command line, too.)
Yep, I got that too. Doesn't happen if you print the
"Content-type: text/html\n\n" header after the call to open3, ie after you
have finished sending your mail. That's how I got around it anyway, would
appreciate anyone more input on a better way to do it as it does severly
restrict the way you have to output HTML in this situation.
At one stage I even had 4 identical copies of the HTML displaying
themselves, weird man I can tell you. :-)
> Clearly, I don't understand how to properly use open3, or really anything
> that's going on here. Can someone help?
>
Apparently there is a memory leak in open2/open3 somwhere although I don't
have a clue if this is affecting things.
Sorry if this doesn't help much but I considered this a hack to get around
a specific problem until soething better comes along.
--
--
Ian J. Garlick
ijg@csc.liv.ac.uk
Egotist, n.:
A person of low taste, more interested in himself than me.
-- Ambrose Bierce, "The Devil's Dictionary"
------------------------------
Date: Wed, 24 Mar 1999 08:15:07 -0500
From: "SPH" <heebe@nospamthanks.hotmail.com>
Subject: Perl Composer Needed
Message-Id: <36f83d70.0@208.206.112.5>
Hey all,
I am getting into Perl developing and need a composer/compiler for Perl (and
CGI). I use a Win 98 desktop, and would like to load a program with an easy
interface. Any recommendations?
Thanks
------------------------------
Date: Wed, 24 Mar 1999 21:37:31 +0800
From: Simon Ng <simon_ng@pacific.net.sg>
Subject: Perl not working with PWS
Message-Id: <36F8EA9B.7654C18B@pacific.net.sg>
Hi , can anybody out there help me. I can't seem to get my perl to work
on PWS 4.0. I've already tried inserting the Script Map in the registry
".pl => c:\perl\bin\perl.exe %s %s" but still cannot work.
Thank you.
Regards,
Simon Ng
--
========================================
mailto: simon_ng@pacific.net.sg (home)
========================================
------------------------------
Date: Wed, 24 Mar 1999 09:22:29 -0500
From: Samson Chiao <chiao.5@osu.edu>
Subject: perl version 4
Message-Id: <36F8F525.37EE71BB@osu.edu>
hi,
Does anyone know the syntax for the PUSH operation on an Associative
Array in Perl version 4? I'm having problems with the version 5 syntax:
"push @{$monster{$patch_num}}, "$target";"
Any help will be appreciated, thanks.
------------------------------
Date: 24 Mar 1999 15:15:50 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: protecting perl scripts
Message-Id: <7davj6$lij$7@info2.uah.edu>
In article <7dalf4$jmh$1@malgudi.oar.net>,
"Mr.unix" <Mr.unix@mail.excite.com> writes:
: Is there anyway to protect my scripts from being copied, such as
: compiling to an executable form for distribution?
<URL:http://www.cs.uah.edu/~gbacon/perl/encrypt>
: I have worked hard on a socket program here at work that will allow
: real time information to be passed from our mainframe to a Unix or
: wintel system. Now that some have caught wind of its future potential,
: they want to use it, forgetting about who made it all possible in
: the first place. They want to take credit for the entire endeavor,
: not just the glossy candy coat they may have applied to the surface.
Your best bet is to assert copyright. See they Copyright FAQ at
<URL:http://www.aimnet.com/~carroll/copyright/faq-home.html> and
especially question 3.1 (because it seems to apply to your case).
Greg
--
Politically Correct term: 'G(g)od(dess)(es)'
-- The Bruns
------------------------------
Date: Wed, 24 Mar 1999 09:42:08 -0000
From: "Simon McGregor" <simon@fsite.com>
Subject: Really Stupid Question...
Message-Id: <36f8b18c.0@shiva.ukisp.net>
Hope I'm not posting off-topic.
I can't install the libwww-perl module on my PC.
When I try to perl the makefile, I get the following error message:-
Can't locate Getopt/std.pm in @INC at makefile.pl line 16.
The file std.pm is in my Perl5\Lib\Getopt directory.
I haven't installed any modules before, so I assume I'm doing something
stupid. There must be some environment variable I have to set...?
Thanks,
Simon
P.S. Sorry if this is a duplicate post!
------------------------------
Date: Wed, 24 Mar 1999 14:44:00 +0000
From: Michael Cameron <Michael.Cameron@REMOVETHIS.technologist.com>
To: snuffy@execpc.com
Subject: Re: Sendmail return address help
Message-Id: <36F8FA2F.1C00E7E0@REMOVETHIS.technologist.com>
David wrote:
> I want the return address in my massmailer to
> be my own rather than that of the host.
>
> The line that opens up my mailer is:
> $mailprog = "/usr/sbin/sendmail:; (perl)
>
> Could you pleas tell me the the modification
> to get "me@mydomain.net" to appear?
>
> Thanks in advance...
>
> Dave F.
Not really a Perl question but you could always add a reply-to in your
message.
Michael
------------------------------
Date: Wed, 24 Mar 1999 13:28:17 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Simple Program
Message-Id: <36fce679.19199637@news.skynet.be>
Ophir Marko wrote:
>What's wrong?
At first sight: this:
>if @array[$t] = ophir{
Conditions must be between parentheses ("(" and ")").
Bart.
------------------------------
Date: Wed, 24 Mar 1999 07:10:34 -0600
From: "William H. Asquith" <asquith@macconnect.com>
Subject: Re: Simple Program
Message-Id: <7daoj6$1pj6@enews2.newsguy.com>
You can't use @array[stuff] to refer to a single element, use $array[stuff]
instead. @array[stuff,stuff2, stuff3] is an array slice, which is not what
your logic calls for.
Also I think your confusing @_ with @ARGV, consult documentation.
----------
In article <36F8CD0D.ABD27AFC@saifun.com>, Ophir Marko <ophir@saifun.com>
wrote:
> # /local/perl/bin/perl -w
> $index=0;
> while(<>){
> $i=0;
> split;
> while ($i <= $#_){
> @array[$i+$index]=$_[$i]; ######### HERE
> i++;
> }
> $index=$index+$#_+1;
> }
> $t=0;
> open(INFILE, ">new");
> if @array[$t] = ophir{ ######### HERE
> print INFILE @array[$t]; ######### HERE
> $t++;
> }
> close(INFILE);
>
>
> What's wrong?
>
------------------------------
Date: Wed, 24 Mar 1999 14:40:28 +0000
From: Michael Cameron <Michael.Cameron@REMOVETHIS.technologist.com>
To: Ophir Marko <ophir@saifun.com>
Subject: Re: Simple Program
Message-Id: <36F8F95B.466900AE@REMOVETHIS.technologist.com>
Ophir Marko wrote:
> # /local/perl/bin/perl -w
> $index=0;
> while(<>){
> $i=0;
> split;
> while ($i <= $#_){
> @array[$i+$index]=$_[$i];
> i++;
> }
> $index=$index+$#_+1;
> }
> $t=0;
> open(INFILE, ">new");
> if @array[$t] = ophir{
> print INFILE @array[$t];
> $t++;
> }
> close(INFILE);
>
> What's wrong?
Well the fact that you have commented out the first line instead of
using #! might be a start. I have not looked at the code in depth but
its one of the more ways to do it that I probably wouldnt't use. What
exactly are you trying to do?
Michael
------------------------------
Date: Wed, 24 Mar 1999 07:29:26 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Simple Program
Message-Id: <MPG.1162a4afe256a969897b1@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <36F8CD0D.ABD27AFC@saifun.com> on Wed, 24 Mar 1999 13:31:25
+0200, Ophir Marko <ophir@saifun.com >says...
> # /local/perl/bin/perl -w
^
!
use strict;
> $index=0;
> while(<>){
> $i=0;
> split;
Implicit split to @_ deprecated.
> while ($i <= $#_){
> @array[$i+$index]=$_[$i];
$
> i++;
> }
> $index=$index+$#_+1;
> }
This entire input loop could be written as (10 lines into 1):
push @array, split while <>;
> $t=0;
> open(INFILE, ">new");
^
or die "Couldn't open 'new'. $!\n";
Why do you use the filehandle INFILE for an output file? Are you a
sadist (if someone else ever has to read this) or a masochist (if you
are the only one)?
> if @array[$t] = ophir{
while ($array[$t] =~ /ophir/) { # I'm guessing a bit here!
> print INFILE @array[$t];
$
> $t++;
This should be outside the conditional. Otherwise if whatever the test
really is fails, it will loop forever if it is reaally a loop.
Otherwise why increment it at all?
> }
This entire loop seems to be:
print INFILE grep /ophir/, @array;
Learn the Perl functions! 'push', 'grep', and 'map' will save you lots
of headaches.
> close(INFILE);
>
> What's wrong?
What isn't wrong??? Try starting with smaller bits, and let the
compiler help you with diagnostics. As presented, you couldn't have
gotten past the first line.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personl/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 24 Mar 1999 15:07:17 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: sorting multi-dim array
Message-Id: <7dav35$lij$6@info2.uah.edu>
In article <7d9fuf$gp2$1@nitrogen.mankato.msus.edu>,
larsot2@krypton.mankato.msus.edu (Timothy Larson) writes:
: I'm having big problems doing this. The first subscript is not a problem,
: I'm using integers and I control how the indexes are accessed, so I can
: put them in order. It's the second subscript that is the pain. Those
: keys are rather arbitrary. As I go through the outer index, how can I
: sort the inner one and get the values in that order?
Ummmm.. could you maybe supply us with sample input data and the
appropriate output for those data?
Greg
--
Conservatives are not necessarily stupid, but most stupid people are
conservatives.
-- John Stuart Mill
------------------------------
Date: Wed, 24 Mar 1999 08:56:04 -0600
From: Sid Mitzlaff <smitzla@uswest.com>
Subject: Re: UNIX --> WinNT --> Excell Spreadsheet via OLE
Message-Id: <36F8FD04.CAFFF83D@uswest.com>
Hello...
I'm having trouble finding this module on CPAN. I don't have the ability
to use the CPAN module so I am just httping over and can't find it
listed by module nor by author. Am I missing something?
Sid Mitzlaff
Michael de Beer wrote:
>
> $> perl5 -MCPAN -eshell
>
> cpan> i /Excel/
>
> Module id = Spreadsheet::Excel
> DESCRIPTION Interface to Excel spreadsheets
> CPAN_USERID RRAWLINGS (Rachel McGregor Rawlings <rachel@wuxtry.com>)
> DSLI_STATUS i (idea,unknown,unknown,unknown)
> INST_FILE (not installed)
------------------------------
Date: Wed, 24 Mar 1999 14:53:27 GMT
From: gphoenix@dttus.com
Subject: Update HTML via perl/cgi?
Message-Id: <7dau92$5rp$1@nnrp1.dejanews.com>
Hi there,
I was wondering if anyone knew where I could find a perl/cgi script that
allows me to update HTML pages on the fly. The trick is that I want to
isolate certain elements of the pages I am updating, and hide all of the code
on the target update page. Basically, a user selects the file they want to
edit, see's text boxes containing the original text on the target page,
changes that text, and then saves their changes.
If anyone knows of some code I could look at to learn how to do this
(especially isolate ceratin elements of the target update page), that would
be great! Any other suggestions are also greatly appreciated.
thanks,
--greg
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 24 Mar 1999 17:28:56 +0300
From: "Michael Yevdokimov" <flanker@sonnet.ru>
Subject: Web Mail
Message-Id: <7daso9$iel$1@bison.rosnet.ru>
Does anyone have Perl script for making Web mail under FreeBSD? Or where to
find it?
Thanks.
--
Best wishes,
Michael Yevdokimov
Email: flanker@sonnet.ru
ICQ: 30874618
-------------------------------------------------
>> Developers Support Site <<
Web: http://developer.tsx.org
http://www.basicnet.sonnet.ru
-------------------------------------------------
------------------------------
Date: 24 Mar 1999 15:02:49 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: what is wrong w/ this sorting code?
Message-Id: <7dauqp$lij$4@info2.uah.edu>
In article <7d9ij5$25d$1@nnrp1.dejanews.com>,
nkaiser@my-dejanews.com writes:
: Here's what I have, which doesn't seem to work:
: @unsortedarray=('x,5' , 'x,6' , 'x,6' , 'x,7' , 'x,9' , 'x,8' , 'x,8');
:
: foreach $item (@unsortedarray) {
: $item=~/.+,(\d+)/g;
: push @idx, $1;
: print "DEBUG: $1,";
: }
: # the above DEBUG line correctly prints out 5,6,6,7,9,8,8
:
: @sortedarray = @unsortedarray[ sort { $idx[$a] < $idx[$b] } 0 .. $#idx ];
^^^
I think you meant to use the spaceship operator.
Perhaps I could interest you in a Schwartzian Transform:
@sorted = map { $_->[0] }
sort { $a->[1] <=> $b->[1] }
map { /,(\d+)$/ ? [ $_, $1 ] : [ $_, 0 ] }
@unsorted;
Greg
--
Christ died for our sins. Dare we make his martyrdom meaningless by not
committing them?
-- Jules Feiffer
------------------------------
Date: Wed, 24 Mar 1999 10:24:31 -0500
From: Eric Williams <eric@astro.wesleyan.edu>
Subject: What to use instead of rename
Message-Id: <36F9022B.80D4D62F@astro.wesleyan.edu>
Using Solaris, perl version 5
I am writing a script that sorts files based on part of the filename,
and moves the file across filesystems. rename doesn't seem to work
across filesystems.
Any suggestions?
I did try File::copy but that didn't seem to work either, and I would
have to unlink the file after the copy.
Thanks!
Eric Williams
eric@astro.wesleyan.NOSpaM.edu
------------------------------
Date: Wed, 24 Mar 1999 13:54:51 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Why don't wildcards expand on cmd line- win32 v5.005_02
Message-Id: <36f8edb2.21048742@news.skynet.be>
Michael P McGill wrote:
> If I specify a
>specific file (or multiple files) it works like expected, but a wild
>card (foo.pl was in the current working directory) it doesn't work.
Maybe you could expand the wildcards explicitely yourself.
while(defined($file = shift)) {
if($file=~/[*?]/) {
unshift @ARGV, glob($file);
next;
}
open(FILE,$file) or die "Can't open $file: $!";
while(<FILE>) {
print;
}
}
or, probably easier to fit into ordinary scripts: start the script with
@ARGV = map { /[?*]/?glob($_):$_ } @ARGV;
HTH,
Bart.
------------------------------
Date: 24 Mar 1999 14:09:09 GMT
From: hdiwan@diwanh.stu.rpi.edu (the jackal)
Subject: Re: Win32 file size limitations?
Message-Id: <slrn7fhsgm.mc9.hdiwan@diwanh.stu.rpi.edu>
In it's fifth incantation, NTFS supports up to 16 exabytes.
In article <36F86D13.284C2B49@cts.wustl.edu>, Elaine Ashton wrote:
>So I was curious, knowing the Solaris filesystem limitations but not NT
>I went hunting for NTFS file size limits on the ms kb and (darn that is
>soooo slow) found this, which may be a likely culprit
--
Hasan Diwan
------------------------------
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 5214
**************************************
