معهد دعم اتش فى اى بى اس لحلول الويب - Powered by vBulletin


 
 
النتائج 1 إلى 7 من 7

الموضوع: مكتبة أكواد البيرل: Perl

  1. #1
    عضو جديد


    تاريخ التسجيل: Jun 2011
    رقم العضوية: 7
    المشاركات: 2,181
    HVIPS5 غير متواجد حالياً

    مكتبة أكواد البيرل: Perl


    مكتبه اكواد البيرل perl
    مكتبه اكواد البيرل perl
    مكتبه اكواد البيرل perl
    perl perl perl perl
    perl perl perl perl


    بسم الله الرحمن الرحيم

    السلام عليكم و رحمة الله و بركاته
    سأحاول إن شاء الله في هذا الموضوع توفير مجموعة من الأكواد المبسطة و المتنوعة لتساعد المبرمجين بلغة البيرل في تطوير مشاريعه و تعلم هذا اللغة الثرية

    الغايه من هذا الكود هو توفير أمثلة بسيطة في كتابة الحلقات و الشرط بإعتماد if, for, whileو foreach
    كود PHP:
       # = = = FOR
       
    print "\n**** This is an example of the use of the FOR loop on vector of int (example1).***\n\n";
       
       for 
    $i (5)
       { print 
    "$i\n"; }
       
       
    #######################
       
       
    print "\n**** This is an example of the use of the FOR loop on vector of string (example 2).***\n\n";
       
       @
    one_to_ten = (.. 10);
       
       
    $top_limit 25;
       
       for 
    $i (@one_to_ten 15 20 .. $top_limit)
                       { print 
    "$i\n"; }
       
       
    #######################
       
       
    print "\n**** This is an example of the use of the FOR loop on vector of string.***\n\n";
       
       for 
    $friend ' Sami ' ' Amir ' ' Karim ' ' jeber ' ' Salem ' )
       {print 
    "$friend is my friend.\n";}
       
       
    #=== WHILE
       #######################
       
    print "\n**** This is an example of the use of While.***\n\n";
       
       
    $counter 0;
       
       while (
    $counter <= 5)
            {
              print 
    "$counter\n";
              
    $counter ++;
            }
       print 
    "End! \n";
       
       
    #######################
       
       
    print "\n**** This is an example of Hash indexing using WHILE.***\n";
       
       %
    friends = ( ' Sami ' 20 ' Amir ' 24 ' Karim ' 25 ' jeber ' 28 ' Salem ' 27);
       
       while ((
    $key $value) = each( % friends))
       {
              print 
    $key." is ".$value." years old.\n";
       }
       
       
    ######################
       
    print "\n**** This is an example of Hash indexing using FOR.***\n";
       
       for 
    $i (keys friends)
       { print 
    "$i is my friend.\n"; }
       
       
    #=== FOREACH
       ######################
       
       
    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{$acmp $friends{$b} } keys friends)
            {
              print 
    "\t $value $friends{$value}\n";
            }
       
       
    ######################
       # Add two keys to the Hash
       
       
    $friends{Hammadi} = 24;
       
    $friends{Omar} = 37;
       
       
    # Remove one key from the Hash
       
    delete($friends{Omar});
       
       print 
    "\nsorted by key after the update\n";
       
       foreach 
    $key (sort keys friends)
       {print 
    "\t $key is $friends{$key} years old.\n";}
       
       
    #=== IF
       ######################
       
    print "\n ====== Comparaison of two string \n";
       
       
    $string1 "It is a test";
       
    $string2 "It is serious";
       
       if(
    $string1 eq $string2)
       {print 
    "$string1 = $string2 \n";}
       
       if (
    $string1 lt $string2)
       {print 
    $string1 < $string2 \n";}
       
       if (
    $string1 le $string2)
       {print 
    $string1 <= $string2 \n";}
       
       if (
    $string1 gt $string2)
       {print 
    $string1 > $string2 \n";}
       
       if (
    $string1 ge $string2)
       {print 
    $string1 >= $string2 \n";}
       
       if (
    $string1 ne $string2)
       {print 
    $string1 != $string2 \n";}
       
       print 
    "\n ====== Comparaison of two numbers \n";
       
       
    $Number1 5;
       
    $Number2 3;
       
       if(
    $Number1 == $Number2)
       {print 
    "$Number1 = $Number2\n";}
       
       if (
    $Number1 $Number2)
       {print 
    "$Number1 < $Number2\n";}
       
       if (
    $Number1 <= $Number2)
       {print 
    "$Number1 <= $Number2\n";}
       
       if (
    $Number1 $Number2)
       {print 
    "$Number1 > $Number2\n";}
       
       if (
    $Number1 >= $Number2)
       {print 
    "$Number1 >= $Number2\n";}
       
       if (
    $Number1 != $Number2)
       {print 
    "$Number1 != $Number2\n";} 
    عند الترجمة نحصل على ما يلي:
    نقره لتكبير أو تصغير الصورة ونقرتين لعرض الصورة في صفحة مستقلة بحجمها الطبيعي

    نقره لتكبير أو تصغير الصورة ونقرتين لعرض الصورة في صفحة مستقلة بحجمها الطبيعي

    لتجربة هذا المثال و بقية الأمثلة عليك بتحميل الActivePerl
    أما إذا كان نظام التشغيل الذي تستعمله هو الويندوز فيستا فبإمكانك إستعمال هذا الإصدار

    التحميل فى المرفقات

    مكتبه اكواد البيرل perl
    مكتبه اكواد البيرل perl
    مكتبه اكواد البيرل perl
    perl perl perl perl
    perl perl perl perl
    الملفات المرفقة
    التعديل الأخير تم بواسطة HVIPS5 ; 06-28-2011 الساعة 11:37 AM

  2. #2
    عضو جديد


    تاريخ التسجيل: Jun 2011
    رقم العضوية: 7
    المشاركات: 2,181
    HVIPS5 غير متواجد حالياً

    رد: مكتبة أكواد البيرل: Perl


    هذا الكود لإنشاء ملفات للكتابة والقراءة والتحديث
    هذا الكود لإنشاء ملفات للكتابة والقراءة والتحديث
    هذا الكود لإنشاء ملفات للكتابة والقراءة والتحديث



    هذا الكود لإنشاء ملفات للكتابة والقراءة والتحديث

    كود PHP:
       print "\n\n\t This code aims to explain how to write , read and append a file. \n\n\n";
       
       
    ##### Write in a file #####
       
       
    print "Please choose file name to create :";
       
       
    $filename =<STDIN>;
       
    open(wFile">$filename");
       print(
    wFile "Name: \n");
       
       @
    Names = ("Mohamed Ali" "Mourad Baghdadi" "Kech" "Souheil" "Rochdi");
       
       foreach 
    $Name (@Names)
       {
               print(
    wFile "$Name\n");               
               
    # Show "Names in the screen"
               
    print "$Name\n";
       }
       
       
    #Close the file
       
    close (wFile);
       
       
    ##### Append the created file content #####
       
       
    print "\n\n ====== Open created file in append mode.\n\n";
       
       
    open(aFile ">> $filename");
       print(
    aFile "Jeber\n");
       print(
    aFile "Farouk\n");
       print 
    "Jeber was added to the list\n";
       print 
    "Farouk was added to the list\n";
       
       
    #Close the file
       
    close(aFile);
       
       
    ####### Read the created file content #####
       
    print "\n\n ====== Open created file in read mode.\n\n";
       
    open(rFile " < $filename");
       
       while (!
    eof(rFile))
       {
               
    $line =<rFile>;
               print 
    "$line";
       }
       
       
    #Close the file
       
    close (rFile); 
    نقره لتكبير أو تصغير الصورة ونقرتين لعرض الصورة في صفحة مستقلة بحجمها الطبيعي


    للتحميل فى المرفقات


    هذا الكود لإنشاء ملفات للكتابة والقراءة والتحديث
    هذا الكود لإنشاء ملفات للكتابة والقراءة والتحديث
    هذا الكود لإنشاء ملفات للكتابة والقراءة والتحدي

    الملفات المرفقة

  3. #3
    عضو جديد


    تاريخ التسجيل: Jun 2011
    رقم العضوية: 7
    المشاركات: 2,181
    HVIPS5 غير متواجد حالياً

    رد: مكتبة أكواد البيرل: Perl


    الكود إبراز كيفية البحث عن كلمة/جملة معينة في ملف
    كود إبراز كيفية البحث عن كلمة/جملة معينة في ملف
    كود إبراز كيفية البحث عن كلمة/جملة معينة في ملف


    الهدف من هذا الكود إبراز كيفية البحث عن كلمة/جملة معينة في ملف


    كود PHP:
     print"\n\n";
     
    $filename $ARGV[0];
     
    # check the existance of the input file
     
    if(-e $filename)
       { 
    open(rFile " < $filename"); }
     else
       {
    # return exception
             
    die("$filename was not found.");
       }
     
     
    $i 0;
     
     while (!
    eof(rFile))
     { 
    $line=<rFile>;
     
      
    # check if input string exists in current line
       
    if($line =~ /$ARGV[1]/)
            { print 
    "$i$line\n"; }
            
    $i++;
     }
     
     
    #Close the file
     
    close (rFile); 
    نقره لتكبير أو تصغير الصورة ونقرتين لعرض الصورة في صفحة مستقلة بحجمها الطبيعي











    الكود إبراز كيفية البحث عن كلمة/جملة معينة في ملف
    كود إبراز كيفية البحث عن كلمة/جملة معينة في ملف
    كود إبراز كيفية البحث عن كلمة/جملة معينة في ملف

    الملفات المرفقة

  4. #4
    عضو جديد


    تاريخ التسجيل: Jun 2011
    رقم العضوية: 7
    المشاركات: 2,181
    HVIPS5 غير متواجد حالياً

    رد: مكتبة أكواد البيرل: Perl


    مثال لكيفية إرسال الملفات عبر FTP.
    ربما ستكون هناك حاجة لإضافة المكتبة ftp.pmلمجلدات البيرل
    للقيام بذلك قم بتحميل الملف و أضفه للمجلد C:\Perl\site\lib\Net
    مثال لكيفية إرسال الملفات عبر FTP.
    ربما ستكون هناك حاجة لإضافة المكتبة ftp.pmلمجلدات البيرل
    للقيام بذلك قم بتحميل الملف و أضفه للمجلد C:\Perl\site\lib\Net
    مثال لكيفية إرسال الملفات عبر FTP.
    ربما ستكون هناك حاجة لإضافة المكتبة ftp.pmلمجلدات البيرل
    للقيام بذلك قم بتحميل الملف و أضفه للمجلد C:\Perl\site\lib\Net

    مثال لكيفية إرسال الملفات عبر FTP.
    ربما ستكون هناك حاجة لإضافة المكتبة ftp.pmلمجلدات البيرل
    للقيام بذلك قم بتحميل الملف و أضفه للمجلد C:\Perl\site\lib\Net

    كود PHP:
     use Net::FTP;
    my $filename $ARGV[0];
    my $destpath $ARGV[1];

    # How to use:
    # perl ftp.pl local_File_FullPath Destination_File_FullPath

    #check if input parameters were defined correctly
    if (!$filename
    { die 
    "Missing name of file to transfer!!!\n"; }
    if (! -
    f $filename
    { die 
    "File $filename not found!!!\n"; }
    if (!
    $destpath
    { die 
    "Missing remote path where transfer the file!!!\n"; }

    # Transfert the file
    print "Transferring file $filename to YourSite:$destpath\n";
    $ftpobj Net::FTP -> new ('Your_FTP_Site_Or_RemoteServer');
    $ftpobj -> login ("YourLogin","YourPAssword");
    $ftpobj -> binary ();
    $ftpobj -> cwd ("$destpath") || $ftpobj -> quit && die "Remote path not found!!!\n";
    $ftpobj -> put ("$filename") || $ftpobj -> quit && die "Tranfer failed!!!\n";
    $ftpobj -> quit;
    #Report FTP file transfert status 
    print "file size ",-"$filename"," bytes\n"
    التحميل فى المرفقات


    مثال لكيفية إرسال الملفات عبر FTP.
    ربما ستكون هناك حاجة لإضافة المكتبة ftp.pmلمجلدات البيرل
    للقيام بذلك قم بتحميل الملف و أضفه للمجلد C:\Perl\site\lib\Net
    مثال لكيفية إرسال الملفات عبر FTP.
    ربما ستكون هناك حاجة لإضافة المكتبة ftp.pmلمجلدات البيرل
    للقيام بذلك قم بتحميل الملف و أضفه للمجلد C:\Perl\site\lib\Net
    مثال لكيفية إرسال الملفات عبر FTP.
    ربما ستكون هناك حاجة لإضافة المكتبة ftp.pmلمجلدات البيرل
    للقيام بذلك قم بتحميل الملف و أضفه للمجلد C:\Perl\site\lib\Net
    الملفات المرفقة

  5. #5
    عضو جديد


    تاريخ التسجيل: Jun 2011
    رقم العضوية: 7
    المشاركات: 2,181
    HVIPS5 غير متواجد حالياً

    رد: مكتبة أكواد البيرل: Perl


    كيفية البحث في مسار معين عن ملفات معينة و إظهار محتوياته و تاريخ آخر تحديث.
    كيفية البحث في مسار معين عن ملفات معينة و إظهار محتوياته و تاريخ آخر تحديث.
    كيفية البحث في مسار معين عن ملفات معينة و إظهار محتوياته و تاريخ آخر تحديث.


    كيفية البحث في مسار معين عن ملفات معينة و إظهار محتوياته و تاريخ آخر تحديث.

    نقره لتكبير أو تصغير الصورة ونقرتين لعرض الصورة في صفحة مستقلة بحجمها الطبيعي

    كود PHP:
    #!/usr/bin/perl
    use File::stat;
    use 
    Time::localtime;

    opendir CURRENT'.' or die "Failed to open current directory $!";
    my @FoundFiles grep /\.txt$/, readdir CURRENT;
    closedir CURRENT;

    foreach 
    $FoundFile (@FoundFiles)
    {
      
    $datetimeStr ctime(stat($FoundFile)->mtime);
      print 
    $FoundFile was updated at $datetimeStr\n";


    إذا كنت تريد إظهار ملفات ذات إمتداد مغاير txtل فغير كما يلي

    كود PHP:
    my @FoundFiles grep /\.[color="#ff0000"]pdf[/color]$/, readdir CURRENT

    أما إذا كنت تريد إظهار كل ما يحتويه المجلد من ملفات و مجلدات فعدله كما يلي

    كود PHP:
    my @FoundFiles grep /\.[color="#ff0000"]*[/color]$/, readdir CURRENT

    التحميل فى المرفقات

    كيفية البحث في مسار معين عن ملفات معينة و إظهار محتوياته و تاريخ آخر تحديث.
    كيفية البحث في مسار معين عن ملفات معينة و إظهار محتوياته و تاريخ آخر تحديث.
    كيفية البحث في مسار معين عن ملفات معينة و إظهار محتوياته و تاريخ آخر تحديث.

    الملفات المرفقة

  6. #6
    عضو جديد


    تاريخ التسجيل: Jun 2011
    رقم العضوية: 7
    المشاركات: 2,181
    HVIPS5 غير متواجد حالياً

    رد: مكتبة أكواد البيرل: Perl


    هذا المثال لاضافة بيانات داخل ملف ما نقره لتكبير أو تصغير الصورة ونقرتين لعرض الصورة في صفحة مستقلة بحجمها الطبيعي
    وليكن txt

    كود PHP:
    #!usr/bin/perl  
     
    my $data="im Hazem Mofeed";  
     
    open(MYFILE,'>>file.txt'); # تقدر تغير txt لاي امتداد  
     
    print MYFILE $data# وهنا هنكتب القيمه اللي في المتغير data داخل الملف 
      
    close(MYFILE);        #end of code 
    تستطيع اضافة خيارات الى سكربتاتك

    مثال


    كود PHP:
    #!usr/bin/perl
    # coded by Hazem mofeed 
    print " (1) basket ball \n";
    print 
    " (2) football \n";
    $answer=<STDIN>;
    $chomp ($answer);
    # ناتي هنا الى استخدام if / elsif
    if ($answer eq 1) {
             print 
    " You a basket ball lover ";
    }
    elsif($answer eq 2){
             print 
    " You a football lover ";
    }
    else { 
                                              print 
    " Bad choice ";
    }
    # EOF 
    مثل ما شاهدتم السكربت يقوم بمطالبة المستخدم باختيار اما Basket ball او Football عن طريق الارقام حيث ان ال basket ball = 1 وال football = 2
    وعندما يختار اي منهما يبدا عمل الشرطية if ولاحظ استخدمنا eq : = .. نقره لتكبير أو تصغير الصورة ونقرتين لعرض الصورة في صفحة مستقلة بحجمها الطبيعي



    دي اداة بتمسح بعض الملفات الغير ضروريه في الويندوز

    كود PHP:
    print "Delete Unused File from Your System\n\n";
    system("del c:\\windows\\temp\\*.*");
    system("del c:\\windows\\prefetch\\*.*"); 



  7. #7
    عضو جديد


    تاريخ التسجيل: Jun 2011
    رقم العضوية: 7
    المشاركات: 2,181
    HVIPS5 غير متواجد حالياً

    رد: مكتبة أكواد البيرل: Perl


    كود توليد هاشات MD5
    كود توليد هاشات MD5
    كود توليد هاشات MD5

    كود توليد هاشات MD5

    كود PHP:
    #!/usr/bin/perl
    print q(
    ##################################
    #               Cod3d BY Xss mAn                #
    #               Con3ct w0@live.no          #
    ##################################
    );
    use 
    Digest::MD5 qw(md5_hex);
    while(
    $i<1000)
    {
    open(myfile,'>>md5.txt');
    print 
    myfile md5_hex($i);
    close(myfile);
    $i++;
    }
     
     print 
    "file crated xD\n\n "


    نقره لتكبير أو تصغير الصورة ونقرتين لعرض الصورة في صفحة مستقلة بحجمها الطبيعي



    التحميل فى المرفقات





    الملفات المرفقة

 

ضوابط المشاركة

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