胶片38 在类HTML::FormatPS中的方法举例

---

• $self当然是指向数据结构的指针,所以下面的程序将改变在第一个参数中传递的对象
• sub papersize
• {
• my($self,$val)=@_; #$self是对象的引用
• $val="$val"; #在字符串$val中,第一个字母大写,后面的字母小写
• my($width,$height)=@$PaperSizes$val;
• return 0 unless defined $width;
• $self->papersize = $val; #再设对象属性
• $self->paperwidth = $width;
• $self->paperheight = $height;
• 1; #返回1(或0如果错)但不是$self .
• }

---

Copyright: NPACT