‫اولین تجربه با «پرل»

زبان پرل (Perl) در یکی از نرم افزارهایی که اخیرا مجبور به استفاده از آن شده‌ام یعنی OTRS و بعضی برنامه‌های معروف دیگر مثل Movable Type و PRTG استفاده شده است. این زبان در یونیکس و قاعدتا در لینوکس هم طرفداران زیادی دارد و در محیط‌های ویندوزی هم در کاربردهای سیستمی مثل مدیریت شبکه زبان پر استفاده‌ای است.

OTRS برای ارتباط با دیتابیس از طریق ODBC مشکلی پیدا کرده بود که برای درک مشکل آن مجبور شدم مقداری از مستندات «پرل» را بخوانم و اولین اسکریپتم را بر اساس راهنمای ذکر شده در اینجا ایجاد کرده و اجرا کنم. پکیج DBI کار ارتباط با دیتابیس را در پرل به عهده دارد. برای تکمیل این ارتباط به پکیج DBD-ODBC یا دیگر پکیج‌های DBD هم نیاز هست. من برای اجرای این اسکریپت یک دیتابیس در SQLEXPRESS ویندوزم ساخته و در ODBC یک Data Source به اسم otrs برای آن ایجاد کردم. این هم اسکریپت:

#!/usr/bin/perl  -w
use DBI;

my $dbh   = DBI->connect (“DBI:ODBC:otrs”)
                           or die “Can’t connect to database: $DBI::errstrn”;
#prepare the query
my $sth = $dbh->prepare(“SELECT *  FROM users”);
#execute the query
$sth->execute( );
## Retrieve the results of a row of data and print
print “tQuery results:n==============================================n”;
while ( my @row = $sth->fetchrow_array( ) )  {
         print “@rown”;
}
warn “Problem in retrieving results”, $sth->errstr( ), “n”
        if $sth->err( );
#disconnect  from database
$dbh->disconnect or warn “Disconnection error: $DBI::errstrn”;
print “done”;
exit;

 

پ. ن. ۱: من برای اجرای این اسکریپت از ActivePerl استفاده کردم.
پ. ن. ۲: OTRS یک سیستم Help Desk کد باز است که قابلیت‌های ITIL را هم می‌توان به آن اضافه کرد.

Comments

  1. ناشناس

    دوست عزیز:
    1.سلام
    2.ممنون که به ما سرزدی
    3.باید بگم از اونجایی که مطالب رو برام دوستان عزیزی که لطف دارند می فرستند می گذارم در غیر این صورت منابع ذکر میشه که در بعضی از مطالب وب لاگ می بینید…..
    ولی امید وارم دوستانی که به وب لاگ من می آیند کپی رایت را رهایت کنند!
    به ما mohsen-jan.mihanblog.com سر بزنید
    بازم ابراز خوشحالی می کنم.

  2. هستونک

    سلام افشی جان
    خوبی عزیزم؟
    اینجا رو گم کرده بودم در واقع چون خودم رو گم و گور کرده بودم!
    ازنیا که گفتی یهنی چه؟ ما که سر در نیاوردیم !
    من تقریبا دوباره شروع کردم اما یه جور دیگه و ب ینام و نشان.
    اونجا برای خودم می گم همه چی ! بی نام . یادت می مونه؟
    اه …!
    اینجا چرا جای درج آدرس نداره که؟
    hastunak.blogfa.com

  3. هستونك

    سلام مجدد
    خب سخته !!!
    با شناختي كه از من داري گمونم برات قانع كننده باشه!
    راستي از چيزايي كه ما هم بفهميم هم جايي چيزي مي نويسي؟

  4. افشار محبی

    کار با wordpress.com چندان هم سخت نیست. همه چیزش فارسی شده و راحت هستش. در کنار اینها به شدت استاندارد و رو به رشد می‌باشد.
    از چیزایی هم که تو بفهمی (یعنی راجع به خودم باشد) با توجه به شناختی که تو هم از من داری خبری نیست!

  5. ناشناس

    Certain cars are more expensive to fix along with the insurance providers know this. It is known as agreed value since the policyholder (you) along with the insurer (The Hartford) agree upon it. It is important for a bodily injury claim that your particular injuries are documented correctly. nSdHiLC, [url=http://www.igetcheapcarinsurance.com/auto-insurance-in-massachusetts/]auto insurance in massachusetts[/url], AVMxtkE, [url=http://www.igetcheapcarinsurance.com/car-insurance-system-france/]car insurance system france[/url], UCgMnLH, [url=http://www.igetcheapcarinsurance.com/third-party-motor-vehicle-insurance-nsw/]third party motor vehicle insurance nsw[/url], xqZtSlt,

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *