إعـــــــلان

تقليص
لا يوجد إعلان حتى الآن.

اسكربت ليقوم بعمل باك اب للمستخدمين باستخدام البيرل

تقليص
X
 
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة

  • اسكربت ليقوم بعمل باك اب للمستخدمين باستخدام البيرل

    السلام عليكم

    قمت بعمل هذا الاسكرب ليقوم بعمل باك اب للمستخدمين عن طريق اخذ خصائص المستخدمين من ملف etc/passwd/ وارسالها الى قاعده بيانات ماى سكويل ولكن وبكل اسف ظهرى اخطاء فى الاسكربت ممكن مشكورين تدلونى فين الخطاء بالظبط




    الاسكربت
    كود:
    #!/usr/bin/perl -w
    use strict;
    use DBI;
    use diagnostics;
    #step1  - create connection objection . 
    my $dsn = 'DBI:mysql:contacts';
    my $user = 'adam';
    my $password = 'secret';
    my $conn = DBI->connect($dsn,$user,$password) || die "Error connecting" . DBI->errstr;
    
    $file = "/etc/passwd";
    
    open (han1, "$file") || die  "error opening file: $!";
     
    
    my @newrecords = <han1>;
    
    foreach (@newrecords) {
    
    @columns = split /:/;
    
    my $username = $columns[0];
    my $x = $columns[1];
    my $userid = $columns[2];
    my $groupid = $columns[3];
    my $realname = $columns[4];
    my $homedir = $columns[5];
    my $shellpath = $columns[6];
    
    $conn->do("insert into users(username,x,userid,groupid,realname,homedir,shellpath) values('$username','$x','$userid','$groupid','$realname','$homedir','$shellpath')") || die "error preparing query" . $conn->errstr;
    }
    وشكرا لمساعدتكم

  • #2
    انا ضفت ال CODE Tags عشان السكربت يبقة واضح .. إيه ال Error ؟ لأنى مش على Linux Box حاليا
    Programming-Fr34ks[dot]NET
    Ma Weblog
    ابدأ بتعلم Python | Ruby
    كتاب البايثون متوافر الآن
    لا اتواجد بهذا المنتدى ... للإتصال

    تعليق


    • #3
      yeah show us the error msg
      BOOOF , I AM GONE
      Still , you gotta wait for my PRESENT :D
      C programming arabic Tutorial|Programming-fr34ks

      تعليق


      • #4
        thanx for all
        the error message >>

        كود PHP:
         root@adam-laptop:/home/adam/Desktop# ./backup.pl 
        Global symbol "$filerequires explicit package name at ./backup.pl line 11.
        Global symbol "$filerequires explicit package name at ./backup.pl line 13.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 20.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 22.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 23.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 24.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 25.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 26.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 27.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 28.
        Execution of 
        ./backup.pl aborted due to compilation errors (#1)
            
        (FYou've said "use strict vars", which indicates that all variables
            must either be lexically scoped (using "my"), declared beforehand using
            "our", or explicitly qualified to say which package the global variable
            is in (using "::").
            
        Uncaught exception from user code:
                Global symbol "$file" requires explicit package name at ./backup.pl line 11.
        Global symbol "$file" requires explicit package name at ./backup.pl line 13.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 20.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 22.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 23.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 24.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 25.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 26.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 27.
        Global symbol "@columns" requires explicit package name at ./backup.pl line 28.
        Execution of ./backup.pl aborted due to compilation errors.
         at ./backup.pl line 35 

        thanks again

        تعليق


        • #5
          الصراحه انا مش ليا في البيرل قوي
          بس المهم google قال الاتي
          http://www.cs.cf.ac.uk/Dave/PERL/node151.html
          بالتحديد"In order to eliminate the messages, you need to declare $foo and $bar as local variables, like this"
          جرب وقولنا
          BOOOF , I AM GONE
          Still , you gotta wait for my PRESENT :D
          C programming arabic Tutorial|Programming-fr34ks

          تعليق


          • #6
            الحمد لله المشكله حلت

            وتقبلو الكود منى لكل اعضاء المنتدى الكريم

            كود:
             #!/usr/bin/perl -w
            use strict;
            use DBI;
            use diagnostics;
            #step1  - create connection objection . 
            my $dsn = 'DBI:mysql:backupDB';
            my $user = 'adam';
            my $password = 'secret';
            my $conn = DBI->connect($dsn,$user,$password) || die "Error connecting" . DBI->errstr;
            
            my $file = "/etc/passwd";
            
            open (han1, "$file") || die  "error opening file: $!";
             
            
            my @newrecords = <han1>;
            
            foreach (@newrecords) {
            
            my @columns = split /:/;
            
            my $username = $columns[0];
            my $x = $columns[1];
            my $userid = $columns[2];
            my $groupid = $columns[3];
            my $realname = $columns[4];
            my $homedir = $columns[5];
            my $shellpath = $columns[6];
            
            $conn->do("insert into users(username,x,userid,groupid,realname,homedir,shellpath) values('$username','$x','$userid','$groupid','$realname','$homedir','$shellpath')") || die "error preparing query" . $conn->errstr;
            }

            تعليق


            • #7
              كود:
              my @columns = split /:/;
              المشكلة شكلها كانت فى my lol

              تم نقل الكود للمشاريع الكاملة ، وشكرا لك على المشاركه ^^
              Programming-Fr34ks[dot]NET
              Ma Weblog
              ابدأ بتعلم Python | Ruby
              كتاب البايثون متوافر الآن
              لا اتواجد بهذا المنتدى ... للإتصال

              تعليق


              • #8
                ده شرف ليا وباذن الله ساشارك باكواد اخرى فى ال bash والperl واتمنى ان تفيد جميع الاعضاء

                تعليق

                يعمل...
                X