[28216] in Perl-Users-Digest
Perl-Users Digest, Issue: 9580 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 9 06:05:50 2006
Date: Wed, 9 Aug 2006 03:05:06 -0700 (PDT)
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, 9 Aug 2006 Volume: 10 Number: 9580
Today's topics:
Re: Cannot authenticate to NNTP server with Net::NNTP a usenet@DavidFilmer.com
Re: convert structured strings to possibly deep hash of anno4000@radom.zrz.tu-berlin.de
Encrypt Windows Password <Peter.Kramer@gmx.de>
Re: How to "convert" a string into a variable name? anno4000@radom.zrz.tu-berlin.de
Re: mailto tag in html generated with perl <tintin@invalid.invalid>
Per/Tk - text widget does not get updated <lev.weissman@creo.com>
Re: perl editor <ro.naldfi.scher@gmail.com>
Re: Question about Arrays <josef.moellers@fujitsu-siemens.com>
Re: Question about Arrays <betterdie@gmail.com>
Re: Question about Arrays <guenther.sohler@wipro.com>
Re: Question about Arrays <josef.moellers@fujitsu-siemens.com>
Re: Question about Arrays <issakov@t-online.de>
Re: Question about Arrays <zen13097@zen.co.uk>
Re: Simple file list in directory to array <nospam@nospam.net>
Re: Taking snapshot of a webpage <nospam@nospam.net>
Re: Taking snapshot of a webpage <sujay.tukai@gmail.com>
Re: Taking snapshot of a webpage <sujay.tukai@gmail.com>
Re: Taking snapshot of a webpage <bart@nijlen.com>
Re: Taking snapshot of a webpage <bart@nijlen.com>
Re: Taking snapshot of a webpage <sujay.tukai@gmail.com>
Re: Taking snapshot of a webpage anno4000@radom.zrz.tu-berlin.de
Re: which file, regestry, environment variables do perl <yan.vulich@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 9 Aug 2006 00:05:41 -0700
From: usenet@DavidFilmer.com
Subject: Re: Cannot authenticate to NNTP server with Net::NNTP authinfo()
Message-Id: <1155107141.282742.117350@h48g2000cwc.googlegroups.com>
Dr.Ruud wrote:
> <SNIP a fixed version of my program>
Ah, I see. I had not noticed the DEBUG constructor option - that would
have made life much easier. I kept relying on $!, which I don't think
the module ever sets (it is always empty, even when I force errors to
occur).
For the benefit of interested lurkers who may not care to run the
code...
Dr.Ruud's response code shows that I wasn't having a problem with the
authinfo method (which is what I suspected), but rather with the
newnews method, which isn't allowed by either authenticating server (my
regular server or the free server) but that method IS allowed by the
free non-authenticating server. Go figure - Murphy's Law meets Perl
program test cases (again). The xover query method works either way,
though.
Thanks, Doc! (that's about the millionth time you've helped me out...).
FWIW, I will close that temporary account now on the free server.
--
http://DavidFilmer.com
------------------------------
Date: 9 Aug 2006 08:50:12 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: convert structured strings to possibly deep hash of hashes
Message-Id: <4jtlu4F9ncvnU1@news.dfncis.de>
seven.reeds <seven.reeds@gmail.com> wrote in comp.lang.perl.misc:
> Hi,
>
> I have a list of well structured strings, actually they are file paths.
> This just measn there are strings of '/' seperated sub-strings. I can
> easily split these into an array. My question is really one of
> building a HoH based on all of the string records. My goal is to take
> strings like:
>
> /file.txt
> /a/file.txt
> /a/b/c
> /a/b/c/file.txt
> /z/m/w/file.txt
>
> and produce something like:
>
> %dir_hash(
> 'file.txt' => '',
> 'a' => {
> 'file.txt' => '',
> 'b' => {
> 'c' => {
> 'file.txt'
> }
> }
> },
> 'z' => {
> 'm' => {
> 'w' => {
> 'file.txt' => ''
> }
> }
> }
> )
Here is a recursive method:
my @files = qw(
/file.txt
/a/file.txt
/a/b/c
/a/b/c/file.txt
/z/m/w/file.txt
);
my %dir_hash;
for ( @files ) {
my ( @parts) = split m{/};
add_parts( \ %dir_hash, @parts);
}
print Dumper \ %dir_hash;
exit;
sub add_parts {
my ( $hash, $first, @parts) = @_;
$hash->{ $first} ||= {};
if ( @parts ) {
add_parts( $hash->{ $first}, @parts);
} else {
$hash->{ $first} = '';
}
}
It doesn't reproduce your structure exactly because all files are
given absolute path names. Therefore the root of the file system
is represented in the hash as a top node (which is an empty string).
Specify the files with relative path names (remove the leading "/"s)
to avoid that.
Anno
------------------------------
Date: Wed, 9 Aug 2006 11:20:08 +0200
From: "Peter.Kramer" <Peter.Kramer@gmx.de>
Subject: Encrypt Windows Password
Message-Id: <44d9a8c8$0$20043$9b4e6d93@newsspool4.arcor-online.net>
Hello,
I want to write a perl module that encrypts a clear password to a windows
hash.
I didnt find any algorithm that builds the hash expect copypwd.exe which
works, but is an external program that does not run as scheduled task.
"cleartextpassword " ->
"52616e646f6d4956dc110786f80987daa99d164016ba7d72b24eb2a2931e0ff7"
Thanks
------------------------------
Date: 9 Aug 2006 09:24:53 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: How to "convert" a string into a variable name?
Message-Id: <4jtnv5F9la4kU2@news.dfncis.de>
Anonymous <nospam@somewhere.com> wrote in comp.lang.perl.misc:
> Yes, I have read the posting guidelines and I'm top posting anyway, so
> there!
So long then
Anno
------------------------------
Date: Wed, 9 Aug 2006 20:56:53 +1200
From: "Tintin" <tintin@invalid.invalid>
Subject: Re: mailto tag in html generated with perl
Message-Id: <44d99622$0$13479$88260bb3@free.teranews.com>
<kevin12345@cableone.net> wrote in message
news:1155076628.333785.62810@i42g2000cwa.googlegroups.com...
> Hi,
> I have a few perl scripts that are generating html files. At the bottom
> of the page I have links to contact the webmaster, however, when the
> links are generated, they do not show the entire link.
>
> Here is an example:
>
> <a href="mailto:person@place.time.com">Contact Webmaster</a>
>
> When I open the html file, the link only wants to go to
> "mailto:person.time.com" with no "@place"
>
> Can anybody help?
You have an error on line 42 of your code.
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: 9 Aug 2006 02:31:55 -0700
From: "MoshiachNow" <lev.weissman@creo.com>
Subject: Per/Tk - text widget does not get updated
Message-Id: <1155115915.665130.245760@n13g2000cwa.googlegroups.com>
HI,
I define the window :
my $mw = new MainWindow; # Main Window
my $frm_name = $mw -> Frame() -> pack();
my $lab1 = $frm_name -> Label(-text=>"Enter the remote hostname or
IP:") -> pack();
my $ent1 = $frm_name -> Entry() -> pack();
my $lab2 = $frm_name -> Label(-text=>"Enter the number of iterations to
run [5]:") -> pack();
my $ent2 = $frm_name -> Entry() -> pack();
my $but = $mw -> Button(-text=>"Start nettest", -command =>\&start) ->
pack(); #Text Area
$txt = $mw -> Text(-width=>70, -height=>20) -> pack();
MainLoop;
###################################
Then in subroutine "start" I write tesxt:
$txt -> delete("1.0",'end');
$txt -> insert('end',"Remote Hostname:\t$REMOTE_HOST\n");
$txt -> insert('end',"Remote IP address:\t$REMADDR\n");
$txt -> insert('end',"My IP address:\t\t$MYADDRESS\n\n");
###################################
Then later in the same sub I create a file :
open(FILE,">$FILE1");
print FILE ' ' x (100 * (1024 * 1024));
close FILE;
chmod 0777 => $FILE1;
The problem is that the text widget is not updated till the file
creation is over (couple of minutes).Printing to STDOUT at the same
time completes immediately.
Setting "$|" to "1" did not change much,as I expected to ...
Appreciate any input.
Thanks
------------------------------
Date: 9 Aug 2006 01:52:23 -0700
From: "Ronny" <ro.naldfi.scher@gmail.com>
Subject: Re: perl editor
Message-Id: <1155113543.024609.83370@75g2000cwc.googlegroups.com>
> Look at this: http://www.scintilla.org/SciTE.html
What I don't like with Scite (but I'm using still version 1.58, so
correct me if this is wrong with a newer version), is that you
can't mark a region and shift the whole region to the right or
left (something which I often do with program code, when the
block structure changes).
(x)emacs and the *vi* family of editors are for sure powerful,
but over the time I found their user interface a bit annoying
(though I still have an inclination to use emacs from time to
time). A simple, portable and extendable editor which I use
right now for editing Perl files often, is jext (http://www.jext.org).
What I like is its ability to restore the last session automatically
(this is, however, also possible with emacs) and that the
user interface is very intuitive.
However, Jext recognizes Perl programs only by their
extension, not due to the #! line, which I consider its
biggest weakness.
Ronald
------------------------------
Date: Wed, 09 Aug 2006 09:40:05 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Question about Arrays
Message-Id: <ebc3kd$q7g$2@nntp.fujitsu-siemens.com>
Guenther Sohler wrote:
> I'd like to code a little bit more complicated construct, but I dont ge=
t
> it done
Hm, how much "complicated" do you want your code to be.
I prefer simple code ;-)
> Suppose i have following
>=20
> my %database;
>=20
> $database{"fruits"}=3D("Apple","Pear");
>=20
> add_fruits(\$database);
>=20
> sub add_fruits(my $databaseptr)
> {
> push databaseptr .. fruits "Banana";
> }
>=20
> I dont get the proper characters. Perl always complains.
> Can anybody point me out ?
Use proper Perl!
The above is not Perl as I know it.
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: 9 Aug 2006 00:42:26 -0700
From: "perlistpaul" <betterdie@gmail.com>
Subject: Re: Question about Arrays
Message-Id: <1155109346.608114.51220@p79g2000cwp.googlegroups.com>
Sorry I don't get a clear picture of your explanation
But I think you may want to push Apple, Pear to one array
Guenther Sohler wrote:
> I'd like to code a little bit more complicated construct, but I dont get
> it done
>
>
> Suppose i have following
>
> my %database;
>
> $database{"fruits"}=("Apple","Pear");
>
> add_fruits(\$database);
>
> sub add_fruits(my $databaseptr)
> {
> push databaseptr .. fruits "Banana";
> }
>
> I dont get the proper characters. Perl always complains.
> Can anybody point me out ?
> rds
------------------------------
Date: Wed, 09 Aug 2006 09:58:36 +0200
From: Guenther Sohler <guenther.sohler@wipro.com>
Subject: Re: Question about Arrays
Message-Id: <pan.2006.08.09.07.58.36.357653@wipro.com>
Sorry, I was mistaken:
my %database;
$database{"fruits"}=("Apple","Pear");
add_fruits(\$database);
sub add_fruits
{
my $databaseptr=shift;
push ... databaseptr .. fruits , "Banana";
# C Code would by: database-> fruits += "Banana";
}
... shall re replaced by the correct characters eg, @, $, %
Sorry, I dont get it by myself
------------------------------
Date: Wed, 09 Aug 2006 10:16:22 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Question about Arrays
Message-Id: <ebc5op$2te$1@nntp.fujitsu-siemens.com>
Guenther Sohler wrote:
> Sorry, I was mistaken:
>=20
>=20
> my %database;
> $database{"fruits"}=3D("Apple","Pear");
>=20
> add_fruits(\$database);
>=20
> sub add_fruits
> {
> my $databaseptr=3Dshift;
> push ... databaseptr .. fruits , "Banana";
> # C Code would by: database-> fruits +=3D "Banana";
> }
>=20
>=20
> ... shall re replaced by the correct characters eg, @, $, %
>=20
> Sorry, I dont get it by myself
It's still not valid Perl, but I think I get the picture:
#! /usr/bin/perl
use warnings;
use strict;
my %database;
$database{"fruits"}=3D["Apple","Pear"];
# Note the angle brackets making this an anonymous array rather than a
# list
add_fruits(\%database);
# Note the % sign rather than the $ sign, you want the reference of a
# hash
sub add_fruits
{
my $databaseptr=3Dshift;
push @{$databaseptr->{"fruits"}}, "Banana";
}
print join(",", @{$database{"fruits"}}), "\n";
HTH,
Josef
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: Wed, 09 Aug 2006 10:24:41 +0200
From: Mihail <issakov@t-online.de>
Subject: Re: Question about Arrays
Message-Id: <ebc64a$jp3$03$1@news.t-online.com>
Guenther Sohler wrote:
> Sorry, I was mistaken:
>
>
> my %database;
> $database{"fruits"}=("Apple","Pear");
>
> add_fruits(\$database);
>
> sub add_fruits
> {
> my $databaseptr=shift;
> push ... databaseptr .. fruits , "Banana";
> # C Code would by: database-> fruits += "Banana";
> }
>
>
> ... shall re replaced by the correct characters eg, @, $, %
>
> Sorry, I dont get it by myself
>
Learn Perl.
#!/usr/bin/perl
use strict;
use warnings;
my %database;
my @fruits_array = qw(Apple Pear);
$database{'fruits'} = \@fruits_array;
add_fruits(\%database);
foreach (@{ $database{'fruits'} })
{
print $_ . "\n";
}
sub add_fruits
{
my %hash = %{ $_[0] };
push @{ $hash{'fruits'} }, 'Banana';
}
------------------------------
Date: 09 Aug 2006 09:26:32 GMT
From: Dave Weaver <zen13097@zen.co.uk>
Subject: Re: Question about Arrays
Message-Id: <44d9aa48$0$26590$da0feed9@news.zen.co.uk>
Guenther Sohler <guenther.sohler@wipro.com> wrote:
>
> I'd like to code a little bit more complicated construct, but I dont get
> it done
>
> Suppose i have following
>
> my %database;
>
> $database{"fruits"}=("Apple","Pear");
That doesn't do what you think it's doing - a scalar variable
($database{fruits}) cannot hold an array, but it can hold a
reference to an array:
$database{fruits] = [ 'Apple', 'Pear' ];
In your version of the code $database{fruits} ends up with the single
value "Pear".
>
> add_fruits(\$database);
You have no variable called $database - you have %database.
add_fruits(\%database);
If you had used the warnings and strict pragmas, perl would have told
you this.
>
> sub add_fruits(my $databaseptr)
This is not how you pass parameters to Perl subroutines. Why did you
think it was?
sub add_fruits {
my ($databaseptr) = @_;
> {
> push databaseptr .. fruits "Banana";
That isn't even vaguely Perl - I don't know why you thought that line
might work.
> }
>
> I dont get the proper characters. Perl always complains.
When perl "complains", did you not think the content of the complaint
would provide us with useful information?
String found where operator expected at /tmp/y line 8, near "fruits
"Banana""
(Do you need to predeclare fruits?)
syntax error at /tmp/y line 8, near "fruits "Banana""
Execution of /tmp/y aborted due to compilation errors.
And that is beacuse line 8, as I said above, isn't even vaguely Perl.
> Can anybody point me out ?
You never stated what it is you are trying to achieve, but I'm
guessing you want to do something like this:
#!/usr/bin/perl
use strict;
use warnings;
my %database;
$database{fruits} = [ 'Apple', 'Pear' ];
add_fruits(\%database);
use Data::Dumper;
print Dumper \%database;
sub add_fruits {
my ($db_ref) = @_;
push @{ $db_ref->{fruits} }, 'Banana';
}
------------------------------
Date: Wed, 09 Aug 2006 17:31:41 +1000
From: darkmoo <nospam@nospam.net>
Subject: Re: Simple file list in directory to array
Message-Id: <pan.2006.08.09.07.31.40.562000@nospam.net>
I would like to thank every1 in the group that helped me out.
You ppl rock (:
------------------------------
Date: Wed, 09 Aug 2006 17:04:31 +1000
From: darkmoo <nospam@nospam.net>
Subject: Re: Taking snapshot of a webpage
Message-Id: <pan.2006.08.09.07.04.31.31000@nospam.net>
On Tue, 08 Aug 2006 22:23:57 -0700, sujay.tukai wrote:
> Can anyone help me how to take a snapshot of a webpage
Use wget & grab the input from that.
But even more easier just lookup on cpan.org for a module that will do it
for you. HTTP::Lite seems good
http://search.cpan.org/~rhooper/HTTP-Lite-2.1.6/Lite.pm
------------------------------
Date: 9 Aug 2006 00:21:02 -0700
From: "sujay.tukai@gmail.com" <sujay.tukai@gmail.com>
Subject: Re: Taking snapshot of a webpage
Message-Id: <1155108062.366405.195770@n13g2000cwa.googlegroups.com>
darkmoo wrote:
> On Tue, 08 Aug 2006 22:23:57 -0700, sujay.tukai wrote:
>
> > Can anyone help me how to take a snapshot of a webpage
>
> Use wget & grab the input from that.
>
> But even more easier just lookup on cpan.org for a module that will do it
> for you. HTTP::Lite seems good
>
> http://search.cpan.org/~rhooper/HTTP-Lite-2.1.6/Lite.pm
I got it but my mai motive is to get the snapshot of the webpage by
using different proxies. So that i can detect the how the page is
viewed in different regions
------------------------------
Date: 9 Aug 2006 00:22:21 -0700
From: "sujay.tukai@gmail.com" <sujay.tukai@gmail.com>
Subject: Re: Taking snapshot of a webpage
Message-Id: <1155108141.204998.199590@h48g2000cwc.googlegroups.com>
darkmoo wrote:
> On Tue, 08 Aug 2006 22:23:57 -0700, sujay.tukai wrote:
>
> > Can anyone help me how to take a snapshot of a webpage
>
> Use wget & grab the input from that.
>
> But even more easier just lookup on cpan.org for a module that will do it
> for you. HTTP::Lite seems good
>
> http://search.cpan.org/~rhooper/HTTP-Lite-2.1.6/Lite.pm
I got it. But my main motive is to get the snapshot of the webpage
using different proxies, using which i can detect how the page is
viewed in different regions
------------------------------
Date: 9 Aug 2006 00:24:48 -0700
From: "Bart Van der Donck" <bart@nijlen.com>
Subject: Re: Taking snapshot of a webpage
Message-Id: <1155108288.332815.260530@75g2000cwc.googlegroups.com>
sujay.tukai@gmail.com wrote:
> Can anyone help me how to take a snapshot of a webpage
#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
my $webpage = 'http://www.google.com';
my $ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);
my $req = new HTTP::Request GET => $webpage;
$req->content_type('text/html');
my $res = $ua->request($req);
unless ($res->is_success) {
die "Error: couldn't get $webpage: $!\n";
}
my $snapshot = $res->content; # $snapshot holds the html of $webpage
Hope this helps,
--
Bart
------------------------------
Date: 9 Aug 2006 00:30:42 -0700
From: "Bart Van der Donck" <bart@nijlen.com>
Subject: Re: Taking snapshot of a webpage
Message-Id: <1155108642.526216.296470@75g2000cwc.googlegroups.com>
sujay.tukai@gmail.com wrote:
> [...]
> I got it but my mai motive is to get the snapshot of the webpage by
> using different proxies. So that i can detect the how the page is
> viewed in different regions
In my other article, just add
$ua->proxy(['http', 'ftp'], 'http://my.proxy.com:8001/');
or
$ua->proxy('https', 'http://an.other.proxy.com:8002/');
just after
my $ua = new LWP::UserAgent;
More info:
http://search.cpan.org/~gaas/libwww-perl-5.803/lib/LWP/UserAgent.pm#Proxy_attributes
--
Bart
------------------------------
Date: 9 Aug 2006 00:49:23 -0700
From: "sujay.tukai@gmail.com" <sujay.tukai@gmail.com>
Subject: Re: Taking snapshot of a webpage
Message-Id: <1155109763.095345.82900@m79g2000cwm.googlegroups.com>
I have already tried the LWP method but the webpage, whose snapshot i
want to get contains lots of images, this takes a lot of toll on the
program which does the download. For eg., the webpage takes nearly a
minute to come..
Can u give me some other ideas by which i can convert the webpage to a
image and then use all the proxy and lwp thing to get it...
------------------------------
Date: 9 Aug 2006 09:20:43 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Taking snapshot of a webpage
Message-Id: <4jtnnbF9la4kU1@news.dfncis.de>
sujay.tukai@gmail.com <sujay.tukai@gmail.com> wrote in comp.lang.perl.misc:
> I have already tried the LWP method but the webpage, whose snapshot i
> want to get contains lots of images, this takes a lot of toll on the
> program which does the download. For eg., the webpage takes nearly a
> minute to come..
>
> Can u give me some other ideas by which i can convert the webpage to a
> image and then use all the proxy and lwp thing to get it...
Please don't use baby talk. Type "you", not "u". Saving two letters
may have been a good idea when connections ran at 300 Baud. Today
it's a childish affectation.
In another post you said:
> I got it but my mai motive is to get the snapshot of the webpage by
> using different proxies. So that i can detect the how the page is
> viewed in different regions
If that is your motive you *must* download every bit of the page.
A consolidated image like you propose would have to be generated
on the server. It would only convey the server's idea of how the
page should look like. It would look the same everywhere.
If those are your web pages, take a hint and simplify them. If they
aren't, you'll have to download them.
Anno
------------------------------
Date: 9 Aug 2006 01:06:18 -0700
From: "yav" <yan.vulich@gmail.com>
Subject: Re: which file, regestry, environment variables do perl install
Message-Id: <1155110778.198876.134560@i3g2000cwc.googlegroups.com>
Thanks.
We have(buy) the permission to include perl. Regarding the zip
installation I will try it.
Thank you very, very much.
You help me big time :)
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 9580
***************************************
