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 / ch4 / s < prev    next >
Encoding:
Text File  |  1992-10-18  |  368 b   |  15 lines
  1. s/\bgreen\b/mauve/g;
  2.  
  3. $path =~ s#/usr/bin#/usr/local/bin#;
  4.  
  5. s/Login: $foo/Login: $bar/g;
  6.  
  7. ($foo = $bar) =~ s/bar/foo/;
  8.  
  9. $_ = 'abc123xyz';
  10. s/\d+/$&*2/e;                   # yields 'abc246xyz'
  11. s/\d+/sprintf("%5d", $&)/e;     # yields 'abc  246xyz'
  12. s/\w/$& x 2/eg;                 # yields 'aabbcc  224466xxyyzz'
  13.  
  14. s/([^ ]*) *([^ ]*)/$2 $1/;      # reverse 1st two fields
  15.