Re: begin with perl

Bonjour et bienvenue dans notre Monastère!

These are my comments on your little script.

I gather you run this on some Windows version, so the first two lines are not really necessary. Windows applies another mechanism to link your script to the Perl interpreter. It is far better to replace these by the following:

use strict;
use warnings;
[download]

or, if you use a recent version of Perl:

use Modern::Perl;
[download]

It has the same effect, but also activates some "modern" functions and commands, such as say.

Please note that once you have activated the strict mode, you have to use lexical "my" variables throughout your script or you have to fully qualify your global variables.

Next, the separator between the key and the value of your hash elements is not "=", but either a simple comma "," or the "fat comma" "=>". The fat comma automatically quotes your key value (provided it is only one word long).

To get the values of your hash, you use the values keyword, to get the keys of the hash, you use the keys keyword.

Applying the above, we get:

use Modern::Perl;
say 'listes associatives';
my %url = (
    fd => "www.forumdz.com",
    ok => "www.ouedkniss.com",
    se => "www.sec4ever.com"
);

#-----------------------------
say 'liste des URL';
foreach my $val (values %url) {
    print "$val\t";
}
[download]

If you wish to extract both keys AND values in one operation, you use the each keyword in a while-loop.

say 'liste des abbreviations et URL';
while (my ($key, $ val) = each  %url) {
    print "$key: $val\t";
}
[download]

CountZero

A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James

Comment on Re: begin with perl Select or Download Code

Replies are listed 'Best First'.
Re^2: begin with perl by sad723 (Novice) on Oct 30, 2011 at 12:45 UTC
when i test your code `use Modern::Perl; say 'listes associatives'; my %url = ( fd => "www.forumdz.com", ok => "www.ouedkniss.com", se => "www.sec4ever.com" );` [download] i get this error with cygwin : `sad723@sad723-PC ~/perl $ ./hash.pl ./hash.pl: ./hash.pl: cannot execute binary file` [download] and this error when i use cmd; `C:\Perl\bin>hash.pl Unrecognized character \xE3 at C:\Perl\bin\hash.pl line 2.` [download]	[reply] [d/l] [select]
Re^3: begin with perl by Not_a_Number (Prior) on Oct 30, 2011 at 13:27 UTC
Unicode character \xE3 is 'Latin small letter a with tilde'. When I run your posted code, I don't get any error message. Are you sure there's no tilde on the 'a' in 'listes associatives' in your original?	[reply]
Re^4: begin with perl by Anonymous Monk on Oct 30, 2011 at 14:02 UTC
normally i'm sur no tild can't understand !!!!!!??,	[reply]
Re^5: begin with perl by Not_a_Number (Prior) on Oct 30, 2011 at 14:31 UTC
Re^3: begin with perl by CountZero (Bishop) on Oct 31, 2011 at 07:04 UTC
What Perl are you using? I have tried it on Strawberry Perl 5, version 12, subversion 1 (v5.12.1) and I have saved my script as ASCII, UTF-8, UTF-16 (both Big-endian and Little-endian), with and without a BOM (Byte Order Mark) and it all works without error. Perhaps there is something wrong with your set-up. CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James	[reply]
Re^4: begin with perl by sad723 (Novice) on Nov 01, 2011 at 09:48 UTC
i use ActivePerl 5.8.3.809 in cygwin i don't know the version ; i have three exemple of script perl; the two first scrip work good but the third on no confused !!!!!!!!!!!!!	[reply]
Re^5: begin with perl by sad723 (Novice) on Nov 01, 2011 at 10:50 UTC


good chemistry is complicated, and a little bit messy -LW
	PerlMonks