TO DONATE : BTC => 1BU6R1C4AQ77LjLZswQNKFwAupw61i88Kn || PM => U4089661


اهم قوانين :1- منع الردود الباهتة مثل شكرااااا و أخواتها 2- لا يسمح بالمشاحنات الطائفية باآ شكل من الأشكال 3- عدم استعمال الألفاظ التافهة و الكلام البذىء 4- عدم وضع معرفات التواصل الأجتماعى بالردود 5- الأطلاع على كامل القوانين واجب 


العودة   الحماية للأبد -Security 4 Ever > قسم الدورات التعليميه > دورات الاعضاء > دورة البيرل Perl

دورة البيرل Perl خاص بدورة البيرل 2014

 
أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 21-05-2014, 09:07 PM
الصورة الرمزية b0y
b0y
مراقب
 
حـالة التــواجـد : b0y غير متواجد حالياً
تاريخ التسجيل: Jan 2013
الجــــنــــــس: ذكـر
المشاركات: 747
شكراً:3,113
تم شكره 2,558 مرة في 509 مشاركة
معدل تقييم المستوى: 7
b0y على طريق التميز
افتراضي التطبيقات

السلام عليكم

التطبيقات إن شاء الله ستشمل الدروس من الأول للخامس. سينقسم الموضوع إلى عدة تطبيقات لكل تطبيق مستواه
التطبيقات هي كالتالي:

- آلة حاسبة: السكربت يجب أن يحتوي على العمليات الحسابيه التالي: + - * / **. السكربت عند تشغيله يجب أن يطبع header يحتوي على :
اقتباس:
simple perl calculator
[email protected]
 
تطبيق أول:
ثم يطلب الرقم المدخل الأول ثم الoperator (+ - * / ...) ثم الرقم المدخل الثاني و بعد طباعة الناتج يعود لطلب إدخال الرقم الأول.
و تطبيق ثاني:
أن يآخذ الرقم الأول و الoperator و الرقم الثاني من الcommand line و يطبع مع الheader طريقة التشغيل.
مثال لتطبيقي أنا:

الأول:


الثاني:


- أداة cat : الأداة مثل الأمر cat تقرأ جميع الملفات المعطاه من الcomand line مع طبع إسم كل ملف. و في حال عدم كاتبة أي ملف يطبع طريقة الإستخدام
تطبيقي:



hints: الarray ARGV هي لقرائة المعطيات من الcommand line. للقرائة يمكننا إستعمال الopen function . و للطباعة الprint function.
// الدروس التالية تطبيقاتها سترفق معها إن شاء الله
// عند الإنتهاء من كتابة أي سكربت يرجى إرساله برسالة خاصة. سيتم وضع سكربتات كل الأعضاء بعد إنتهاء الجميع إن شاء الله.

الحلول وصلت ل:
للتطبيق الأول من:
اقتباس:
UzunDz
 
للتطبيق الثاني من:
اقتباس:
UzunDz
 
للتطبيق الثالث من:

اقتباس:
UzunDz
 
---- الحلول

التطبيق الأول:
الحل:

كود:
print q(
+ simple perl calculator
+ @sec4ever
);
a:
print "first number: ";
$fnum = <stdin>;
chomp($fnum);
print "operator: ";
$op = <stdin>;
chomp($op);
print "second number: ";
$snum = <stdin>;
chomp($snum);
$op eq "+" ? $result = $fnum+$snum : die "Operator $op is not suported";
$op eq "*" ? $result = $fnum*$snum : die "Operator $op is not suported";
$op eq "-" ? $result = $fnum-$snum : die "Operator $op is not suported";
$op eq "/" ? $result = $fnum/$snum : die "Operator $op is not suported";
$op eq "**" ? $result = $fnum**$snum : die "Operator $op is not suported";
print "result: $result\n";
goto a;
التحليل:

في البداية طبعنا :
اقتباس:
+ simple perl calculator
+ @sec4ever
 
عبر الأمر print
ثم وضعنا ركيزة للgoto loop
اقتباس:
a:
 
ثم أخذنا المعطيات و حفظناها في متغييرات عبر:

اقتباس:
print "first number: ";
$fnum = <stdin>;
chomp($fnum);
print "operator: ";
$op = <stdin>;
chomp($op);
print "second number: ";
$snum = <stdin>;
chomp($snum);
 
