[9797] in Perl-Users-Digest
Perl-Users Digest, Issue: 3390 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 7 14:07:22 1998
Date: Fri, 7 Aug 98 11:00:39 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 7 Aug 1998 Volume: 8 Number: 3390
Today's topics:
Re: "Here" documents and the mystery that is FTP (Richard Bellavance)
Re: Access, ODBC and Linux scott@softbase.com
Re: ANNOUNCE: Free Perl Books for 5.005 - CRC Errors in (Nicholas Carey)
ARGV truncations <kirkmo@us.ibm.com>
Re: Attaching a file to an email with a cgi script <JKRY3025@comenius.ms.mff.cuni.cz>
Re: Autoincrement with hashes (Michael J Gebis)
c2a: A bash prompt design helper (Jim Foltz)
Re: Can't Match Multi-Line Pattern (Craig Berry)
Re: Can't Match Multi-Line Pattern (Craig Berry)
Re: code problem <jdporter@min.net>
Re: comp.lang.perl.announce redux <jdporter@min.net>
compliing perl on HPUX 9.05 <n7sf@usa.net>
Re: File Info (Tad McClellan)
Re: Including form with perl script (Scott Willsey)
Job Opportunity in Frankfurt burgardt@my-dejanews.com
Re: ODBC, Perl, Unix and Macs scott@softbase.com
Perl 'beutifier' <r28629@email.sps.mot.com>
Re: Perl 'beutifier' (Michael J Gebis)
Re: Perl Docs.. forget the original post <jdporter@min.net>
Re: perlfaq - frequently asked questions about Perl (pa <dean@mail.biol.sc.edu>
Please help! <jonah@g-s.net>
Re: Possible to pass Associative Arrays to Subroutines? <murrayb@vansel.alcatel.com>
question <bjlockie@nortel.ca>
Re: question (Craig Berry)
Re: question (Michael J Gebis)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 07 Aug 1998 13:38:09 -0400
From: webmaster@retailernews.com$%^&* (Bob Langdon)
Subject:
Message-Id: <webmaster-ya02408000R0708981338090001@news.alt.net>
Hi,
Sorry if this is the wrong group, but I couldn't find a Majordomo group.
We recently installed Majordomo, and all is fine except...
We set subscribe to "open+confirm". When using an outside service to host
the Major, subscribers could simply hit "reply to" to send the
authorization code back to the Major.
NOW, on our server, Majordomo responds to that with:
"command '>' not recognized."
Because it's reading the ">"s inserted by most mail readers whenm replying
to or forwarding the confirmation message.
Of course, subscribers could just redirect and erase everything except the
authorization code, or cut and paste the code into a new message window,
but it's so much easier for them to just hit "reply to."
How do we set it up to do this?
We're using version 1.94.4
Thanks In Advance,
--
+++++++++++++++++++++++++++++++++++++++++++++++++++++
Bob Langdon
webmaster@retailernews.com
http://RetailerNews.com
_Retailer News Online_ Magazine -- for retail
business owners, managers, and salespeople.
--brought to you by:
Dealer Support Services
--website design and maintenance
++++++++++++++++++++++++++++++++++++++++++++++++++++
------------------------------
Date: 7 Aug 1998 13:40:22 -0400
From: charlot@CAM.ORG (Richard Bellavance)
Subject: Re: "Here" documents and the mystery that is FTP
Message-Id: <6qfe66$868@ocean.CAM.ORG>
In article <k_wy1.828$hF4.3627990@newbabylon.rs.itd.umich.edu>,
Sean McAfee <mcafee@battlezone.rs.itd.umich.edu> wrote:
>
>Most likely the file you FTPed from your Wintel box has an extra carriage
>return character at the end of every line. Perl sees "EOF^M" at the end of
>your here-document, which doesn't match your stated terminator "EOF".
>Remove the ^M's with your favorite text editor, or with
>"perl -i -pe 's/\cM$//' filename", or yet some other method, and try again.
>
Or, even more simple, just make sure you FTP the file over in ASCII mode.
Richard.
--
Richard Bellavance |
| "Rien n'est plus imminent que l'impossible."
charlot@cam.org | - Victor Hugo
http://www.cam.org/~charlot/ |
------------------------------
Date: 7 Aug 1998 17:28:21 GMT
From: scott@softbase.com
Subject: Re: Access, ODBC and Linux
Message-Id: <35cb3935.0@news.new-era.net>
Stiphane Dupille (sdupille@yahoo.com) wrote:
> I try to access Access database on WinNT from a linux
> workstation.
Isn't going to happen. Access is not a database like Oracle and DB2
which can be accessed over a network. Access is a single-machine
small-time database not meant for client/server applications. (That
doesn't stop people from *thinking* Access is capable of doing more
than it does, but anyone who tries to use it for anything other than a
mailing list will quickly discover the truth!)
Going backwards, from a server platform like UNIX to a client platform
like Windows, is bizarre and unnatural. It can only be done at great
expense and pain using middleware. Access can't even be used over a
normal network -- a database file can be shared on a Microsoft
Networking peer-to-peer network, but Access is not capable of being a
network server.
I've never used this DBD-ODBC stuff, but I know it can't possibly be an
ODBC driver that can connect to databases without an ODBC driver.
There's no way.
Scott
--
Look at Softbase Systems' client/server tools, www.softbase.com
Check out the Essential 97 package for Windows 95 www.skwc.com/essent
All my other cool web pages are available from that site too!
My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
------------------------------
Date: Fri, 07 Aug 1998 17:44:28 GMT
From: ncarey@harlequin.com (Nicholas Carey)
Subject: Re: ANNOUNCE: Free Perl Books for 5.005 - CRC Errors in text version archive?
Message-Id: <35cb3874.146661227@newshost.harlequin.com>
On Fri, 07 Aug 1998 00:58:51 GMT, cicho@polbox.com (Marek Jedlinski)
wrote:
> Netscape certainly honors content-encoding (in other cases) when it knows
> how to handle it. Since windoze systems don't normally know about gzip,
> Netscape cannot but display it as plain text. However, if Content-*Type*
> was set to something like "compressed/gzip" then Netscape would ask how to
> handle it, and I could point it to gzip.exe on my disk.
>
> Suggested solution: since gzip is unix-centric anyway, please provide a
> .zip archive version as well.
Where do you get this idea that gzip is unavailable on Windows? gzip
builds right out of the box on NT and 95. Prebuilt binaries are
available from a number of places. tar file support is readily
available in both source and binary form as well (eg, Winzip, gnu tar,
etc.)
So speak for yourself -- The only problems I've encountered with *.gz
(and yes, *.zip as well) files have to do with sites that tag these
files incorrectly.
Cheers,
Nicholas
--
People think modeling's mindless, that you just stand there and pose,
but it doesn't have to be that way. I like to have a lot of input, I
know how to wear a dress, whether it should be shot with me standing
up or sitting down. And I'm not scared to say what I think.
-- Linda Evangelista
------------------------------
Date: Fri, 07 Aug 1998 13:19:35 -0400
From: Kirk Moren <kirkmo@us.ibm.com>
Subject: ARGV truncations
Message-Id: <35CB3727.94D864C5@us.ibm.com>
I have a situation where an rexx program is calling a perl 5 program to
perform some socket i/o. The data is being passed to the perl program
via arguments such as...
`perl perlsock.pl host.com 5000 a long data string containing normal and
special characters`
Everything after the host name and port is considered data to be sent.
The data contains
some special characters occassionally such as hex characters (0a0dx) and
this apparently confuses Perl due to the fact that all data subsequent
to the special hex character is truncated and not available to @ARGV.
Is their a remedy for this? Any suggestions or insights would be
greatly appreciated.
Thanks in advance,
Kirk Moren
kirkmo@us.ibm.com
------------------------------
Date: Fri, 07 Aug 1998 19:05:20 -0700
From: Jan Krynicky <JKRY3025@comenius.ms.mff.cuni.cz>
Subject: Re: Attaching a file to an email with a cgi script
Message-Id: <35CBB260.2E59@comenius.ms.mff.cuni.cz>
Charles Maier wrote:
>
> chris_wellner@my-dejanews.com wrote:
> >
> > There have been a couple questions and answers on this topic but I'm still
> > having some trouble. I need to have a script-generated email attach a
> > document to the email.
>
> I just finished work on a site (N/T) where Sendmail was not an option.
> Instead I wrote the code to use Sender.pm. It was not my choicee. The
> client ISP dictated this. This module uses Sockets and talks directly to
> a SMTP server. Having done this... I am rethinking using Sendmail on
> future projects. It just makes my code more portable.
>
> Sender.pm (Rev 0.6) and the following modules will send a file as a
> attachment along with normal email messages.
>
> FileHandle;
> Socket;
> MIME::Base64;
> MIME::QuotedPrint;
>
> Its pretty well documented.
> --
> Chuck Maier
Glad you like it.
The address is http://www.fmi.cz/private/Jenda or
http://jenda.krynicky.cz
Cheers, Jenda
------------------------------
Date: 7 Aug 1998 17:26:09 GMT
From: gebis@fee.ecn.purdue.edu (Michael J Gebis)
Subject: Re: Autoincrement with hashes
Message-Id: <6qfdbh$34j@mozo.cc.purdue.edu>
Jonathan Feinberg <jdf@pobox.com> writes:
} foreach (@$_) { $ALL_FIELDS{$_}++ }
}It's a common idiom for autovivifying hash elements. If $h{foo}
}doesn't exist, then the phrase $h{foo}++ will bring it into existance.
}The fact that its value is now 1 is immaterial. If we run into foo
}again, the value will increase, but it's only the existance of the key
}foo that interests us.
I think Jonathan means, "The value is the number of times the element
appeared in the original array, and thus is sometimes indispensible."
:)
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: Fri, 7 Aug 1998 17:38:53 GMT
From: aa204@acorn.net (Jim Foltz)
Subject: c2a: A bash prompt design helper
Message-Id: <slrn6smfb4.at8.aa204@pc1.net>
Hello,
I have included a program to help a person design a nice colorfull and
useful prompt. Probably doesn't work on anything but the bash shell
because that is all I have access to.
Instructions are included in the program.
Basically, you make a prompt definition file:
PS1="[red]{green}[normal]: "
Which means red text, green background, then a normal white colon, and
a space.
Then c2a it, and it will crank out the correct asni escape
codes. Redirect the output, then source it to see your new prompt.
-----------
#!/usr/bin/perl -w
# c2a: ascii to ansi filter
# Copyright (C) 1998 James Foltz <aa204@acorn.net>
# Version: Aug 5, 1998
# Usage: c2a filename
# This program is an aid in constructing a shell prompt which contains
# ANSI escape codes - colors, mostly
# The filename, is this case, is a bashprompt theme definition.
# EXAMPLE:
# a file test.theme contains:
# PS1="[bold][white]\u[normal]@[bold][cyan]\h[normal]:> "
# executing 'c2a test.theme > bash.theme' yeilds:
#
# PS1="\033[1m\033[37m\u\033[0m@\033[1m\033[36m\h\033[0m:> "
#
# at which time you source bash.theme to view the theme.
#
# [color] - foreground color
# {color} - background color
# [bold|blink|inverse|normal]
# [rndfg|rndbg] - random foreground and random background color
# Word names for any (sequence of) ascii character(s) can be easily added.
# How about a --revert option to convert a PS1 dump to c2a format?
# Note to self: Get a life.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
use strict;
use Getopt::Long;
GetOptions("--help" => \&usage);
#-e "@ARGV" or print "Ok, but it's easier to use a file.\n";
###########################################################
#
# Definitions - easy to add!
#
###########################################################
my %fgcolor = (
black => 30,
red => 31,
green => 32,
yellow => 33,
blue => 34,
magenta => 35,
cyan => 36,
white => 37,
);
my %bgcolor = (
black => 40,
red => 41,
green => 42,
yellow => 43,
blue => 44,
magenta => 45,
cyan => 46,
white => 47,
);
my %attribute = (
bold => 1,
boldlink => 5,
inverse => 7,
normal => 0,
);
my %grad = (
grad1 => "\333\262\261\260",
grad2 => "\260\261\262\333",
);
my %func = (
rndfg => &fg_rand,
rndbg => &bg_rand,
);
my %special = (
pwd => '\w',
user => '\u',
host => '\h',
);
sub fg_rand {
my @keys = keys %fgcolor;
my $key = $keys[rand @keys];
"\\033[$fgcolor{$key}m";
}
sub bg_rand {
my @keys = keys %bgcolor;
my $key = $keys[rand @keys];
"\\033[$bgcolor{$key}m";
}
my $fgcolors = join ('|', keys %fgcolor);
my $bgcolors = join ('|', keys %fgcolor);
my $attributes = join ('|', keys %attribute);
my $grads = join ('|', keys %grad);
my $funcs = join ('|', keys %func);
my $specials = join ('|', keys %special);
#############################################################
#
# The real work starts here
#
#############################################################
while (<>) {
# Attributes
s/\[($attributes)\]/\\\[\\e\[$attribute{$1}m\\\]\\\n/g;
# Text Colors
s/\[($fgcolors)\]/\\\[\\e\[$fgcolor{$1}m\\\]\\\n/g;
# Background Colors
s/\{($bgcolors)\}/\\\[\\e\[$bgcolor{$1}m\\\n/g;
# Grads
s/\[($grads)\]/$grad{$1}/g;
# Functions
s/\[($funcs)\]/$func{$1}/g;
# Specials
s/\[($specials)\]/$special{$1}\\\n/g;
print;
}
exit 0;
sub usage {
print "Usage: Not done yet.\n";
exit 0;
}
__END__
=head1 NAME
c2a - Convert english word names of colors to their ansi equivelent
escape codes.
=head1 SYNOPSIS
B<c2a> [B<--help>] file
=head1 DESCRIPTION
I<c2a> scans an ascii file for the english word names of colors that
occur directly between the [ and ] or { and } characters.
=cut
------------------------------
Date: 7 Aug 1998 16:55:08 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Can't Match Multi-Line Pattern
Message-Id: <6qfbhc$ca7$1@marina.cinenet.net>
Tom Christiansen (tchrist@mox.perl.com) wrote:
: In comp.lang.perl.misc,
: cberry@cinenet.net (Craig Berry) writes:
: :/s has only one effect -- changing how . is interpreted.
:
: You forgot $*. Writing /^From:?/s is perfectly sensible.
To quote another post of yours today:
Sometimes clarity of explanation must overrule "oh by the ways".
I thought about this point, and decided to avoid its mention, as it
didn't appear particularly practical for this poster's purposes.
I couldn't have put it better myself. Since $* is deprecated, and
omitting its mention significantly reduces the complexity of explaining /m
and /s, I felt justified in choosing to ignore it.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: 7 Aug 1998 16:57:47 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Can't Match Multi-Line Pattern
Message-Id: <6qfbmb$ca7$2@marina.cinenet.net>
Tom Christiansen (tchrist@mox.perl.com) wrote:
: In comp.lang.perl.misc, cberry@cinenet.net (Craig Berry) writes:
: :Freidl explains them in glorious detail and emphasizes the "/m affects
: :*only* ^$, /s affects *only* ." tack which I took in my previous message.
: :However, all the same semantics are there in perlre.
:
: But that's false: /s affects ^ and $ as well, insulating them from
: unpleasant surprises out of $* settings.
As per my other response on this thread, $* is deprecated, not mentioning
it makes /s and /m much easier to explain, and I took the "oh by the way"
exemption per your message on another thread.
[Fragment of Perl quiz snipped -- what was this doing here?]
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Fri, 07 Aug 1998 12:38:25 -0400
From: John Porter <jdporter@min.net>
Subject: Re: code problem
Message-Id: <35CB2D80.6856@min.net>
Jessica Toye wrote:
>
> while ($pattern = <PATTERNS>) {
> chop ($pattern);
> $total = 0;
> while ($line = <FILETOSEARCH>) {
> $_ = $line;
> $total += tr/$pattern/$1/;
> }
> print ("Number of times $pattern shows up: $total \n");
> }
1. If you just want to detect a match, use the m// operator,
rather than tr///:
$total++ if /$pattern/;
2. You've got a serious error: you completely exhaust the
searched file while checking for the first pattern; by
the time you start searching for second pattern, the
FILETOSEARCH is at the end. You could do a rewind, or
close and open the file again for each pattern. Or you
could read the file contents into an array initially,
then search the array for each pattern.
Of course, if the patterns file happens to contain only
one pattern, you won't see the bug.
3. Is this a homework problem?
--
John Porter
------------------------------
Date: Fri, 07 Aug 1998 12:25:20 -0400
From: John Porter <jdporter@min.net>
Subject: Re: comp.lang.perl.announce redux
Message-Id: <35CB2A70.8DD@min.net>
Ian Boys wrote:
>
> English is not the same language as American, as you
> rapidly find out if you try visiting for any significant time in that
> country :-)
I've spent a lot of time in "that" country; haven't had any problems.
:-)
Seriously, English is only different from American if you define
English as a mere dialect of that (nameless) language spoken by Brits,
Yanks, Cannucks, Aussies, etc. But that is not the usual definition
of English. If you need a name for your dialect, call it British.
Or Cockney, or Liverpuddlian, or whatever.
--
John Porter
------------------------------
Date: Fri, 7 Aug 1998 10:29:26 -0700
From: "Tony Reeves" <n7sf@usa.net>
Subject: compliing perl on HPUX 9.05
Message-Id: <6qfdcj$ts$1@news.goodnet.com>
Hi, anyone compile perl 5 on HPUX version 9.05?
if so, did you get it to work? I am having a hard time getting it to
compile.
------------------------------
Date: Fri, 7 Aug 1998 12:36:33 -0500
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: File Info
Message-Id: <1vdfq6.ls3.ln@localhost>
Darren Ferguson (Darren@introdesign.com) wrote:
: Does anyone have a couple of quick lines of Perl to demonstrate
: how to get info on a file size, permissions and creation date?
: I don't need to do anything with them, just display....
perldoc -f stat
That should show how to get filesize and permissions.
Creation date is *impossible* as it is not saved anywhere
with Unix style filesystems.
Maybe you meant "change date" instead?
(and it is actually a time rather than a date...)
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 07 Aug 1998 16:35:18 GMT
From: hangtown_nospam@thelostweb.com (Scott Willsey)
Subject: Re: Including form with perl script
Message-Id: <35ce2b26.3786184@news.calweb.com>
On Thu, 06 Aug 1998 21:27:21 GMT, Tom Phoenix <rootbeer@teleport.com>
wrote:
>On Thu, 6 Aug 1998 prakashpatel@hotmail.com wrote:
>
>> I want to know how to add my form right in the script,
>> instead of making .html document and then using get or post method.
>
>I'm not sure what you mean. Maybe you want a here-document.
>
It sounds like he wants to write a script that first displays a form,
and then submits that form to itself. Common technique.
Basically, one easy way is to tell your script what you are doing. If
the script is to allow you to edit data that the person has been
viewing, say data about their office location or whatever that is
stored in a database somewhere, you could call it with a field in the
querystring that lets you know, such as
http://mydomain.com/myscript?act=edit and have this call cause the
script to display the form for input gathering. Have it display the
values that are already in the db and let them modify them.
Then when you want to actually perform the edit, as opposed to get the
info from the user, call http://mydomain.com/myscript?act=doedit and
process the info.
Alternatively, you could do the same with forms with hidden input
types that tell the script what it's supposed to be doing. You can
write one script that handles many aspects of data modification this
way (or even data display).
Scott.................................................
Please edit the email address to reply
------------------------------
Date: Fri, 07 Aug 1998 15:51:25 GMT
From: burgardt@my-dejanews.com
Subject: Job Opportunity in Frankfurt
Message-Id: <6qf7pt$4tc$1@nnrp1.dejanews.com>
BHF-Bank Germany, a top-10 commercial bank in Germany needs ASAP a
PERL-programmer familiar with UNIX, object-oriented PERL, good English or
German communication skills and preferrably an understanding of financial
instruments.
Experience required: Maintainance of a large PERL-program.
The task is to maintain and expand an existing PERL script delivering Source
System data to the Risk Management Software RiskWatch from Algorithmics.
Duration is 4 months possibly longer, location is Frankfurt. Applicants would
need to start work before end of August.
Please contact
e-mail: ingmar.burgardt@bhf-bank.com
telephone: Susanne Herrmann +49 69 718 4246
This message was posted 1998/07/08.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 7 Aug 1998 17:24:08 GMT
From: scott@softbase.com
Subject: Re: ODBC, Perl, Unix and Macs
Message-Id: <35cb3838.0@news.new-era.net>
William Burrow (aa126@NOSPAM.fan.nb.ca) wrote:
> I'm trying to get a grasp on how Perl and ODBC can work for me. First off,
> where in Perl can I get ODBC support for other than Win32?
Windows ODBC drivers are cheap and plentiful. ODBC on other platforms
costs $$$ -- only one company specializes in making non-Windows
drivers, Intersolv, and they charge a lot for them because they aren't
much used on other platforms.
Using a small PC-based Windows or Mac database from a UNIX machine is
weird and unnatural -- going from server to client isn't done much --
if any -- in the industry, and there's very little support for it.
99.9% of the time, the PC is accessing the database on a UNIX server
and that's where all the effort and support has gone. If you want
to go backwards, forget it.
> Second, can I use this Perl ODBC support as a means to access any
> database that supports ODBC?
If there's a driver for it -- I don't think the ODBC support *IN PERL
ITSELF* is an ODBC driver. It is just capable of connecting to one. If
I'm wrong, I'll be shocked.
> I see that Filemaker is going to support ODBC in its next release, and
> I am in a position for possibly developing Perl code targeted for a Mac
> using Filemaker. My design work is done on a Unix box. So it would be
> convenient to me to able to develop and test on the Unix box before
> deploying on the Mac, if you get the gist of the situation.
Forget it! FileMaker may be geting a revamp, but there's no way it will
be able to compete with Oracle and DB2 on the high end as a networked
database. You're not going to be able to access a Mac database from a
UNIX box without a lot of pain and lots and lots of money for
middleware connectivity products.
Scott
--
Look at Softbase Systems' client/server tools, www.softbase.com
Check out the Essential 97 package for Windows 95 www.skwc.com/essent
All my other cool web pages are available from that site too!
My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
------------------------------
Date: Fri, 07 Aug 1998 11:09:41 -0500
From: Tk Soh <r28629@email.sps.mot.com>
Subject: Perl 'beutifier'
Message-Id: <35CB26C5.D4697D54@email.sps.mot.com>
Does anybody know of any perl script 'formatting' utility (preferably
also a perl script itself) that would help me rearrange (with proper
indentation) some of the badly-written perl programs that I inherited
from others.
You know how it feels like when trying to hack through that kind of
codes (perhaps that disqualified me as a hacker).
-TK
------------
TK Soh
r28269@email.sps.mot.com
------------------------------
Date: 7 Aug 1998 17:34:15 GMT
From: gebis@fee.ecn.purdue.edu (Michael J Gebis)
Subject: Re: Perl 'beutifier'
Message-Id: <6qfdqn$3am@mozo.cc.purdue.edu>
Tk Soh <r28629@email.sps.mot.com> writes:
}Does anybody know of any perl script 'formatting' utility (preferably
}also a perl script itself) that would help me rearrange (with proper
}indentation) some of the badly-written perl programs that I inherited
}from others.
There's recently been a thread here about one such utility, but you
may have missed it because it's spelled "Beautifier". If you search
dejanews (or even maybe your current news spool) you'll be sure to
find it.
Also, you may want to just try using cperl-mode in emacs.
Purists will pish-posh both of my suggestions, pointing out that only
the PERL interpreter can parse the PERL language thus far, but I'd
recommend ignoring the purists and evaluating the functionality for
yourself.
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: Fri, 07 Aug 1998 12:05:50 -0400
From: John Porter <jdporter@min.net>
Subject: Re: Perl Docs.. forget the original post
Message-Id: <35CB25DE.E4@min.net>
Gary L. Burnore wrote:
>
> On Thu, 06 Aug 1998 13:49:54 -0400, in article <35C9ECC2.288E@min.net>, John
> Porter <jdporter@min.net> wrote:
>
> >Gary L. Burnore wrote:
> >>
> >> On Thu, 06 Aug 1998 09:50:43 -0400, in article <35C9B4B3.37E6@min.net>, John
> >> Porter <jdporter@min.net> wrote:
> >>
> >> >no.unsoliciteds@dead.end.com wrote:
> >> >>
> >> >> All I can say is this - if the gurus had had bad tempered, ecclectic, obtuse
> >> >> and sometimes downright abusive lecturers with bad communication skills
> >> >> perhaps they would have a different attitude now.
> >> >
> >> >The implication is that the "gurus" have, as a result, bad communication
> >> >skills. But just you can't (or won't) read doesn't mean they can't
> >> >write.
> >> >Your disparagement is very unjustified, and is very insulting.
> >> >What have *you* done for the Perl community?
> >>
> >> You're again suggesting that because someone has done something for the Perl
> >> community they have a right to be rude.
> >
> >No, actually we weren't talking about rudeness.
> >We were talking about how well the docs are written, and the
> >alleged indifference of the doc writers.
> >Rudeness was introduced as a rider rather late in the thread.
>
> In which case it's still wrong to suggest that listning to someone's opinion
> should be based on what they've "done for the Perl community"
Well certainly my question "What have you done for the Perl community"
was a rhetorical one; I didn't mean that if someone has done anything
at all, then we give them unrestricted license; rather, that to complain
about the (alleged) faults of the docs is hypocritical from someone
who has not so much as submitted a doc patch, let alone written a
complete document. In my estimation, the rhetorical question was
completely appropriate to my argument, which is essentially that I
disagree with the allegations that the docs are so bad.
--
John Porter
------------------------------
Date: 07 Aug 1998 12:21:39 -0400
From: Dean Pentcheff <dean@mail.biol.sc.edu>
Subject: Re: perlfaq - frequently asked questions about Perl (part 0 of 9)
Message-Id: <m3hfzou5ik.fsf@mail.biol.sc.edu>
Tom Christiansen <tchrist@mox.perl.com> writes:
> In comp.lang.perl.misc, pudge@pobox.com (Chris Nandor) writes:
> :No, on our GUI platforms we often use editors for viewing arbitrary text files.
>
> That's a silly idea. Why would you use an editor when you aren't editing?
> That's as stupid as using a web browser to read mail. Of course, I guess
> on those platforms, you do that, too. :-(
Oh, Tom, stop being deliberately grumpy. Are you seriously suggesting
that it's silly for me to view text in emacs even if I don't intend to
modify it? If I've just unpacked a tarball and I'm checking the
Makefile, I think it's quite reasonable that I view the README in my
editor, too. Since an editor can both display and (potentially)
modify text, there's the benefit of a uniform interface if one uses
the editor for viewing, whether or not one intends to modify.
-Dean
--
N. Dean Pentcheff <pentcheff@acm.org>
Biological Sciences, Univ. of South Carolina, Columbia SC 29208 (803-777-7068)
------------------------------
Date: Fri, 07 Aug 1998 17:56:07 GMT
From: "Jonah Olsson" <jonah@g-s.net>
Subject: Please help!
Message-Id: <XcHy1.3787$JR2.5619454@nntpserver.swip.net>
Hello!
In my chat system everything is logged and feeded into a file where each
block of data (name, time, text etc.) starts and ends with %%%.
When printing each block I open the file into a string like this:
open (CHAT, "$datafile") || die "The chat will should be back soon! ($!)\n";
local $/;
$chat = <CHAT>;
close (CHAT);
But how should I search for the blocks starting and ending with %%%? Is it
better to use an array?
--
Sincerely,
Jonah Olsson
Generation Software
http://www-g.s.net
------------------------------
Date: 07 Aug 1998 08:08:52 -0700
From: Brad Murray <murrayb@vansel.alcatel.com>
Subject: Re: Possible to pass Associative Arrays to Subroutines??
Message-Id: <uk94kesmz.fsf@vansel.alcatel.com>
benhowe51-NO@SPAM-hotmail.com (Ben Howe) writes:
> Does anybody out there know how to pass associative arrays to
> subroutines without having do deal with resorting everything when
> it arrives?
Associative arrays don't have an inherent order, so you always have
to sort them if you want them sorted. Well, they may have an inherent
order, but you don't know what it is. :) Re-read the docs regarding
hashes---I think this is stated pretty clearly in there.
--
Brad Murray "It may be that your sole purpose in life is
Software Analyst simply to serve as a warning to others."
Alcatel Canada --Anonymous
------------------------------
Date: Fri, 07 Aug 1998 12:32:31 -0400
From: Bob Lockie <bjlockie@nortel.ca>
Subject: question
Message-Id: <35CB2C1F.3670E1F@nortel.ca>
I tried the following command on the MS IIS server and it doesn't work.
print "Location: $goto\n\n";
How do I do a location (HTTP) command on that server?
It works on a Netscape server.
On the MS server it tries to download to the browser a .pl file
which contains the text "print "Location: $goto\n\n";".
------------------------------
Date: 7 Aug 1998 17:19:30 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: question
Message-Id: <6qfcv2$ca7$4@marina.cinenet.net>
Bob Lockie (bjlockie@nortel.ca) wrote:
: I tried the following command on the MS IIS server and it doesn't work.
:
: print "Location: $goto\n\n";
:
: How do I do a location (HTTP) command on that server?
:
: It works on a Netscape server.
:
: On the MS server it tries to download to the browser a .pl file
: which contains the text "print "Location: $goto\n\n";".
And the Perl aspect of this question is...?
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: 7 Aug 1998 17:45:06 GMT
From: gebis@fee.ecn.purdue.edu (Michael J Gebis)
Subject: Re: question
Message-Id: <6qfef2$3hm@mozo.cc.purdue.edu>
Bob Lockie <bjlockie@nortel.ca> writes:
}I tried the following command on the MS IIS server and it doesn't work.
Wrong newsgroup. This is more of a www or cgi question, and is not
really a perl question[1]. The collective brain of this group[2] doesn't
know the answer to your question[3].
[1] No more so than it is a "computer" question.
[2] Kept in a 55 gallon-drum in a garage in Hemet, California.
[3] Well, someone might know, but the rest of us tell him to keep
discussions on topic.
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3390
**************************************
