تويت
السلام عليكم
قمت بعمل هذا الاسكرب ليقوم بعمل باك اب للمستخدمين عن طريق اخذ خصائص المستخدمين من ملف etc/passwd/ وارسالها الى قاعده بيانات ماى سكويل ولكن وبكل اسف ظهرى اخطاء فى الاسكربت ممكن مشكورين تدلونى فين الخطاء بالظبط
الاسكربت
وشكرا لمساعدتكم
قمت بعمل هذا الاسكرب ليقوم بعمل باك اب للمستخدمين عن طريق اخذ خصائص المستخدمين من ملف 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;
}
تعليق