ثم وضعنا للتحقق إن كانت الoperator مدعومة من قبل الأداة و إلا بسيطبع خطأ و يخرج:
اقتباس:
$op eq "+" ? $result = $fnum+$snum : die "Operator $op is not suported";
$op eq "*" ? $result = $fnum*$snum : die "Operator $op is not suported";
$op eq "-" ? $result = $fnum-$snum : die "Operator $op is not suported";
$op eq "/" ? $result = $fnum/$snum : die "Operator $op is not suported";
$op eq "**" ? $result = $fnum**$snum : die "Operator $op is not suported";

 
(هنا إستعملنا نوع من الif operator و هو : cond ? true : false)
ثم طبعنا الناتج عبر:
اقتباس:
print "result: $result\n";
 
و أغلقنا الgo to loop عبر:
اقتباس:
goto a;
 
الحل من UzunDz:

كود:
#UzunDz
print "[+] simple perl calculator\n[+] UzunDz\@sec4ever.com\n";

while (true){
print "first number :";
$n1 = <STDIN>;
print "operator :";
$op = <STDIN>;
print "seconde number :";
$n2 = <STDIN>;
print "result: ".eval($n1 .$op .$n2)."\n";
}
التحليل:
في البداية طباعة الهيدر عبر print :
اقتباس:
print "[+] simple perl calculator\n[+] UzunDz\@sec4ever.com\n";
 
