perlで構造体

あまりにCGIが汚い。ひどい実装だ orz
同じようなロジックのコピペ、長い関数が溢れている…
当時perlの構造体を知らなかったのが原因か?

Class::Structというものがあるらしい。

  • ためしにnetacl_edit.cgiに使ってみるが、ハマリまくり。
      • ハマリ:代入に=は使えない。 ($netacl -> net("1");
      • netacl_edit_struct.cgi