hash problems

[Mihai Maris]

I have a problem with hash tables.
I created a hash but I can't retrieve the elements from the hash in the same order.

Ex:
%hash = ("a" => 20, "b" => 30, "c" => 40);
print key %hash; # this prints "cba" or "bac", etc.

Exists a posibility to retrieve the key in the same order like i putted in the
hash.

Thank you in advance !

[Brian McCauley]

Mihai Maris <mihai.maris@alcatel.ro> does not think that reading the
FAQ would be a valuable way to spend his time, and would much rather
get us to do it for him so writes:

> Exists a posibility to retrieve the key in the same order like i putted in the
> hash.

This is FAQ: "How can I make my hash remember the order I put elements
into it?"

> Thank you in advance !

If you are going to do anything in advance it should be to read the FAQ.

--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\

[Mihai Maris]

First of all : I'm a beginner in Perl. And I found this a shortest way to find the
answeear to my problem.
And I even didn't know about this FAQs and I also don't have so much time to
navigate throw.




Brian McCauley wrote:

> Mihai Maris <mihai.maris@alcatel.ro> does not think that reading the
> FAQ would be a valuable way to spend his time, and would much rather
> get us to do it for him so writes:
>

> > Exists a posibility to retrieve the key in the same order like i putted in the
> > hash.

>
> This is FAQ: "How can I make my hash remember the order I put elements
> into it?"
>

> > Thank you in advance !

>
> If you are going to do anything in advance it should be to read the FAQ.
>
> --
> \\ ( )
> . _\\__[oo
> .__/ \\ /\@
> . l___\\
> # ll l\\
> ###LL LL\\

[Uri Guttman]

>>>>> "MM" == Mihai Maris <mihai.maris@alcatel.ro> writes:

MM> First of all : I'm a beginner in Perl. And I found this a
MM> shortest way to find the answeear to my problem. And I even
MM> didn't know about this FAQs and I also don't have so much time to
MM> navigate throw.

and you think usenet is the fastest way to get answers? you have a major
disconnect there. usenet is usually the slowest way. and this is not a
helpdesk, but a discussion group. it is best to post code or problems
here and not simple questions.

uri

--
Uri Guttman ------ [email]uri@stemsystems.com[/email] -------- [url]http://www.stemsystems.com[/url]
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- [url]http://jobs.perl.org[/url]

[Tad McClellan]

Mihai Maris <mihai.maris@alcatel.ro> wrote:

> First of all : I'm a beginner in Perl.

Nothing wrong with that.

And an expert has just shown you how to get fast answers to
common Perl questions.

Getting fast answers to questions that are very likely to occur
to you is a great benefit.

You (could) have learned something valuable here...

> And I found this a shortest way to find the
> answeear to my problem.

Posting to Usenet is the *longest* way to find an answer. It can take
hours or days or even forever.

Finding the answer in the docs that came with the software you are
using, or in a newsgroup archive will much faster than typing up
a question and hoping that someone sometime will answer it.

> And I even didn't know about this FAQs

Then a well-socialized response would have been:

I didn't know about that, thanks.

rather than whining about it.

> and I also don't have so much time to
> navigate throw.

But we do?

Asking thousands of people to read the docs to you is inefficient
and wasteful.

You have done serious damage to your ability to get help with any
future Perl questions that you might have. So long.


*plonk*



[snip TOFU]


--
Tad McClellan SGML consulting
[email]tadmc@augustmail.com[/email] Perl programming
Fort Worth, Texas

[Mihai Maris]

I think I didn't have been well understood :

I KNOW THAT IN THIS FORUM ARE A LOT OF EXPERIENCED PROGRAMERS IN PERL.
I THOUGHT MAYBE THEY ALREADY ENCOUNTER THIS PROBLEM AND THEY JUST
CAN GIVE ME ANSWEAR.
IN THIS TIME WHEN I AM WAITING FOR THE ANSWEAR I CAN CONTINUE MY REGULAR JOB.
I WAS NOT TRYING TO SAY/MEAN FOR PEOPLE TO LOOK FOR ME IN THE FILES/FAQ/MANUALS .


SORRY FOR ANY ENCOVENIENCE.



Tad McClellan wrote:

> Mihai Maris <mihai.maris@alcatel.ro> wrote:
>

> > First of all : I'm a beginner in Perl.

>
> Nothing wrong with that.
>
> And an expert has just shown you how to get fast answers to
> common Perl questions.
>
> Getting fast answers to questions that are very likely to occur
> to you is a great benefit.
>
> You (could) have learned something valuable here...
>

> > And I found this a shortest way to find the
> > answeear to my problem.

>
> Posting to Usenet is the *longest* way to find an answer. It can take
> hours or days or even forever.
>
> Finding the answer in the docs that came with the software you are
> using, or in a newsgroup archive will much faster than typing up
> a question and hoping that someone sometime will answer it.
>

> > And I even didn't know about this FAQs

>
> Then a well-socialized response would have been:
>
> I didn't know about that, thanks.
>
> rather than whining about it.
>

> > and I also don't have so much time to
> > navigate throw.

>
> But we do?
>
> Asking thousands of people to read the docs to you is inefficient
> and wasteful.
>
> You have done serious damage to your ability to get help with any
> future Perl questions that you might have. So long.
>
> *plonk*
>
> [snip TOFU]
>
> --
> Tad McClellan SGML consulting
> [email]tadmc@augustmail.com[/email] Perl programming
> Fort Worth, Texas

[Uri Guttman]

>>>>> "MM" == Mihai Maris <mihai.maris@alcatel.ro> writes:

MM> I think I didn't have been well understood :

you were well understood.

MM> I KNOW THAT IN THIS FORUM ARE A LOT OF EXPERIENCED PROGRAMERS IN
MM> PERL. I THOUGHT MAYBE THEY ALREADY ENCOUNTER THIS PROBLEM AND
MM> THEY JUST CAN GIVE ME ANSWEAR. IN THIS TIME WHEN I AM WAITING FOR
MM> THE ANSWEAR I CAN CONTINUE MY REGULAR JOB. I WAS NOT TRYING TO
MM> SAY/MEAN FOR PEOPLE TO LOOK FOR ME IN THE FILES/FAQ/MANUALS .

yes, and we all know the answer to your question which is in the FAQ. it
is a VERY COMMON QUESTION SO IT WAS WRITTEN UP IN THE FREQUENTLY ASKED
QUESTIONS FILE WHICH YOU CAN SEARCH THROUGH TO FIND YOUR ANSWER.

MM> SORRY FOR ANY ENCOVENIENCE.

WAS IT SO HARD FOR YOU TO SEARCH THE FAQ FOR THIS? OR USE GOOGLE.COM? OR
PERLDOC.COM? WAS THAT INCONVENIENT FOR YOU? OR IS JUST YOUR BEING
INCONVENIENT TO HUNDREDS OF PEOPLE MORE IMPORTANT?

whew, all that caps is hard on my shift fingers. :)

