How readable is my code?

I mean, code's gotta be easy for other people to understand, right?

$answer = $original_measure * 0.3937008;
            # but because that inevitably results in 1583 decimal places
            $answer = sprintf "%.2f", $answer; # weird, but at least it works
            $sign = $answer < 0; #catch the sign; keep it here for later
            $answer = abs $answer; # throw the sign away
            $answer_feet = int($answer/12);
            $answer_inches = $answer - ($answer_feet * 12);
           
           
            $answer_string = "$original_measure centimetres equals "
                            . (($sign) ? "-" : "")
                            . (($answer_feet) ?
                               ($answer_feet == 1) ? "1 foot" :
                                          "$answer_feet feet" : "")
                            . (($answer_inches) ?
                               (($answer_feet) ? " " : "") .
                               (($answer_inches == 1) ? "1 inch" :
                                        "$answer_inches inches") : "")
                            . ((!$answer) ? "0 inches" : "");

wow... almost IHBT

That's perfectly legible. It's also fucking stupid, but that's a given, with Perl programmers.

It's fine. It works for me.

Please use PERL CRITIC and also stop using retarded variable names.  IHBFT
Perl forces you to mutate a lot, but it doesn't mean that you have to mutate absolutely fucking everything.

>>5 But it doesn't mean that you can't

I see your problem ; you are converting from metric to dinosaur .  It is crealry only meaningful to convert the other way , for reasons like e.g. helping archæologists decipher the arcane measurement systems used by certian primitive cultures .

YHABT

11 Name: Anonymous 2011-02-18 13:59

<-- that's cool and all, but check 'em

---

Don't change these.

Name:		Email:
Entire Thread Thread List