fork download
  1. #!/usr/bin/perl
  2.  
  3. # Dichiarazione dell'array.
  4. %deposito = (
  5. "primo", "alfa",
  6. "secondo", "bravo",
  7. "terzo", 3,
  8. );
  9.  
  10. # Emette il contenuto dei vari elementi.
  11. print "$deposito{primo}\n";
  12. print "$deposito{secondo}\n";
  13. print "$deposito{terzo}\n";
Success #stdin #stdout 0s 4596KB
stdin
Standard input is empty
stdout
alfa
bravo
3