السلام عليكم ورحمة الله وبركاتة
اهلا بكم جميعا باذن الله هشرح الموديول اف تي بي في البيرل
اولا ازاي نقدر نستخدمها في البيرل او طريقة تضمينها داخل كود البيرل لدينا
بالشكل التالي
use Net::FTP;
#!usr/bin/perl
حيث ان use هو امر التضمين في البيرل وال Net::FTP هو الموديول ( يرجى مراعاة الحروف )
سنبرمج الان connector بسيط للاتصال بالبورت 21 اي الافتي بي
#coded by Hazem mofeed
use Net::FTP;
print " enter ip to connect : ";
$ip=<STDIN>;
chomp($ip);
print " enter ftp user : ";
$user=<STDIN>;
chomp($user);
print " enter ftp pass : ";
$pass=<STDIN>;
chomp($pass);
$ftp = Net::FTP->new($ip, Debug => 0, Port => 21)|| die "failed ...";
$ftp->login($user,$pass) || die " user or pass not right";
print " Connected successfully to ftp service ";
print " its example ";
#!usr/bin/perl
زي مانتوا شايفين ان الكونيكتور ده بيتصل بخدمة الافتي بي اللي هي على البورت 21 ( الافتراضي ) لو قدر انه يتصل هيقولي نجح الاتصال لو مقدرش هيقول فشل
ان شاء الله نكون فهمنا الموديول
اخوكم حازم
Egy coders team
