امثلة على الاصناف CLASSES في لغة Perl

2020-10-14
daafoor

الاصناف (الصفوف) classes :

يمكن تسميتها باني الكائنات. يمكن لها أن يحتوي على حقول وتوابع وبواني وما إلى ذلك. إنه غلاف يربط / يغلف البيانات والوظائف معًا

التي يمكن الوصول إليها عن طريق إنشاء كائن. يمكن أن يشير الصنف إلى نوع البيانات الذي يحدده المستخدم والذي يحدد الخصائص من خلال جميع كائناته.

كود انشاء صف :

package My::File;  
use strict;  
use warnings;  
1;

كود انشاء باني الصف :

sub new {  
    my ($class, %args) = @_;  
    return bless \%args, $class;  
}

كود انشاء غرض من صف :

use Scalar::Util 'blessed';  
  my $Ana = {};  
  my $Christian = $Ana;  
  bless $Ana, 'Happiness';  
  print blessed( $Christian ) // 'not blessed';    # Class  
  print "\n";  
  $Christian = "some other value";  
  print blessed( $Christian ) // 'not blessed';    # not blessed  
  print "\n";