daily pastebin goal
49%
SHARE
TWEET

Untitled

a guest May 16th, 2018 87 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. sub camelize {
  2.     my $str = shift;
  3.     return join( '',
  4.         map { ucfirst $_ }
  5.             split( /(?<=[A-Za-z])_(?=[A-Za-z])|\b/, $str )
  6.     );
  7. }
RAW Paste Data
Top