Ftp Module استخدامها
Ftp Module استخدامها
Ftp Module استخدامها

السلام عليكم ورحمة الله وبركاتة
اهلا بكم جميعا باذن الله هشرح الموديول اف تي بي في البيرل

اولا ازاي نقدر نستخدمها في البيرل او طريقة تضمينها داخل كود البيرل لدينا


بالشكل التالي

كود:
#!usr/bin/perl
        use Net::FTP;
حيث ان use هو امر التضمين في البيرل وال Net::FTP هو الموديول ( يرجى مراعاة الحروف )

سنبرمج الان connector بسيط للاتصال بالبورت 21 اي الافتي بي


كود:
#!usr/bin/perl
#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 ";
زي مانتوا شايفين ان الكونيكتور ده بيتصل بخدمة الافتي بي اللي هي على البورت 21 ( الافتراضي ) لو قدر انه يتصل هيقولي نجح الاتصال لو مقدرش هيقول فشل

ان شاء الله نكون فهمنا الموديول

اخوكم حازم




Ftp Module استخدامها
Ftp Module استخدامها
Ftp Module استخدامها