[11787] in Perl-Users-Digest
Perl-Users Digest, Issue: 5387 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Apr 15 00:07:25 1999
Date: Wed, 14 Apr 99 21:00:16 -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 Wed, 14 Apr 1999 Volume: 8 Number: 5387
Today's topics:
Re: flocking question - worried (Abigail)
Re: Help on Sendmail! (Abigail)
Re: HELP: PERL construct <jdf@pobox.com>
Identifying "real" regex (vs. "string with escapes") (Ran)
Re: Matching whole word <jdf@pobox.com>
Re: Matching whole word (Damon61)
Re: Need to print \n - Not do a carrage return (Abigail)
Re: Need to print \n - Not do a carrage return (Damon61)
Re: Need to print \n - Not do a carrage return <tchrist@mox.perl.com>
pack( ) mshntr@mta.ca
Re: pack( ) <rick.delaney@home.com>
Re: Peeking/Seeking STDIN by Inheriting From FileHandle <dwc3q@mamba.cs.Virginia.EDU>
Re: Perl 5 DBI MySQL Win32 Package? <kevinfal@jibsheet.com>
Re: Perl Regex Q? (Ronald J Kimball)
Re: Perl Regex Q? (Abigail)
Re: Perl vs. OTHER scripting languages ? When/Why to us (Ran)
Re: position in s///g? (Abigail)
Re: problem with push <jdf@pobox.com>
Re: Q: Convert two newlines to \n<p> <rick.delaney@home.com>
Re: Unitialized var errors & -w flag (Ronald J Kimball)
URI.pm not installing with libwww-perl <dsmorey@unconundrum.com>
URI.pm not installing with libwww-perl <dsmorey@unconundrum.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 15 Apr 1999 02:19:23 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: flocking question - worried
Message-Id: <7f3ibb$f10$1@client2.news.psi.net>
Graham Ashton (billynospam@mirror.bt.co.uk) wrote on MMLII September
MCMXCIII in <URL:news:slrn7ha4l9.j6n.billynospam@wing.mirror.bt.co.uk>:
[] In article <hr0R2.1417$MQ1.11163@typhoon-sf.pbi.net>, Benjamin Franz wrote:
[] >
[] >No. This won't work, either. 'flock' works on
[] >_file handles_ - not _file names_.
[]
[] just to go off on a quick tangent...
[]
[] if you want to unlock a file after you've finished writing to it, and
[] you unlock it with flock() just before you close() it, do you have a
[] potential race condition?
[]
[] i.e. could the buffers be flushed in between calling flock() and
[] close(), allowing another process to obtain a lock on the file before
[] the first process has finished writing?
Indeed. No doubt there's a system somewhere where this is not the case,
but in general you can have unflushed buffers when releaseing the lock.
[] I know that some versions of the open syscall unlock files whilst
[] closing them, but I think I read somewhere that this isn't always the
[] case.
Perl itself will take care of such issues.
[] are there any fully portable solution to this problem? I'm currently not
[] bothering unlock files, but am letting close() do it for me.
That's the most portable solution. Since Perl is partly at the mercy
of the system it's running on, a 100% portable solution is probably
not always possible. But Perl does its utter best.
If portability is an important issue for you, consult the perlport
manpage.
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: 15 Apr 1999 02:22:48 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Help on Sendmail!
Message-Id: <7f3iho$f10$2@client2.news.psi.net>
CUKSA (cuksa@cuksa.monisys.ca) wrote on MMLII September MCMXCIII in
<URL:news:371512EE.C360C3FD@cuksa.monisys.ca>:
()
() I would like to know how to specify the name of the sender and reply
() address.
That's not a Perl question. Information about sendmail can be found
in the newsgroup soc.culture.moon.other.side, while the headers as
defined in RFC 822 are discussed in rec.food.spiders.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
------------------------------
Date: 14 Apr 1999 21:39:00 -0400
From: Jonathan Feinberg <jdf@pobox.com>
To: durai <durai@gotmail.eng.sun.com>
Subject: Re: HELP: PERL construct
Message-Id: <m3yajuaci3.fsf@joshua.panix.com>
durai <durai@gotmail.eng.sun.com> writes:
> I am trying to get the equivalent of the following in perl..
>
> nawk "/COMMENT_BEGIN/,/COMMENT_END/" $1
>
> This will return the lines between the two tags inclusive.
See perlop for the scalar range operators.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Thu, 15 Apr 1999 02:33:04 GMT
From: ran@netgate.net (Ran)
Subject: Identifying "real" regex (vs. "string with escapes")
Message-Id: <924143584.942.102@news.remarQ.com>
I have a few humongous awk programs that consist mainly of lines
that are roughly like:
$0 ~ /something/ { print "category", $0 ; next }
Sometimes the "something" is an actual regex, but often it's just a
character string (with the metachars escaped, for speed) for which I'm
doing the moral equivalent of an index().
The regexen are all the "basic" variety: pure, simple pattern matching
of the sort that work with even the most ancient of greps.
As part of the process of converting the awk scripts, I want to
separate the simple strings from the regexen, for more-efficient
execution.
If someone already has a code snippet handy that will identify the
strings (and/or squeeze out the escapes), I'd appreciate your posting
it.
Thanks,
Ran
------------------------------
Date: 14 Apr 1999 21:41:18 -0400
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Matching whole word
Message-Id: <m3vheyace9.fsf@joshua.panix.com>
Yu Fang <yfang@gte.com> writes:
> Bas van Reek wrote:
> >
> > How do i match a whole word.
> >
> > It should match " blah " and "blah" and "blah " and " blah"
> > but not "xxblahxx"
>
> do you mean /\s+blah\s+/ ?
That will fail to match 'blah', and others.
See the \b escape in perlre.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 15 Apr 1999 02:38:45 GMT
From: damon61@aol.com (Damon61)
Subject: Re: Matching whole word
Message-Id: <19990414223845.17227.00000696@ng110.aol.com>
you use
if $whatever =~/^blah$/
{
}
the ^ in the beginning specifies that the word must start with "blah", and the
$ at the end specifies that the word must end with "blah"
------------------------------
Date: 15 Apr 1999 02:32:09 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Need to print \n - Not do a carrage return
Message-Id: <7f3j39$f10$3@client2.news.psi.net>
Steve Springett (sspringett@cwe2.com) wrote on MMLII September MCMXCIII
in <URL:news:WV8R2.1021$DZ3.89653374@dca1-nnrp1.news.digex.net>:
!! I am trying to actually print a \n to the browser but do not know how. For
Hmmm. What if you are on a system where \n *is* a carriage return?
What \n is depends on your system. It can be a linefeed, or a carriage
return linefeed combo (any permutation)....
!! example:
!!
!! print "<PARAM NAME = \"contents\" VALUE = \"First Line\nSecondLine\">\n";
!!
!! The above code is part of a larger piece that prints out HTML to the browser
!! and has a Java Applet. I need to format the text for the applet using a \n
!! but perl interprets it as the escape character it is.
!!
!! What I need the browser to see is:
!! <PARAM NAME="contents" VALUE="First Line\nSecondLine>
Oh! Wait a minute. You want to output a backslash followed by a n!
Well, that's simple. It will solve your problem of backwacketisis as well:
print '<PARAM NAME = "contents" VALUE = "First Line\nSecondLine">', "\n";
Or you could use printf:
printf "<PARAM NAME = 'contents' VALUE = 'First Line%sSecondLine'>\n", '\n';
Or you backwack the backwack:
print "<PARAM NAME = 'contents' VALUE = 'First Line\\nSecondLine'>\n";
The possibilities are endless. Be sure to look up the section about
quoting and interpolation in the perlop manpage.
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
------------------------------
Date: 15 Apr 1999 02:34:48 GMT
From: damon61@aol.com (Damon61)
Subject: Re: Need to print \n - Not do a carrage return
Message-Id: <19990414223448.17227.00000695@ng110.aol.com>
try doing this
print "<PARAM NAME = \"contents\" VALUE = \"First Line\\nSecondLine\">\\n";
------------------------------
Date: 14 Apr 1999 21:09:57 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Need to print \n - Not do a carrage return
Message-Id: <37155885@cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
abigail@fnx.com writes:
:Steve Springett (sspringett@cwe2.com) wrote on MMLII September MCMXCIII
:in <URL:news:WV8R2.1021$DZ3.89653374@dca1-nnrp1.news.digex.net>:
:!! I am trying to actually print a \n to the browser but do not know how. For
:
:Hmmm. What if you are on a system where \n *is* a carriage return?
:What \n is depends on your system. It can be a linefeed, or a carriage
:return linefeed combo (any permutation)....
Actually, I only know of two possibilities: either \n is a \cJ as it is
on Unix and DumbOS, or else it's a \cM as it is on the Mac. I'm sure
there are other possbilities, but it is wrong to claim that \n is a
\cM\cJ on DumbOS. It's not. It's just a \cJ.
Consider how on a Unix tty in cooked mode when you hit \cM, your program
sees \n, but when you emit a \n in cooked mode, your tty driver ends up
sending \cM\cJ over the line. You can verify this by running things
like "script" or "expect", or rolling your own telnet.
But if you do length("\n"), you'll see it's just one byte, no matter
whether you're on Unix, MacOS, or DumbOS. It's just a different byte
on the middle one than the outer two.
--tom, probably just picking nits.
--
#define SVs_RMG 0x00008000 /* has random magical methods */
--Larry Wall, from sv.h in the v5.0 perl distribution
------------------------------
Date: Thu, 15 Apr 1999 02:16:25 GMT
From: mshntr@mta.ca
Subject: pack( )
Message-Id: <7f3i5j$eiu$1@nnrp1.dejanews.com>
I'm using the pack function to prepare data for writing to a binary file.
I've used it for a few 4byte values, packed to unsigned long integers, and it
worked fine.
The documentation for pack says that using "S" (short unsigned integer) uses
EXACTLY 16 bits... If I use it like this:
$version=pack("S",0);
print OUTFILE $version;
It prints 2 bytes... If I put 10 in pace of the zero, however, it writes 3
bytes... and they don't even equal ten... All I need to do is to be able to
take 2-byte or 4-byte integers and write them to a file in binary format,
using EXACTLY two or four bites respectively. If anyone has any more advice,
I'd really love to hear from you :)
Thanks,
-=Matt=-
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 15 Apr 1999 03:12:46 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: pack( )
Message-Id: <37155B33.2A348853@home.com>
[posted & mailed]
mshntr@mta.ca wrote:
>
> If I use it like this:
>
> $version=pack("S",0);
> print OUTFILE $version;
>
> It prints 2 bytes... If I put 10 in pace of the zero, however, it
> writes 3 bytes... and they don't even equal ten...
I can't see that. Maybe you need to binmode OUTFILE?
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Wed, 14 Apr 1999 22:29:39 -0400
From: David Coppit <dwc3q@mamba.cs.Virginia.EDU>
Subject: Re: Peeking/Seeking STDIN by Inheriting From FileHandle
Message-Id: <Pine.GSO.4.05.9904142138260.27254-100000@mamba.cs.Virginia.EDU>
> As far as I know, peeking STDIN and putting data back on to STDIN are not
> possible. The solution I was thinking of would be to derive a class from
> FileHandle that contains an internal buffer. This internal buffer would be
> used to store data that was "put back" or data that was "peeked". During
> reading, the buffer would be first emptied, and then reads would occur
> from the stream like normal.
>
> Has anyone already implemented this? Does it sound feasible? Does anyone
> have an example of a class that inherits from FileHandle?
Okay, in poking around IO::Handle, I found ungetc, which sounded like the
trick I needed. I implemented the following:
sub PutBackString
{
my $fileHandle = shift;
my $string = shift;
while ($string ne '')
{
my $char = chop $string;
$fileHandle->ungetc(ord($char));
}
}
This seemed to work great, except that it periodically only puts back part
of the string. Ug. Furthermore, this seemed to be a lot slower than simply
storing the data for the next record in a variable, which tells me that
maybe my original FileHandle wrapper class might work better.
Poking around DejaNews led me to Tom C's pushback.pl, which might lead me
toward the solution I need. It looks like Perl 4 code, though. :( Here's
the ref: http://www.dejanews.com/=dnt_mn/getdoc.xp?AN=102721265
David
_________________________________________________________________________
David Coppit - Graduate Student coppit@cs.virginia.edu
The University of Virginia http://www.cs.virginia.edu/~dwc3q
"Yes," said Piglet, "Rabbit has Brain." There was a long silence.
"I suppose," said Pooh, "that that's why he never understands anything."
------------------------------
Date: 14 Apr 1999 23:55:58 -0400
From: Kevin Falcone <kevinfal@jibsheet.com>
Subject: Re: Perl 5 DBI MySQL Win32 Package?
Message-Id: <m3vheymt9t.fsf@jibsheet.com>
timespinner@my-dejanews.com writes:
> Does anyone know if there is a Win32 package for Perl 5 out to work with a
> Win32 MySQL database? If so, where can this be obtained?
>From the same place you got Win32 Mysql. A little further down the
page there are links to a Perl compiled for Win32 with DBI::DBD for
Mysql, and there are also links to MyODBC so that you can talk to the
database through ODBC. These are about 3 lines below where you
doenload mysql for Win32
http://www.mysql.org/download.html
-kevin
--
Kevin Falcone
kevinfal@seas.upenn.edu
SIGTHTBABW: a signal sent from Unix to its programmers at random
intervals to make them remember that There Has To Be A Better Way.
------------------------------
Date: Wed, 14 Apr 1999 22:28:03 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Perl Regex Q?
Message-Id: <1dq9vgo.kutor617gxb8wN@p249.block1.tc6.state.ma.tiac.com>
<andrewg6969@my-dejanews.com> wrote:
> catbert:/export/home 192800 13224 177648 7% /mnt
>
> What is wrong with this line that it doesn't pass over the line containing
> "catbert:" ?
>
> last if ($Line !~ /\w:\//); # ditch Local entries
If you want to break out of the loop on the catbert: line, you don't
want to negate the value of the match:
last if ($Line =~ m{\w:/});
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 15 Apr 1999 02:37:48 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Perl Regex Q?
Message-Id: <7f3jds$f10$4@client2.news.psi.net>
andrewg6969@my-dejanews.com (andrewg6969@my-dejanews.com) wrote on MMLIII
September MCMXCIII in <URL:news:7f3cmg$9tc$1@nnrp1.dejanews.com>:
;; Given the following data:
;;
;; Filesystem kbytes used avail capacity Mounted on
;; fd 0 0 0 0% /dev/fd
;; /dev/dsk/c0t3d0s4 144799 53546 76774 42% /var
;; swap 394672 1512 393160 1% /tmp
;; /dev/dsk/c0t2d0s7 1015695 771887 182867 81% /export/home
;; catbert:/export/home 192800 13224 177648 7% /mnt
;;
;; What is wrong with this line that it doesn't pass over the line containing
;; "catbert:" ?
;;
;; last if ($Line !~ /\w:\//); # ditch Local entries
What do you mean with "doesn't pass over"? The last in the code fragment
suggest that you are looking at the lines one by one, in a loop.
In that case, it will never get to the catbert line, the very first
line doesn't match \w:/, so it jumps out of the loop.
But perhaps you are doing something else. Who knows?
$ perl -wle '$_ = "catbert:/export"; print "Yes" if /\w:\//'
Yes
$
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
------------------------------
Date: Thu, 15 Apr 1999 02:01:01 GMT
From: ran@netgate.net (Ran)
Subject: Re: Perl vs. OTHER scripting languages ? When/Why to use it ?
Message-Id: <924141661.277.22@news.remarQ.com>
In <3714AC6C.967940A5@slpmbo.ed.ray.com>, Michael Genovese <mikeg@slpmbo.ed.ray.com> writes:
>He recently decided that we WILL do our scripts in C-SHELL & AWK/NAWK,
>but is now willing to modify his position if I can come up with
>compelling arguments to do otherwise.
>
>Suggestions, people ?
1. CPAN
2. expect
"expect" might be an argument for keeping Tcl in the mix: I don't know
enough about the subject to discuss the relative merits of the Tcl and
Perl implementations.
But CPAN is, all by itself, a sufficiently-compelling argument to
include Perl. Especially when competing against awk, since you can
use Perl as a sort-of "super-awk" to ease the learning curve, if
you're of a mind to.
I would strongly recommend spending a few minutes meditating on the
mantra "TIMTOWTDI" just before the meeting, to help keep it from
turning into the all-too-common language dicksizewar ;-)
Ran
------------------------------
Date: 15 Apr 1999 03:49:16 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: position in s///g?
Message-Id: <7f3njs$fkt$1@client2.news.psi.net>
Andrew Allen (ada@fc.hp.com) wrote on MMLIII September MCMXCIII in
<URL:news:7f3aqk$eos$1@fcnews.fc.hp.com>:
,, Is there a way to get the position in a substitution. pos() only
,, works in m//g. I'm trying to do something like:
,,
,, $a="0520001250025";
,, $b="weasgnkweplhk";
,, $a=~/0/substr($b,pos($a)-1,1)/ge;
,,
,, which obviously doesn't work. I know there's several other ways to do
,, this, but I was wondering if I was missing somethat that would enable
,, this approach.
Taking advantage of the fact you are substituting 0 instead of
any other character:
substr ($a, $_, 1) ||= substr ($b, $_, 1) for (0 .. length ($a) - 1);
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: 14 Apr 1999 21:26:07 -0400
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: problem with push
Message-Id: <m3zp4aad3k.fsf@joshua.panix.com>
"Elliot Slater" <eslater@frinc.com> writes:
> $MckShared = "c:\perl\modules\";
This won't even compile, so it can't be the code you're actually
using. Forward slashes work fine in windows, so you might as well use
them.
> $_ = "$MckShared";
> s/\\/\\\\/g;
> $MckShared = $_;
There are no backslashes in that string, so that regex won't do
anything. Even if it *did* do something, you'd want to
$MckShared =~ s/\\/\\\\/g;
instead of all that copying.
> push(@INC, $MckShared);
This happens at run-time, and you need it to happen at compile-time.
Best would be
use lib 'c:/perl/modules';
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Thu, 15 Apr 1999 02:57:54 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Q: Convert two newlines to \n<p>
Message-Id: <371557B7.75CB2148@home.com>
[posted & mailed]
Mike Collins wrote:
>
> The more part would be to remove single newlines and convert two or
> more consecutive newlines to the change indicated in the substitution
> above.
#!/usr/local/bin/perl -w
$/ = "";
$\ = "\n<p>";
while(<>){
tr/\n//d;
print;
}
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Wed, 14 Apr 1999 22:28:04 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Unitialized var errors & -w flag
Message-Id: <1dq9vo0.c503si1eoxr40N@p249.block1.tc6.state.ma.tiac.com>
Gordon Shannon <gordon.shannon@Central.Sun.COM> wrote:
> Issue 2: I don't think either should produce a warning! I don't see
> the harm in using unitialized variables. Indeed, I think using
> them is reasonably in keeping with the spirit of Perl, with its
> loose types. I've yet to see this warning actually point out bad code.
The 'use of uninitialized value warning' has led me to bugs in my code
many times.
If you want to avoid the warning, either turn off warnings or initialize
your variables. Very simple. :)
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Thu, 15 Apr 1999 02:01:03 GMT
From: "Prolog News" <dsmorey@unconundrum.com>
Subject: URI.pm not installing with libwww-perl
Message-Id: <zLbR2.2360$Mu2.4390@nnrp2.ptd.net>
This code comes from the May edition of Web Techniques. *** It is not my
own...***
unless ($ua) {
require LWP::UserAgent;
require URI;
$ua = LWP::UserAgent->new;
$uri = URI->new('http://www.dejanews.com/[ST_rn=ps]/dnquery.xp');
}
$uri->query_form(
ST => "PS", # hidden
QRY => $query,
"groups" => "misc.jobs.offered",
"fromdate" => $fromdate,
"todate" => $todate,
);
When I get to the URI line, of course it's not going to find the URI.pm file
because for some reason the libwww-perl on ActiveState's site didn't install
uri.pm. Can somebody tell me why libwww-perl doesn't have the uri.pm file
and where I can get it for a Win32 machine? I needed GIFgraph and
Date::Calc which I found and they installed fine, however, libwww-perl
seemed to not have everything it was supposed to or is there something that
needs to be changed here?
Thanks in advance.
--
Dan R. Smorey Jr.
Programmer/Analyst
UnConundrum, Inc.
http://www.unconundrum.com
dsmorey@unconundrum.com
------------------------------
Date: Thu, 15 Apr 1999 02:03:12 GMT
From: "Dan R. Smorey Jr." <dsmorey@unconundrum.com>
Subject: URI.pm not installing with libwww-perl
Message-Id: <ANbR2.2363$Mu2.4143@nnrp2.ptd.net>
This code comes from the May edition of Web Techniques. *** It is not my
own...***
unless ($ua) {
require LWP::UserAgent;
require URI;
$ua = LWP::UserAgent->new;
$uri = URI->new('http://www.dejanews.com/[ST_rn=ps]/dnquery.xp');
}
$uri->query_form(
ST => "PS", # hidden
QRY => $query,
"groups" => "misc.jobs.offered",
"fromdate" => $fromdate,
"todate" => $todate,
);
When I get to the URI line, of course it's not going to find the URI.pm file
because for some reason the libwww-perl on ActiveState's site didn't install
uri.pm. Can somebody tell me why libwww-perl doesn't have the uri.pm file
and where I can get it for a Win32 machine? I needed GIFgraph and
Date::Calc which I found and they installed fine, however, libwww-perl
seemed to not have everything it was supposed to or is there something that
needs to be changed here?
Thanks in advance.
--
Dan R. Smorey Jr.
Programmer/Analyst
UnConundrum, Inc.
http://www.unconundrum.com
dsmorey@unconundrum.com
------------------------------
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 5387
**************************************
