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