ثم إستعمل الinfinity loop أي هو لوب سيبقى يعمل إلى إغلاق الأداة فهو إستعمل condition دائما صحيح في الwhile loop :
اقتباس:
while (true){
 
ثم طرب إدخال المعلومات و حفظها في متغييرات:
اقتباس:
print "first number :";
$n1 = <STDIN>;
print "operator :";
$op = <STDIN>;
print "seconde number :";
$n2 = <STDIN>;
 
ثم طباعة الناتج (الeval تستعمل لتفيذ الoperator الموضوعه لها) عبر:
اقتباس:
print "result: ".eval($n1 .$op .$n2)."\n";
 
ثم أغلق اللوب.

التطبيق الثاني:
الحل:
كود:
head();
$fnum = $ARGV[0];
$op = $ARGV[1];
$snum = $ARGV[2];
$op eq "+" ? $result = $fnum+$snum : "";
$op eq "*" ? $result = $fnum*$snum : "";
$op eq "-" ? $result = $fnum-$snum : "";
$op eq "/" ? $result = $fnum/$snum : "";
$op eq "**" ? $result = $fnum**$snum : "";
print "result: $result\n";
sub head {
print qq{
+ simple perl calculator
+ \@sec4ever
+ usage :
\t perl $0 firstnum operator secnum
\t ex: perl $0 10 * 2
}
}
طبعا مثل التطبيق الأول لكن هنا إستعمل subroutine بإسم head لكي يطبع لنا الheader
و أخذنا المعطيات من الcommand line عبر ال@ARGV

الحل من UzunDz:

كود:
#UzunDz
print "\n[+] simple perl calculator\n[+] UzunDz\@sec4ever.com\n";
print "[+] usage:\n\tperl $0 firstnum operator secnum\n\tex: perl $0 10 * 2";

$n1 = $ARGV[0];
$op = $ARGV[1];
$n2 = $ARGV[2];

print "\nresult: ".eval($n1 .$op .$n2)."\n";
الشيء نفسه

التطبيق الثالث:
الحل:
كود:
# perl cat
if(scalar(@ARGV) == 0)
{
print "+ usage: perl $0 file2.txt file2.txt ...";
}else{
for($i=0;$i<scalar(@ARGV);$i++)
{
print "+ reading ".$ARGV[$i]."\n";
open(cat,"<".$ARGV[$i]) or die $!;
while (<cat>) {
$line = $_;
chomp $line;
print $line."\n";
}
close cat;
}
}
التحليل:
في البداية وضعنا if statement لنرى إن كان يوجد شيء مدخل عبر الcommand line:
كود:
if(scalar(@ARGV) == 0)
{
كما نعمل فالscalar function تحتوي عدد المعطيات داخل الarray و هنا فحصنا في حال كان عدد المدخلات من الcommand line == 0 يطبع لنا طريقة الإستخدام:
اقتباس:
print "+ usage: perl $0 file2.txt file2.txt ...";
 
إن لا (عبر else) أي في حال إدخال أي من الملفات وضعنا for loop لتمرر كل ملف لقرائته:
اقتباس:
for($i=0;$i<scalar(@ARGV);$i++)
{
 
بدأنا من ال0 و حتا نصل لآخر ملف نزيد في كل مره 1 على المتغيير $i. ثم القرائة:
اقتباس:
open(cat,"<".$ARGV[$i]) or die $!;
while (<cat>) {
$line = $_;
chomp $line;
print $line."\n";
}
close cat;

 
فتحنا الملف عبر open داخل "cat" قرأناه ثم أغلقناه عبر close
ثم أغلقنا الfor loop و الif statement.

الحل من UzunDz:

كود:
print "\n[+] simple file reader\n[+] UzunDz\@sec4ever.com\n"; #header
if(scalar(@ARGV) == 0){ # argv check
    print "[+] usage:\n\tex: perl $0 file1.txt file2.txt ...";
}else{
for($i=0;$i<scalar(@ARGV);$i++)
    {
    # reading
        print "\n[+] reading : $ARGV[$i]\n";
        open (file, "<".$ARGV[$i]);
        while($line = <file>)
        {
        print "\t".$line;
        }
        close file;
        print "\n";
    }
}
التحليل نفسه.

التطبيقات كانت سهلة و واضحة و كل شيء تم التطرق له في الدروس. أي إستفسار أو توضيح أتمنى وضعه في رد.

في أمان الله  

 

 



اقتباس:
المشاركة الأصلية كتبت بواسطة ApOcalYpse مشاهدة المشاركة

فقط توقف عن طلب النتيجة و تخيلها و السعي خلفها و قم بما عليك القيام به
...
الناس تحب النتيجة و لكنها تكره الطريق الصعب الذي يوصل اليها
اقتباس:
المشاركة الأصلية كتبت بواسطة Sec4ever مشاهدة المشاركة

فيه حكمة مهمة جدا ينقصنا نحن المسلمون العمل بها حتى تكون لنا مكانة بين الأخرين :

يجب العمل قدر المستطاع و ليس قدر الحاجة .
اقتباس:
المشاركة الأصلية كتبت بواسطة UzunDz مشاهدة المشاركة

ثانيا فيه ادمغة من العرب وموجودين معنا هنا بالمنتدى ويقدمو مواضيع ما تجدها عند الأجانب والتقليل من شان العرب امام الأجانب يسمى جهل و نقص في الشخصية ونوعية هذا الكلام لا تفيدنا الا في الرجوع الى الوراء,, وان كنت شايف نفسك متوقف في كيفية صنع ليتر فهذا لا يعني ان الجميع متوقف هناك بمعنى آخر لا تتكلم بصيغة الجمع عن العرب لأنك تمثل نفسك فقط
اقتباس:
المشاركة الأصلية كتبت بواسطة chevr0sky مشاهدة المشاركة

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

رد مع اقتباس
10 أعضاء قالوا شكراً لـ b0y على المشاركة المفيدة:
  #2  
قديم 29-05-2014, 05:48 PM
الصورة الرمزية b0y
b0y
مراقب
 
حـالة التــواجـد : b0y غير متواجد حالياً
تاريخ التسجيل: Jan 2013
الجــــنــــــس: ذكـر
المشاركات: 747
شكراً:3,113
تم شكره 2,558 مرة في 509 مشاركة
معدل تقييم المستوى: 7
b0y على طريق التميز
افتراضي رد: التطبيقات

48 مشترك, شهر و نصف من بدأ الدورة, ولم يحل أي من التطبيقات أحد.
فشل زريع للدروة  

 

 



اقتباس:
المشاركة الأصلية كتبت بواسطة ApOcalYpse مشاهدة المشاركة

فقط توقف عن طلب النتيجة و تخيلها و السعي خلفها و قم بما عليك القيام به
...
الناس تحب النتيجة و لكنها تكره الطريق الصعب الذي يوصل اليها
اقتباس:
المشاركة الأصلية كتبت بواسطة Sec4ever مشاهدة المشاركة

فيه حكمة مهمة جدا ينقصنا نحن المسلمون العمل بها حتى تكون لنا مكانة بين الأخرين :

يجب العمل قدر المستطاع و ليس قدر الحاجة .
اقتباس:
المشاركة الأصلية كتبت بواسطة UzunDz مشاهدة المشاركة

ثانيا فيه ادمغة من العرب وموجودين معنا هنا بالمنتدى ويقدمو مواضيع ما تجدها عند الأجانب والتقليل من شان العرب امام الأجانب يسمى جهل و نقص في الشخصية ونوعية هذا الكلام لا تفيدنا الا في الرجوع الى الوراء,, وان كنت شايف نفسك متوقف في كيفية صنع ليتر فهذا لا يعني ان الجميع متوقف هناك بمعنى آخر لا تتكلم بصيغة الجمع عن العرب لأنك تمثل نفسك فقط
اقتباس:
المشاركة الأصلية كتبت بواسطة chevr0sky مشاهدة المشاركة

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

رد مع اقتباس
5 أعضاء قالوا شكراً لـ b0y على المشاركة المفيدة:
  #3  
قديم 30-05-2014, 12:06 AM
الصورة الرمزية Mr_AnarShi-T
Mr_AnarShi-T
عضو مميز
 
حـالة التــواجـد : Mr_AnarShi-T غير متواجد حالياً
تاريخ التسجيل: Jul 2011
الجــــنــــــس: ذكـر
المشاركات: 260
شكراً:246
تم شكره 717 مرة في 170 مشاركة
معدل تقييم المستوى: 9
Mr_AnarShi-T على طريق التميز
افتراضي رد: التطبيقات

ههه مازلنا في الأساسيات و التفاعمل هكذا ههه لو كان المستوي أقوي شو كان رح يصير  

 

 

Perl & Java Lov3r

No perl No life
رد مع اقتباس
الأعضاء الذين قالوا شكراً لـ Mr_AnarShi-T على المشاركة المفيدة:
  #4  
قديم 30-05-2014, 12:35 AM
الصورة الرمزية Dr.Mohamed
Dr.Mohamed
Sec4Ever Team
 
حـالة التــواجـد : Dr.Mohamed غير متواجد حالياً
تاريخ التسجيل: Aug 2011
مكـان الإقامـة : .
الجــــنــــــس: ذكـر
الــهـــوايـــــة: .
المشاركات: 2,194
شكراً:1,844
تم شكره 5,585 مرة في 1,396 مشاركة
معدل تقييم المستوى: 10
Dr.Mohamed بدون تقييم
افتراضي رد: التطبيقات

اقتباس:
المشاركة الأصلية كتبت بواسطة Mr_AnarShi-T مشاهدة المشاركة

ههه مازلنا في الأساسيات و التفاعمل هكذا ههه لو كان المستوي أقوي شو كان رح يصير
القسم مغلق

مش مهم العدد
انتظروني مشغول جدااا
نتفرغ ويكون لنا كلام اخر

 

 

 

...........
رد مع اقتباس
الأعضاء الذين قالوا شكراً لـ Dr.Mohamed على المشاركة المفيدة:
  #5  
قديم 30-05-2014, 01:21 PM
الصورة الرمزية UzunDz
UzunDz
فريق الحماية للأبد
 
حـالة التــواجـد : UzunDz غير متواجد حالياً
تاريخ التسجيل: Oct 2011
الجــــنــــــس: ذكـر
المشاركات: 1,671
شكراً:4,471
تم شكره 5,465 مرة في 1,364 مشاركة
معدل تقييم المستوى: 10
UzunDz على طريق التميز
افتراضي رد: التطبيقات

السلام عليكم

تطبيقي الأول



الثاني



السكربت في رسالة خاصة

اشوف حظي مع الثالث لما افضى  
رد مع اقتباس
2 أعضاء قالوا شكراً لـ UzunDz على المشاركة المفيدة:
  #6  
قديم 30-05-2014, 03:19 PM
الصورة الرمزية UzunDz
UzunDz
فريق الحماية للأبد
 
حـالة التــواجـد : UzunDz غير متواجد حالياً
تاريخ التسجيل: Oct 2011
الجــــنــــــس: ذكـر
المشاركات: 1,671
شكراً:4,471
تم شكره 5,465 مرة في 1,364 مشاركة
معدل تقييم المستوى: 10
UzunDz على طريق التميز
افتراضي رد: التطبيقات

التطبيق 3 :

 
رد مع اقتباس
2 أعضاء قالوا شكراً لـ UzunDz على المشاركة المفيدة:
  #7  
قديم 04-06-2014, 01:02 PM
الصورة الرمزية b0y
b0y
مراقب
 
حـالة التــواجـد : b0y غير متواجد حالياً
تاريخ التسجيل: Jan 2013
الجــــنــــــس: ذكـر
المشاركات: 747
شكراً:3,113
تم شكره 2,558 مرة في 509 مشاركة
معدل تقييم المستوى: 7
b0y على طريق التميز
افتراضي رد: التطبيقات

تم طرح الحلول.
بالتوفيق إن شاء الله و أتمنى أن كل شيء واضح  

 

 



اقتباس:
المشاركة الأصلية كتبت بواسطة ApOcalYpse مشاهدة المشاركة

فقط توقف عن طلب النتيجة و تخيلها و السعي خلفها و قم بما عليك القيام به
...
الناس تحب النتيجة و لكنها تكره الطريق الصعب الذي يوصل اليها
اقتباس:
المشاركة الأصلية كتبت بواسطة Sec4ever مشاهدة المشاركة

فيه حكمة مهمة جدا ينقصنا نحن المسلمون العمل بها حتى تكون لنا مكانة بين الأخرين :

يجب العمل قدر المستطاع و ليس قدر الحاجة .
اقتباس:
المشاركة الأصلية كتبت بواسطة UzunDz مشاهدة المشاركة

ثانيا فيه ادمغة من العرب وموجودين معنا هنا بالمنتدى ويقدمو مواضيع ما تجدها عند الأجانب والتقليل من شان العرب امام الأجانب يسمى جهل و نقص في الشخصية ونوعية هذا الكلام لا تفيدنا الا في الرجوع الى الوراء,, وان كنت شايف نفسك متوقف في كيفية صنع ليتر فهذا لا يعني ان الجميع متوقف هناك بمعنى آخر لا تتكلم بصيغة الجمع عن العرب لأنك تمثل نفسك فقط
اقتباس:
المشاركة الأصلية كتبت بواسطة chevr0sky مشاهدة المشاركة

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

رد مع اقتباس
الأعضاء الذين قالوا شكراً لـ b0y على المشاركة المفيدة:
  #8  
قديم 09-06-2014, 12:20 PM
الصورة الرمزية N1r0
N1r0
عضو مميز
 
حـالة التــواجـد : N1r0 غير متواجد حالياً
تاريخ التسجيل: Feb 2014
مكـان الإقامـة : Morocco
الجــــنــــــس: ذكـر
الــهـــوايـــــة: Goodbay S4E - Too Late Anyway
المشاركات: 218
شكراً:528
تم شكره 557 مرة في 109 مشاركة
معدل تقييم المستوى: 6
N1r0 على طريق التميز
افتراضي رد: التطبيقات

جميل أخي والله فقط أعذرنا هذه الأيام هنالك إمتحانات كثيرة ومشاغل ، أمل فقط الا يكون للأمر ثأثير
سلبي عليك .. قريبا سنتابع كل شيء من اوله لآخره

دمت للأفضل  

 

 


~ • سبحان الله وبحمده .. سبحان الله العظيم • ~


• كُلُّ مَنْ عَلَيْهَا فانٍ وَيَبْقَى وَجْهُ رَبِّكَ ذُو الْجَلالِ وَالإكْرَامِ •

Let me tell you where I'm
I'm Out
RIP H4ck World



رد مع اقتباس
الأعضاء الذين قالوا شكراً لـ N1r0 على المشاركة المفيدة:
  #9  
قديم 14-06-2014, 01:07 AM
الصورة الرمزية rir1a
rir1a
عضو مميز
 
حـالة التــواجـد : rir1a غير متواجد حالياً
تاريخ التسجيل: Jun 2013
الجــــنــــــس: ذكـر
المشاركات: 326
شكراً:258
تم شكره 399 مرة في 114 مشاركة
معدل تقييم المستوى: 0
rir1a بدون تقييم
افتراضي رد: التطبيقات

بإذن الله ابداء فيهم انهاردا

تحياتى  

 

 

EGyShell & Sec4Ever
رد مع اقتباس
  #10  
قديم 14-06-2014, 02:55 AM
الصورة الرمزية rir1a
rir1a
عضو مميز
 
حـالة التــواجـد : rir1a غير متواجد حالياً
تاريخ التسجيل: Jun 2013
الجــــنــــــس: ذكـر
المشاركات: 326
شكراً:258
تم شكره 399 مرة في 114 مشاركة
معدل تقييم المستوى: 0
rir1a بدون تقييم
افتراضي رد: التطبيقات

اول تطبيق

 

 

 

EGyShell & Sec4Ever
رد مع اقتباس
الأعضاء الذين قالوا شكراً لـ rir1a على المشاركة المفيدة:


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
أول فيروس على متجر التطبيقات الشهير "آب ستور" Processeur-Dz قسم الأخبار التقنية والنقاشات الجادة 0 19-07-2012 10:37 AM


الساعة الآن 02:16 PM