[8788] in Perl-Users-Digest
Perl-Users Digest, Issue: 2405 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Apr 23 19:07:19 1998
Date: Thu, 23 Apr 98 16:00:28 -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 Thu, 23 Apr 1998 Volume: 8 Number: 2405
Today's topics:
Any Perl Hackers created interfaces to PGP5. (Craig Simpson)
Re: ATTN: Netscape Enterprise for NetWare Admins: Is th <palincss@tidalwave.net>
Brand new website <m.ubl@elmshorn.netsurf.de>
Re: BUG or FEATURE? -- splice() doesn't extend arrays <rootbeer@teleport.com>
Re: C from perl (Jason Gloudon)
Date/time library <dan.albertsson@swipnet.se>
Re: Defending Perl <jgoerzen@southwind.net>
Re: help (again sorry) (Aaron Drake)
Re: help (again sorry) <rootbeer@teleport.com>
Re: Help with non-text output (Andre L.)
Re: How do you ignoe characters in <read> <ag-ho@students.uiuc.edu>
how to put subject in a email? <tw96@email.msn.com>
Re: linefeeds and perl formats (Jason Gloudon)
Re: Memory usage <rootbeer@teleport.com>
ODBC/DBI on WIN32 host <dennis.kowalski@daytonoh.ncr.com>
Re: Perl vs. Java (Jim Allenspach)
Re: Problems with 'wait' under perl5.004 <rootbeer@teleport.com>
Re: Read-only value? (Jason Gloudon)
Retrieving input from URL <rwoolley@ottawa.com>
Re: Retrieving input from URL (brian d foy)
scalar assignment <tw96@email.msn.com>
Sendmail library <dan.albertsson@swipnet.se>
Re: spoiled noobie (Craig Berry)
Re: status output. <rootbeer@teleport.com>
Using "require" <ag-ho@students.uiuc.edu>
Re: What is OFFICIAL version of Perl FAQ? (Jason Gloudon)
Re: WIN32 - create shortcut on desktop <igor.k@usa.net>
Win32 command to retrieve the list of local groups on a <chadster@>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 23 Apr 1998 20:49:07 GMT
From: craigs@3rdstone.net (Craig Simpson)
Subject: Any Perl Hackers created interfaces to PGP5.
Message-Id: <353fa910.3391847@209.76.252.8>
Any Perl Hackers created interfaces to PGP5.
Check this out. I use the following to send email from my site to
myself:
sub doit {
system("pgpe -at -r me\@mail.server.com +force SomeFile");
wait;
system("mail me\@mail.server.com < SomeFile.asc");
wait; 1; #return true
}
I can not quite grock how I could stuff my message's STDOUT into PGP
as
STDIN if I started PGP with system("pgpe -at -r me\@mail.server.com");
of
how I would grab the STDOUT from the program.
I think I could use @graboutput=system("pgpe -at -r
me\@mail.server.com);
to get the output.
I am troubled, Any help, any at all, would be a blessing.
Craig
------------------------------
Date: Thu, 23 Apr 1998 17:31:28 -0700
From: Steve Palincsar <palincss@tidalwave.net>
To: mjs@cadvision.com
Subject: Re: ATTN: Netscape Enterprise for NetWare Admins: Is there a port of Perl5 for Netware?
Message-Id: <353FDD5F.7865@tidalwave.net>
BullDog wrote:
>
> Is there a port of Perl5 for Netware? If so, would you be kind enough
Yes, sort of. It's an NLM, should come with the Novell Enterprise
Server
(definitely comes with the Novell Web Server and with the Novell
FastTrack
Server, both of which you can download for free from Novell's web site).
It is only a soret-of Perl5, in that there's no apparant way to use
modules
or install them, and you can't run any external functions, but it's
still
better than the Perl4 NLM that's in CPAN.
I spoke with the Novonyx developers at BrainShare and learned they plan
to
redo the perl port completely and issue a full port, complete with NLM
versions of the most used unix utilities, somewhere in the next 6-12
months.
> to tell me where I can get a copy of the NLM for the Novell Enterprise
> server for NetWare?
>
> Alternatively, how can I find out what version the existing Perl NLM
> is?
Well, it thinks it's perl5 but it's really kind of lame. An
embarassment, really.
>
> I have my Perl stuff working beautifully on Enterprise for
> NT/Perl5.003 and REALLY need to move it onto our Novell webserver.
Try the free ones. You should already know how to use the FastTrack,
because
the whole thing is set up exactly like the server you are familiar with.
Just don't expect to use CGI.pm!
Steve Palincsar
>
> HELP!
>
> Please respond to mjs-NOSPAM-@cadvision.com (remove -NOSPAM- ), or
> this group.
>
> Thanks.
------------------------------
Date: Thu, 23 Apr 1998 22:00:02 +0100
From: Malte Ubl <m.ubl@elmshorn.netsurf.de>
Subject: Brand new website
Message-Id: <353FABD2.4B18@elmshorn.netsurf.de>
Hi,
if you are one of the people who had problems with
difficult installations of CGI-scripts, file-permissions, etc.
I have the solution for you:
easyScriptsOffice!
An integrated powerful suite of tools to make website-
management a piece of cake.
Access-Counter, Visitor-Information, HTTP-Referer and
Statistics - all in one.
CGI and HTML based.
No EXE files. No SSI needed. No log-file access needed.
+ a guided "wizzard-style" installation and an online-help.
I developed it during my work as a webmaster for a commercial
website and in my free time. It's absolutely free!
(I am always happy if someone writes me an eMail with his
thoughts about my scripts)
Check it out at:
http://easy.web66.com
Thank you,
Malte Ubl
------------------------------
Date: Thu, 23 Apr 1998 21:21:50 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Mike Clemens <mikec@cnet.com>
Subject: Re: BUG or FEATURE? -- splice() doesn't extend arrays
Message-Id: <Pine.GSO.3.96.980423141249.5518D-100000@user2.teleport.com>
On Thu, 23 Apr 1998, Mike Clemens wrote:
> I'm trying to use splice() to munge arrays starting at a particular
> array index, but was surprised to find that it (splice) doesn't
> automatically extend arrays if you're accessing beyond the end.
Well, splice has been this way as long as I can remember. :-) But it
could still be construed as a bug. The docs say,
The array grows or shrinks as necessary.
(...although I'm sure that that wasn't intended to apply here.)
I'd like to see this fixed. The problem I see is that, if we were to fix
it now, it might cause some older program to break. :-P
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 23 Apr 1998 22:45:36 GMT
From: jgloudon@hyssop.bbn.com.bbn.com (Jason Gloudon)
Subject: Re: C from perl
Message-Id: <slrn6jvh42.bdr.jgloudon@hyssop.bbn.com>
Kaleem Siddiqi <siddiqi-kaleem@cs.yale.edu> wrote:
.
. Wants to use xs
.
>Can anyone point me to more interesting examples such as:
>1) A pointer to an array is passed, such that the array
>can be modified by the C subroutine. Also, is there some
>way of declaring perl arrays such that their types
>correspond with the assumed C types?
Have you looked at the perlxs, perlxstut, and perlguts manpages ?
--
Jason Gloudon
------------------------------
Date: 23 Apr 1998 22:12:40 GMT
From: "dan" <dan.albertsson@swipnet.se>
Subject: Date/time library
Message-Id: <01bd6f04$f383dee0$11a1f482@brett>
-Is there a date/time library out there to more easily convert and handle
date and time?
-If not, or if it does not handle my specific problem, how do I find out
which week number corresponds to the actual dates, for instance this
day/date is during week 17 from the beginning of the year.
Thanks
/dan
------------------------------
Date: 23 Apr 1998 16:22:37 -0500
From: John Goerzen <jgoerzen@southwind.net>
Subject: Re: Defending Perl
Message-Id: <r6zzphcjkrm.fsf@peridot.southwind.net>
wayne@Glue.umd.edu (Wayne C. McCullough) writes:
> Hard to install? I don't know. I have only installed it on a win-95
> machine. There it was more difficult to install than most aplications,
> but it didn't take me more than 20 minutes to do.
>
> On a UNIX box, I suspect it all depends on how savy you are. I have had
> some problems installing Tk on unix boxes, but that is probably my own
> stupidity. I suspect someone with a little bit of experience and a lot
> of willingness to read all the help files could install Perl on most
> UNIX machines fairly easily.
I might point out that many of the most popular Unix operating systems
-- including FreeBSD, Debian GNU/Linux, RedHat, and BSDi -- come with
Perl either preinstalled or with a Perl package that can be installed
in 3 minutes or less.
--
John Goerzen Southwind Internet Access, Inc.
E-mail: Business, jgoerzen@southwind.net; Personal, jgoerzen@complete.org
Computer Science Dept., Wichita State University, jgoerzen@cs.twsu.edu
Developer, Debian GNU/Linux <http://www.debian.org>
------------------------------
Date: Thu, 23 Apr 1998 14:16:26 -0400
From: aarond@cutco.com (Aaron Drake)
Subject: Re: help (again sorry)
Message-Id: <aarond-2304981416260001@aaron.cutco.com>
I think maybe I should clarify a my last posting a bit...
BNB form brings the information in
here's the code it uses...
#########
sub decode_vars
{
$i=0;
read(STDIN,$temp,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$temp);
foreach $item(@pairs)
{
($key,$content)=split(/=/,$item,2);
$content=~tr/+/ /;
$content=~s/%(..)/pack("c",hex($1))/ge;
$content=~s/\012//gs;
$content=~s/\015/ /gs;
$fields{$key}=$content;
if ($key eq "data_order")
{
$content=~s/ //gs;
@sortlist=split(/,/,$content);
}
if ($key eq "required")
{
$content=~s/ //gs;
@mandatory=split(/,/,$content);
}
#########
I cut one irrelevant section off...
I'm just not sure how to pull the variables out and compare one character
of them and redirect based on that...
thanks again,
Aaron
------------------------------
Date: Thu, 23 Apr 1998 21:39:06 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Aaron Drake <aarond@cutco.com>
Subject: Re: help (again sorry)
Message-Id: <Pine.GSO.3.96.980423143538.5518G-100000@user2.teleport.com>
On Thu, 23 Apr 1998, Aaron Drake wrote:
> read(STDIN,$temp,$ENV{'CONTENT_LENGTH'});
> @pairs=split(/&/,$temp);
Did anybody tell you that you're doing this the hard way?
> foreach $item(@pairs)
> {
> ($key,$content)=split(/=/,$item,2);
> $content=~tr/+/ /;
> $content=~s/%(..)/pack("c",hex($1))/ge;
> $content=~s/\012//gs;
> $content=~s/\015/ /gs;
...And the wrong way? Use a module! As my friend Randal says, "Don't try
to re-invent the wheel: Sometimes you end up with casters."
> I'm just not sure how to pull the variables out and compare one character
> of them and redirect based on that...
Pull the variables out: Your module's docs will tell you.
Compare one character: substr and eq, documented in perlfunc and perlop.
Redirect: That sounds like something involving a protocol. Use a module
which implements that protocol.
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 23 Apr 1998 14:44:31 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: Help with non-text output
Message-Id: <alecler-2304981444310001@dialup-89.hip.cam.org>
In article <353F7EDC.F9C14450@oakland.edu>, Trupiano
<sgtrupia@oakland.edu> wrote:
> I am using Perl 5 Win32 build 316 on Win95. I am trying
> to create a file, whose contents are a sequence of bytes,
> each of which is the value of a string character.
>
> For example,
>
> $string = "0";
> ASCII encoding for string is 48(base 10), or 30(base 16)
>
> The resultant file should contain one byte, whose value is
> 48, or 0x30.
>
> I know that <ord> can compute the ASCII value of the first
> character in $string. However, how do I get that value to
> not be represented as two bytes in the output file, each of
> which is the ASCII representation of each digit of 48, that
> is 0x34,0x38, and simply one byte, with value 48?
<SCRATCH object="head">
Er... maybe I'm being dense, but... isn't a file containing a single byte
whose value is the ASCII value of "0", the same thing as a file containing
the actual character "0" ??? I am missing something????
</SCRATCH>
A.L.
------------------------------
Date: Thu, 23 Apr 1998 16:15:10 -0500
From: Andrew Ho <ag-ho@students.uiuc.edu>
Subject: Re: How do you ignoe characters in <read>
Message-Id: <Pine.SOL.3.96.980423160425.7963A-100000@ux9.cso.uiuc.edu>
Hello,
JM>I'm creating a simple file manipulation and display script The problem is that
JM>when I create @array using split and a while (<READ>) command I get stopped.
JM>
JM>The file I'm rading is space delimited (I know, but I didn't create it).
JM>Anyway, one of the fields is a decimal. The "." kicks the process out of the
JM>loop and I can't finish readin the line....
Here is your code, after indentation:
open (READ,"standing.htm") || die "Can't open file $a for reading: $!";
$count = 1;
while(<READ>) {
@array = split(/\.+/, $_);
if ($count == 13) {
@new = split(/\ +/, $array[0]);
for($i=0; $i<15; $i++) {
print "cell $i = $new[$i]\n";
}
$count++
}
}
close (READ) || die "can't close $a: $!";
Your code fragment is confusing, mostly because the purpose of $count is
ambiguous (it will always be 1 within the while block), and $a is undefined.
It APPEARS that you want to read lines, and on the thirteenth line, you want
to put each of fifteen space-delineated words in a fifteen-element array. It
looks like you are reading an HTML file, so perhaps the twelve skipped lines
are because they are header information? Here is how I would write this:
$filename = "standing.htm";
$count = 1;
@words = ();
open(READ, $filename) or die "Could not open $filename for reading: $!";
while(<READ>) {
$count++;
next if ($count != 13);
chomp;
@words = split(/\s+/);
for($i=0; $i<15; $i++) {
print "word $i = $words[$i]\n";
}
}
close(READ) or die "Could not close $filename: $!";
Humbly,
Andrew
-------------------------------------------------------------------------
'Twas brillig, and the slithy toves Andrew Ho
Did gyre and gimble in the wabe. ag-ho@uiuc.edu
All mimsy were the borogroves,
And the mome raths outgrabe. http://www.uiuc.edu/ph/www/ag-ho
-------------------------------------------------------------------------
------------------------------
Date: Thu, 23 Apr 1998 16:41:45 -0500
From: "tw96" <tw96@email.msn.com>
Subject: how to put subject in a email?
Message-Id: <OiHcaCwb9GA.126@upnetnews03>
Hello:
i'm practicing to write a program to send email, but i don't know how to put
sth. in
Subject:
all i got now is an empty area, will somebody tell me how to do that?
meng
------------------------------
Date: Thu, 23 Apr 1998 22:53:20 GMT
From: jgloudon@hyssop.bbn.com.bbn.com (Jason Gloudon)
Subject: Re: linefeeds and perl formats
Message-Id: <slrn6jvhih.bdr.jgloudon@hyssop.bbn.com>
jcald@lake.ml.org <jcald@lake.ml.org> wrote:
>I'm trying to use perl's 'format' to output some text in some columns. My
>problem is that some of the strings are like "foo\nbar\nbaz\n" and my format
>looks like this:
Remove the newlines.
$foo =~ tr/\n//d;
--
Jason Gloudon
------------------------------
Date: Thu, 23 Apr 1998 22:06:40 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Robert Friberg <robban@it-konsult.com>
Subject: Re: Memory usage
Message-Id: <Pine.GSO.3.96.980423144402.5518H-100000@user2.teleport.com>
On 23 Apr 1998, Robert Friberg wrote:
> CGI-wrap is for some reason offended by my script, my guess
> is that it's consuming too much memory.
That's one of many reasons that a script might fail. Perl is very good
about emitting some diagnostic message for virtually any failure. You
might check to see whether CGI-wrap has some debugging mode which will let
you see any messages perl is giving. (On my system, there's a cgiwrapd
counterpart to cgiwrap which runs in a debugging mode. But now we're off
the topic of Perl, of course.)
> All I would like
> is a few hints on how I can minimize memory usage. Should I
> avoid anonymous variables in loops?
No, those are automatically garbage-collected and recycled within Perl.
> Should I pass references
> to subs and assign there instead of returning something?
Perhaps. In general, it is better to pass and return references than
structures. But that's not likely to be the problem.
> It dumps core(~400k) and moans 'internal server error' when the
> linecount exceeds a certain number (always about the same) regardless
> of the number of hits.
Maybe you're exceeding CGI-wrap's limits (if any) on runtime or output
size?
> > > $hitdata[$hits++] = buildrow and last if
> > > join( '',(split /\t/)[@fields]) =~ /$w/i;
> >
> > I'm not at all sure that that does what you think it does. But maybe
> > that's because I'm not sure what you think it does. :-)
>
> Well, it matches over fieldboundaries, but that's a
> feature!
Okay, if that's what you want. Do you know that you are re-compiling that
regular expression each time through the loop? Maybe that's what you want.
> I hope it does the equivalent of:
>
> if (join( '',(split /\t/)[@fields]) =~ /$w/i)
> {
> $hitdata[$hits] = buildrow;
> $hits++;
> last;
> }
No, not really. If buildrow returns a false value, the first code won't
exit, but the second will. Maybe that's what you want, though.
> Where does the scalar data from the join() go?
The memory used is recycled, so that's not a problem.
> What about the split()?
That's recycled, too. Although Perl can be a memory hog, I haven't seen
anything that's struck me as being especially hoggish. :-)
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 23 Apr 1998 17:03:16 -0400
From: Dennis Kowalski <dennis.kowalski@daytonoh.ncr.com>
Subject: ODBC/DBI on WIN32 host
Message-Id: <353FAC94.4B0E@daytonoh.ncr.com>
2nd try. My 1st posting disappeared.
I am running on a NT 4.0 host.
Can anyone tell me what version of Perl of modules I need to have in
order to use the ODBC or DBI interfaces to acces an ORACLE database from
a perl program ??
I am currently using build 316 from ActiveWare.
Thanks (again)
------------------------------
Date: 23 Apr 1998 16:08:44 -0500
From: jima@MCS.COM (Jim Allenspach)
Subject: Re: Perl vs. Java
Message-Id: <6hoaks$aec@Venus.mcs.net>
>Would you run a strange perl program from an unknown site without
>carefully examining it first?
eval'$buddy='.join'',map{chr$_}(04.010,04.011,05.000,04.011);foreach(
0115.0121.0155,0155.0122.0155,0141.0123.0171,0142.0124.0145,056.0125.012
){print map{chr$_}split$buddy++}
jma
--
Jim Allenspach Hacking Perl since 1994.
jima at mcs dot com Perl: Live free or die $!;
Chicago IL
------------------------------
Date: Thu, 23 Apr 1998 21:30:35 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: jgloudon@bbn.com
Subject: Re: Problems with 'wait' under perl5.004
Message-Id: <Pine.GSO.3.96.980423142319.5518E-100000@user2.teleport.com>
On Thu, 23 Apr 1998, Jason Gloudon wrote:
> Wait is supposed to return if a signal (like alarm is received while
> waiting),
I'm not sure about that. I thought that perl's wait (as opposed to
wait(2)) should let signal handlers deal with signals. In any case, this
is not the way it's documented in perlfunc's entry for wait - although it
wouldn't be the first un(der)documented feature in Perl.
On my system, wait returns -1 only when there are no child processes.
Alarms are handled by the handler, and don't terminate waiting.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 23 Apr 1998 22:33:02 GMT
From: jgloudon@hyssop.bbn.com.bbn.com (Jason Gloudon)
Subject: Re: Read-only value?
Message-Id: <slrn6jvgcg.bdr.jgloudon@hyssop.bbn.com>
Jason Gloudon <jgloudon@hyssop.bbn.com.bbn.com> wrote:
>Wade Williams <wwilliam@cisco.com> wrote:
>.
>>foreach $val (@{$v->{ord}},@{$v->{ordpoints}})
>.
>
>When you write this, Perl 'flattens' your two arrays into a single anonymous
>array out of your two arrays, so $_ is no longer a reference to the elements
>of your arrays.
Someone sent me some mail about this (thanks ts):
Oddly enough this isn't the case as in 5.003 and newer this works
#!/usr/local/bin/perl -w
@a= (4,5,6);
@b= (7,8,9);
foreach $joe (@a,@b){
$joe = 1;
}
print @a, @b;
However, the description of foreach in 'perlsyn' does not indicate that this
works.
---
Jason Gloudon
------------------------------
Date: Thu, 23 Apr 1998 17:43:02 -0400
From: Robert Woolley <rwoolley@ottawa.com>
Subject: Retrieving input from URL
Message-Id: <353FB5E6.800F69B7@ottawa.com>
How would I go about retrieving the information from the variables
passed to the script through the URL. i.e.:
http://www.altavista.digital.com/cgi-bin/query?q=%2Bperl+%2B%22query
I believe that it has something to do with QUERY_STRING doesn't it?
------------------------------
Date: Thu, 23 Apr 1998 18:57:13 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Retrieving input from URL
Message-Id: <comdog-ya02408000R2304981857130001@news.panix.com>
Keywords: from just another new york perl hacker
In article <353FB5E6.800F69B7@ottawa.com>, Robert Woolley <rwoolley@ottawa.com> posted:
>How would I go about retrieving the information from the variables
>passed to the script through the URL. i.e.:
>
>http://www.altavista.digital.com/cgi-bin/query?q=%2Bperl+%2B%22query
>
>I believe that it has something to do with QUERY_STRING doesn't it?
if you have a CGI script, perhaps you wanted CGI.pm. see the
documentation for methods to access the data
if you have URLs that you are trying to munge, you might also want
to look at the URI::URL module which will break up the URL into its
bits and peices, which you could further process with CGI.pm.
if you want the data that a server returns when given that info,
you should look at the LWP::Simple module.
good luck :)
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers <URL:http://www.pm.org>
------------------------------
Date: Thu, 23 Apr 1998 16:35:33 -0500
From: "tw96" <tw96@email.msn.com>
Subject: scalar assignment
Message-Id: <ujU88#vb9GA.152@upnetnews03>
hello, everybody!
i tried, but still don't know how to correct these two errors, please
help!!!
error1 on one program:
line 3: syntax error near unexpected token
`open(FILE,"</client/home/webcmo/docs/report.html")'
line 3:
`open(FILE,"</client/home/webcmo/docs/report.html")||&return_error(500,"Serv
er Error","Can not open report file!");'
error2 on another program:
Can't modify not in scalar assignment at line 3, near
"$base = "/client/home/webcmo/docs/";"
it's strange because i used these two sentences in other similar programs,
they did not show such errors.
and there is another thing happened once:
print <<END;
afggutujflgs
END
the compiler just can't find the "END", no matter where i put the word,
until i copy the same word from a working program!!!
i'm new to perl, please give some hints, thanks!
meng
------------------------------
Date: 23 Apr 1998 22:06:02 GMT
From: "dan" <dan.albertsson@swipnet.se>
Subject: Sendmail library
Message-Id: <01bd6f04$065c3360$11a1f482@brett>
-Is there a sendmail library out there to be used with perl to more easily
use sendmail from inside perl?
-If not, how can I use sendmail or any other mail program to append a file
to my mail?
-Is there a problem with 7-bit vs 8-bit coding?
Thanks
/dan
------------------------------
Date: 23 Apr 1998 21:01:18 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: spoiled noobie
Message-Id: <6hoa6u$82m$1@marina.cinenet.net>
Andrew F. Lee (andrewf@cp.pathfinder.com) wrote:
: On Mon, 20 Apr 1998, Sahagian wrote:
:
: > I grew up? with the trim() function which returns a string with the
: > leading and the trailing space-chars removed.
:
: sub trim {
: my $string = shift;
: $string =~ m/\s*(.+)\s*/;
: return $1;
: }
$string = ' test 1-2-3 ';
$string =~ m/\s*(.+)\s*/;
print "|$1|\n"; # Prints: |test 1-2-3 |
Sorry, no go. Greedy matching makes .+ eat everything (including
trailing spaces) right up to the end of the string.
When the FAQ provides several working answers, why bother posting a
broken one?
---------------------------------------------------------------------
| 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: Thu, 23 Apr 1998 21:31:41 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: George Kassyousef <gkassyou@newbridge.com>
Subject: Re: status output.
Message-Id: <Pine.GSO.3.96.980423143109.5518F-100000@user2.teleport.com>
On Thu, 23 Apr 1998, George Kassyousef wrote:
> Is there a way to clear a line or go back to beginning of the line to
> write over the 20 and so on.
Sounds as if you want the curses package. There's a module for this on
CPAN. Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 23 Apr 1998 16:41:56 -0500
From: Andrew Ho <ag-ho@students.uiuc.edu>
Subject: Using "require"
Message-Id: <Pine.SOL.3.96.980423163751.7963B-100000@ux9.cso.uiuc.edu>
Hello,
The Perl man pages specify that the "require" function:
...demands that a library file be included if it hasn't already been
included.
I have multiple library files and would like to include them across
libraries (e.g. library A uses routines from library B, both libraries A and
B are utilized by application program C). Does putting "require"s in A and B
cause any additional overhead? How does Perl determine if a library file has
already been included?
Humbly,
Andrew
-------------------------------------------------------------------------
'Twas brillig, and the slithy toves Andrew Ho
Did gyre and gimble in the wabe. ag-ho@uiuc.edu
All mimsy were the borogroves,
And the mome raths outgrabe. http://www.uiuc.edu/ph/www/ag-ho
-------------------------------------------------------------------------
------------------------------
Date: Thu, 23 Apr 1998 22:47:18 GMT
From: jgloudon@hyssop.bbn.com.bbn.com (Jason Gloudon)
Subject: Re: What is OFFICIAL version of Perl FAQ?
Message-Id: <slrn6jvh78.bdr.jgloudon@hyssop.bbn.com>
lvirden@cas.org <lvirden@cas.org> wrote:
.
>It's rather a surprise to me that no new questions, or new solutions to
>questions, or corrections, have been found since April 24, 1997 . I guess
>all the complaints about the same questions being asked over and over are
>really true - not one new question in the past year has qualified as being
>'frequently asked'.
I'd vote for a pointer to dejanews and instructions how to search c.l.p.m.
--
Jason Gloudon
------------------------------
Date: Thu, 23 Apr 1998 14:36:37 -0700
From: "Igor Krivokon" <igor.k@usa.net>
Subject: Re: WIN32 - create shortcut on desktop
Message-Id: <6hoc2c$mis$1@news.ncal.verio.com>
Dennis Kowalski wrote in message <353FA8E2.3FD1@daytonoh.ncr.com>...
>I want to automate the creation of shortcut icons on a NT desktop.
>
>Is there a Perl library module that can create a shortcut that will
>appear on a NT desktop ??
>
>Or
>
>Does anyone now the command line interface to do it ??
>
>Thanks
Win32::Shortcut (included in standard win32 perl distribution)
Regards,
Igor Krivokon
<igor.k@usa.net>
------------------------------
Date: Thu, 23 Apr 1998 15:32:15 -0700
From: "Chadster" <chadster@>
Subject: Win32 command to retrieve the list of local groups on a server
Message-Id: <6hofhm$c0c4@news2.ntr.net>
Does anyone know of command to get a list of the local groups on a server?
I have found functions that do just about everything else with users and
groups, but not one that returns a list of the groups.
Thanks
Scott LeWarne
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
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 2405
**************************************