uri

--
Uri Guttman ------ [email]uri@stemsystems.com[/email] -------- [url]http://www.stemsystems.com[/url]
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- [url]http://jobs.perl.org[/url]

[Keith Keller]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

In article <3F25F872.1C75F859@alcatel.ro>, Mihai Maris wrote:

>
> I think I didn't have been well understood :
>
> I KNOW THAT IN THIS FORUM ARE A LOT OF EXPERIENCED PROGRAMERS IN PERL.
> I THOUGHT MAYBE THEY ALREADY ENCOUNTER THIS PROBLEM AND THEY JUST
> CAN GIVE ME ANSWEAR.

They gave you the answer. Did you look for it yet?

> IN THIS TIME WHEN I AM WAITING FOR THE ANSWEAR I CAN CONTINUE MY REGULAR JOB.

The answer is in the FAQ so that people can continue their regular job rather
than spend all their time answering the same questions every hour.

> I WAS NOT TRYING TO SAY/MEAN FOR PEOPLE TO LOOK FOR ME IN THE FILES/FAQ/MANUALS .

Since the answer is in the files/faq/manuals, why would anyone *not* tell you
to look there?

> SORRY FOR ANY ENCOVENIENCE.

Thus far you seem like the person most inconvenienced by your reluctance to
read the docs.

Good luck finding your answer.

[snip TOFU, again]

- --keith

- --
[email]kkeller-mmmspam@wombat.san-francisco.ca.us[/email]
(try just my userid to email me)
alt.os.linux.slackware FAQ: [url]http://wombat.san-francisco.ca.us/cgi-bin/fom[/url]

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see [url]http://www.gnupg.org[/url]

