Advertisement
luisg_muniz

string functions

Apr 21st, 2015
276
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.35 KB | None | 0 0
  1. #!/usr/bin/env perl
  2. use strict;
  3. use warnings;
  4.  
  5. my @equipos = qw[ real atletico getafe rayo leganes alcorcon ];
  6.  
  7. my @segunda = splice @equipos, -2;
  8.  
  9. print "Primera: @equipos\n";
  10. print "Segunda: @segunda\n";
  11.  
  12. splice @equipos, 2, @equipos, qw[sevilla valencia farsa bilbado];
  13.  
  14. my @r = reverse @equipos;
  15.  
  16. $"="::"; print "Tabla: @r\n";
  17. # uc!!!
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement