Adventures | Notes

Perl

by Derek—2005.05.25 @ 1039

I'm often looking for these simple hints, so I'm writing myself a note.

  • Perform Inline Search and Replace

      perl -pi -e 's/search/replace/' files*

  • Regex to capitalize words

      s/(\w+)/\u\L$1/g;

  • Rename files sequentially

      ls | perl -ln -e '$count++; system ("mv $_ ". sprintf ("%0.3u", $count));'


  perl -e 'for (<*>) { #bla bla bla }'

  • Rename Files Inline

      perl -e 'for (<*>) { 
  $f = $_; 
  $f =~ s/foo/bar/g; 
  warn "Naming $_ to $f ...\n"; 
  rename("$_", "$f") or die "Burp!";
  }'

Search