[9420] in Perl-Users-Digest
Perl-Users Digest, Issue: 3014 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jun 30 13:57:38 1998
Date: Tue, 30 Jun 98 10:47:31 -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 Tue, 30 Jun 1998 Volume: 8 Number: 3014
Today's topics:
Re: installation on NT <JKRY3025@comenius.ms.mff.cuni.cz>
invoking shells... <gran@mims.mot.com>
Re: invoking shells... <rootbeer@teleport.com>
Re: invoking shells... (Mark-Jason Dominus)
Is perl5-porters closed to subscription? <quentin@shaddam.amd.com>
Re: Is Win98 for you? (JIMSC)
Java and Perl together? <baxter@ki.com>
Re: Java and Perl together? <zkessin@lhr-sys.dhl.com>
Re: JPL Copyright (Stephen McCamant)
Re: Linked list and a code challenge (Snowhare)
Re: Linked list and a code challenge (Mark-Jason Dominus)
Re: Linked list and a code challenge (Snowhare)
Re: Linked list and a code challenge (Snowhare)
listserv -> .htgroup/.htpasswd <burger@democracy.queensu.ca>
localtime(time); gets wrong date <heribert.wettels@sueddeutsche.de>
Re: localtime(time); gets wrong date <quednauf@nortel.co.uk>
Re: localtime(time); gets wrong date (Jeffrey R. Drumm)
Looking for Perl seminars or classes (Winter War Gaming Convention)
LWP::UserAgent Post then a Redirect will it work <support@plugnpay.com>
Re: LWP::UserAgent Post then a Redirect will it work (brian d foy)
Re: MacPerl and odd filenames (nobody)
making my string lowercase <blockmar@nxs.se>
Re: making my string lowercase (Bob Trieger)
Re: making my string lowercase <jdf@pobox.com>
Re: making my string lowercase (Craig Berry)
Re: making my string lowercase <Jonathan_Epstein@nih.gov>
Re: making my string lowercase (Mick Farmer)
Matching over multiple lines (regexp problem) <quednauf@nortel.co.uk>
Re: Matching over multiple lines (regexp problem) <quednauf@nortel.co.uk>
Music w/ Perl prakashpatel@my-dejanews.com
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 29 Jun 1998 20:58:09 -0700
From: Jan Krynicky <JKRY3025@comenius.ms.mff.cuni.cz>
Subject: Re: installation on NT
Message-Id: <35986251.2B58@comenius.ms.mff.cuni.cz>
Darrell Nash wrote:
>
> chiahead wrote in message <3593de45.161952004@client.news.psi.net>...
> >Using NT4.0 I have installed the perl 5 interpreter, added the
> >directory to the path, and can run the following hello world program
> >with the expected results.
> > .. <<snipped>>
> >the file is called "test.pl". It seems it doesn't know this is a perl
> >file when I am on the web. How do I make IIS4 realize that this is a
> >perl file and needs to be treated as such.
> >
> >I have file types set up for perl.exe as .pl and .cgi.
> >
> >Does anybody know where I am messed up? (besides the obvious initial
> >responses)
>
> You need to add a registry entry in IIS4 to recognize a .pl or .cgi file as
> a Perl executible. You can refer to Chapter 8 in the documention that comes
> with it (as web pages), under "Publishing Dynamic Applications". In brief,
> here's what you need to do:
>
> 1. start "regedit" from a DOS prompt
>
> 2. follow this path to find the proper place: HKEY_LOCAL_MACHINE ->
> SYSTEM -> CurrentControlSet ->Services -> W3SVC -> Paramenters -> Script Map
>
> 3. Add a new String value with a key of ".pl", and a data value of
> "C:\PERL\BIN\PERL.EXE %s %s" (or where ever your perl executible is)
>
> That should do it - you may or may not need to restart the WWW service for
> it to recognize the change. There may be some easier, hidden way to do this
> through a nice GUI, but I haven't found it.
>
> Hope that helps.
> --
> Darrell Nash
I'm afraid, this is not correct. IIS3.0 and earlier used this registry
key
to store the script map, IIS4.0 uses some "metabase" or
what-the-hell-M$-call-it.
Even though it may find the setting there, it will probably screw it up.
(There is a known problem with instalation of MS IIS4.0. It changes %s
to %S !)
Go to the Internet Service Manager (MMC), open the Properties for
the Default Web site, go to Home Directory tab and click Settings.
(I hope I remember the path correctly :-)
Add there the mapping and make sure it's there only once!
HTH, Jenda
------------------------------
Date: Mon, 29 Jun 1998 12:12:22 -0500
From: Bryan Gran <gran@mims.mot.com>
Subject: invoking shells...
Message-Id: <3597CAF6.C5C6A4C2@mims.mot.com>
I am writing some code in which I am invoking a separate shell (there is
really no good way around this). Right after I invoke the shell I would
like to exit it, and continue executing the script.
I tried two sequential system calls, but they are invoked in the same
shell, so only after manually exiting the second shell does the second
system call execute.
Anyone have any ideas? Please reply via email to the address below.
-------------------------------------------------------------------------------
Bryan Gran
Motorola - MIMS CableComm SMTP: gran@mims.mot.com
------------------------------
Date: Mon, 29 Jun 1998 21:24:40 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: invoking shells...
Message-Id: <Pine.GSO.3.96.980629140500.28620I-100000@user2.teleport.com>
On Mon, 29 Jun 1998, Bryan Gran wrote:
> I am writing some code in which I am invoking a separate shell (there is
> really no good way around this). Right after I invoke the shell I would
> like to exit it, and continue executing the script.
Is this the sort of thing you mean? (I'm not sure why you want to exit
right after invoking it but, hey, it's your code. :-)
system '/bin/sh', '-c', 'exit';
> I tried two sequential system calls, but they are invoked in the same
> shell,
Perhaps you are mistaken or unclear here. Each call to system() is
independent.
> so only after manually exiting the second shell does the second
> system call execute.
Well, system() does wait for the called program to exit. If you've started
an interactive shell which is waiting for user input, that may take some
time.... :-)
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 30 Jun 1998 10:05:43 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: invoking shells...
Message-Id: <6narbn$ld7$1@monet.op.net>
In article <3597CAF6.C5C6A4C2@mims.mot.com>,
Bryan Gran <gran@mims.mot.com> wrote:
>I tried two sequential system calls, but they are invoked in the same
>shell, so only after manually exiting the second shell does the second
>system call execute.
I didn't understand your question very well, but perhaps what you want
is something like this:
system("command &")
.. rest of script ...
The command will run in the background, and Perl will continue with
the rest of the script immediately, without waiting for the command to
finish.
------------------------------
Date: 30 Jun 1998 07:49:23 -0500
From: Quentin Fennessy <quentin@shaddam.amd.com>
Subject: Is perl5-porters closed to subscription?
Message-Id: <ximsokn3vho.fsf@shaddam.amd.com>
How can I subscribe to perl5-porters? I've sent in several messages
over the last few weeks and not yet succeeded.
I sent a request to Majordomo@defender.perl.org, validated my request
by returning the magic cookie via email, and received the reply that
it had been forwarded to the list owner. No luck.
I also sent email to perl5-porters-approval@defender.perl.org with no
response.
My initial subscription requests (2) were for an email address
different from that in the From: field of the message itself. My last
attempt used the default -- the same address as in From:.
Is perl5-porters closed to subscription?
--
Quentin Fennessy AMD, Austin Texas
Secret hacker rule #11 - hackers read manuals
------------------------------
Date: 28 Jun 1998 13:51:44 GMT
From: jimsc@aol.com (JIMSC)
Subject: Re: Is Win98 for you?
Message-Id: <1998062813514400.JAA04912@ladder01.news.aol.com>
Is Win98 worth it? CNet (http://www.cnet.com/) has answered this
$64,000 question by performing a through testing and prensenting
the following recommendations for different groups of users:
IS/Business: A-
For corporate users who don't want to upgrade to NT, Windows 98 will
save you time and money. Windows Update will keep drivers current; USB
support will keep end users from opening the box (at least, you'll do it
less often); and scheduled maintenance and backup tools will help
protect company data. For you, the one drawback is Win 98's integrated
browser: one browser crash could take other applications down with it,
so the number of support calls could go up.
Low-end user: C-
It just doesn't make sense to buy tons of new hardware just so your old
machine can take advantage of Windows 98. Plus, you probably don't have
the resources to run Win 98's integrated browser and Active Desktop
anyway. With your limited horsepower, you'd be better off spending your
money on inexpensive RAM, or saving for a new system that will come with
Windows 98 preinstalled.
Net user: B
For the typical surfer with a midrange PC, Windows 98 is a Net gain. Its
integrated browser, while a bit of a resource hog, seems free of the
glitches that plagued the IE 4.x/Win 95 duo. Plus, it provides a common
interface that will speed up your daily chores. When you download
shareware, the System File Checker and the Registry Checker will help
keep your system clean, and Windows 98's TCP/IP improvements will make
Internet access faster and more reliable--whether you use IE or
Navigator.
Windows 98 official system requirements
486DX/66 MHz or better
16MB RAM
120MB to 295MB disk space (195MB for typical install)
CD-ROM or DVD-ROM drive (3.5-inch floppies available for additional
charge)
VGA or better monitor
Windows-compatible pointing device
For further information, such as speed comparison and new
features, please visit:
http://www.cnet.com/Content/Reviews/Compare/Win98/index.html?dd.sd
Please also visit:
http://www.kagi.com/edicom/index.html
---- Gateway to 2,400 files for free download!
------------------------------
Date: Tue, 30 Jun 1998 10:25:45 -0400
From: Scott Baxter <baxter@ki.com>
Subject: Java and Perl together?
Message-Id: <3598F568.A14806B8@ki.com>
Hello!
My boss has asked me to write a perl script to scan files while another
guy writes a Java front end for it.
Any suggestions for how best to have these programs talk to one
another? Our solution must run on NT as well as UNIX.
--
Scott Baxter: Documentation, Webmaster (800) 945-4454 X253
Ki NETWORKS, Inc. mailto:scott.baxter@ki.com
------------------------------
Date: 30 Jun 1998 16:20:53 +0100
From: Zachary Kessin <zkessin@lhr-sys.dhl.com>
Subject: Re: Java and Perl together?
Message-Id: <m390meex0q.fsf@pc-hhu-52.lhr-sys.dhl.com>
Scott Baxter <baxter@ki.com> writes:
> Hello!
>
> My boss has asked me to write a perl script to scan files while another
> guy writes a Java front end for it.
>
> Any suggestions for how best to have these programs talk to one
> another? Our solution must run on NT as well as UNIX.
> --
> Scott Baxter: Documentation, Webmaster (800) 945-4454 X253
> Ki NETWORKS, Inc. mailto:scott.baxter@ki.com
Depends on how complex the data is, you could just have perl output
data into <PARAM> Tags in an HTML page and then have the Applet read
them. This will only work if it is a small dataset. Try sockets, both
Java and perl do sockets very well.
--Zach
------------------------------
Date: 28 Jun 1998 05:22:25 GMT
From: stephen@alias-2.pr.mcs.net (Stephen McCamant)
Subject: Re: JPL Copyright
Message-Id: <slrn6pbknh.37b.stephen@alias-2.pr.mcs.net>
On Thu, 11 Jun 1998 23:12:19 GMT, Tom Phoenix <rootbeer@teleport.com> wrote:
>On Thu, 11 Jun 1998, Nicholas Konidaris wrote:
>
>> JPL which came with the Perl Resource Kit seems like a good option to
>> me, however, I don't know what the copyright is on it?
>>
>> If someone could tell me, I'd appreciate it!
>
>The only (real) way to find out the copyright status of something is to
>ask the author. Of course, the author may have told you already by
>including that information with the other documentation. Hope this helps!
The copyright on JPL is listed on the first line of the README:
> Copyright 1997, O'Reilly & Associates, Inc. All rights reserved.
Perhaps what you're actually interested in is the license, which is printed
inside the back cover of the `Perl Utilities Guide'. It's too long to type
here, but the most important sentence is:
> This License Agreement ("Agreement") permits you to use one copy of the
> software in the oreilly/ directory on the CD-ROM ("Software") which is
> part of the O'Reilly product you have purchased, on any single computer,
> provided the Software is in use only on one computer at any time.
--
____________________________________________________________
Stephen McCamant ======== alias@mcs.com (finger for PGP key)
------------------------------
Date: 27 Jun 1998 21:30:46 -0600
From: snowhare@xmission.xmission.com (Snowhare)
Subject: Re: Linked list and a code challenge
Message-Id: <6n4dd6$gc3$1@xmission.xmission.com>
Nothing above this line is part of the signed message.
In article <6n47e1$5oj$1@marina.cinenet.net>,
Craig Berry <cberry@cinenet.net> wrote:
>Snowhare (snowhare@devilbunnies.org) wrote:
>
>: CHRIS => sub { &do_it(\&chris_berry_findloop) },
>
>That's 'Craig' Berry, please. If I'm going to go down in algorithmic
>history, I want it to be under my actual name. :)
Oops. Sorry.
Benjamin Franz
Version: 2.6.2
iQCVAwUBNZW43+jpikN3V52xAQHJNgP/cePBLQtcsHq61bWFg2c9BD3n0aIePTI9
E6OLuaXU2czRolHh89/uuvJaQwfX5rVbNT2TUXl8vfhtBA1ZWPugy6Y6X7mG4S5M
INOcEmLPfHxSNYuB4fDX/rux4NowQXTMvQyyTcRYdutBhCeow8C2Au+dqc2BNY9e
Mwny9DpIUL8=
=gMAT
-----END PGP SIGNATURE-----
------------------------------
Date: 28 Jun 1998 12:38:05 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Linked list and a code challenge
Message-Id: <6n5rhd$6g8$1@monet.op.net>
In article <6n34s8$32k$1@supernews.com>,
Snowhare <snowhare@devilbunnies.org> wrote:
>can determine the size of the loop at the time of detection
It works adequately for detecting loops, but it does not determine the
loop size as you say it does.
Consider the following chain with a small loop at the end:
0 -> 1 -> 2 -> .... 14 -> 15 -> 14.
First the scale counter is 1, p2 advances from 0 to 1.
Then p1 is brought up to meet p2.
While the scale counter is 2, p2 advances to 2 and then to 4.
Then p1 is brought up to meet it at 4.
While the scale counter is 4, p2 advances to 5, 7, 10, and 14.
Then p1 is brought up to meet it at 14.
Now the scale counter is 8. The step counter is 1.
Step counter 1: p2 advances to 15.
Step counter 2: p2 advances to 15 again.
Step counter 3: p2 adcances to 14.
p1 == p2, so halt.
> If we find p1 == p2 at any stage, we have a loop of size step
> counter.
The step counter is 3, but the loop has size 2.
If the list had ended with:
... -> 14 -> 15 -> 16 -> 17 -> 18 -> 19 -> 14.
instead, then your method would have reported a loop of size 3,
when actually the loop is of size 6.
It may be that I'm misunderstanding the details from your imprecise
description, but I think I understand the main point, and I'm sure
that your method for advancing p2 is always going to suffer from this
problem. If you produce an implementation, I'm sure I can break it.
The simpler algorithm suffers from exactly the same problem, of
course.
------------------------------
Date: 28 Jun 1998 21:13:27 -0600
From: snowhare@xmission.xmission.com (Snowhare)
Subject: Re: Linked list and a code challenge
Message-Id: <6n70on$k78$1@xmission.xmission.com>
Nothing above this line is part of the signed message.
In article <6n5rhd$6g8$1@monet.op.net>, Mark-Jason Dominus <mjd@op.net> wrote:
>In article <6n34s8$32k$1@supernews.com>,
>Snowhare <snowhare@devilbunnies.org> wrote:
>>can determine the size of the loop at the time of detection
>
>It works adequately for detecting loops, but it does not determine the
>loop size as you say it does.
[...]
>It may be that I'm misunderstanding the details from your imprecise
>description, but I think I understand the main point, and I'm sure
>that your method for advancing p2 is always going to suffer from this
>problem. If you produce an implementation, I'm sure I can break it.
Can't get much more precise than running code. Go to it chum. This code is
stripped down to just return the loop length (or null if no loop). I
extended the test harness to automatically generate all size lists and
loop sizes below the specified limiting size (The _test harness_ is O(N^2)
in this form, so you probably won't be able to test much higher than lists
up to length 1000 easily).
#!/usr/bin/perl
use strict;
&do_it(\&benjamin_franz_has_loop);
sub benjamin_franz_has_loop {
my ($hash_ref, $starting_key) = @_;
my ($scale_counter,$step_counter,$key,$marker) = (1,0,$starting_key,$starting_key);
while (($key = $$hash_ref{$key}) && ($marker ne $key)) {
$step_counter++;
next if ($step_counter != $scale_counter);
$scale_counter<<=1;
$step_counter=0;
$marker=$key;
}
if ($marker ne $key) {
return;
} else {
return ($step_counter+1);
}
}
# Harness routine to progressively test all possible loops
# up to a specified list length
sub do_it {
my $routine_ref = shift;
my %llist = ();
my $limit = 50;
for (my $master_count=1;$master_count<=$limit;$master_count++) {
my $count = 1;
for ($count=1;$count<=$master_count;$count++) {
if ($count != $master_count) {
$llist{$master_count}=$count+1;
} else {
$llist{$master_count}=undef;
}
my $correct_size = $master_count - $count;
my ($loop_size) = $routine_ref->(\%llist,1);
if (($count == $master_count) && (defined $loop_size)) {
print "Logic error. Detected a loop when no loop exists.\n";
} elsif ($loop_size != $correct_size) {
print "Incorrectly identified size of loop for list size $master_count with the loop at $count (size should have been $correct_size)\n";
}
}
$llist{$master_count} = $count;
}
}
Version: 2.6.2
iQCVAwUBNZcGNujpikN3V52xAQH/mQP/XR1YIWO8K/rFbD/A6RMPnpj2trBoXO0i
VRToPlhbaRRXmb2hhNFK7J9bhTVcINpaEVMQMLwu0GA8AHXWIu3mD8nakkNfCktn
U+4xpa7F8UYBUJ0MtDwUygeTLjePH/3TilMxXARmrXUMciwew8aRn1Zb6pUqpjVL
6VY+nGhYLbI=
=nOd/
-----END PGP SIGNATURE-----
------------------------------
Date: 28 Jun 1998 21:26:07 -0600
From: snowhare@xmission.xmission.com (Snowhare)
Subject: Re: Linked list and a code challenge
Message-Id: <6n71gf$lh6$1@xmission.xmission.com>
Nothing above this line is part of the signed message.
In article <6n6kps$8pm$1@monet.op.net>, Mark-Jason Dominus <mjd@op.net> wrote:
>
>In article <6n34s8$32k$1@supernews.com>,
>Snowhare <snowhare@devilbunnies.org> wrote:
>>I created my own O(1) space O(N) time solution many years ago that
>>is slightly different ...
>
>It's O(2**N).
I hope not. Exponential time would be a bit much. ;-)
The actual constants are 3N times around the loop worst case and slightly
over 1.5 times around the loop average case.
When discussing O, the constants are normally omitted anyway because you
need to be evaluating *number of machine instructions* on a particular
hardware architecture to meaningfully compare constant terms. The number
of times around the loop doesn't really tell you the size of the constants
- - its is only one factor. The other factors are the number and mix of
instructions it takes to go around the loop once.
Benjamin Franz
Version: 2.6.2
iQCVAwUBNZcJSejpikN3V52xAQHDHgP9E5QrapepzTtjjA8BJ5lGFTVYQNCQyM/S
UM0a7M9QFjy66b0j2/aKu2796+BFbFFsXGBY3ezPL3o6QEluhZ0BmN8B2WrBXT2g
oVN3IBTwHnH43EoS21QeRTs52uJV2rMWiZ0syPUTq9cC3mC4z0eHAZyroIR3/Sj1
TpFmd51bTYc=
=S9rg
-----END PGP SIGNATURE-----
------------------------------
Date: Sun, 28 Jun 1998 21:50:54 -0400
From: Bob Burge <burger@democracy.queensu.ca>
Subject: listserv -> .htgroup/.htpasswd
Message-Id: <Pine.SOL.3.96.980628215010.21389A-100000@democracy>
Howdy, everyone. Before I do it myself, I was wondering if anyone had a
script that would take listserv output and generate the appropriate
entries in .htgroup/.htpasswd.
Thanks,
Bob
------------------------------
Date: Tue, 30 Jun 1998 11:50:36 +0200
From: Heribert Wettels <heribert.wettels@sueddeutsche.de>
Subject: localtime(time); gets wrong date
Message-Id: <3598B4EC.30E364C2@sueddeutsche.de>
I have the following problem maybe anybody can help:
In order to determin the date I use localtime(time); as described in the
camel book. As result I always get month-1, i.e. "5" instead of "6"
which would be correct for June. The shell command "date", however,
delivers the correct date.
> ($sec,$min,$hr,$mday,$mon,$year,$wday,$jtag,$isdst) = localtime(time);
> print "Date: $mday\.$mon\.$year\n";
> bash-2.02$ date
> Tue Jun 30 11:50:25 MET DST 1998
Am I doing something wrong or is this probably a known bug (didn't find
any reference to it)?
Thanks for taking your time to read (or even answer) this posting.
Heribert
------------------------------
Date: Tue, 30 Jun 1998 11:04:56 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: localtime(time); gets wrong date
Message-Id: <3598B848.9ED262CE@nortel.co.uk>
Heribert Wettels wrote:
>
> I have the following problem maybe anybody can help:
>
> I ... use localtime(time); as described in the
> camel book. As result I always get month-1, i.e. "5" instead of "6"
>
That is right, apparently the counting starts from 0 instead of 1, which causes
the difference.
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Tue, 30 Jun 1998 11:05:08 GMT
From: drummj@mail.mmc.org (Jeffrey R. Drumm)
Subject: Re: localtime(time); gets wrong date
Message-Id: <3598c2a3.943316006@news.mmc.org>
[ posted to comp.lang.perl.misc and a courtesy copy was mailed to the cited
author ]
On Tue, 30 Jun 1998 11:50:36 +0200, Heribert Wettels
<heribert.wettels@sueddeutsche.de> wrote:
>I have the following problem maybe anybody can help:
>
>In order to determin the date I use localtime(time); as described in the
>camel book. As result I always get month-1, i.e. "5" instead of "6"
>which would be correct for June. The shell command "date", however,
>delivers the correct date.
(snip)
The only thing you did wrong was fail to read the Camel's description for
localtime *completely*. The excerpt below is from Perl's included on-line
documentation, and is fairly close to what is stated in the Camel:
$ perldoc -f localtime
(snip)
# 0 1 2 3 4 5 6 7 8
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time);
All array elements are numeric, and come straight out of a struct tm.
In particular this means that $mon has the range 0..11 and $wday has
the range 0..6 with sunday as day 0. Also, $year is the number of
years since 1900, that is, $year is 123 in year 2023.
(snip)
Please also note the last sentence in the above excerpt; the date string in
your posted code will look even more odd in approximately 18 months.
>Thanks for taking your time to read (or even answer) this posting.
>Heribert
--
Jeffrey R. Drumm, Systems Integration Specialist
Maine Medical Center - Medical Information Systems Group
drummj@mail.mmc.org
"Broken? Hell no! Uniquely implemented!" - me
------------------------------
Date: 30 Jun 1998 17:04:24 GMT
From: xx598@prairienet.org (Winter War Gaming Convention)
Subject: Looking for Perl seminars or classes
Message-Id: <6nb5qo$mq8$1@wildfire.prairienet.org>
My company has some funds in the training budget this year, and I'm
looking for a good company that offers perl classes for our new guys.
Please reply to me in e-mail.
DonM.
--
==========================================================================
= Donald E. McKinney, Senior CM Specialist dmckinne@itds.com =
= International Telecommunications Data Systems (217) 239-8365 =
= 2109 Fox Drive, Champaign, IL (217) 351-8250 =
= Winter War XXVI Convention Chairman, Champaign, IL, February 5-7, 1999 =
= dmckinne@prairienet.org or winterwar@prairienet.org (217) 469-9917 =
==========================================================================
------------------------------
Date: Mon, 29 Jun 1998 15:12:32 GMT
From: TechSupport <support@plugnpay.com>
Subject: LWP::UserAgent Post then a Redirect will it work
Message-Id: <3597AD44.EC5C64BF@plugnpay.com>
Hi,
I am trying to do a post to a script using LWP::UserAgent (that part
works OK)
and have the script do it's thing and then do a redirect. (This part
not working)
I can have the script which originally calls the post do the redirect OK
but not the
called script itself. What I do get is a page saying, "This URL has
been moved"
and then the URL itself.
I was wondering if it is possible to do this at all.
Any guidance or suggestions would be greatly appreciated.
Thank You
Dave Price
dcprice@genesysweb.com
------------------------------
Date: Mon, 29 Jun 1998 13:32:35 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: LWP::UserAgent Post then a Redirect will it work
Message-Id: <comdog-ya02408000R2906981332350001@news.panix.com>
Keywords: from just another new york perl hacker
In article <3597AD44.EC5C64BF@plugnpay.com>, TechSupport <support@plugnpay.com> posted:
>I am trying to do a post to a script using LWP::UserAgent (that part
>works OK)
>and have the script do it's thing and then do a redirect. (This part
>not working)
>
>I can have the script which originally calls the post do the redirect OK
>but not the
>called script itself. What I do get is a page saying, "This URL has
>been moved"
>and then the URL itself.
>
>I was wondering if it is possible to do this at all.
whatever it is, it's probably possible. the LWP documentation has
information about the UserAgent automagically following redirection
responses.
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 T-shirts! <URL:http://www.pm.org/tshirts.html>
------------------------------
Date: 29 Jun 1998 02:40:47 GMT
From: ac1@fspc.netsys.itg.telecom.com.au (nobody)
Subject: Re: MacPerl and odd filenames
Message-Id: <6n6urf$86b@newsserver.trl.OZ.AU>
My first thought was the '%' sign but, as you point out, the QuickMail
problems file looks very standard.
Don't know if this helps, but there appear to be six spaces between
the failing filenames and the error messages, while there are only
five in the perl code. Could you be having troubles with filenames
ending with a space charater?
AC.
Bob MacDowell (bobmacd+cmp@netcom.com) wrote:
: I need to open some files in MacPerl 5.2.0r4, and it's unable to open
: certain files. It can READDIR their names but when it tries to open them,
: it fails. Here's the code:
<code snipped>
<output modified>
: Opening Greg:Test:<RE>>pcdir/jobs 100% <--Error! Can't open!!
: Opening Greg:Test:<RE>pcdir/jobs 100% <--Error! Can't open!!
: Opening Greg:Test:<RE>QuickMail problems <--Error! Can't open!!
: Opening Greg:Test:BRE>pcdir/jobs 100% <--Error! Can't open!!
:
: Three of the files have "/" in them, which I could understand as a problem
: (even though macs use ":".) But why would "<RE>Quickmail problems" mess up?
: There's nothing weird in it.
: Anyone know how to work around this? I need to be able to open/read those
: files.
: -Bob
------------------------------
Date: Mon, 29 Jun 1998 12:41:28 +0200
From: - <blockmar@nxs.se>
Subject: making my string lowercase
Message-Id: <35976F58.1F3FD38@nxs.se>
Could anyone tell me how to make a skring of UPPERCASE or MiXed-caSE
chars into a lowercase string?
Thanks
/Blockmar
------------------------------
Date: Mon, 29 Jun 1998 11:19:02 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: making my string lowercase
Message-Id: <6n7tb0$9u9$2@ligarius.ultra.net>
[ posted and mailed ]
- <blockmar@nxs.se> wrote:
-> Could anyone tell me how to make a skring of UPPERCASE or MiXed-caSE
-> chars into a lowercase string?
perldoc -f lc
HTH
Bob Trieger
sowmaster@juicepigs.com
" Cost a spammer some cash: Call 1-800-286-0591
and let the jerk that answers know that his
toll free number was sent as spam. "
------------------------------
Date: 29 Jun 1998 08:01:44 -0500
From: Jonathan Feinberg <jdf@pobox.com>
To: - <blockmar@nxs.se>
Subject: Re: making my string lowercase
Message-Id: <n2awtl8n.fsf@mailhost.panix.com>
- <blockmar@nxs.se> writes:
> Could anyone tell me how to make a skring of UPPERCASE or MiXed-caSE
> chars into a lowercase string?
If you search the documentation that comes with perl for the string
'lowercase' then you will find a variety of ways to do just that.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf/
------------------------------
Date: 29 Jun 1998 17:56:14 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: making my string lowercase
Message-Id: <6n8kfu$1d9$3@marina.cinenet.net>
- (blockmar@nxs.se) wrote:
: Could anyone tell me how to make a skring of UPPERCASE or MiXed-caSE
: chars into a lowercase string?
Searching the perlfunc document (which you have, right there on your hard
drive) for the string 'lowercase' yielded an answer to this question in
five seconds. How long have you been waiting to hear from someone on
Usenet? Wouldn't it be more efficient to check the doc first, and get
your answer many thousands of times faster?
---------------------------------------------------------------------
| 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: Tue, 30 Jun 1998 09:04:49 -0400
From: Jonathan Epstein <Jonathan_Epstein@nih.gov>
To: - <blockmar@nxs.se>
Subject: Re: making my string lowercase
Message-Id: <3598E271.543759C1@nih.gov>
Use lc(). See perlfunc, e.g.:
http://hegel.ittc.ukans.edu/topics/linux/man-pages/man1/perlfunc.1.html
- Jonathan
- wrote:
>
> Could anyone tell me how to make a skring of UPPERCASE or MiXed-caSE
> chars into a lowercase string?
>
> Thanks
>
> /Blockmar
------------------------------
Date: Tue, 30 Jun 1998 13:09:35 GMT
From: mick@picus.dcs.bbk.ac.uk (Mick Farmer)
Subject: Re: making my string lowercase
Message-Id: <EvD8Jz.D0x@mail2.ccs.bbk.ac.uk>
Dear Blocmar,
Use the lc function, as in
$lower_case = lc $mixed_case;
Regards,
Mick
------------------------------
Date: Tue, 30 Jun 1998 14:49:05 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Matching over multiple lines (regexp problem)
Message-Id: <3598ECD1.DD05D638@nortel.co.uk>
hello there, again struggling with the matching *sigh*
And rephrased the whole bloody mail...*sigh*
Looking into my Netscape file where the messages are stored, I find something
like this:
..........Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Mailer: Mozilla 3.03 (WinNT; I)
X-Mozilla-Status: 8001
Hi,
I am work...[body of message]...The Netherlands
>From - Fri Apr 17 14:28:37 1998
Newsgroups: comp.lang.perl.modules
Path: bhars12c.bnr.co.uk!bcarh8..............
The following is a script which is a foreplay to a module that should help me to
keep track of all the superb clpm messages I am filing away everyday (honey...:)
open FILE, "< /u/quednauf/temp/knowledge.net" or die "*sigh*: $!";
$/ = undef;
SLURP: while (<FILE>) {
if (/Subject: (.*?)\n/) {
$message{subject} = $1;
print STDOUT "Hit on Subject: $message{subject}\n";
}
if (/Sender: (.*?)\n/) {
$message{sender} = $1;
print STDOUT "Hit on Sender: $message{sender}\n";
}
if (/Date: (.*?)\n/) {
$message{date} = $1;
print STDOUT "Hit on Date: $message{date}\n";
}
if (/X-Mozilla-Status: 8001\n(.*?)\nFrom -/s) {
$message{body} = $1;
print STDOUT "Hit on body: $message{body}\n";
}
print "----------\n";
}
close FILE;
My first trials never caught the body, 'cos apparently the <FILE> construct just
acts on lines, so that I never got a match for the {body} regexp.
Now I am getting something promising, but nonetheless confusing:)
I get right hits on Subject, Sender and Data and then I even get the right body,
but of the following message! And then no match whatsoever anymore.
in the first message of my file there is still one line left between the Date:
match and the oncoming X-Mozilla-... match, so it could be hit. Hmmm, what could
be happening?
Also, excuse the clumsyness of the contructs, but all this is in heavy debug
mode...
Any help would be appreciated.
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Tue, 30 Jun 1998 15:03:07 +0100
From: "F.Quednau" <quednauf@nortel.co.uk>
Subject: Re: Matching over multiple lines (regexp problem)
Message-Id: <3598F01B.A4F76A10@nortel.co.uk>
F.Quednau wrote:
>
> hello there, again struggling with the matching *sigh*
>
> And rephrased the whole bloody mail...*sigh*
>
> Looking into my Netscape file where the messages are stored, I find something
> like this:
>
> ..........Content-Type: text/plain; charset=us-ascii
> Content-Transfer-Encoding: 7bit
> X-Mailer: Mozilla 3.03 (WinNT; I)
> X-Mozilla-Status: 8001
i forgot to mention:
{body} regexp matches the right stuff on the second message, and then nothing
else is matched in the whole file anymore...*sigh*
--
____________________________________________________________
Frank Quednau
http://www.surrey.ac.uk/~me51fq
________________________________________________
------------------------------
Date: Tue, 30 Jun 1998 14:53:51 GMT
From: prakashpatel@my-dejanews.com
Subject: Music w/ Perl
Message-Id: <6nau5v$u5a$1@nnrp1.dejanews.com>
I have about 5 .ram audio files and I'm wondering if I could have them all
play just by one click of mouse button. Instead of visitors having to click
on them seperately after every song is over. I need to know if I can do that
through perl cgi-script.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
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 3014
**************************************
