document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. #!/usr/bin/env perl
  2.  
  3. use strict;
  4. my @array;
  5.  
  6. ## Añadimos valores a nuestro array
  7.  
  8. push(@array,"http://");
  9. push(@array,"itimetux");
  10. push(@array,".com");
  11.  
  12. ## Los imprimimos
  13.  
  14. print "@array\\n";
  15.  
  16. ## Vemos la longitud
  17.  
  18. print "Mi array: " . @array . "\\n";
  19.  
  20. my $nombre = shift(@array);
  21. my $domain = shift(@array);
  22.  
  23. ## Con esta sintasix vemos la nueva longitud
  24.  
  25. print "Despues de shift: " . @array . "\\n";
  26.  
  27. ## Imprimimos
  28.  
  29. print "$nombre"."$domain"."\\n";
');