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 / quoting < prev    next >
Encoding:
Text File  |  1992-10-18  |  336 b   |  13 lines

  1. #!/usr/bin/perl
  2.  
  3. $Price = '$100';                        # not interpreted
  4. print "The price is $Price.\n";         # interpreted
  5.  
  6. $foo = q!I said, "You said, 'She said it.'"!;
  7. $bar = q('This is it.');
  8. $_ .= qq
  9. *** The previous line contains the naughty word "$&".\n
  10.     if /(ibm|apple|awk)/;      # :-)
  11.  
  12. print STDOUT hello,' ',world,"\n";
  13.