[11666] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 5266 Volume: 8

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Mar 31 07:04:06 1999

Date: Wed, 31 Mar 99 04:00:18 -0800
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, 31 Mar 1999     Volume: 8 Number: 5266

Today's topics:
        'find' for PPT (David Cantrell)
        [Perl] How to find the Perl FAQ <rootbeer&pfaq*finding*@redcat.com>
        ActivePerl - "require" and "@INC" and "." <dragnet@ms1.hinet.net>
    Re: ARRGG...Control-C in DOS? (Bart Lateur)
    Re: Converting Hex to ASCII <sb@sdm.de>
    Re: Extracting data from HTML source <sisl@ihug.co.nz>
        File Upload in Internet Explorer <ntogmi@abs.ascom.ch>
    Re: How do i use the mod function in perl? <ntogmi@abs.ascom.ch>
    Re: How to Check to see if a cookie was written before  <vvb@xibm.net>
    Re: how to find local system IP address in Perl (David Cantrell)
    Re: how to find local system IP address in Perl (Jonathan Stowe)
        Install Perl on win* using cygwin neline@pacific.net.sg
    Re: Install Perl on win* using cygwin neline@pacific.net.sg
    Re: More newbe confusion... <Philip.Newton@datenrevision.de>
    Re: New to perl: why doesnt this work? <Philip.Newton@datenrevision.de>
    Re: removing ghost from variable <Philip.Newton@datenrevision.de>
        Some more newbie questions... <btm.janssen@mailbox.kun.nl>
    Re: Suppressing output from an externally run program.. <Philip.Newton@datenrevision.de>
    Re: Suppressing output from an externally run program.. <Philip.Newton@datenrevision.de>
        two questions need help fanxin@my-dejanews.com
        Use of LWP Modules <david@bluewave.com>
        Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Wed, 31 Mar 1999 09:35:13 GMT
From: NukeEmUp@ThePentagon.com (David Cantrell)
Subject: 'find' for PPT
Message-Id: <3702e7bf.67247446@thunder>

As no-one else has done it yet, I'm going to have a go at writing a
'find' clone.  Before I get started, I'd appreciate any comments on
the following issues, and anything else you can think of.

As NT doesn't have symlinks, does anyone have any preferences about
whether I should handle -follow and -noleaf as special cases, or
simply ignore them?  They're certainly not, IME, very commonly used,
especially when called from a script

Clearly -xdev and -mount will have no effect on NT.

-empty tests whether a file is a 'real' file/directory or a 'special'
file such as a device file.  On NT, the $rdev field in the list
returned by stat() is the number corresponding to the drive containing
the file - so I'll have to handle this as a special case.

-type and -xtype will be barely functional on NT, again, because of
the OS-imposed limitations imposed on stat().

I reckon -ok should really be localised so that instead of requiring a
response matching /^y/i it requires a suitable letter for the local
language.  For instance, /^o/i for France, /^j/i for Germany, /^s/i
for Spain/Italy, etc...

I don't think I'll bother with all the options on -printf ;-)

[Copying newsgroup posts to me by mail is considered rude]

-- 
David Cantrell, part-time Unix/perl/SQL/java techie
                full-time chef/musician/homebrewer
                http://www.ThePentagon.com/NukeEmUp


------------------------------

Date: Wed, 31 Mar 1999 11:24:01 GMT
From: Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
Subject: [Perl] How to find the Perl FAQ
Message-Id: <pfaqmessage922879441.482@news.teleport.com>

Archive-name: perl-faq/finding-perl-faq
Posting-Frequency: weekly
Last-modified: 10 Sep 1998

[ That "Last-modified:" date above refers to this document, not to the
Perl FAQ itself! The last major update of the Perl FAQ was in Summer of
1998; of course, ongoing updates are made as needed. ]

For most people, this URL should be all you need in order to find Perl's
Frequently Asked Questions (and answers).

    http://cpan.perl.org/doc/FAQs/

Please look over (but never overlook!) the FAQ and related docs before
posting anything to the comp.lang.perl.* family of newsgroups.

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 

