Perl Language
डीबीआई मॉड्यूल के माध्यम से डेटाबेस के साथ सरल बातचीत

पैरामीटर

डीबीआई मॉड्यूल

आपको यह सुनिश्चित करना चाहिए कि आपके पीसी पर मॉड्यूल DBI स्थापित किया गया है, तो bellow चरणों का पालन करें:

1. अपनी प्रति लिपि में DBI मॉड्यूल का उपयोग करें

use DBI;

2. कुछ प्राथमिक मापदंडों की घोषणा करें

my $driver = "MyDriver";

my $database = "DB_name";

my $dsn = "DBI:$driver:dbname=$database";

my $userid = "your_user_ID";

my $password = "your_password";

my $tablename = "your_table";

3. अपने डेटाबेस से कनेक्ट करें

my $dbh = DBI->connect($dsn, $userid, $password);

4. अपनी क्वेरी तैयार करें

my $query = $dbh->prepare("Your DB query");

उदाहरण के लिए:

$my_query = qq/SELECT * FROM table WHERE column1 = 2/;

my $query = $dbh->prepare($my_query);

हम नीचे दिए गए प्रश्नों की तरह चर का भी उपयोग कर सकते हैं:

my $table_name = "table";

my $filter_value = 2;

$my_query = qq/SELECT * FROM $table_name WHERE column1 = $filter_value/;

5. अपनी क्वेरी निष्पादित करें

$query->execute();

* नोट: इंजेक्शन के हमले से बचने के लिए, आपको प्लेसहोल्डर्स का उपयोग करना चाहिए ? इसके बजाय अपने वैरिएबल को क्वेरी में रखें।

पूर्व: आप 'तालिका' से सभी डेटा दिखाना चाहते हैं जहाँ कॉलम 1 = $ मूल्य 1 और स्तंभ 2 = $ मूल्य 2:

my $query = $dbh->prepare("SELECT * FROM table WHERE column1 = ? AND column2 = ?;");

$query->execute($value1, $value2);

6. अपने डेटा को हटाएं

my @row = $query->fetchrow_array(); सरणी के रूप में डेटा संग्रहीत करें

या

my $ref = $sth->fetchrow_hashref(); डेटा को हैश संदर्भ के रूप में संग्रहीत करें

7. समाप्त करें और डीबी को डिस्कनेक्ट करें

$sth->finish;

$dbh->disconnect();