• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

أبو أحمد الحلبي

اعضاء جدد
  • عدد المشاركات

    5
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن أبو أحمد الحلبي

  • الرتبة
    عضو جديد

معلومات الملف الشخصي

  • الجنس ذكر
  1. مشكلة في الكتابة إلى ملف باستخدام بيرل

    تم حل المشكلة إخواني الكود بعد التعديل : #!/usr/bin/perluse strict;use warnings;print "Opening names.txt ..\n";open NAMES,">>names.txt" or die "Error : Can't open names.txt";print "names.txt has been opened successfully !\n";print "Do you want to insert a name into names.txt file (Y\\N) ?\n";my $Answer = <>;chomp ($Answer);if ($Answer eq "Y") {print "Type the name that you want to insert :\n";my $Answer2 = <>;chomp($Answer2);print NAMES "$Answer2\n" or die "Can't write into the file !";}else {print "ok:(\n";}print "Closing names.txt ..\n";close NAMES or die "Error : Can't close names.txt";print "names.txt has been closed successfully !\n";exit;طريقة الحل هي إضافة هذه العلامة << قبل اسم الملف  :)
  2. السلام عليكم إخواني أنا عندي ملفين : ملف بيرل اسمه Open.pl و ملف آخر اسمه names.txt من المفترض أن يقوم الملف Open.pl بالكتابة إلى ملف names.txt و لكنه لا يكتب . مع العلم أني أعطيت التصريح 777 للملفين (علما أني أستخدم نظام الباك تراك 5 ) و هذا هو كود ملف Open.pl : #!/usr/bin/perlprint "Opening names.txt ..\n";open NAMES,"names.txt" or die "Error : Can't open names.txt";print "names.txt has been opened successfully !\n";print "Do you want to insert a name into names.txt file (Y\\N) ?\n";$Answer = <>;chomp ($Answer);if ($Answer eq "Y") {print "Type the name that you want to insert :\n";$Answer2 = <>;chomp($Answer2);print NAMES "$Answer2\n" or die "Can't write into the file !";}else {print "ok:(\n";}print "Closing names.txt ..\n";close NAMES or die "Error : Can't close names.txt";print "names.txt has been closed successfully !\n";exit;و هذا هو محتوى ملف names.txt : NajeebNabeelAmrأرجو المساعدة إخواني و شكرا لكم مسبقا
  3. مشكلة في بيرل

    جزاك الله كل خير أخي الكريم ..
  4. مشكلة في بيرل

    السلام عليكم ممكن شرح لـbitwise operators و شكرا
  5. السلام عليكم و رحمة الله و بركاته المشكلة :إخواني أنامبتدئ في بيرل . عندي كود مكتوب بلغة بيرل . يجب أن يقوم هذا الكود بطباعة كل القيم الموجودة في الهاش Users بحيث يكون هناك سطر بين كل قيمة و أخرى أترككم مع الكود لتفهموا المشكلة (مع العلم أني أستخدم نظام تشغيل الباك تراك 5)   الكود : #!/usr/bin/perlmy %Users = ("User1" => "Amr" , "User2" => "Nabeel" , "User3" => "Samir" , "User4" => "Amr"); my $CUser = %Users;for (my $i=0;$i<$Cuser;$i++) {my $forUser = "User"."$i";print $Users{$forUser};print "\n";}و بعد تشغيل البرنامج لا يظهر شيء !! . المرجو المساعدة