Beginning with Perl version 5.004, the Perl distribution itself includes
the Perl FAQ. If everything is pro-Perl-y installed on your system, the
FAQ will be stored alongside the rest of Perl's documentation, and one
of these commands (or your local equivalents) should let you read the FAQ.

    perldoc perlfaq
    man perlfaq

If a recent version of Perl is not properly installed on your system,
you should ask your system administrator or local expert to help. If you
find that a recent Perl distribution is lacking the FAQ or other important
documentation, be sure to complain to that distribution's author.

If you have a web connection, the first and foremost source for all things
Perl, including the FAQ, is the Comprehensive Perl Archive Network (CPAN).
CPAN also includes the Perl source code, pre-compiled binaries for many
platforms, and a large collection of freely usable modules, among its
560_986_526 bytes (give or take a little) of super-cool (give or take
a little) Perl resources.

    http://cpan.perl.org/
    http://www.perl.com/CPAN/
    http://cpan.perl.org/doc/FAQs/FAQ/html/
    http://www.perl.com/CPAN/doc/FAQs/FAQ/html/

You may wish or need to access CPAN via anonymous FTP. (Within CPAN,
you will find the FAQ in the /doc/FAQs/FAQ directory. If none of these
selected FTP sites is especially good for you, a full list of CPAN sites
is in the SITES file within CPAN.)

    California     ftp://ftp.cdrom.com/pub/perl/CPAN/
    Texas          ftp://ftp.metronet.com/pub/perl/
    South Africa   ftp://ftp.is.co.za/programming/perl/CPAN/
    Japan          ftp://ftp.dti.ad.jp/pub/lang/CPAN/
    Australia      ftp://cpan.topend.com.au/pub/CPAN/
    Netherlands    ftp://ftp.cs.ruu.nl/pub/PERL/CPAN/
    Switzerland    ftp://sunsite.cnlab-switch.ch/mirror/CPAN/
    Chile          ftp://ftp.ing.puc.cl/pub/unix/perl/CPAN/

If you have no connection to the Internet at all (so sad!) you may wish
to purchase one of the commercial Perl distributions on CD-Rom or other
media. Your local bookstore should be able to help you to find one.
Another possibility is to use one of the FTP-via-email services; for
more information on doing that, send mail to <mail-server@rtfm.mit.edu>
(not to me!) with these lines in the body of the message, flush left:

    setdir usenet-by-group/news.announce.newusers
    send Anonymous_FTP:_Frequently_Asked_Questions_(FAQ)_List

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 

Comments and suggestions on the contents of this document
are always welcome. Please send them to the author at
<pfaq&finding*comments*@redcat.com>. Of course, comments on
the docs and FAQs mentioned here should go to their respective
maintainers.

Have fun with Perl!

-- 
Tom Phoenix       Perl Training and Hacking       Esperanto
Randal Schwartz Case:     http://www.rahul.net/jeffrey/ovs/


------------------------------

Date: 31 Mar 1999 10:35:04 GMT
From: Richard Ireland <dragnet@ms1.hinet.net>
Subject: ActivePerl - "require" and "@INC" and "."
Message-Id: <3701FE8E.21E08E4A@ms1.hinet.net>

I've just installed ActivePerl build 509 on NT and IIS4.0

My scripts have a problem seeing other files in their own diectory when
using the "require" command.

The message I get is:

Can't locate cgi-lib.pl in @INC (@INC contains: C:\Perl\lib
C:\Perl\site\lib .) at C:\InetPub\wwwroot\tmdia\members\envtest.pl line
5.

Originally I thought it might be a permission problem, or something to
do with IIS settings or file associations. But it all seems OK.

Inserting the line

unshift (@INC, 'c:\inetpub\wwwroot\tmdia\members');

at the top of my scripts, fixes the problem. But since the @INC variable

already contains ".", I  think this should be an unecessary step?

I can't find any reference to this problem in any of the FAQs or
reference docs I've found.


Thanks,
Richard Ireland
Dragnet International





------------------------------

Date: Wed, 31 Mar 1999 09:15:59 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: ARRGG...Control-C in DOS?
Message-Id: <3706e57a.3757584@news.skynet.be>

Mick wrote:

