home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 mARCH / PCWK3A99.iso / Linux / DDD331 / DDD-3_1_.000 / DDD-3_1_ / ddd-3.1.1 / ddd / perltest.pl < prev    next >
Perl Script  |  1998-10-27  |  2KB  |  88 lines
  1. #!/usr/local/bin/perl
  2. # $Id: perltest.pl,v 1.6 1998/10/27 09:14:44 zeller Exp $
  3. # Perl test
  4.  
  5. # Copyright (C) 1998 Technische Universitaet Braunschweig, Germany.
  6. # Written by Andreas Zeller <zeller@ips.cs.tu-bs.de>.
  7. # 
  8. # This file is part of DDD.
  9. # 
  10. # DDD is free software; you can redistribute it and/or
  11. # modify it under the terms of the GNU General Public
  12. # License as published by the Free Software Foundation; either
  13. # version 2 of the License, or (at your option) any later version.
  14. # 
  15. # DDD is distributed in the hope that it will be useful,
  16. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  18. # See the GNU General Public License for more details.
  19. # 
  20. # You should have received a copy of the GNU General Public
  21. # License along with DDD -- see the file COPYING.
  22. # If not, write to the Free Software Foundation, Inc.,
  23. # 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  24. # 
  25. # DDD is the data display debugger.
  26. # For details, see the DDD World-Wide-Web page, 
  27. # `http://www.cs.tu-bs.de/softech/ddd/',
  28. # or send a mail to the DDD developers <ddd@ips.cs.tu-bs.de>.
  29.  
  30. $foo = 42;
  31.  
  32. @foo = (1, 2, 3, 4);
  33.  
  34. $foo[0] = 99;
  35. $foo[1] = 300_000;
  36.  
  37. %foo = ('red' => 1, 'green' => 2, 'blue' => 3);
  38.  
  39. $foo{'red'}   = 5;
  40. $foo{'green'} = 7;
  41.  
  42. # References
  43. $ref = \%foo;
  44. $anotherref = $ref;
  45. $refref = \$ref;
  46. $refrefref = \$refref;
  47.  
  48. # Lists of lists - from perllol(1)
  49. @LoL = (
  50.     [ "fred", "barney" ],
  51.     [ "george", "jane", "elroy" ],
  52.     [ "homer", "marge", "bart" ],
  53.        );
  54. print $LoL[2][2], "\n";
  55.  
  56. $ref_to_LoL = [
  57.            [ "fred", "barney", "pebbles", "bambam", "dino", ],
  58.            [ "homer", "bart", "marge", "maggie", ],
  59.            [ "george", "jane", "alroy", "judy", ],
  60.           ];
  61. print $ref_to_LoL->[2][2], "\n";
  62.  
  63.  
  64. # Closures
  65. sub newprint {
  66.   my $x = shift;
  67.   return sub { my $y = shift; print "$x, $y!\n"; };
  68. }
  69. $h = newprint("Howdy");
  70. $g = newprint("Greetings");
  71.  
  72. &$h("world");
  73. &$g("earthlings");
  74.  
  75.  
  76. # Globs
  77. $fh = *STDOUT;
  78.  
  79.  
  80.  
  81. sub print_me {
  82.   print @_;
  83. }
  84.  
  85. &print_me('one ', 'two ', 'three ', "\n");
  86.  
  87. 1;
  88.