[15814] in Perl-Users-Digest
Perl-Users Digest, Issue: 3227 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 1 11:05:39 2000
Date: Thu, 1 Jun 2000 08:05:14 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <959871914-v9-i3227@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 1 Jun 2000 Volume: 9 Number: 3227
Today's topics:
Re: [newbie] I'm a retard (pls. Recom. Regex help src.) (Bart Lateur)
Re: C to perl? <pds@x-datcon.co.uk>
Re: C to perl? (Bart Lateur)
Re: C to perl? <bmb@ginger.libs.uga.edu>
Re: C to perl? (brian d foy)
CC problems with Coldfusion Apache module <mark.hamlin@artdigital.co.uk>
Re: generating WML (Andy Jones)
Re: generating WML <flavell@mail.cern.ch>
Re: Help Needed - Perl Matching Operator zhur@my-deja.com
How can I do that? (LMC)
Re: How do I make perl flush? <Petri_member@newsguy.com>
Re: How do I make perl flush? <abe@ztreet.demon.nl>
Is it possible to compile Perl programs? <stuartb@abs.karoo.co.uk>
Re: Is it possible to compile Perl programs? (Andreas Kahari)
Re: Is Perl for me? neil@pacifier.com
Re: Julian Days (Bart Lateur)
Re: NET::FTP martin_harriss@geocities.com
Re: NET::FTP <abe@ztreet.demon.nl>
offline mode <vivekvp@spliced.com>
Re: offline mode (Andreas Kahari)
param() help <derek@ccil.org>
Re: param() help (Sam Holden)
Parsing Email from Europe <dwb1@home.com>
Re: Parsing Email from Europe <webmaster@ostas.lu.se>
Re: Parsing Email from Europe <dwb1@home.com>
Re: Perl unusable as a programming language <epa98@doc.ic.ac.uk>
Re: Perl unusable as a programming language (Malcolm Dew-Jones)
Re: Problem of perl on NT IIS <tfm@sei.cmu.edu>
Quick Network Ping scarey_man@hotmail.com
Re: Quick Network Ping <tony_curtis32@yahoo.com>
Re: Quick Network Ping (bowman)
Re: Remote .htpasswd editting <tony_curtis32@yahoo.com>
Re: runtime errors - Q how to do this (Iain Chalmers)
Re: runtime errors - Q how to do this <nospam@devnull.com>
Re: Secure (enough) dayta encryption and decryption <gellyfish@gellyfish.com>
Setting DISPLAY with Perl <wasquith@usgs.gov>
Re: Setting DISPLAY with Perl <tony_curtis32@yahoo.com>
simple array and scalar question squidrocks@my-deja.com
SWIG NT Activestate 522 compile problem <ratbag98@hotmail.com>
wc for perl <klowryNOklSPAM@fhlbatl.com.invalid>
Re: wc for perl <bmb@ginger.libs.uga.edu>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 01 Jun 2000 11:30:29 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: [newbie] I'm a retard (pls. Recom. Regex help src.)
Message-Id: <39372d15.2361115@news.skynet.be>
stanwalters@hotmail.com wrote:
>I'm trying to get the following:
>$STRNG="rMAN, rWOMAN, rFREDDY, rTOMMY=29919"
>into individual variables, or an array, or anything. The problem is
>$STRNG has anywhere from 1 to 10 of the r* items in the list.
My problem is that I can't see HOW you want to get the damn thing into
variables. What's that "=29919" thing? Is that the value you want to
assign to all of the variables, like "$rMAN = $rWOMAN = 29919;"?
Anyway:
# Parsing the "variables" can go something like this:
$STRNG="rMAN, rWOMAN, rFREDDY, rTOMMY=29919";
my(@varnames, $value);
while($STRNG =~ /(?:^|\G,)\s*(\w+)(?:\s*=\s*(\S+).*)?/g) {
push @varnames, $1;
$value = $2;
}
# Now, assign the same $value to the hash containing the "variables":
@variable{@varnames} = ($value) x @varnames;
# See if I go it right:
foreach (sort keys %variable) {
print "$_ = $variable{$_}\n";
}
It seems to work alright for this example.
Too bad Perl's regexes don't allow an internal repetition, and capture
all matches in an array: one scalar per set of parentheses, and that's
it. That's why I use a Perl loop.
HTH,
Bart.
------------------------------
Date: Thu, 1 Jun 2000 09:13:35 +0100
From: "Paul D.Smith" <pds@x-datcon.co.uk>
Subject: Re: C to perl?
Message-Id: <8h5609$idi$1@soap.pipex.net>
Michel,
"Why?" has to be the first question. If your program is so large that you
cannot translate by hand, does Perl really gain you anything? If your
program is small, then "by hand" shouldn't be a problem.
Other respondees have indicated that it's difficult to call 'C' libraries
from Perl (i.e. extend Perl). That is true but it's not impossible. I use
Perl on Windows NT and have written some 'C' which allows Perl to use a
code-mangement 'C' library. As people have indicated, it's rather obtuse
but all the information required is in the Perl docs. If you want a copy of
my source code, let me know (remove the "x-" from my e-mail address) and
I'll gladly e-mail it to you.
Paul DS.
--
Please remove the "x-" if replying to sender.
"Michel" <nobody@none.com> wrote in message
news:39356C66.DDC60593@none.com...
> Hi there!
>
> Can anyone tell me how to translate a C program to perl? Or where can I
> get c2perl?
>
> Thnx!
> Michel
>
------------------------------
Date: Thu, 01 Jun 2000 11:30:25 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: C to perl?
Message-Id: <39362c86.2217596@news.skynet.be>
brian d foy wrote:
>allocate memory in Perl. i dare you.
$scalar = " " x 100000;
Now, just don't ask me to free it again.
--
Bart.
------------------------------
Date: Thu, 1 Jun 2000 10:12:47 -0400
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: C to perl?
Message-Id: <Pine.A41.4.21.0006011010430.15160-100000@ginger.libs.uga.edu>
On Thu, 1 Jun 2000, Bart Lateur wrote:
> brian d foy wrote:
>
> >allocate memory in Perl. i dare you.
>
> $scalar = " " x 100000;
>
>
> Now, just don't ask me to free it again.
1 #!/usr/local/bin/perl -w
2 use strict;
3
4 {
5 my $scalar = " " x 100000;
6 }
7
8 ### isn't it freed now?
--
Brad
------------------------------
Date: Thu, 01 Jun 2000 10:29:16 -0400
From: brian@smithrenaud.com (brian d foy)
Subject: Re: C to perl?
Message-Id: <brian-ya02408000R0106001029160001@news.panix.com>
In article <39362c86.2217596@news.skynet.be>, bart.lateur@skynet.be (Bart Lateur) posted:
> brian d foy wrote:
>
> >allocate memory in Perl. i dare you.
>
> $scalar = " " x 100000;
:)
now reference it by address...
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Mongers <URL:http://www.perl.org/>
------------------------------
Date: Thu, 01 Jun 2000 15:57:26 +0100
From: Mark Hamlin <mark.hamlin@artdigital.co.uk>
Subject: CC problems with Coldfusion Apache module
Message-Id: <393679D6.EFC21779@artdigital.co.uk>
Configuring the ColdFusion Apache Module, minding my own business when:
apxs -c ./libcf.a /usr/lib/libCrun.so.1 mod_coldfusion.c
cc -DEAPI -DMOD_PERL -DUSE_EXPAT -O -G -Kpic -I/usr/apache/include -c
mod_coldfusion.c
apxs:Break: Command failed with rc=16711680
*** Error code 1
make: Fatal error: Command failed for target `mod_coldfusion.so'
ERROR: Unable to build/install Apache 1.3 module
I may be unable to find your C compiler
When I try to run axps by hand I get :
# apxs -c ./libcf.a /usr/lib/libCrun.so.1 mod_coldfusion.c
cc -DEAPI -DMOD_PERL -DUSE_EXPAT -O -G -Kpic -I/usr/apache/include -c
mod_coldfusion.c
/usr/ucb/cc: language optional software package not installed
apxs:Break: Command failed with rc=65536
Just in case:
# which cc
/usr/ucb/cc
# uname -a
SunOS sun2 5.8 Generic sun4u sparc SUNW,Ultra-5_10
What the hell is going on? I tried to use the alternative procedure
which is using the precompiled mod_coldfusion.so, copying it to
/usr/apache/libexec with correct permissions. Putting Load & Add
directives for it in Apache and restarting it. Then all cold fusion cfg
pages just cause the CF error page to come up with 'Unix error number
2 occurred: No such file or directory ' and them same thing in the
webserver.log with the tip 'Error","06/01/00","15:26:30","An error
occurred while attempting to establish a connection to the server.<P>
The most likely cause of this problem is that the server is not
currently running. Verify that the server is running and restart it if
necessary. ' It is running:
12779 cfexec nobody 0.0 2472 3984 09:56:53 1
/opt/coldfusion/bin/cfexec
12781 cfrdsser nobody 0.0 3592 6840 09:56:53 12779
/opt/coldfusion/bin/cfrdsservice
and needless to say I tried this without success. Even weirder, When I
try it without the CF mudule load & add directives in Apaches
httpd.conf, the test page works showing me a list box with various
topics taken from some database, the other button gives me an error due
to lack of POST privelage from its doc directory which can be expected -
in the state the admin page produces a garbled ascii mess.
HELP MEEEE!
Kind regards,
Mark Hamlin
------------------------------
Date: Thu, 01 Jun 2000 11:01:41 GMT
From: Andrew_D_Jones@nospamhotmail.com (Andy Jones)
Subject: Re: generating WML
Message-Id: <39363f83.8625035@newnews.dircon.co.uk>
I'm sorry but I must disagree. If someone wants to generate WML from
perl, then I would say that it has everything to so with this
newsgroup. Comments such as the one below are at best unhelpful and at
worst very offputting for an obvious newbie.
To wouter, there's a quick tutorial at the following address:-
http://www.anywhereyougo.com/ayg/ayg/Article.po?type=WAP_Tutorial&page=7650
which shows a short perl script to read in values from a file and then
output the correct WML code. FYI there's no CPAN module thats the
equivalent to CGI.pm yet, but there seems to be a few ideas floating
round at the moment. I'm in the process of tidying up some of my own
modules and once in a finished format may well submit them.
Cheers,
Andy.
Remove the nospam to reply.
On Tue, 30 May 2000 16:12:11 GMT, kragen@dnaco.net (Kragen Sitaker)
wrote:
>In article <3933cd23$1@einstein.hhs.nl>, Wouter <wouter@quicknet.nl> wrote:
>>I am a beginning perl-programmer, so excuse me for making terrible mistakes.
>>
>>I would like to generate WML just like it is possible to generate html. Is
>>this already possible and if so. Could anyone give me a clue?
>
>Yes, this is possible. But it is not related to Perl. Good luck
>finding a relevant newsfroup.
>
>
>--
><kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
>The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
><URL:http://www.pobox.com/~kragen/bubble.html>
>The power didn't go out on 2000-01-01 either. :)
------------------------------
Date: Thu, 1 Jun 2000 15:43:02 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: generating WML
Message-Id: <Pine.GHP.4.21.0006011512200.16289-100000@hpplus01.cern.ch>
On Thu, 1 Jun 2000, Andy Jones stood usenet on its head and out
popped this:
> I'm sorry but I must disagree.
Yes, it's a constant of nature that there always has to be one like
that.
> If someone wants to generate WML from
> perl, then I would say that it has everything to so with this
> newsgroup.
It's still wrong, as anyone who's been following this group for more
than 100 microseconds or so already knows, just as they know that the
group doesn't care for upside-down posting. But it's also a constant
of nature that that upside-down-posters come straight back with
another upside-down posting rudely informing the regulars how wrong
they are (and then, it's a constant of nature that the killfiles get
their daily exercise...).
> Comments such as the one below are at best unhelpful
On the contrary, they're only unhelpful to people who won't learn how
to analyze their problems effectively, so that they can identify which
part of the problem is relevant to what. And, of course, unhelpful to
those who post upside-down to usenet.
> and at
> worst very offputting for an obvious newbie.
This is a programming language forum, ferchrissake, not a social
encounter group. Your reference to that URL seems to have been rather
a complicated way of answering the question "how do I generate WML
from Perl?" with the reply "using a print statement". I would assume
that the questioner already knows this.
By the way, who appointed you net.cop of this group, and why does
your usenet posting history at deja consist of a grand total of two
articles?
The author of the cited web page certainly earns kudos for setting a
good example with this:
#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
# Our CGI object
my $q = new CGI;
and with remembering to check that their open() succeeded.
Although as this is about developing a CGI script (and thus, more
relevant to the comp.infosystems.www.authoring.cgi group) I personally
would have recommended turning on taint checking, just in case.
But basically, as I say, the bulk of their answer to how to create WML
from Perl is "with a print statement". This doesn't really advance
the cause of programming technology very far, IMNSHO.
------------------------------
Date: Thu, 01 Jun 2000 10:20:30 GMT
From: zhur@my-deja.com
Subject: Re: Help Needed - Perl Matching Operator
Message-Id: <8h5dda$msf$1@nnrp1.deja.com>
if (checkmail('khabfdg@kljg.ksd')) { print "Valid!!\n"; }
else { print "Not valid!!\n"; }
sub checkmail
{
my $mail=shift;
return $mail=~/^[a-zA-Z0-9_.]+\@[a-zA-Z0-9_.]+/;
}
> I'm little confusing of how to use the matching operator in perl!
> I'm writing a function to check if the user enter a valid email
address,
> but I don't sure how to use the m// operator.
>
> sub checkemail {
> $_ = $enteredEmail;
> m/"@"//;
> }
> is that correct?
> Or how can I make sure the $enteredEmail included a "@" in it?
>
> Thanks in Advance!
> Kelvin
> kelvinsun@hotmail.com
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 01 Jun 2000 10:35:27 -0400
From: "Martin C Dore (LMC)" <lmcmcad@lmc.ericsson.se>
Subject: How can I do that?
Message-Id: <393674AF.48B65F@lmc.ericsson.se>
Hi
I have a Perl program that do some query on a Oracle database. I
need to pass the result fecth from my perl program to another program
that is made in C.
It's because I have some to do some treatment with the API of a
program that we use here that are coded in C
Suppose I have fetch FirstName, LastName, Date and I want to pass
those 3 value to my C program so he can use an API function that need
these 3 values.How can I do that ?
------------------------------
Date: 31 May 2000 23:40:41 -0700
From: Petri Oksanen <Petri_member@newsguy.com>
Subject: Re: How do I make perl flush?
Message-Id: <8h50h9$1fob@edrn.newsguy.com>
In article <8h4ci7$2ds$1@nnrp1.deja.com>, Fearless says...
> If you or anyone else can suggest a better approach for my
> original problem (retaining the timestamp of unaltered files),
> I'm all ears.
The subject is a Perl FAQ.
You can read the answer here:
perldoc -q flush
Petri Oksanen
------------------------------
Date: Thu, 01 Jun 2000 15:45:24 +0200
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: How do I make perl flush?
Message-Id: <5epcjs8dvjmp6hu34n2rihkjbb5psei6vs@4ax.com>
On Wed, 31 May 2000 04:00:51 GMT, Fearless <philip@my-deja.com> wrote:
> Hi,
>
> My basic problem is that when diff runs (see the continue block below),
> the new file hasn't been fully written to disc, so differences are
> found when there are none. My understanding is that close(ARGV) closes
> the input file but the output file (which has the name the input file
> used to have) has not been closed so diff sees the unflushed new file.
[snip]
> The script is started thus (essentially):
>
> ls |xargs perl -i.bak /usr/bin/mod.pl
read perldoc perlrun (-i switch) again. amongst all info there is this:
It does, however, use ARGVOUT for the selected
filehandle. Note that STDOUT is restored as the
default output filehandle after the loop.
so you probably should:
close ARGVOUT;
you might also want to look at some other command line switches (-n -p)
to save you the trouble of piping 'ls' output over 'xargs'. Perl is
quite sophisticated in that respect (once you've got the hang of it :-)
--
Good luck,
Abe
------------------------------
Date: Thu, 1 Jun 2000 15:00:08 +0100
From: "Stuart Brown" <stuartb@abs.karoo.co.uk>
Subject: Is it possible to compile Perl programs?
Message-Id: <8h5q9o$r5i$1@supernews.com>
Hi
Is it possible to compile perl source code (into machine code or byte code -
whatever) and then run it as normal? Also is this possible with mod_perl?
thanx
Stu Brown
------------------------------
Date: 1 Jun 2000 16:06:40 +0100
From: andkaha@hello.to.REMOVE (Andreas Kahari)
Subject: Re: Is it possible to compile Perl programs?
Message-Id: <39366df0@merganser.its.uu.se>
In article <8h5q9o$r5i$1@supernews.com>,
Stuart Brown <stuartb@abs.karoo.co.uk> wrote:
>Hi
>
>Is it possible to compile perl source code (into machine code or byte code -
>whatever) and then run it as normal? Also is this possible with mod_perl?
>
>thanx
>
>Stu Brown
>
>
If I'm not very very wrong, Perl is always compiled into byte code
(which is then interpreted).
For "real" compilation, see the manual for 'perlcc' (or
<URL:http://www.perl.com/pub/doc/manual/html/utils/perlcc.html>).
<joke>
To run a Perl script "as normal" do "perl -w myscript.pl".
</joke>
/A
--
# Andreas Kähäri
# All junk e-mail is reported to the
# appropriate authorities, no exceptions.
------------------------------
Date: 1 Jun 2000 07:54:31 PST
From: neil@pacifier.com
Subject: Re: Is Perl for me?
Message-Id: <39367927.0@news.pacifier.com>
Charles W. Strickland <cstrickland@surry.net> wrote:
> Okay, I've done quite a bit of reading (even have Wall's book) about
> Perl. I am primarily a Solaris/Linux SA, but have not really found a
> source of unix Perl programs. I keep hearing about the benefits of
> Perl and unix, but, as I say, have not found many examples of
> applications. I am not slamming Perl. I can really see it's power.
> I just want to see some useful examples.
> I have written several cgi Perl programs for my web server. I am
> still looking for unix applications.
http://www.perl.com is a good resource page where you might find what
you seek.
--
Neil
------------------------------
Date: Thu, 01 Jun 2000 11:30:32 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Julian Days
Message-Id: <393a3d60.6532175@news.skynet.be>
Stacey Campbell wrote:
>Does anyone have a routine for determining the Julian Day/
>day_of_the_year?
>
>You see, localtime(time) gives 100 as the year (99 + 1), which must be
>modified to 2000 in order to determine if it's a leap year. You have to
>determine if it is a leap year, because if it is, you have to then add 1
>to the yday that localtime(time) returns.
Er... divide the time in seconds since the epoch by (24*60*60) and take
the integer part, and you have the day number since the epoch. No need
to use localtime() at all.
Of course, if you go outside the range for Unix time (or otherwise epoch
time), you'll need to resort to a module to be found on CPAN
(<http://search.cpan.org/>.
--
Bart.
------------------------------
Date: Thu, 01 Jun 2000 08:24:49 GMT
From: martin_harriss@geocities.com
Subject: Re: NET::FTP
Message-Id: <8h56kd$iqk$1@nnrp1.deja.com>
> You can install
> it by installing the 'libnet' package using PPM. You'll then find that
> you'll have C:/Perl/Site/lib/Net/FTP.pm and you won't need you 'use
> lib' line.
Thank you for taking the trouble to reply Dave, but I am still not out
of the woods.
When I use PPM, I get this:
C:\PERL>ppm
PPM interactive shell (1.1.1) - type 'help' for available commands.
PPM> install netlib
Install package 'netlib?' (y/N): y
Retrieving package 'netlib'...
Error installing package 'netlib': Could not locate a PPD file for
package netli
b
PPM>
I am connected to the internet without a proxy server, which should be
OK according to the docs. Incidentally, the search command returns
nothing.
Martin
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 01 Jun 2000 12:06:23 +0200
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: NET::FTP
Message-Id: <p8dcjsg0j8gv1f0ct3ngfv5t7nmsgmpshs@4ax.com>
On Thu, 01 Jun 2000 08:24:49 GMT, martin_harriss@geocities.com wrote:
>
> > You can install
> > it by installing the 'libnet' package using PPM.
^^^^^^
> PPM interactive shell (1.1.1) - type 'help' for available commands.
> PPM> install netlib
^^^^^^
--
Good luck,
Abe
------------------------------
Date: Thu, 01 Jun 2000 12:18:26 GMT
From: vivekvp <vivekvp@spliced.com>
Subject: offline mode
Message-Id: <8h5kaa$qq2$1@nnrp1.deja.com>
Hello,
This script was provided generously to me by someone in the group:
#!/usr/bin/perl -w
$file="astrology.txt";
use strict;
use CGI qw(:standard);
print header;
print start_html;
open(FILE,"$file");
while (<FILE>) {
chomp;
my @data = split(/,/);
my ($id, $date) = splice(@data, 0, 2);
my $len = @data/2;
print p($id, br, $date);
print ul(li([map { a({-href=>$data[$_+$len]},
$data[$_]) } 0 .. $len - 1 ]));
}
close(FILE);
But when I run it from a prompt - it always says:
(offline mode: enter name=value pairs on standard input)
Pressing control d - makes it work. I want the output to go to the web
- why is the contol d popping up??
the file 'astrology.txt' has this data in it:
ID,00/05/29,1,2,3,4,5,a,b,c,d,e
Any help?
Thanks,
V
--
He who fights and runs away, lives to run another day!
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 1 Jun 2000 14:35:31 +0100
From: andkaha@hello.to.REMOVE (Andreas Kahari)
Subject: Re: offline mode
Message-Id: <39365893@merganser.its.uu.se>
In article <8h5kaa$qq2$1@nnrp1.deja.com>, vivekvp <vivekvp@spliced.com> wrote:
>
>
>Hello,
>
>This script was provided generously to me by someone in the group:
[cut]
>But when I run it from a prompt - it always says:
>
>(offline mode: enter name=value pairs on standard input)
[cut]
You're suppose to put the script in the cgi-bin directory of your web
server and invoke it from a browser, not from the command line.
http://your.server.com/cgi-bin/thescript.pl
...how did you think the result would be able to "go to the web" if
you didn't use a browser?
/A
--
# Andreas Kähäri
# All junk e-mail is reported to the
# appropriate authorities, no exceptions.
------------------------------
Date: Thu, 01 Jun 2000 12:20:26 GMT
From: Derek D'Angelo <derek@ccil.org>
Subject: param() help
Message-Id: <8h5ke3$r2q$1@nnrp1.deja.com>
I can get the vars from a form, just not with param(), here is the
syntax I'm using.
$info=CGI->param('music_list');
print $info
and I get nothing.. later in the script I parse the query_string and
it has the form data.. any help??
--
derek@ccil.org
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 1 Jun 2000 13:13:18 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: param() help
Message-Id: <slrn8jcobe.bfv.sholden@pgrad.cs.usyd.edu.au>
On Thu, 01 Jun 2000 12:20:26 GMT, Derek D'Angelo <derek@ccil.org> wrote:
>I can get the vars from a form, just not with param(), here is the
>syntax I'm using.
>
>$info=CGI->param('music_list');
>print $info
>
>and I get nothing.. later in the script I parse the query_string and
>it has the form data.. any help??
Why don't you read 'perldoc CGI' and find out what the actual syntax is ;)
--
Sam
Computers in the future may weigh no more than 1.5 tons.
--Popular Mechanics, 1949
------------------------------
Date: Thu, 01 Jun 2000 11:02:55 GMT
From: <dwb1@home.com>
Subject: Parsing Email from Europe
Message-Id: <Pine.LNX.4.20.0006010602140.25863-100000@ethyl.addictmud.org>
Hello,
I'm trying to parse email for an application.
Unfortunatly (for me anyways), the emails are mostly from
Europe, so they contain 'special' characters. Some emails
are embedded in html, which I have been able to deal with
nicely, however, others are not. They contain characters
like =FC and =E4 which need to be translated to the right
character when displayed. How can I convert them to what
they are supposed to be? Are their any modules that do
this, or is there a quick and dirty way?
I've seen a lot of email modules out there, and none of
them appear to actually handle this. I did find the
MIME::Words module, which looks like it handles that exact
thing, but it doesn't seem to actually work for me. I've
tried
$msg =~ s/=(..)/pack("c", hex($1))/ge;
but for some emails this screws up the header, which isn't
so bad for my purposes, but in some cases it's converting
some code that's erasing half the email from the variable.
Any help would be greatly appreciated... I've already put
a lot of time into this, and people are breathing down my
neck, so this is my 4th "top high priority that's more
important than anything else" task.
Dan.
------------------------------
Date: Thu, 01 Jun 2000 13:20:28 +0200
From: Jimmy Lantz <webmaster@ostas.lu.se>
Subject: Re: Parsing Email from Europe
Message-Id: <393646FB.7E562A0E@ostas.lu.se>
Hi Dan,
I'm swedish and we use this kind of chars (å, ä, ö),
I my self is looking for a way to cnovert them into HTML from the
original format (that is, åäö)
I enclose the code which I have but it's not working for my purposes but
maybe it will for yours...
Try it out.
Cheers!
//Jimmy in Lund, Sweden
######### My code / with some help from this Newsgroup, THANKS! (still
not working for me)
$value =~ s/Å/Å/g;
$value =~ s/å/å/g;
$value =~ s/Ä/Ä/g;
$value =~ s/ä/ä/g;
$value =~ s/Ö/Ö/g;
$value =~ s/ö/ö/g;
##########################
$value =~ s/%[cC]5/Å/g;
$value =~ s/%[cC]4/Ä/g;
$value =~ s/%[dD]6/Ö/g;
$value =~ s/%[eE]5/å/g;
$value =~ s/%[eE]4/ä/g;
$value =~ s/%[fF]6/ö/g;
$value =~ s/\%C5/Å/g;
$value =~ s/\%C4/Ä/g;
$value =~ s/\%D6/Ö/g;
$value =~ s/\%E5/å/g;
$value =~ s/\%E4/ä/g;
$value =~ s/\%F6/ö/g;
##\################
dwb1@home.com wrote:
>
> Hello,
>
> I'm trying to parse email for an application.
> Unfortunatly (for me anyways), the emails are mostly from
> Europe, so they contain 'special' characters. Some emails
> are embedded in html, which I have been able to deal with
> nicely, however, others are not. They contain characters
> like =FC and =E4 which need to be translated to the right
> character when displayed. How can I convert them to what
> they are supposed to be? Are their any modules that do
> this, or is there a quick and dirty way?
>
> I've seen a lot of email modules out there, and none of
> them appear to actually handle this. I did find the
> MIME::Words module, which looks like it handles that exact
> thing, but it doesn't seem to actually work for me. I've
> tried
>
> $msg =~ s/=(..)/pack("c", hex($1))/ge;
>
> but for some emails this screws up the header, which isn't
> so bad for my purposes, but in some cases it's converting
> some code that's erasing half the email from the variable.
>
> Any help would be greatly appreciated... I've already put
> a lot of time into this, and people are breathing down my
> neck, so this is my 4th "top high priority that's more
> important than anything else" task.
>
> Dan.
------------------------------
Date: Thu, 01 Jun 2000 11:47:45 GMT
From: <dwb1@home.com>
Subject: Re: Parsing Email from Europe
Message-Id: <Pine.LNX.4.20.0006010656390.25933-100000@ethyl.addictmud.org>
On Thu, 1 Jun 2000, Jimmy Lantz wrote:
> Hi Dan,
> I'm swedish and we use this kind of chars (=E5, =E4, =F6),
> I my self is looking for a way to cnovert them into HTML from the
> original format (that is, =E5=E4=F6)
> I enclose the code which I have but it's not working for my purposes but
> maybe it will for yours...
> Try it out.
> Cheers!
> //Jimmy in Lund, Sweden
>=20
> ######### My code / with some help from this Newsgroup, THANKS! (still
> not working for me)
>=20
> $value =3D~ s/=C5/Å/g;
> $value =3D~ s/=E5/å/g;
> $value =3D~ s/=C4/Ä/g;
> $value =3D~ s/=E4/ä/g;
> $value =3D~ s/=D6/Ö/g;
> $value =3D~ s/=F6/ö/g;
> ##########################
> $value =3D~ s/%[cC]5/Å/g;
> $value =3D~ s/%[cC]4/Ä/g;
> $value =3D~ s/%[dD]6/Ö/g;
> $value =3D~ s/%[eE]5/å/g;
> $value =3D~ s/%[eE]4/ä/g;
> $value =3D~ s/%[fF]6/ö/g;
>=20
> $value =3D~ s/\%C5/Å/g;
> $value =3D~ s/\%C4/Ä/g;
> $value =3D~ s/\%D6/Ö/g;
> $value =3D~ s/\%E5/å/g;
> $value =3D~ s/\%E4/ä/g;
> $value =3D~ s/\%F6/ö/g;
> ##\################
For that purpose I've found the HTML::Entities module. Give that
a try.
Dan.
------------------------------
Date: 01 Jun 2000 08:12:53 +0100
From: Edward Avis <epa98@doc.ic.ac.uk>
Subject: Re: Perl unusable as a programming language
Message-Id: <xn97lc9ub62.fsf@pinga.doc.ic.ac.uk>
Russell Bornschlegel <kaleja@estarcion.com> writes:
>>You can't derive the
>>behaviour for 100% from the docs, therefore, your might just as well
>>consider Perl's behaviour to be non-deterministic for those cases.
>
>Nope, because Perl should do the same thing with a given construct
>every single time,
The construct foo(42) will give the same result every single time.
But how can you be sure that foo(x) it will give the result you expect
for all x? There might be some unexpected strangeness when x is a
pattern match variable, or dynamically scoped, or tied, or something
else. Even just testing all integers is impossible.
>and you can determine the behavior by experiment
>or by RTFS.
You cannot determine what a construct does by experiment, you can only
try a limited number of cases and then guess from those at what the
defined behaviour is. If there's some case you didn't think of (and
in a language as rich as Perl, there must be a few), this may trip you
up.
RTFS will tell you for sure, but only for that particular perl
version. If nobody is exactly sure what the behaviour is _meant_ to
be, it might change subtly in the next version, either deliberately or
as a side-effect of rewriting the code.
>It's impossible to prove in the general case that any real-world program
>in _any_ language is "correct" in the sense that it will _execute_ as
>intended, given buggy interpreters, compilers, OSes, and hardware.
Of course, but that doesn't mean that a definition of what a language
does is completely pointless. It gives you a much higher degree of
confidence than just experimenting. Also if you know what
something is meant to do you are more likely to write correct code the
first time round, rather than writing something, finding it doesn't do
what you expected, and rewriting it (repeat as necessary).
--
Ed Avis
epa98@doc.ic.ac.uk
------------------------------
Date: 31 May 2000 22:21:45 -0800
From: yf110@victoria.tc.ca (Malcolm Dew-Jones)
Subject: Re: Perl unusable as a programming language
Message-Id: <3935f2e9@news.victoria.tc.ca>
Dan Sugalski (dan@tuatha.sidhe.org) wrote:
: $1's not global for one thing, but more importantly if it got localized
: the way you'd think it did (and the way it mostly does) the pass by
: reference ought to get the pre-localized version of $1, which it doesn't.
: Try this fun bit with $1 and recursion:
: sub foo {
: my $thing = shift;
: $thing =~ s/(.)$//;
: foo($thing) if $thing;
: print "$1\n";
: }
: foo("Hi there!");
: What do you think it'll print?
Your example appears to prove that $1 _is_ a global. The value printed (9
times) is the last value matched.
I don't quite understand the rest of what you said.
For interest I tried local($1), as in these snippets
sub foo {
my $thing = shift;
local($1);
and also
{ local($1);
foo($thing) if $thing;
}
but neither seemed to make a difference. In a simple example (just a
block) local($1) did protect an outer $1 from an inner m/()/ => $1.
That might be either a bug or a misunderstanding on my part.
------------------------------
Date: Thu, 01 Jun 2000 08:58:41 -0400
From: Ted Marz <tfm@sei.cmu.edu>
Subject: Re: Problem of perl on NT IIS
Message-Id: <39365E01.8EC3FC26@sei.cmu.edu>
There are a couple of possibilities.
It may be that the .pl (or .plx for PerlScript) extension isn't
associated with Perl.
It may be that there isn't the correct permissions on the cgi directory
INSIDE of IIS. .pl files need execute permission. .plx files just need
script permission
ActiveState should have some documentation on correct setup (if they are
up at the moment :) ).
As for sendmail.. Somewhere on Microsoft's tech sites there is a port of
sendmail for NT. There is also another mailer (blat) that has package
support under Perl that runs under NT. Or, you could talk directly to
the SMTP server using one of the Net:: packages (I think).
------------------------------
Date: Thu, 01 Jun 2000 12:47:03 GMT
From: scarey_man@hotmail.com
Subject: Quick Network Ping
Message-Id: <8h5m05$rsr$1@nnrp1.deja.com>
Does anyone know how to quickly ping a device using perl, when the
device is not available over the network and a normal UNIX ping would
take a few seconds or more to time out?
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 01 Jun 2000 08:25:03 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Quick Network Ping
Message-Id: <87zop5r0sw.fsf@limey.hpcc.uh.edu>
>> On Thu, 01 Jun 2000 12:47:03 GMT,
>> scarey_man@hotmail.com said:
> Does anyone know how to quickly ping a device using
> perl, when the device is not available over the network
> and a normal UNIX ping would take a few seconds or more
> to time out?
Net::Ping is the perl module to do pinging with, but...
How on earth would you ping something that's not on a
network? This doesn't make sense.
--
"Trying is the first step towards failure"
Homer Simpson
------------------------------
Date: Thu, 01 Jun 2000 13:30:08 GMT
From: bowman@erehwon.foo (bowman)
Subject: Re: Quick Network Ping
Message-Id: <AztZ4.1027$kG2.3640@newsfeed.slurp.net>
Tony Curtis <tony_curtis32@yahoo.com> wrote:
>
>How on earth would you ping something that's not on a
>network? This doesn't make sense.
I think the question is more 'if you have a number of alternate hosts which
may or may not be available, how do you find a live one without incurring
the normal ping timeout?"
------------------------------
Date: 01 Jun 2000 08:20:53 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Remote .htpasswd editting
Message-Id: <873dmxsfka.fsf@limey.hpcc.uh.edu>
>> On Thu, 1 Jun 2000 00:45:05 -0400,
>> "Theodore G. Paulakis" <paulakis@seas.upenn.edu> said:
> I've been forever searching on the web for a perl script
> that lets an authenticated user change his password (and
> his password alone) without compromising the security of
> the other .htpasswd entries. All I found was C program
> that didn't even compile, and plus my server doesn't
Probably a version of htpasswd.
> even support cgi scripts written in C (only those
> written in Perl).
Well, there's HTTPD::UserAdmin. And the collection of
utilities at
http://search.cpan.org/
where you might sarch for "HTTPD".
hth
t
--
"Trying is the first step towards failure"
Homer Simpson
------------------------------
Date: Thu, 01 Jun 2000 17:11:37 +1000
From: bigiain@mightymedia.com.au (Iain Chalmers)
Subject: Re: runtime errors - Q how to do this
Message-Id: <bigiain-0106001711370001@bigman.mighty.com.au>
The WebDragon wrote:
>do I warn or die?
>perl finds parroty error
>it's bleedin' demised
>
>:D
>
>hey, is this good enough for the haiku contest?
Sorry, no seasonal reference, next please ;-)
big
(who _still_ chuckles about "hippopotamus, anti-hippopotamus, annihilation")
------------------------------
Date: 1 Jun 2000 07:23:24 GMT
From: The WebDragon <nospam@devnull.com>
Subject: Re: runtime errors - Q how to do this
Message-Id: <8h531c$fj4$1@216.155.33.14>
In article <8h5170$fj4$0@216.155.33.14>, The WebDragon
<nospam@devnull.com> wrote:
| In article <8h3fok$5i$1@sshuraab-i-1.production.compuserve.com>, Dick
| Nickalls dicknickallscompuservecom <100115.1010@CompuServe.COM> wrote:
|
| | Am I missing something here, or am I just trying to do
| | the ompossible?? :-)
|
| you must meditate on the question, grasshopper, before you receive
| enlightenment..
|
| do I warn or die?
| perl finds parroty error
| it's bleedin' demised
on 2nd thought, I wonder if it would be funnier if there *was* a 'parity
error' in there suchlike: "perl finds a parroty error" (8 instead of 7)
*chuckle* ....ANYway........
| :D
|
| hey, is this good enough for the haiku contest?
|
| the format IS 5-7-5 right? I forget :|
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: Thu, 01 Jun 2000 09:15:03 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Secure (enough) dayta encryption and decryption
Message-Id: <rQpZ4.1673$6T1.332394@news.dircon.co.uk>
On Tue, 30 May 2000 17:04:14 -0300, Luis E. Rodriguez Wrote:
>
> I am looking for a reasonably secure way to store encrytped data so that it
> can be decrytped back to its original form when needed. The data to be
> encrypted will be credit card numbers.
>
I would suggest that you look at CPAN to see if there is a module that
supports a suitable form of encryption <http://search.cpan.org>
/J\
------------------------------
Date: Thu, 1 Jun 2000 13:44:31 GMT
From: "William H. Asquith" <wasquith@usgs.gov>
Subject: Setting DISPLAY with Perl
Message-Id: <393668BF.4A6AF37A@usgs.gov>
`export DISPLAY=mydisplay`;
or
`setenv DISPLAY mydisplay`;
produces the following
Can't exec "export": No such file or directory at blah.......
Can't exec "setenv": No such file or directory at blah.......
Yet I can in fact run export from the prompt.
Basically, how can I get a Perl script to set the DISPLAY?
Do I need an external shell script to do it?
Is Perl not able to modify her environmental variables on the fly?
-wha
------------------------------
Date: 01 Jun 2000 08:52:33 -0500
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: Setting DISPLAY with Perl
Message-Id: <87wvk9qzj2.fsf@limey.hpcc.uh.edu>
>> On Thu, 1 Jun 2000 13:44:31 GMT,
>> "William H. Asquith" <wasquith@usgs.gov> said:
> `export DISPLAY=mydisplay`; or
> `setenv DISPLAY mydisplay`;
> produces the following
> Can't exec "export": No such file or directory at
> blah....... Can't exec "setenv": No such file or
> directory at blah.......
This creates a (very short-lived) child process. Why this
doesn't do what you intend is explained here:
http://www.faqs.org/faqs/unix-faq/faq/part2/
==> Question 2.8
This doesn't *directly* apply to perl, v.i.
> Basically, how can I get a Perl script to set the
> DISPLAY? Do I need an external shell script to do it?
> Is Perl not able to modify her environmental variables
> on the fly?
perldoc perlvar
==> %ENV
hth
t
--
"Trying is the first step towards failure"
Homer Simpson
------------------------------
Date: Thu, 01 Jun 2000 14:18:21 GMT
From: squidrocks@my-deja.com
Subject: simple array and scalar question
Message-Id: <39366eae.60155998@news.it.gvsu.edu>
I have a file stored in an array @file which contains contains
filename.exe. If I would try and use the array in the following code
like if (-f @file){ ...etc it doesn't work. If I give
$tl a definite like $tl=filename.exe then it works. But since the
file is going to change I can't do that and you can't just say
$tl=@file. What I would like to do is get the data in @file to $tl so
that I can compare to see if I already have that file.
if (-f $tl) {
die "hey, $tl is already here!";
}
print "I'm gonna get $tl\n";
ps: I tried outputting what was in @file to an outside file and then
open (MYFILE,"filename") || die;
$tl=<MYFILE>;
close (MYFILE);
but the data doesn't get stored in $tl. I have a feeling this (again)
is the wrong way to go about it.
------------------------------
Date: Thu, 1 Jun 2000 15:32:40 +0100
From: "Rob Rainthorpe" <ratbag98@hotmail.com>
Subject: SWIG NT Activestate 522 compile problem
Message-Id: <8h5s6t$jql@jupiter.gre.ac.uk>
(In the absence of a newsgroup for Swig, I guess this newsgroup's the most
appropriate location for this question)
I'm using Activestate build 522 (perl 5.005_03) with Swig 1.1p5 on a Windows
2000 machine with Visual C++ 6.0 SP3. Swig itself compiles beautifully. I
then go to the Examples directory to see what I can do. I've edited the
top-level makefile.win according to the instructions but the following is
what I get:-
D:\swig1.1\SWIG1.1p5\Examples\perl5\simple->nmake /f makefile.msc perl
Microsoft (R) Program Maintenance Utility Version 6.00.8168.0
Copyright (C) Microsoft Corp 1988-1998. All rights reserved.
d:\swig1.1\swig.exe -perl5 -o example_wrap.cxx example.i
Generating wrappers for Perl 5
cl.exe /Z7 /Od /WX /c /nologo /DEBUG /DWIN32
/DMSWIN32 -Ic:\perl\lib\C
ORE /Tpexample.c example_wrap.cxx
example.c
example_wrap.cxx
Generating Code...
set LIB=C:\PROGRA~1\MICROS~3\VC98\lib
link.exe example.obj example_wrap.obj -debug:full -debugtype:cv
/NODEFAU
LTLIB /RELEASE /NOLOGO /MACHINE:IX86 -entry:_DllMainCRTStartup@12 -dll
/DEBUG -
out:example.dll msvcrt.lib oldnames.lib kernel32.lib advapi32.lib user32.lib
gdi
32.lib comdlg32.lib winspool.lib c:\perl\lib\CORE\perlcore.lib
c:\perl\lib\CORE\
perlcapi.lib c:\perl\lib\CORE\perlez.lib c:\perl\lib\CORE\perlcrt.lib
Creating library example.lib and object example.exp
example_wrap.obj : error LNK2001: unresolved external symbol
__imp__PL_stack_bas
e
example_wrap.obj : error LNK2001: unresolved external symbol
__imp__PL_markstack
_ptr
example_wrap.obj : error LNK2001: unresolved external symbol
__imp__PL_stack_sp
example_wrap.obj : error LNK2001: unresolved external symbol
__imp__PL_sv_yes
example_wrap.obj : error LNK2001: unresolved external symbol
__imp__win32_reallo
c
example.dll : fatal error LNK1120: 5 unresolved externals
NMAKE : fatal error U1077: 'link.exe' : return code '0x460'
Stop.
I've tried /DPERL_OBJECT. I've added in all the likely looking libraries
from c:\perl\lib\core, but no joy. The symbols mentioned, without the
leading "__imp__PL" are all in the include files in c:\perl\lib\core. The
messages are the same for all the examples, plus one self-coded thing that I
did. As you can see, I've added all the libs from c:\perl\lib\core.
So I guess my question is: is anyone successfully using swig with AS522 on
NT with VC? And if so, how?
Rob.
Robert Rainthorpe
Senior Computing Officer
the University of Greenwich
------------------------------
Date: Thu, 01 Jun 2000 06:34:31 -0700
From: crotchless gespatcho <klowryNOklSPAM@fhlbatl.com.invalid>
Subject: wc for perl
Message-Id: <0363a0c5.69dad378@usw-ex0104-026.remarq.com>
I know this is relatively simple, (as is my relative
intelligence) but I searched the ng and the web and could not
find.
Here is a q & d wc in perl. I would appreciate any changes for
efficiency.
#!/usr/bin/perl
$file = $ARGV[0];
$words = 0;
$char = 0;
while (<>) {
$line = $_;
$chars += length;
tr/ / /s;
$w = tr/ \n//;
$words += $w;
}
$lines = $.;
$words -= 1;
print "$lines "."$words "."$chars "."$file"." \n";
Thank you IA,
Kermit Lowry, III
perlrat@playclean.invalid.com
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Thu, 1 Jun 2000 10:52:57 -0400
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: wc for perl
Message-Id: <Pine.A41.4.21.0006011051010.15160-100000@ginger.libs.uga.edu>
On Thu, 1 Jun 2000, crotchless gespatcho wrote:
> I know this is relatively simple, (as is my relative
> intelligence) but I searched the ng and the web and could not
> find.
> Here is a q & d wc in perl. I would appreciate any changes for
> efficiency.
>
> #!/usr/bin/perl
> $file = $ARGV[0];
> $words = 0;
> $char = 0;
> while (<>) {
> $line = $_;
> $chars += length;
> tr/ / /s;
> $w = tr/ \n//;
> $words += $w;
> }
>
> $lines = $.;
>
> $words -= 1;
> print "$lines "."$words "."$chars "."$file"." \n";
Dear crotchless :-),
You might also look at:
http://www.perl.com/pub/language/ppt/src/wc/index.html
... part of "Perl Power Tools"
Cheers,
--
Brad
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 3227
**************************************