>Ok...this code works perfectly under Linux for catching control-c's, why
>doesn't it work under DOS?
>
>#!C:\PERL\5.00502\BIN\MSWin32-x86-object\perl

It runs on DOS for me, using DJGPP Perl 5.004. So, uh...

	Bart.


------------------------------

Date: 31 Mar 1999 09:19:01 GMT
From: Steffen Beyer <sb@sdm.de>
Subject: Re: Converting Hex to ASCII
Message-Id: <7dspa5$5bp$2@solti3.sdm.de>

In article <19990330112449.16542.00000147@ng-fi1.aol.com>,
AdmFrodos <admfrodos@aol.com> wrote:

> I would like to write a little function that converts a buffer filled with
> 32-bit hexadecimal numbers to their ASCII character equivalents, for use as a
> hex type editor function and with tcpdump. I don't know how to get 7-bits of
> character data from the numbers, and I am a bit confused on how ASCII type
> codes are stored.

See the entry for the function "unpack" in "man perlfunc"
or "perldoc perlfunc".

-- 
    Steffen Beyer <sb@engelschall.com>
    http://www.engelschall.com/u/sb/download/    (Free Perl and C Software
    http://www.perl.com/CPAN/authors/id/STBEY/         for Download)
    New: Build'n'Play 2.1.0 (all-purpose Unix batch installation tool)
    http://www.oreilly.de/catalog/perlmodger/bnp/


------------------------------

Date: Wed, 31 Mar 1999 22:43:34 +1200
From: Grant McLean <sisl@ihug.co.nz>
Subject: Re: Extracting data from HTML source
Message-Id: <3701FC56.5E03AAB8@ihug.co.nz>

Larry Rosler wrote:
> 
> In article <7dnc04$jl9$1@nnrp1.dejanews.com> on Mon, 29 Mar 1999
> 08:01:10 GMT, brackett@pobox.com <brackett@pobox.com >says...
> > how do I extract the number XX.X to a variable:
> > 
> > Float</td><td width="12%" align=right><tt>XX.X<small>
> > 
> > Thanks much.
> > 
> > oB Pity: Here is what I've been trying ...
> >
> > $number = m/Float<\/td><td width="12%" align=right><tt>(.*?)<s/;
>           =~

Or maybe:
($number) = m/Float<\/td><td width="12%" align=right><tt>(.*?)<s/;

I assume from your first attempt that the string you wish to match
against is in $_.  If so, your code will assign the value 1 to
$number if the RE matches or 0 if it does not.

Larry's suggestion would cause the RE to match against the contents
of $number and if a match was found it would be assigned to $1.

My suggestion does the RE match against $_ but evaluates it in an
array context which returns a list of all (..) bracketed matches.

To extend this slightly to illustrate other applications:

($int, $frac) = 
  m/Float<\/td><td width="12%" align=right><tt>(\d+)\.(\d+)<s/;

Grant

