[Perl] RE: Perl digest, Vol 1 #153 - 4 msgs

manora manora at netvision.net.il
Fri Oct 25 07:19:46 PDT 2002


Hi,  here is my answer to Yossi Itzkovich.

There is more then 1 way to do it answer to Perl && www question
(Yossi.Itzkovich at lightscapenet.com) question.

Try using "wget" which is more "unix" then "perl"
"wget" is freely available for unix and windows platforms.
"wget" is used mainly do download a file or a whole site from the www to
your box.

Hope this will help.
Happy perling...
Arik, namor. 


-----Original Message-----
From: perl-admin at perl.org.il [mailto:perl-admin at perl.org.il] On Behalf
Of perl-request at perl.org.il
Sent: Friday, October 25, 2002 12:01 PM
To: perl at perl.org.il
Subject: Perl digest, Vol 1 #153 - 4 msgs

Send Perl mailing list submissions to
	perl at perl.org.il

To subscribe or unsubscribe via the World Wide Web, visit
	http://www.perl.org.il/cgi/listinfo/perl
or, via email, send a message with subject or body 'help' to
	perl-request at perl.org.il

You can reach the person managing the list at
	perl-admin at perl.org.il

When replying, please edit your Subject line so it is more specific
than "Re: Contents of Perl digest..."


Today's Topics:

   1. Perl && www question (Yossi.Itzkovich at lightscapenet.com)
   2. Re: Perl && www question (Pinkhas Nisanov)
   3. Re: Perl && www question (Yossi.Itzkovich at lightscapenet.com)
   4. Re: my quiz (easy) (Nadav Popplewell)

--__--__--

Message: 1
From: Yossi.Itzkovich at lightscapenet.com
To: perl at perl.org.il
Date: Thu, 24 Oct 2002 11:05:33 +0300
Subject: [Perl] Perl && www question
Reply-To: perl at perl.org.il


Hi,

This is mainly a www question, but I want to implement it in Perl.

I work with Lotus Notes as mailer, but I want to do polling of the
mailbox
from a script. There is a internet browser access to Notes, but when I
get
to the site I have a popup with title "Enter Network Password"  and then
I
have to give the user and password before going on.

Now to Perl ! How do I give these details to Perl ?
I  have managed to get to the URL, but I can't figure out how can I give
that data from a script.

Thanks for any help

Yossi







--__--__--

Message: 2
Date: Thu, 24 Oct 2002 11:35:56 +0000
From: Pinkhas Nisanov <nisanov at netvision.net.il>
Subject: Re: [Perl] Perl && www question
To: perl at perl.org.il
Reply-To: perl at perl.org.il

Hi,

Look at this link:
http://www.perl.com/pub/a/2002/08/20/perlandlwp.html?page=4

Thanks
Pinkhas


On Thu, 2002-10-24 at 08:05, Yossi.Itzkovich at lightscapenet.com wrote:
> 
> Hi,
> 
> This is mainly a www question, but I want to implement it in Perl.
> 
> I work with Lotus Notes as mailer, but I want to do polling of the
mailbox
> from a script. There is a internet browser access to Notes, but when I
get
> to the site I have a popup with title "Enter Network Password"  and
then I
> have to give the user and password before going on.
> 
> Now to Perl ! How do I give these details to Perl ?
> I  have managed to get to the URL, but I can't figure out how can I
give
> that data from a script.
> 
> Thanks for any help
> 
> Yossi
> 
> 
> 
> 
> 
> 
> _______________________________________________
> Perl mailing list
> Perl at perl.org.il
> http://www.perl.org.il/cgi/listinfo/perl



--__--__--

Message: 3
From: Yossi.Itzkovich at lightscapenet.com
Subject: Re: [Perl] Perl && www question
To: perl at perl.org.il
Date: Thu, 24 Oct 2002 13:42:52 +0300
Reply-To: perl at perl.org.il


Thanks. It realy helped me.

Yossi



 

                      Pinkhas Nisanov

                      <nisanov at netvisi         To:      perl at perl.org.il

                      on.net.il>               cc:

                      Sent by:                 Subject: Re: [Perl] Perl
&& www question                                          
                      perl-admin at perl.

                      org.il

 

 

                      10/24/2002 14:35

                      Please respond

                      to perl

 

 




Hi,

Look at this link:
http://www.perl.com/pub/a/2002/08/20/perlandlwp.html?page=4

Thanks
Pinkhas


On Thu, 2002-10-24 at 08:05, Yossi.Itzkovich at lightscapenet.com wrote:
>
> Hi,
>
> This is mainly a www question, but I want to implement it in Perl.
>
> I work with Lotus Notes as mailer, but I want to do polling of the
mailbox
> from a script. There is a internet browser access to Notes, but when I
get
> to the site I have a popup with title "Enter Network Password"  and
then
I
> have to give the user and password before going on.
>
> Now to Perl ! How do I give these details to Perl ?
> I  have managed to get to the URL, but I can't figure out how can I
give
> that data from a script.
>
> Thanks for any help
>
> Yossi
>
>
>
>
>
>
> _______________________________________________
> Perl mailing list
> Perl at perl.org.il
> http://www.perl.org.il/cgi/listinfo/perl


_______________________________________________
Perl mailing list
Perl at perl.org.il
http://www.perl.org.il/cgi/listinfo/perl





--__--__--

Message: 4
From: "Nadav Popplewell" <nadav at nirim.co.il>
To: <perl at perl.org.il>
Subject: Re: [Perl] my quiz (easy)
Date: Thu, 24 Oct 2002 15:33:45 +0200
Reply-To: perl at perl.org.il



> Hello.
> 
> Write a sub which receives some integer number 
> greater than zero (lets call the number N), and
> return a string of N characters (over [A-Za-z0-9]).
> 
> Calling the sub within the same run of the program should 
> guarantee no two strings of length N are equal (i.e. all the
> strings of same length are uniqe).
> 
> Good luck.
> 
> Let's see who writes the nicest and perhaps smartest peace of code.
> 

#=========================================================
#!perl

my @info;

my @lists=('0','A','a');

sub unique_str {
    my $len=shift;
    unless (defined $info[$len]) {
       $info[$len]=[0,$lists[0]x$len];
    }
    my $ref=\$info[$len][1];
    my $ret=$$ref;
    if (length(++$$ref)!=$len) {
       my $l=$info[$len][0]=($info[$len][0]+1) % 3;
       $$ref=$lists[$l]x$len;
    }
    return $ret;
}

my %u;

my $s;
do {
    $s=unique_str(2);
    print "$s\n";
    $u{$s}++;
} until $u{$s}>1;





--__--__--

_______________________________________________
Perl mailing list
Perl at perl.org.il
http://www.perl.org.il/cgi/listinfo/perl


End of Perl Digest




More information about the Perl mailing list