Skip to main content

By clicking Submit, you agree to the developerWorks terms of use.

The first time you sign into developerWorks, a profile is created for you. Select information in your profile (name, country/region, and company) is displayed to the public and will accompany any content you post. You may update your IBM account at any time.

All information submitted is secure.

  • Close [x]

The first time you sign in to developerWorks, a profile is created for you, so you need to choose a display name. Your display name accompanies the content you post on developerworks.

Please choose a display name between 3-31 characters. Your display name must be unique in the developerWorks community and should not be your email address for privacy reasons.

By clicking Submit, you agree to the developerWorks terms of use.

All information submitted is secure.

  • Close [x]

Cultured Perl: One-liners 101

Perl as a command-line utility

Return to article


Listing 12. Renaming JPG files in action

> find . -name "*.jpg" | perl -ne'chomp; $name = $_; $quote = chr(39);s/[$quote\\!]/_/ ; print "mv \"$name\" \"$_\"\n"' > commands

> more commands                         # examine the commands
mv "a.jpg" "a.jpg"
mv "Ha ha.jpg" "Ha_ha.jpg"
...
> source commands                       # one or two errors due to the
                                        # '!' character, fixed by hand


Return to article