-- 
-------------------------------------  _____ _____ _____
Grant McLean                          |     |     |     | Systems
                                      |  S   ) I (   S  | Integration
EMail:  sisl@ihug.co.nz               |_(~)_|__ __|_(~)_| Specialists
Phone:  (64) (4) 232 3428                     (_)         Limited


------------------------------

Date: Wed, 31 Mar 1999 08:48:54 +0200
From: Toggweiler Mike <ntogmi@abs.ascom.ch>
Subject: File Upload in Internet Explorer
Message-Id: <3701C556.B05902C1@abs.ascom.ch>

Hi

Ich habe erneut ein Problem mit dem File Upload im Internet Explorer 3.0
und 4.0. Den Patch f|r IE3 habe ich installiert. Jetzt kann ich die
Datei via Brows Button auswdhlen, das Verzeichnis und der Dateinamen
werden mir |bermittelt, aber die Datei kann ich immer noch nicht lesen.
Durch das erstellt mein Script eine 0 Byte Datei. Wie schon gesagt
funktioniert im Gegensatz dies alles mit Netscape.
Hat jemand eine Idee, an was das liegen kvnnte?

Danke f|r Eure Hilfe

DoG



------------------------------

Date: Wed, 31 Mar 1999 12:25:56 +0200
From: Toggweiler Mike <ntogmi@abs.ascom.ch>
Subject: Re: How do i use the mod function in perl?
Message-Id: <3701F833.D27D108E@abs.ascom.ch>

mod => %

5 % 3 = 2

agniora@usa.net wrote:

> In perl how will i do the modulus function on two operatives.
> if anyone knows please let me know.
> thanks for ur help.
> Nayeem
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own



------------------------------

Date: Wed, 31 Mar 1999 11:28:40 +0200
From: "Vincent Vanbiervliet" <vvb@xibm.net>
Subject: Re: How to Check to see if a cookie was written before exiting th escript
Message-Id: <3701ea78@news.uk.ibm.net>


Todd A. Guillory <tag@io.com> wrote in message
news:370135E9.A083E7F7@io.com...
> I want to make sure a user has Cookies enabled.  I thought I could set a
> cookie and then check to make sure it exist, but that doesn't work,
> since the cookie doesn't exist until the PERL script that set it has
exited.

>From what I know from HTTP, it is not going to work in 1 script. The problem
is that sending a cookie is done in the response header, which is always
sent at the beginning of the response (of course) and the browser sends any
(cookie) information in it's request header.
So when you set a cookie, you'll only be able to check AFTER the client does
a new request, i.e. in the second request.
Something that might work, but you'll have to try it, is sending a cookie,
than sending a relocation header to a second script, which may then read the
cookie, so something of the form:

print "Set-Cookie: MyCookie=Vincent;expires=Friday, 02-Apr-99, 20:00:00
GMT\n";
print "Location: http://www.xxx.com/cgi-bin/readcookie.pl\n\n";

This will set the cookie and redirect the user to readcookie.pl
In readcookie.pl you could use the variable $ENV{HTTP_COOKIE} wich would
contain "MyCookie=Vincent"

(Note that the first line has one \n, the second needs 2 of them...)

This may not be the most elegant solution, but it works.




------------------------------

Date: Wed, 31 Mar 1999 09:15:12 GMT
From: NukeEmUp@ThePentagon.com (David Cantrell)
Subject: Re: how to find local system IP address in Perl
Message-Id: <3701e3e7.66263431@thunder>

On Tue, 30 Mar 1999 18:57:01 -0500, "Ken Bauman" <mtsprd@carol.net>
enlightened us thusly:

>That worked!!  :)    Now the bad news. I have two network cards, and this
>method only gets the first card's address.  Turns out I really need the
>other one.  Finally took another look at gethostbyname() to see it really
>returns a list of stuff, including all addresses.  So I did..

[snip]

>Voila!  That got'em all.

It will only work if the DNS knows about all the addresses in your
system.  For instance, on one of my machines:

cowshed-door:/home/david# kb-addresses
Address 0 is: 194.205.25.233
cowshed-door:/home/david# ifconfig |grep inet
  inet addr:127.0.0.1 ...
  inet addr:194.205.25.233 ...
  inet addr:192.168.1.254 ...
cowshed-door:/home/david# uname -a
Linux cowshed-door 2.0.35 ...

A quick DNS query or two will show that the only address which the
perl script found was the one registered with the DNS.

Still a nice solution though ;-)

I suspect that there is no portable way of achieving this.

[Copying newsgroup posts to me by mail is considered rude]

-- 
David Cantrell, part-time Unix/perl/SQL/java techie
                full-time chef/musician/homebrewer
                http://www.ThePentagon.com/NukeEmUp


------------------------------

Date: Wed, 31 Mar 1999 10:33:48 GMT
From: gellyfish@gellyfish.com (Jonathan Stowe)
Subject: Re: how to find local system IP address in Perl
Message-Id: <3701f5b2.8529920@news.dircon.co.uk>

On Tue, 30 Mar 1999 17:04:57 -0500, "Ken Bauman" <mtsprd@carol.net>
wrote:

>I should probably add that I am running ActivePerl
>on a Win95 machine.  I am running Micro$oft
>Personal Web Server also, however, that should be
>irrelevant.  The script I am attempting to write
>is NOT a CGI script and is NOT being run by the
>server.  I believe I should be able to get the IP
>address of the local machine, regardless of
>whether I am running a web server of any type.
>Someone please tell me I'm not wrong!!  :)
>

