{"id":9,"date":"2008-09-24T17:04:00","date_gmt":"2008-09-24T17:04:00","guid":{"rendered":"http:\/\/www.vcrini.com\/impressioni\/?p=9"},"modified":"2008-09-24T17:04:00","modified_gmt":"2008-09-24T17:04:00","slug":"perl-e-lo-zen","status":"publish","type":"post","link":"https:\/\/www.vcrini.com\/impressioni\/?p=9","title":{"rendered":"Perl e lo zen"},"content":{"rendered":"

Di lavoro faccio il programmatore e ogni tanto mi balocco, nel tempo libero, con il mio coltellino svizzero: perl<\/span>.<\/p>\n

Oggi voglio mostrare come sia possibile con un istruzione piuttosto semplice fare una cosa che nei linguaggi tipo Java o C\/C++ \u00e8 molto tediosa.<\/p>\n

Supponiamo di dover generare una sequenza di numeri del tipo<\/p>\n

1 0
2 1500
3 3000
4 6000
5 15000
6 30000
7 50000
8 100000
9 200000
10 300000
11 400000
12 500000
13 600000
14 700000
15 800000
16 900000
17 1000000
18 1100000
19 1200000
20 1300000
21 1400000
22 1500000
23 1600000
24 1700000
25 1800000
26 1900000
27 2000000
28 2100000
29 2200000
30 2300000
31 2400000
32 2500000
33 2600000
34 2700000
35 2800000
36 2900000<\/p>\n

(chi indovina cosa potrebbero rappresentare? )<\/p>\n

cerchiamo di capire come potrebbe essere risolto. Innanzi tutto la struttura pi\u00f9 adatta che viene in mente \u00e8 quella di un array in cui in ogni posizione \u00e8 occupata dal valore sulla seconda colonna.<\/p>\n

Una soluzione banale \u00e8 dichiarare un array che contenga tutti i valori.<\/p>\n

@array=(0, 1500, 3000, 6000, 15000, 30000, 50000, 100000, 200000, 300000, 400000, 500000, 600000, 700000, 800000, 900000, 1000000, 1100000, 1200000, 1300000, 1400000, 1500000, 1600000, 1700000, 1800000, 1900000, 2000000, 2100000, 2200000, 2300000, 2400000, 2500000, 2600000, 2700000, 2800000, 2900000)<\/p>\n

ma la cosa oltre che essere lunghina \u00e8 poco perlosa<\/span>.<\/p>\n

Ecco come potremmo procedere dopo aver fatto la seguente osservazione: la sequenza che va da 0 fino al valore 100000 \u00e8 irregolare mentre successivamente raddoppia sempre.<\/p>\n

Dividiamo quindi il problema in 2 sotto problemi la prima e la seconda parte della stringa<\/p>\n

@prima=(0, 1500, 3000, 6000, 15000, 30000, 50000)<\/p>\n

e<\/p>\n

@seconda=(100000, 200000, 300000, 400000, 500000, 600000, 700000, 800000, 900000, 1000000, 1100000, 1200000, 1300000, 1400000, 1500000, 1600000, 1700000, 1800000, 1900000, 2000000, 2100000, 2200000, 2300000, 2400000, 2500000, 2600000, 2700000, 2800000, 2900000)<\/p>\n

per la prima parte c’\u00e8 poco da fare per\u00f2 pu\u00f2 essere scritta nella forma<\/p>\n

@prima=qw(0 1500 3000 6000 15000 30000 50000)<\/p>\n

per risparmiare leggermente qualche digitazione (e per scriverla anche in modo un po pi\u00f9 leggibile) altrimenti addirittura<\/p>\n

@prima=map{$_*100} qw(0 15 30 60 150 300 500)<\/p>\n

in cui si scrivono ancora meno caratteri grazie alla funzione map<\/span> che consente di eseguire un’operazione su ogni elemento di una stringa e in questo caso moltiplica ogni elemento generato da qw(0 15 30 60 150 300 500) per 100.<\/p>\n

Sfruttando quest’ultima peculiarit\u00e0 basta osservare che l’array @seconda non \u00e8 altro che una successione di valori da 1 a 29 moltiplicati per 100000.
quindi posso scrivere<\/p>\n

@secondo=map{$_*100_000} (1..29)<\/p>\n

ed anche il secondo elemento \u00e8 generato.<\/p>\n

Quindi per concludere la lista dei valori viene generata da questa unica istruzione:<\/p>\n

@array=(map{$_*100} qw(0 15 30 60 150 300 500),map{$_*100_000} (1..29))<\/p>\n

un bel risparmio …<\/p>\n","protected":false},"excerpt":{"rendered":"

Di lavoro faccio il programmatore e ogni tanto mi balocco, nel tempo libero, con il mio coltellino svizzero: perl. Oggi voglio mostrare come sia possibile con un istruzione piuttosto semplice fare una cosa che nei linguaggi tipo Java o C\/C++ … Continua a leggere→<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_mi_skip_tracking":false},"categories":[11,10],"tags":[],"_links":{"self":[{"href":"https:\/\/www.vcrini.com\/impressioni\/index.php?rest_route=\/wp\/v2\/posts\/9"}],"collection":[{"href":"https:\/\/www.vcrini.com\/impressioni\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.vcrini.com\/impressioni\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.vcrini.com\/impressioni\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.vcrini.com\/impressioni\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=9"}],"version-history":[{"count":0,"href":"https:\/\/www.vcrini.com\/impressioni\/index.php?rest_route=\/wp\/v2\/posts\/9\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.vcrini.com\/impressioni\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=9"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.vcrini.com\/impressioni\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=9"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.vcrini.com\/impressioni\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=9"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}