home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / ch3 / foreach < prev    next >
Encoding:
Text File  |  1992-10-18  |  279 b   |  18 lines
  1. #!/usr/bin/perl
  2.  
  3. for (@ary) { s/foo/bar/; }
  4.  
  5. foreach $elem (@elements) {
  6.     $elem *= 2;
  7. }
  8.  
  9. for (10,9,8,7,6,5,4,3,2,1,'BOOM') {
  10.     print $_, "\n"; sleep(1);
  11. }
  12.  
  13. for (1..15) { print "Merry Christmas\n"; }
  14.  
  15. foreach $item (split(/:[\\\n:]*/, $ENV{'TERMCAP'})) {
  16.     print "Item: $item\n";
  17. }
  18.