Well the solution in perlfaq9 has always and does now work for me and
I have an essentially similar setup to you (for my sins).  

Maybe you ought to show us the *actual* code you are trying to use.

/J\


------------------------------

Date: Wed, 31 Mar 1999 17:41:52 +0800
From: neline@pacific.net.sg
Subject: Install Perl on win* using cygwin
Message-Id: <3701EDE0.F74B789B@pacific.net.sg>

Tried to install Perl on windows using cygwin.

After running sh Configure it stops and says it needs 'awk'

Searched cygnus but come up empty handed. Can someone help - do I really
need awk and if so where do I get it for use with cygwin. (Do I have to
build awk from scratch?)

regards


------------------------------

Date: Wed, 31 Mar 1999 18:18:10 +0800
From: neline@pacific.net.sg
Subject: Re: Install Perl on win* using cygwin
Message-Id: <3701F662.C7DB32E2@pacific.net.sg>

Whoops! I'm checking through /bin and found awk there.
that means what? I have to get it on the right path?

I have  /Perl/perl5.005_02
	 |
	 -------cygwin32
         |
	 -------cygwin-b20
	 |	|
		------H-i586-cygwin32
	 |		|
	 |		-----bin (commands in here!)
   	 |
	 |----rest of perl extracted from tarball

Have I got cygwin in the right place?

thanks in advance

regards


neline@pacific.net.sg wrote:
> 
> Tried to install Perl on windows using cygwin.
> 
> After running sh Configure it stops and says it needs 'awk'
> 
> Searched cygnus but come up empty handed. Can someone help - do I really
> need awk and if so where do I get it for use with cygwin. (Do I have to
> build awk from scratch?)
> 
> regards


------------------------------

Date: Wed, 31 Mar 1999 11:09:28 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: More newbe confusion...
Message-Id: <3701E648.8312312A@datenrevision.de>

Raymond Jender wrote:
> 
> I can parse the input ok and split the pairs by the
> following:
> 
> # Resolve and unencode name/value pairs into %in
>     foreach (split('&', $in)) {
>         s/\+/ /g ;
>         ($name, $value)= split('=', $_, 2) ;
>         $name=~ s/%(..)/chr(hex($1))/ge ;
>         $value=~ s/%(..)/chr(hex($1))/ge ;
>         $in{$name}.= "\0" if defined($in{$name}) ;  # concatenate
> multiple vars
>         $in{$name}.= $value ;
>     }
> @tmp = %in; # Copy the hash into an array
> 
>     return %in ;

Erm, why don't you "use CGI.pm;" which will do all this funny splitting
for you? And provides nice methods to get at your parameters?

Cheers,
Philip


------------------------------

Date: Wed, 31 Mar 1999 11:03:27 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: New to perl: why doesnt this work?
Message-Id: <3701E4DF.698B97C8@datenrevision.de>

Mark Maurer wrote:
> 
> Bzzt!  No, you didn't.  Try this line:
> 
> print "Content-type: text/html\r\n\r\n"
> 
> along those lines, you don't really need the \r's, but I always put
> them in anyways.

Well, if you're going to be pedantic:

    print "Content-type: text/html\015\012\015\012";

so that it'll even work in MacPerl (which has "\n" eq "\015" and "\r" eq
"\012", IIRC). \cM\cJ instead of \015\012 should also work.

Cheers,
Philip


------------------------------

Date: Wed, 31 Mar 1999 11:12:27 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: removing ghost from variable
Message-Id: <3701E6FB.A3839E53@datenrevision.de>

wanga wrote:
> 
> i tried substitution of '\n' to simple space character:
> $space = " ";
> $text =~ s/\n/$space/g;
> 
> that crap - in windows notepad, in the text file generated from
> outputting that variable - looks like symbol with black cube.
> windows netscape - doesn't show this character, but interprets it
> like newline code.
> and in unix - i piped that new variable' print to sendmail - and got
> the beginning of a first line overwritten by the second' symbols, but
> not removed left symbols of the first line.

