جرب بيرل 5 الأن

السلام عليكم ورحمة الله تعالى وبركاته

تريد تجربة سريعة ل perl لكن لاتتوفر على محرك perl

يمكنك الأن تجربة كود بسيط لبيرل عبر موقع perltuts

أمثلة سريعة يمكنك تجربتها : -- قم بنسخها و وضعا في مكان كتابة الكود ثم نفد

---- تعريف متغير txt تم طباعته

my $txt="Mohammad"; print $txt;

FOR

print "\n**** This is an example of the use of the FOR loop on vector of int (example1).***\n\n";
 
  my $i;
   for $i (1 , 2 , 3 , 4 , 5)
   { print "$i\n"; }

While

 print "\n**** This is an example of the use of While.***\n\n";
   
   my $counter = 0;
   
   while ($counter <= 5)
	{
	  print "سطر $counter\n";
	  $counter ++;
	}
   print "End! \n";

--- Hash ---- FOREACH

my $key;
my $value;
my %friends = ( ' Sami ' , 20 , ' Amir ' , 24 , ' Karim ' , 25 , ' jeber ' , 28 , ' Salem ' , 27);
  
print "\n**** This is an example of Hash indexing using FOREACH.***\n";
   
   # FOREACH LOOP ON SORTED VECTOR
   print "\nsorted by key\n";
   
   foreach $key (sort keys %friends)
	 { 
	   print "\t $key is $friends{$key} years old.\n";
	 }
   
	 print "\nsorted by value\n";
   
   foreach $value (sort {$friends{$a} cmp $friends{$b} } keys % friends)
	{
	  print "\t $value $friends{$value}\n";
	}

شكرا

جرب بيرل 5 الأن

مواضيع مشابهة