امثلة على التوابع FUNCTIONS في لغة Perl

2020-10-14

توصيف

التابع function :

هو كتلة من التعليمات البرمجية يتم تشغيلها فقط عند استدعائها.

كود انشاء تابع و استدعاءه :

#defining function  
sub myOffice{  
   print "javaTpoint!\n";  
}  
# calling Function   
myOffice();

كود انشاء تابع ذو وسطاء و استدعاءه :

$squarePerimeter = perimeter(25);  
print("This is the perimter of a square with dimension 25: $squarePerimeter\n");    
sub perimeter {  
    $dimension = $_[0];  
    return(4 * $dimension);  
 }

كود انشاء تابع مع قوائم و استدعاءه :

sub myList{  
   my @list = @_;  
   print "Here is the list @list\n";  
}  
@a = ("Orange", "Pineapple", "Mango", "Grapes", "Guava");  
# calling function with list  
myList(@a);