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 / here < prev    next >
Encoding:
Text File  |  1992-10-18  |  731 b   |  34 lines
  1. #!/usr/bin/perl
  2.  
  3. $price = '$100';
  4.  
  5.     print <<EOF;            # Same as earlier example.
  6. The price is $Price.
  7. EOF
  8.  
  9.     print <<"EOF";          # The same with explicit quotes
  10. The price is $Price.
  11. EOF
  12.  
  13.     print <<'EOF';          # A single-quoted quote.
  14. All things (e.g. a camel's journey through
  15. A needle's eye) are possible, it's true.
  16. But picture how the camel feels, squeezed out
  17. In one long bloody thread, from tail to snout.
  18.                 -- C.S. Lewis
  19. EOF
  20.  
  21.     print << x 10;          # Print next line 10 times;
  22. The camels are coming!  Hurrah!  Hurrah!
  23.  
  24.     print <<`EOC`;  # Execute commands!
  25. echo 'Your .vacation.msg file says:'
  26. cat .vacation.msg
  27. EOC
  28.  
  29.     print <<foo, <<bar;     # You can stack them.
  30. He said bactrian.
  31. foo
  32. She said dromedary.
  33. bar
  34.