iEYEARECAAYFAj8mACoACgkQhVcNCxZ5ID8iiwCbB4TGO+HVuB KefSJPlzLEWJ6e
/C8AoJe5IR+4VEIRKzQ/flzi9zLl80cz
=9YWD
-----END PGP SIGNATURE-----

[Jdavis]

Hello,
I have a script that gets items and corresponding price from a web
site. all goes well until i put the item and price in a hash. When i try
to print key and value from the hash it comes out all weired. Could some
one take a look and see what im doing wrong.

thanks,
--
jdavis <jd@taproot.bz>
p.s. sorry about the wrap...its my mail client :(




#! /usr/bin/perl -w

use LWP::Simple;

$item_string = '\<\!\-\- \#\#\# Display Item\'s Name and make a
hyperlink \#\#\# \-\-\>';
$price_string = 'color="red"';
$URL = 'http://shop.altenergystore.com/items.asp?Cc=SP100%2D';
$content = get($URL);

# put each line of $content into a array
@content = split(/\n/, $content);


@content_reversed = reverse @content;

while(@content_reversed){
$_ = pop(@content_reversed);
if(/$item_string/){
$the_item = pop(@content_reversed);
($trash,$clean_item) = split(/\<b\>/, $the_item);
print "ITEM = $clean_item\n";

do{
$_ = pop(@content_reversed);
}until(/$price_string/); ## this is the price line
($trash,$ruff_price) = split(/\<font color\="red"\>/,$_);
($clean_price,$trash) = split(/\<\/font\>\<\/font\>/,$ruff_price);
print "PRICE = $clean_price\n";
$price_items{$clean_item} = $clean_price;
}
}

while(($k, $v) = each %price_items){
print "K = $k";
print "V = $v\n";
}

[Wiggins D'Anconia]

jdavis wrote:

> Hello,
> I have a script that gets items and corresponding price from a web
> site. all goes well until i put the item and price in a hash. When i try
> to print key and value from the hash it comes out all weired. Could some
> one take a look and see what im doing wrong.
>
> thanks,

#! /usr/bin/perl -w

use LWP::Simple;

$item_string = '\<\!\-\- \#\#\# Display Item\'s Name and make a
hyperlink \#\#\# \-\-\>';
$price_string = 'color="red"';
$URL = 'http://shop.altenergystore.com/items.asp?Cc=SP100%2D';
$content = get($URL);

# put each line of $content into a array
@content = split(/\n/, $content);


@content_reversed = reverse @content;

while(@content_reversed){
$_ = pop(@content_reversed);
if(/$item_string/){
$the_item = pop(@content_reversed);
($trash,$clean_item) = split(/\<b\>/, $the_item);
print "ITEM = $clean_item\n";

do{
$_ = pop(@content_reversed);
}until(/$price_string/); ## this is the price line
($trash,$ruff_price) = split(/\<font color\="red"\>/,$_);
($clean_price,$trash) = split(/\<\/font\>\<\/font\>/,$ruff_price);
print "PRICE = $clean_price\n";
$price_items{$clean_item} = $clean_price;
}
}

while(($k, $v) = each %price_items){
print "K = $k";
print "V = $v\n";
}


"Comes out all weird" is a very poor bug description. I am assuming you
are running this at a terminal window?? Rather than apologizing for the
message wrapping, you should instead apologize for not using strict.
And the above code is the reason for my earlier ramblings about the $_
and why it is nice to have named variables to yell at, especially when
performing functions like pop. Now having ranted enough, let's look at
your current problem...

It appears that there is an extra control character on the end of the
'clean_item' that is screwing up the output. Initially I knew something
was up because I used Data::Dumper to check your structure which was
fine, and its' output was wacky, so I had it redirected to a text file
which opened in Vim shows that your structure is correct but also
displays the Ctrl+M character. Where he is coming from I have no idea
and honestly don't care much, but you can successfully lop him off with:

$clean_item =~ s/\015//g;

In just the right spot...

[url]http://danconia.org[/url]

p.s. I do assume you have permission to screen scrape the contents.....
This can be seen as a denial of service attack, especially with a couple
hundred beginner's all firing up lwp::simple to get the html to debug
the problem... over... and... over... and .... over...

[Charles K. Clarkson]

jdavis <jd@taproot.bz> wrote:
:
: Hello,
: I have a script that gets items and corresponding price from
: a web site. all goes well until i put the item and price in
: a hash. When i try to print key and value from the hash it
: comes out all weired. Could some one take a look and see
: what im doing wrong.

You're defining an error as "comes out all weird".
You're not using strict.
You're escaping characters unnecessarily.
You're using regexes to parse html.


: p.s. sorry about the wrap...its my mail client :(

You could change your tabs to spaces and wrap the long
lines yourself for more clarity.


As Wiggins warned, you do have permission to scrape
this page, right? I placed the page content in a file for
testing. Read the HTML::TokeParser POD for instructions
to parse a scalar.


use strict;
use warnings;
use Data::Dumper;
use HTML::TokeParser;

my $page = HTML::TokeParser->new("foo3.html") ||
die "Can't open: $!";

my %items;
while ( my $token = $page->get_token ) {

next unless
$token->[0] = 'C'
&& $token->[1] =~
/### Display Item's Name and make a hyperlink ###/;

$page->get_tag( 'b' );
my $item_name = $page->get_trimmed_text( '/b' );

$items{ $item_name } = fetch_price( $page );
}

sub fetch_price {
my $page = shift;
while ( my $token = $page->get_tag( 'font' ) ) {
return
$page->get_trimmed_text( '/font' )
if
defined $token->[1]{color}
&& $token->[1]{color} eq 'red';
}
}

print Dumper \%items;

__END__

HTH,

Charles K. Clarkson
--
Head Bottle Washer,
Clarkson Energy Homes, Inc.
Mobile Home Specialists
254 968-8328

[John W. Krahn]

Jdavis wrote:

>
> Hello,

Hello,

> I have a script that gets items and corresponding price from a web
> site. all goes well until i put the item and price in a hash. When i try
> to print key and value from the hash it comes out all weired. Could some
> one take a look and see what im doing wrong.

Certainly.

> #! /usr/bin/perl -w

use strict;

> use LWP::Simple;
>
> $item_string = '\<\!\-\- \#\#\# Display Item\'s Name and make a
> hyperlink \#\#\# \-\-\>';

You don't need to escape those characters, they are not special in
strings or regular expressions.

my $item_string = '<!-- ### Display Item\'s Name and make a hyperlink
### -->';

And since you are using this as a regular expression you can compile it
here instead of later.

my $item_string = qr/<!-- ### Display Item's Name and make a hyperlink
### -->/;

> $price_string = 'color="red"';

my $price_string = qr/color="red"/;

> $URL = 'http://shop.altenergystore.com/items.asp?Cc=SP100%2D';
> $content = get($URL);
>
> # put each line of $content into a array
> @content = split(/\n/, $content);
>
> @content_reversed = reverse @content;
>
> while(@content_reversed){
> $_ = pop(@content_reversed);
> if(/$item_string/){
> $the_item = pop(@content_reversed);
> ($trash,$clean_item) = split(/\<b\>/, $the_item);

You don't need a $trash variable, you can use undef instead or use a
list slice on the split results. You don't need to backslash '<' or
'>'.

( undef, $clean_item ) = split /<b>/, $the_item;

Or:

$clean_item = (split /<b>/, $the_item)[1];

> print "ITEM = $clean_item\n";
>
> do{
> $_ = pop(@content_reversed);
> }until(/$price_string/); ## this is the price line

You don't need the do{} block as you only have a single statement.

$_ = pop @content_reversed until /$price_string/; ## this
is the price line

> ($trash,$ruff_price) = split(/\<font color\="red"\>/,$_);
> ($clean_price,$trash) = split(/\<\/font\>\<\/font\>/,$ruff_price);

$ruff_price = (split /<font color="red">/)[1];
$clean_price = (split /<\/font><\/font>/, $ruff_price)[0];

> print "PRICE = $clean_price\n";
> $price_items{$clean_item} = $clean_price;
> }
> }
>
> while(($k, $v) = each %price_items){
> print "K = $k";
> print "V = $v\n";
> }

Your problem is that $clean_item (your hash key) has a "\015" (CR)
character at the end. When you print "K = $k" the carriage return moves
the cursor to the beginning of the line and "V = $v\n" prints over the
previous output. The HTTP standard (RFC2616) defines CR LF as the
end-of-line marker and you are only removing the LF character.

A more simplified version of your code would be:

#! /usr/bin/perl -w
use strict;

use LWP::Simple;

my $URL = 'http://shop.altenergystore.com/items.asp?Cc=SP100%2D';
my $content = get( $URL );

my %price_items = $content =~ m{
(?-x:<!-- ### Display Item's Name and make a hyperlink ### -->)
.+?
(?i:<b>)
\s* (\S.*?\S) \s* $
.+?
(?i-x:<font color="red">)
(\$\d[,.\d]+\d)
(?i:</font>)
}smxg;

while ( my ( $k, $v ) = each %price_items ) {
print "K = $k V = $v\n";
}

__END__



John
--
use Perl;
program
fulfillment

[Jdavis]

On Fri, 2003-12-12 at 23:58, John W. Krahn wrote:

> Jdavis wrote:

> >
> > Hello,

>
> Hello,
>

> > I have a script that gets items and corresponding price from a web
> > site. all goes well until i put the item and price in a hash. When i try
> > to print key and value from the hash it comes out all weired. Could some
> > one take a look and see what im doing wrong.

>
> Certainly.
>
>

> > #! /usr/bin/perl -w

>
> use strict;
>

> > use LWP::Simple;
> >
> > $item_string = '\<\!\-\- \#\#\# Display Item\'s Name and make a
> > hyperlink \#\#\# \-\-\>';

>
> You don't need to escape those characters, they are not special in
> strings or regular expressions.
>
> my $item_string = '<!-- ### Display Item\'s Name and make a hyperlink
> ### -->';
>
> And since you are using this as a regular expression you can compile it
> here instead of later.
>
> my $item_string = qr/<!-- ### Display Item's Name and make a hyperlink
> ### -->/;
>
>

> > $price_string = 'color="red"';

>
> my $price_string = qr/color="red"/;
>
>

> > $URL = 'http://shop.altenergystore.com/items.asp?Cc=SP100%2D';
> > $content = get($URL);
> >
> > # put each line of $content into a array
> > @content = split(/\n/, $content);
> >
> > @content_reversed = reverse @content;
> >
> > while(@content_reversed){
> > $_ = pop(@content_reversed);
> > if(/$item_string/){
> > $the_item = pop(@content_reversed);
> > ($trash,$clean_item) = split(/\<b\>/, $the_item);

>
> You don't need a $trash variable, you can use undef instead or use a
> list slice on the split results. You don't need to backslash '<' or
> '>'.
>
> ( undef, $clean_item ) = split /<b>/, $the_item;
>
> Or:
>
> $clean_item = (split /<b>/, $the_item)[1];
>
>

> > print "ITEM = $clean_item\n";
> >
> > do{
> > $_ = pop(@content_reversed);
> > }until(/$price_string/); ## this is the price line

>
> You don't need the do{} block as you only have a single statement.
>
> $_ = pop @content_reversed until /$price_string/; ## this
> is the price line
>
>

> > ($trash,$ruff_price) = split(/\<font color\="red"\>/,$_);
> > ($clean_price,$trash) = split(/\<\/font\>\<\/font\>/,$ruff_price);

>
> $ruff_price = (split /<font color="red">/)[1];
> $clean_price = (split /<\/font><\/font>/, $ruff_price)[0];
>
>

> > print "PRICE = $clean_price\n";
> > $price_items{$clean_item} = $clean_price;
> > }
> > }
> >
> > while(($k, $v) = each %price_items){
> > print "K = $k";
> > print "V = $v\n";
> > }

>
> Your problem is that $clean_item (your hash key) has a "\015" (CR)
> character at the end. When you print "K = $k" the carriage return moves
> the cursor to the beginning of the line and "V = $v\n" prints over the
> previous output. The HTTP standard (RFC2616) defines CR LF as the
> end-of-line marker and you are only removing the LF character.
>
> A more simplified version of your code would be:
>
> #! /usr/bin/perl -w
> use strict;
>
> use LWP::Simple;
>
> my $URL = 'http://shop.altenergystore.com/items.asp?Cc=SP100%2D';
> my $content = get( $URL );
>
> my %price_items = $content =~ m{
> (?-x:<!-- ### Display Item's Name and make a hyperlink ### -->)
> .+?
> (?i:<b>)
> \s* (\S.*?\S) \s* $
> .+?
> (?i-x:<font color="red">)
> (\$\d[,.\d]+\d)
> (?i:</font>)
> }smxg;
>
> while ( my ( $k, $v ) = each %price_items ) {
> print "K = $k V = $v\n";
> }
>
> __END__
>
>
>
> John
> --
> use Perl;
> program
> fulfillment

thanks all those who replied. I appreciate the help :)
I will look into use Strict.

thanks again,
--
jdavis <jd@taproot.bz>