My guess is that you removed a linefeed (aka newline, "\n", "\cJ",
"\012") from your string but left a carriage return (aka "\r", "\cM,
"\015"). Try:

    $text =~ s/\r?\n/ /g;

Cheers,
Philip


------------------------------

Date: Wed, 31 Mar 1999 11:42:16 +0200
From: Ben Janssen <btm.janssen@mailbox.kun.nl>
Subject: Some more newbie questions...
Message-Id: <3701EDF8.FF8C11A4@mailbox.kun.nl>

Hiya all!

I have some questions:

1. How should I use file handles to add text from a certain
variable (EG $text = "foo")to a standard text file?? I know how
to open a file handle [ open (BAR, ">>foo.txt"); ] But after
that??

2. Can different perl programs (EG foo.perl bar.perl &
blaat.perl) work together and/or share variables??

3. Which ways are there to get html-form-input from a url
(http://bar.bar.bar/cgi-bin/foo.cgi?name=xxx)??

Thanxx for answering...

THundur--



------------------------------

Date: Wed, 31 Mar 1999 11:07:18 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: Suppressing output from an externally run program...
Message-Id: <3701E5C6.A22129BC@datenrevision.de>

Darren Greer wrote:
> 
> This is what I use....with success:
> 
>         system("cmd 1>/dev/null");
> 
> Try that...

    system "cmd 1>/dev/null 2>&1"

, or you'll still have STDERR on your console. (Assumes your shell is of
the sh family (e.g. sh, bash, ksh), not the csh (tcsh, etc.) family.)

Cheers,
Philip


------------------------------

Date: Wed, 31 Mar 1999 11:07:45 +0200
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: Suppressing output from an externally run program...
Message-Id: <3701E5E1.C8502518@datenrevision.de>

senthilr@my-dejanews.com wrote:
> 
> > I was wondering if there was a way of making a system call (that is to
> > say, run a shell program) in perl and suppressing all output that that
> > system call (shell program) produces.
> 
> $cmd = "command";
> 
> @cmdout = qx[$cmd 2>&1];
> 
> Now everything that comes out from the command is in the array
> @cmdout. Nothing will appear on the screen.

Unless the program writes directly to the TTY. I believe some debuggers
do that.

Cheers,
Philip


------------------------------

Date: Wed, 31 Mar 1999 10:16:59 GMT
From: fanxin@my-dejanews.com
Subject: two questions need help
Message-Id: <7dssmm$f69$1@nnrp1.dejanews.com>

Hi all experts:  there has two questions: 1. i have downloaded almost all
mailing list cgi script on the net.  all of them are almost same. a loop
invokes sendmail once by once.	the mail is send by openning a pipe from the
script to sendmail.  BUT! this doesn't work when the list is very long.
eg.5000  the loop will only go about 25-30 times when it needs to go 5000
times.	if the list is reduced to 100. the program works fine.	is there
anything wrong with the system? there has no process at all when  the loop
hasn't finished. so how to write a mailing list cgi program for huge  list,
like 10000 emails.

2. i tried to view majordormo source. in the Newlist file, it says i have
create	aliase by hand for send mail when i need to create a new list. Is
there any  program or module that manage the aliases file and do newalises?

thanks alot
fan

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


------------------------------

Date: Wed, 31 Mar 1999 11:39:04 +0100
From: "David Smith" <david@bluewave.com>
Subject: Use of LWP Modules
Message-Id: <3701fadf.0@nnrp1.news.uk.psi.net>

Trying to use the LWP modules to get a webpage so that I can work on it
before outputting to a browser...

use LWP::Simple;
$url = "http://www.aurl,com";
print (get $url);

this works fine, but doesn't work when $url = "https://mysecureurl.com"

I've also tried to use

use LWP::UserAgent;
$ua = new LWP::UserAgent;
$url = "http://www.aurl,com";
$request = new HTTP::Request('GET', '$url');
$ua->request($request, 'data/test.html');

But no file is created.

Any suggestions ?

Thanks
David

david@bluewave.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 5266
**************************************

home help back first fref pref prev next nref lref last post