perlquestion
solocazzimiei
<p>
Hi,
is any body explain why an hash content like this:
</p>
<code>
{'ADR;HOME;ENCODING=QUOTED-PRINTABLE'}: ADR;HOME;ENCODING=QUOTED-PRINTABLE
{'N;CHARSET=UTF-8'}: N;CHARSET=UTF-8
{'TEL;ASSISTANT'}: TEL;ASSISTANT
{'FN;CHARSET=UTF-8'}: FN;CHARSET=UTF-8
{'TEL;HOME'}: TEL;HOME
{'TEL;FAX;HOME'}: TEL;FAX;HOME
{'TEL;CALLBACK'}: TEL;CALLBACK
{'VERSION'}: VERSION
{'EMAIL;WORK;PREF;ENCODING=QUOTED-PRINTABLE'}: EMAIL;WORK;PREF;ENCODING=QUOTED-PRINTABLE
{'TEL'}: TEL
{'TEL;CELL;PREF'}: TEL;CELL;PREF
{'N'}: N
{'ADR;HOME;CHARSET=UTF-8'}: ADR;HOME;CHARSET=UTF-8
{'TITLE;CHARSET=UTF-8'}: TITLE;CHARSET=UTF-8
{'NOTE;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8'}: NOTE;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8
{'TEL;PAGER'}: TEL;PAGER
{'TEL;WORK'}: TEL;WORK
{'TEL;CELL'}: TEL;CELL
{'TEL;FAX;WORK'}: TEL;FAX;WORK
{'NOTE'}: NOTE
{'X-ACCOUNT'}: X-ACCOUNT
{'TEL;MAIN'}: TEL;MAIN
{'BEGIN'}: BEGIN
{'TEL;RADIO'}: TEL;RADIO
{'EMAIL;LABEL=Pec;PREF'}: EMAIL;LABEL=Pec;PREF
{'CATEGORIES'}: CATEGORIES
{'TEL;ISDN'}: TEL;ISDN
{'BEGIN'}: BEGIN
{'ORG'}: ORG
{'ADR;WORK;CHARSET=UTF-8'}: ADR;WORK;CHARSET=UTF-8
{'EMAIL;LABEL=Casa;PREF'}: EMAIL;LABEL=Casa;PREF
{'ORG;CHARSET=UTF-8'}: ORG;CHARSET=UTF-8
{'TEL;TTY'}: TEL;TTY
{'FN'}: FN
{'EMAIL'}: EMAIL
{'EMAIL;PREF;CHARSET=UTF-8'}: EMAIL;PREF;CHARSET=UTF-8
{'EMAIL;WORK'}: EMAIL;WORK
{'TITLE'}: TITLE
{'URL'}: URL
{'EMAIL;HOME;CHARSET=UTF-8'}: EMAIL;HOME;CHARSET=UTF-8
{'EMAIL;WORK;PREF'}: EMAIL;WORK;PREF
{'TEL;LABEL=Cellulare'}: TEL;LABEL=Cellulare
{'EMAIL;PREF'}: EMAIL;PREF
{'TEL;FAX;OTHER'}: TEL;FAX;OTHER
{'TEL;COMPANY'}: TEL;COMPANY
{'X-ANNIVERSARY'}: X-ANNIVERSARY
{'ADR;WORK;ENCODING=QUOTED-PRINTABLE'}: ADR;WORK;ENCODING=QUOTED-PRINTABLE
{'ADR;HOME;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8'}: ADR;HOME;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8
{'EMAIL;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8'}: EMAIL;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8
{'ADR;WORK'}: ADR;WORK
{'NICKNAME'}: NICKNAME
{'ADR;WORK;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8'}: ADR;WORK;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8
{'TEL;LABEL=Ufficio'}: TEL;LABEL=Ufficio
{'TEL;CELL;WORK'}: TEL;CELL;WORK
{'EMAIL;HOME;PREF'}: EMAIL;HOME;PREF
{'NOTE;ENCODING=QUOTED-PRINTABLE'}: NOTE;ENCODING=QUOTED-PRINTABLE
{'ADR;HOME'}: ADR;HOME
{'BDAY'}: BDAY
{'TEL;CAR'}: TEL;CAR
{'END'}: END
</code>
<p> with </p>
<code>
%key = sort keys %key;
</code>
<p>
I'll obtain a shuffled and shorted hash :
</p>
<code>
{'FN;CHARSET=UTF-8'}: N
{'TEL;MAIN'}: TEL;PAGER
{'EMAIL;LABEL=Pec;PREF'}: EMAIL;PREF
{'CATEGORIES'}: EMAIL
{'EMAIL;CHARSET=UTF-8;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8'}: EMAIL;HOME;CHARSET=UTF-8
{'END'}: FN
{'TITLE;CHARSET=UTF-8'}: URL
{'TEL;HOME'}: TEL;ISDN
{'ADR;HOME'}: ADR;HOME;CHARSET=UTF-8
{'ADR;WORK'}: ADR;WORK;CHARSET=UTF-8
{'TEL;RADIO'}: TEL;TTY
{'BDAY'}: BEGIN
{'VERSION'}: X-ACCOUNT
{'ADR;WORK;ENCODING=QUOTED-PRINTABLE'}: ADR;WORK;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8
{'TEL;CAR'}: TEL;CELL
{'EMAIL;PREF;CHARSET=UTF-8'}: EMAIL;WORK
{'N;CHARSET=UTF-8'}: NICKNAME
{'ADR;HOME;ENCODING=QUOTED-PRINTABLE'}: ADR;HOME;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8
{'TEL;WORK'}: TITLE
{'EMAIL;WORK;PREF'}: EMAIL;WORK;PREF;ENCODING=QUOTED-PRINTABLE
{'TEL;COMPANY'}: TEL;FAX;HOME
{'ORG;CHARSET=UTF-8'}: TEL
{'EMAIL;HOME;PREF'}: EMAIL;LABEL=Casa;PREF
{'NOTE'}: NOTE;ENCODING=QUOTED-PRINTABLE
{'TEL;ASSISTANT'}: TEL;CALLBACK
{'X-ANNIVERSARY'}: BEGIN
{'TEL;LABEL=Cellulare'}: TEL;LABEL=Ufficio
{'NOTE;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8'}: ORG
{'TEL;FAX;OTHER'}: TEL;FAX;WORK
{'TEL;CELL;PREF'}: TEL;CELL;WORK
</code>
<p>
Thanks
</p>