use Perl

• You do know Perl has ucfirst, right? (Score:1)

  by xsawyerx (8978) on 2010.08.19 17:50 (#72325) Journal

  $prop = ucfirst $prop;

  Reply to This

  • Re:You do know Perl has ucfirst, right? by jdavidb (Score:2) 2010.08.20 11:18
• Whoa (Score:1)

  by ank (5971) on 2010.08.23 17:50 (#72344) Journal

  LOL!

  And you were leaving comments on perl 5 and 6 replying to my criticisms of the language? Maybe its time to change your sig:

  "J. David works really hard reimplementing bult-in functions"

  Third-rate programmers, unite!

  Reply to This

  • Re:Whoa by jdavidb (Score:2) 2010.08.25 7:34
    • Re:Whoa by ank (Score:1) 2010.08.25 8:02
      • Re:Whoa by jdavidb (Score:2) 2010.08.26 10:03
        • Re:Whoa by ank (Score:1) 2010.08.26 21:31
• And for fun: (Score:1)

  by Aristotle (5147) <pagaltzis@gmx.de> on 2010.08.26 10:18 (#72349) Homepage Journal

  sub uc_prop { # inefficient
    my $t = reverse shift;
    my $h = uc chop $t;
    return $h . reverse $t;
  }

  (Of course you can do the same thing more efficiently – and boringly:)

  sub uc_prop {
    my $t = shift;
    my $h = uc substr $t, 0, 1, '';
    return $h . $t;
  }

  (The following one might be more efficient. Or it may not be.)

  sub uc_prop {
    my $s = shift;
    my $h = uc substr $s, 0, 1, '';
    substr $s, 0, 0, $h;
    return $s;
  }

  (The first one is cool though.)

  Reply to This