[11814] in Perl-Users-Digest
Perl-Users Digest, Issue: 5414 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 19 00:12:11 1999
Date: Sun, 18 Apr 99 21:00:17 -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 Sun, 18 Apr 1999 Volume: 8 Number: 5414
Today's topics:
Another bug in Perl? (Andrew Haveland-Robinson)
Re: Another bug in Perl? (Sam Holden)
Re: Another bug in Perl? <rick.delaney@home.com>
Re: Books <puyrebel@prodigy.net>
re: CGI programmer wanted (Diablo Killuminati)
Re: display and modify configuration file /etc/resolv.c (David Efflandt)
Re: How to execute script on server startup (Abigail)
Re: htpasswd script problem (David Efflandt)
Re: HTTP_REFERRER (David Efflandt)
Re: ifeither--How about some feedback? (Sean McAfee)
Re: invoking by "fire and forget" <e_broyles@yahoo.com>
Re: invoking by "fire and forget" <toddl_NOSPAM_@SiTera.com>
Re: Need example <jim@newglobal.net>
Proposal - Lingua::EN::Ordinal <mpersico@erols.com>
Re: Proposal - Lingua::EN::Ordinal (Damian Conway)
Re: Removing file extentions <m_ching@hotmail.com>
VB and Perl <bhilton@kc.net>
VB and Perl <bhilton@kc.net>
VB and Perl <bhilton@kc.net>
VB and Perl <bhilton@kc.net>
VB and Perl <bhilton@kc.net>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 19 Apr 1999 02:33:11 GMT
From: andy@-nospam-haveland.com (Andrew Haveland-Robinson)
Subject: Another bug in Perl?
Message-Id: <37289465.287663906@news.demon.co.uk>
You would think this works OK...
sub encode_string() {
my $msgdec = shift;
$msgdec =~ s/(.)/uc sprintf("%02x",ord($1))/eg;
return $msgdec;
}
Well, 99.61% of the time it does... until $msgdec contains an LF
The LFs in the string are returned untouched.
However, this routine is the same but different, yet it fixes the problem.
sub encode_string() {
my $msgdec = shift;
$v = "";
for (split (//, $msgdec)) { $v .= uc sprintf ("%02x", ord($_) ); }
return $v;
}
Question is why? I've tested this on the latest versions of Perl on NT and
Linux, and the behaviour is identical and repeatable.
Is this a bug or a feature?
Andy.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Haveland-Robinson Associates Tel. +44 (0)1252-845697
6 Haywarden Place, Hartley Wintney, ICQ: 1331640
Hants RG27 8UA England Web: http://www.haveland.com
------------------------------
Date: 19 Apr 1999 02:44:29 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Another bug in Perl?
Message-Id: <slrn7hl64d.m4m.sholden@pgrad.cs.usyd.edu.au>
Andrew Haveland-Robinson <andy@-nospam-haveland.com> wrote:
>
>You would think this works OK...
>
>sub encode_string() {
> my $msgdec = shift;
> $msgdec =~ s/(.)/uc sprintf("%02x",ord($1))/eg;
> return $msgdec;
> }
>
>Well, 99.61% of the time it does... until $msgdec contains an LF
>The LFs in the string are returned untouched.
>
>Question is why? I've tested this on the latest versions of Perl on NT and
>Linux, and the behaviour is identical and repeatable.
>
>Is this a bug or a feature?
It is a feature.
It is documented in the manual.
Surely it wouldn't have taken long to have a look in the manual?
What do you think . matches?
What does the manual say . matches?
--
Sam
Anyway, the other successor to C gobbled up two letters instead of one.
Which is why many Perl scripts have the extension, ``.pl'', finishing
off BCPL. --Larry Wall
------------------------------
Date: Mon, 19 Apr 1999 02:54:42 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Another bug in Perl?
Message-Id: <371A9A8A.1A037AD@home.com>
Andrew Haveland-Robinson wrote:
>
> You would think this works OK...
No, I wouldn't.
> sub encode_string() {
> my $msgdec = shift;
> $msgdec =~ s/(.)/uc sprintf("%02x",ord($1))/eg;
> return $msgdec;
> }
>
> Well, 99.61% of the time it does... until $msgdec contains an LF
> The LFs in the string are returned untouched.
Why would you expect different? Did you not learn about "." in pattern
matching from the docs? If not, wouldn't you check the docs when you
saw something weird?
perldoc perlre
This seems like the kind of thing someone else might have noticed
before. Probably a lot of people. Thus it's probably in the FAQ.
perldoc perlfaq6
I'm having trouble matching over more than one line. What's wrong?
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Sun, 18 Apr 1999 21:04:42 -0500
From: Ken Robbins <puyrebel@prodigy.net>
Subject: Re: Books
Message-Id: <371A8F3A.21A4CF64@prodigy.net>
Uri Guttman wrote:
[snip snip]
> so what i
> do is use amazon or B&N for searching and reviews, etc. and then buy
> from bookpool.
Yes, Amazon.com has the most reviews by readers of any site, so that is
what I probably will do.
> someone else said they can be out of stock sometimes but
> at least they don't list a book until they have it. amazon and the other
> biggies will list a book weeks in advance which can be very annoying.
Actually, they do post the books that are not in stock. If you look at
the different lists of books, there are some books without a green A
icon next to them which indicates they are out of stock.
[snip]
Also, a really good place to buy books at a cheap price (recommended by
Randal) is buy.com. Their prices are about the same as bookpool.com's.
--
Ken Robbins
puyrebel <AT> prodigy <DOT> net
------------------------------
Date: Mon, 19 Apr 1999 02:18:58 GMT
From: diablo@livenet.net (Diablo Killuminati)
Subject: re: CGI programmer wanted
Message-Id: <371a91da.11269790@news.erols.com>
I opperate a couple of new adult sites and I am in need of a good CGI
programmer.
------------------------------
Date: Sun, 18 Apr 1999 20:55:50 -0400
From: efflandt@xnet.com (David Efflandt)
Subject: Re: display and modify configuration file /etc/resolv.conf
Message-Id: <slrn7hkvu2.mo.efflandt@efflandt.xnet.com>
On Fri, 16 Apr 1999 11:47:52 +1000, Jonathan Ho <t0.ho@student.qut.edu.au>
wrote:
>How to display and modify configuration file /etc/resolv.conf on the html
>page?
>
>Regards
I modify mine from /etc/ppp/ip-up.local (Linux RedHat) based on what I am
connecting to. Then I switch it back with ip-down.local. Alternate files
are already set up, so all the bash script has to do is cp.
Is your DNS somehow changing on the fly other than when you connect?
There are name services that can automatically map a dynamic IP to a fixed
name.
I imagine that you would need an suid C wrapper that would run the script
as root and the script should carefully taint check all input (perl -T)..
--
David Efflandt efflandt@xnet.com
http://www.xnet.com/~efflandt/
------------------------------
Date: 19 Apr 1999 02:25:34 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: How to execute script on server startup
Message-Id: <7fe46u$3du$1@client2.news.psi.net>
kellykross@my-dejanews.com (kellykross@my-dejanews.com) wrote on MMLVI
September MCMXCIII in <URL:news:7fdqjp$veq$1@nnrp1.dejanews.com>:
;; I have a site that runs on a Apache/1.3.1 Cobalt (Unix) server. I would like
;; to know if it is possible to have a CGI script execute on startup and remain
;; present.
Well, yes, but what does that have to do with Perl?
;; I share space on this server. The site Admin isn\x92t the helpful type
;; if possible I would like to enable this myself. I\x92ve tried to execute the
;; program from browser and telnet command line but it appears to terminate when
;; exiting or logging off.
Then detach it from your shell.
;; P.S The script is designed to continuously monitor
;; files in a directory.
So, what's your Perl question?
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: Sun, 18 Apr 1999 21:20:51 -0400
From: efflandt@xnet.com (David Efflandt)
Subject: Re: htpasswd script problem
Message-Id: <slrn7hl1cu.mo.efflandt@efflandt.xnet.com>
On Fri, 16 Apr 1999 12:57:26 GMT, hensonw@my-dejanews.com
<hensonw@my-dejanews.com> wrote:
>First, let me say I am neophyte but very interested in learning to code in
>Perl. I am attempting to write a script that will take a text file of names
>and passwords in the following format;
>
>name,password
>name,password
>
>and gen the .htpasswd file for an apache web server using the Perl script
>below;
>
>#!/usr/bin/perl
>open(INFILE,"userlist.txt") || die "cannot open userlist.txt: $!";
>open(OUT,">.htpasswd") || die "cannot create .htpasswd: $!";
>while(<INFILE>){ # read a line from file userlist.txt into $_
> chomp;
> $comma = rindex($_,",");
> $name = substr($_,0,$comma);
> $passwd = substr($_,$comma+1);
Wouldn't this be easier:
($name, $passwd) = split /,/, $_;
And this is what I use for salt (yes I know I should use a more random
srand). You seem to use more salt characters and your +1 is in a
different place:
# Salt for crypt
@range = ('0'..'9','a'..'z','A'..'Z');
srand;
$salt = $range[rand(int($#range)+1)] . $range[rand(int($#range)+1)];
> srand($$|time); # random seed
> @saltchars=(a..z,A..Z,0..9,'.','/'); # valid salt chars
> $salt=$saltchars[int(rand($#saltchars+1))]; # first random salt char
> $salt.=$saltchars[int(rand($#saltchars+1))]; # second random salt char
> $cpw = crypt($passwd,$salt);
> print OUT "$name\:$cpw\n";
>}
>close(INFILE) || die "can't close userlist.txt: $!";
>close(OUT) || die "can't close .htpasswd: $!";
>
>The output to the .htpasswd file looks like it would work but doesn't.
>What am I doing wrong?
Have you tried using .htpasswd generated by 'htpasswd' from apache to
see if your server configuration is correct?
--
David Efflandt efflandt@xnet.com
http://www.xnet.com/~efflandt/
------------------------------
Date: Sun, 18 Apr 1999 21:36:57 -0400
From: efflandt@xnet.com (David Efflandt)
Subject: Re: HTTP_REFERRER
Message-Id: <slrn7hl2b1.mo.efflandt@efflandt.xnet.com>
On Sat, 17 Apr 1999 23:03:12 -0700, Larry Rosler <lr@hpl.hp.com> wrote:
>[Posted and a courtesy copy sent.]
>
>In article <7fbgu5$sh5$1@news.laserlink.net> on Sat, 17 Apr 1999
>22:44:17 -0400, The Internet DJ <webmaster@internetdj.com> says...
>> I'm trying to read in the referring URL, and if it does not match a
>> particular URL, it spits out a Location and aborts the rest of the script...
>>
>> This is what I have, but it does not work, any suggestions?
>>
>> $ref = $ENV{'HTTP_REFERER'};
>
>How do you know that this is defined? What do you want to do if it
>isn't?
>
>> $good_ref = "http://www.mysite.com";
Your $good_ref is not, look at the URL in your browser after you go
there. It should be:
$good_ref = "http://www.mysite.com/";
>> if ($ref != $good_ref) {
>
>In Perl, strings are compared with eq and ne, not with == and !=. Your
>comparison would be of 0 to 0, which should never get to the next
>line...
>
>> print "Location: "http:///www.mysite.com\n\n;
try: print "Location: http://www.mysite.com\n\n";
>which deoesn't compile in any case. Where is the closing quote? (The
>three slashes are wrong, too. Obviously you have typed this in, not
>cut-and-pasted the real code.)
>
>> exit;
>> }
>
>--
>(Just Another Larry) Rosler
>Hewlett-Packard Company
>http://www.hpl.hp.com/personal/Larry_Rosler/
>lr@hpl.hp.com
--
David Efflandt efflandt@xnet.com
http://www.xnet.com/~efflandt/
------------------------------
Date: Mon, 19 Apr 1999 03:43:06 GMT
From: mcafee@waits.facilities.med.umich.edu (Sean McAfee)
Subject: Re: ifeither--How about some feedback?
Message-Id: <eDxS2.1279$hl6.54301@news.itd.umich.edu>
In article <7fbgj8$m4f$1@client2.news.psi.net>,
Abigail <abigail@fnx.com> wrote:
>Sean McAfee (mcafee@waits.facilities.med.umich.edu) wrote on MMLV
>September MCMXCIII in <URL:news:7K7S2.1159$hl6.48122@news.itd.umich.edu>:
>,, In article <7faq6c$tag@enews3.newsguy.com>,
>,, William H. Asquith <asquith@macconnect.com> wrote:
>,, >while(1) {
>,, > ## do some stuff
>,, > last ifeither($a, $b, $c, $d, $e, $f < 0); # suggested form
>,, >}
>,, That would require changes to the "last" semantics, and there's already a
>,, perfectly good "last if" idiom, so I think the closest thing to your above
>,, suggestion would be:
>I don't see how it requires changes to the last semantics. It isn't that
>last cares that there's an 'if' following it. last is just a leave in the
>parse tree.
True. What I meant was that currently there's no "last EXPR" semantics,
like "last foo();".
>reduce {$_ < 0} $a, $b, $c, $d, $e, $f;
>That's being worked on/in the suggestion box. (See the p5p mailing list).
I was on p5p for a short while, but I quickly became overwhelmed by the
several hundred messages per day. There was some interesting reading, but
much of it was just people with odd problems compiling Perl on various
platforms, and recommendations from other people about fixing the problems.
>,, last if map($_ < 0 ? 1 : (), $a, $b, $c, $d, $e, $f);
>That's a funny way of using map.
>How about:
> last if grep {$_ < 0} $a, $b, $c, $d, $e, $f;
Eep. I think I thought too hard about this one.
>LOOP:
> while (1) {
> # do some stuff.
> foreach ($a, $b, $c, $d, $e, $f) {last LOOP if $_ < 0}
> }
Neat. I think the deep-seated revulsion for "goto" statements--and, by
extension, labels--that I acquired when I learned C has made it difficult
for me to even consider using labels in other languages, even when it's
eminently appropriate, as it is here.
That reminds me...Does anyone know if allowing multiple statement modifiers
into Perl has ever been considered? I sometimes find myself wanting to do
something like:
print "$_ is even\n" if $_ % 2 == 0 foreach 0..10;
It doesn't seem like it would be significantly more difficult to parse than
the single-modifier case, but I'm just guessing.
--
Sean McAfee | GS d->-- s+++: a26 C++ US+++$ P+++ L++ E- W+ N++ |
| K w--- O? M V-- PS+ PE Y+ PGP?>++ t+() 5++ X+ R+ | mcafee@
| tv+ b++ DI++ D+ G e++>++++ h- r y+>++** | umich.edu
------------------------------
Date: Mon, 19 Apr 1999 01:25:51 GMT
From: e_broyles <e_broyles@yahoo.com>
Subject: Re: invoking by "fire and forget"
Message-Id: <7fe0mo$4am$1@nnrp1.dejanews.com>
I am not sure that I understand how this could help. I guess that it would
make sure it ran the larger program first, before the cgi output. How does
this start my program separate from the main so that it will continue to
process?
BTW, don't you think that it is better to err on the side of giving two much
information than not enough? Also, the NT version and Unix versions of perl
have different methods for process management, and I think that the solution
may lie here.
Has no one done this before? If I were running Unix, I would be able to skip
this and just run it through the command line. Unfortunately, I am running
this on a remotely located server.
Thanks,
In article <7fbgp4$m4f$2@client2.news.psi.net>,
abigail@fnx.com wrote:
> e_broyles (e_broyles@yahoo.com) wrote on MMLV September MCMXCIII in
> <URL:news:7fb4re$saf$1@nnrp1.dejanews.com>:
> || How can I start a perl program via the web and not have it stop?
>
> This should do:
>
> BEGIN {1 while 1;}
>
> [ Non-Perl problems related to browsers, IIS and NT deleted ]
>
> Abigail
> --
> perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(
> HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (
> LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET",
> "http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content))
> =~ /(.*\))[-\s]+Addition/s) [0]'
>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Sun, 18 Apr 1999 21:43:39 -0600
From: Todd LaWall <toddl_NOSPAM_@SiTera.com>
Subject: Re: invoking by "fire and forget"
Message-Id: <371AA66B.8B7C736D@SiTera.com>
e_broyles wrote:
> BTW, don't you think that it is better to err on the side of giving two much
> information than not enough? Also, the NT version and Unix versions of perl
> have different methods for process management, and I think that the solution
> may lie here.
IMHO, it's always better to err on the side of too much info. Some
people disagree, but then if you didn't include everything you knew
about the problem, the same people bitch about you not giving them
good enough info. Oh well, you can't please all the people all the
time...
> Has no one done this before? If I were running Unix, I would be able to skip
> this and just run it through the command line. Unfortunately, I am running
> this on a remotely located server.
I've done it to a limited extent on a Win32 box. I've used the
Win32::Process module to kick off some processes, but not from a
CGI script. Go look up the way to use it, and look up which process
priority to use. The Microsoft Knowledge base might have some info
to help you about those.
HTH,
Todd
------------------------------
Date: Mon, 19 Apr 1999 01:57:30 GMT
From: Jim <jim@newglobal.net>
Subject: Re: Need example
Message-Id: <371A4776.9D294505@newglobal.net>
Well, let's see...Forms > cgi > perl.
Interesting how that works!
Do you need any more help understanding my question, Mr. Perl Programming man?
Or do you have nothing else better to do than start some stupid flame war on
what I thought would be a helpful newgroup?
In the mean time, KMA!
Tad McClellan wrote:
> Jim (jim@newglobal.net) wrote:
>
> : I've been searching for an example of how to pass the contents of one
> : form to another.
> : What I want to achieve is a form that when a user chooses option(1) then
> : the user will be served another script, and another form. Same for
> : option(2), etc....
>
> : If there's a howto someone could direct me to I'd be very grateful,
>
> What is your Perl question?
>
> This is the Perl newsgroup.
>
> The answer to your question is likely "hidden" is a newsgroup
> that is connected in some way to WWW stuff.
>
> This is not such a newsgroup.
>
> This is:
>
> comp.infosystems.www.authoring.cgi
>
> --
> Tad McClellan SGML Consulting
> tadmc@metronet.com Perl programming
> Fort Worth, Texas
------------------------------
Date: Sun, 18 Apr 1999 23:06:46 -0400
From: "Matthew O. Persico" <mpersico@erols.com>
Subject: Proposal - Lingua::EN::Ordinal
Message-Id: <371A9DC6.7D9709D4@erols.com>
{courteousy CC to Damian Conway}
I had occassion the other evening to write a simple function that, given
an integer number, returned the suffix needed to pronounce the ordinal
of the number
1 -> st
2 -> nd
3 -> rd
4 -> th
and so on. I then thought, "Hey, that seems like something useful. Let's
make a module of it." So I did. Tests and documentation too.
However, before I tried to spring it on the world, I thought I'd better
do some research. So, I fired up WAIT, typed in 'ordinal' for Text and
go 28 hits.
Most were in Math or TeX modules, so I figured that they were not
related to what I wanted to do. I did however see one hit that seemed
to prove that I had re-invented the wheel:
data/EvoScript/Number/Words.pm
Contained in: EvoScript-4.00b1.tar.gz
Number::Words
Words for numbers and localized ordinals
Synopsis
use Number::Words qw( aswords nth );
aswords('45326') eq 'fourty five thousand three hundred twenty
six';
nth('1') eq '1st';
nth('45') eq '45th';
nth('103') eq '103rd';
So, I tried to get EvoScript-4.00bl.tar.gz. The link for it is listed
as:
http://amaunet.informatik.uni-dortmund.de/cgi-bin/CPAN/authors/id/J/JG/JGBISHOP/EvoScript-4.00b1.tar.gz
which cannot be found. I went back to my local CPAN mirror and found
that
there was no JG subdir of authors/id/J.
So, what gives? Can EvoScript be found? If not, should I bother
submitting
Lingua::EN::Ordinal for just one lousy function? Should I change my
function to return the number and the suffix as shown above?
Maybe the func should be added to an existing module, such as Damian
Conway's
Lingua::EN::Inflect?
For the record:
NAME
Linqua::EN::Ordinal - Return the proper ordinal suffix for
English numerals.
SYNOPSIS
use Linqua::EN::Ordinal qw(ordinal);
print "This is the 37" . ordinal(37) . " time\n";
print "that you wrote a module with no pod!\n";
DESCRIPTION
Returns a string that is the ordinal suffix. The rules of what
are returned are really simple. Given an integer $n and $m = $n
% 10:
if $n is bewteen 11 and 13 (inclusive) return "th"
if $m is one of 0,4,5,6,7,8,9,0 return "th"
if $m == 1, return "st"
if $m == 2, return "nd"
if $m == 3, return "rd"
AUTHOR
Matthew O. Persico `mpersico@erols.com'
SEE ALSO
perl(1).
--
Matthew O. Persico
http://www.erols.com/mpersico
http://www.digistar.com/bzip2
------------------------------
Date: 19 Apr 1999 03:43:16 GMT
From: damian@cs.monash.edu.au (Damian Conway)
Subject: Re: Proposal - Lingua::EN::Ordinal
Message-Id: <7fe8ok$o7m$1@towncrier.cc.monash.edu.au>
"Matthew O. Persico" <mpersico@erols.com> writes:
>{courteousy CC to Damian Conway}
Thank-you :-)
>I had occassion the other evening to write a simple function that, given
>an integer number, returned the suffix needed to pronounce the ordinal
>of the number
Seems it would fit quite nicely in Lingua::EN::Inflect.
I'm happy to add a NTH function:
use Lingua::EN::Inflect "NTH";
die "You screwed up on the NTH($line) line\n";
or maybe it shold be called ORD:
die "You screwed up on the ORD($line) line\n";
Anyway, if no-one else wants to claim it, send me the code. :-)
Damian
------------------------------
Date: Sun, 18 Apr 1999 16:34:54 -1000
From: "Michael Ching" <m_ching@hotmail.com>
Subject: Re: Removing file extentions
Message-Id: <371a6cbf.0@news.hawaii.rr.com>
my bad.
thanks
> I have rearranged your post so it proceeds in logical order, and trimmed
> all the extraneous stuff instead of blindly copying everything.
>
> I doubt that you tested your regex before posting it. It converts
> 'foo.bar.baz' to 'foo.baz' which is not what is wanted.
>
> Here is a correct (and tested!) regex:
>
> $link =~ s/\.[^.]*$//;
>
> This removes a trailing period as well. If not desired, change the * to
> + and it will remove only a complete file extension.
------------------------------
Date: Sun, 18 Apr 1999 22:06:37 -0500
From: "Brad Hilton" <bhilton@kc.net>
Subject: VB and Perl
Message-Id: <51xS2.3106$R93.33003@newsfeed.slurp.net>
How can I integrate Perl into VB? Is it possible to program entirely in
Perl but use VB for screens? Where can I go for information on this?
Thanks,
Brad Hilton
bhilton@kc.net
------------------------------
Date: Sun, 18 Apr 1999 22:06:37 -0500
From: "Brad Hilton" <bhilton@kc.net>
Subject: VB and Perl
Message-Id: <K3xS2.3110$R93.29640@newsfeed.slurp.net>
How can I integrate Perl into VB? Is it possible to program entirely in
Perl but use VB for screens? Where can I go for information on this?
Thanks,
Brad Hilton
bhilton@kc.net
------------------------------
Date: Sun, 18 Apr 1999 22:06:37 -0500
From: "Brad Hilton" <bhilton@kc.net>
Subject: VB and Perl
Message-Id: <OcxS2.3118$R93.33354@newsfeed.slurp.net>
How can I integrate Perl into VB? Is it possible to program entirely in
Perl but use VB for screens? Where can I go for information on this?
Thanks,
Brad Hilton
bhilton@kc.net
------------------------------
Date: Sun, 18 Apr 1999 22:06:37 -0500
From: "Brad Hilton" <bhilton@kc.net>
Subject: VB and Perl
Message-Id: <3fxS2.3120$R93.29253@newsfeed.slurp.net>
How can I integrate Perl into VB? Is it possible to program entirely in
Perl but use VB for screens? Where can I go for information on this?
Thanks,
Brad Hilton
bhilton@kc.net
------------------------------
Date: Sun, 18 Apr 1999 22:06:37 -0500
From: "Brad Hilton" <bhilton@kc.net>
Subject: VB and Perl
Message-Id: <ZAxS2.3153$R93.32678@newsfeed.slurp.net>
How can I integrate Perl into VB? Is it possible to program entirely in
Perl but use VB for screens? Where can I go for information on this?
Thanks,
Brad Hilton
bhilton@kc.net
------------------------------
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 5414
**************************************
