Re: [PERL] Der er mange måder at gøredet på?

[Ole Tange <sslug@sslug>]

On Mon, 12 Mar 2001, Poul-Erik Andreasen wrote:

> Der er mange måder at gøre det på, men de er ikke alle lige gode
> desværre. Det her program som jeg har lavet, det fungerer sådan set
> efter hensigten, men jeg er lidt utilfreds med det. Jeg synes nemlig
> ikke at det er struktureret særligt godt. Det ville jeg gerne have
> nogen komentarer til, hvis der er nogen der gider. Det skyldes også
> det forhold at programmet langt fra er færdigt, det skal til sin tid
> køre som cronjob og så der skal en del mere på bl. a skal det ikke
> læse ud til en fil men ind i en database.

Min programmeringslærer sagde, at man ikke må have en
function/procedure/sub, der fylder mere end een skærmside. Hvis funktionen
fylder mere, så del den op i mindre, overskuelige underfunktioner.

Det er mit råd her.

Derudover et par tip:

$found = 1;
if($found) ...

my($a,$b,$c);

%mon=('January' => 1,
      'February' => 2, ... );
$month_number=$mon{$month_text};

next går til den nærmeste omkrænsende løkke. I dit tilfælde den eneste.


/Ole
-- 
There's a good chance I'd win the suit, but I'd go broke in the process.
         -- Problemet med softwarepatenter i en nøddeskal (Bruce Perens)