كيف يمكن كتابة جملة For في بيرل ؟

[محبوب ياسين]

اريد طباعة الرقم من 1 الى 20
فكيف يتم ذلك ؟

في PHP :

For ($i = 0 ; $i<20 ; $i++) 
{ 
echo $i ; 
}

فكيف تكون في بيرل ؟

[المحبوب]

إذا لم اكن مخطأ

For ($i = 0 ; $i<20 ; $i++) 
{ 
print "$i\n";
}

[_-*الفيصل*-_]

For i = 0 To 20
............
Next i....
............
End Sub

[_-*الفيصل*-_]

والله في تقارب كبير جداً ملحوظ بين اللغات باختلاف انواعها .. شئ جميل

[محبوب ياسين]

الصحيح :

#!/usr/bin/perl

for ($i=0; $i<20; $i++) 
{
print " $i ";
}

[Superman]

#!/usr/bin/perl 
print "Content-Type: text/html\n\n";
for ($i=0; $i<20; $i++) 
{ 
print $i;
print "\n";
}

[JB007]

إذا كنت تعمل تحت نمط strict :

#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
print $cgi->header(-type=>'text/html');
for(my $i=1;$i<=20;$i++) {
print "$i\n";
}
exit(0);