Loading...
BTC Address to donate : [[address]]
بسم الله الرحمان الرحيم
السلام عليكم و رحمة الله
مقدمة :
الدرس هو عبارة عن شرح كيفية التعامل مع تطبيقات و شبكات الويب من خلال مكيبة lwp
و التي هي إختصار لمكتبة من وحدات www في البيرل
تمكنك هذه المكيبة من تنفيذ عديد المهام مثل إسترجاع صفحات ويب و تقديم تماذج ويب و التعامل البروتوكولات
المعروفة مثل HTTP,HTTPS,FTP,NNTP و غيرها
هناك العديد من المكيبات في البيرل تقوم بفس عمل هالمكتبة أمثال Mechanize & socket & etc
و مثل ما هو معروف ال LWP هي الأكثر استخداما للدخول إلى البيانات على شبكة الإنترنت.
المهم تبدأ بشرح كيفة التعامل مع هذه المكتبة
أولا يجب علينا أن نعلم أن هنا 10 كلاسات في هذه المكتبة مثل ما هو موضح في الصورة
رح نحاول نشرح البعض منها
أولا قبل البداية بشرح الكلاسات تجب علينا التأكد من أن المكتبة موجودة و مثبتة
المهم نطبق هالأمر لمعرفة إزا كانت المكتبة موجودة و نشوف إصدارها
perl -MLWP -e 'print "$LWP::VERSION\n"'
perl -MCPAN -eshell
install Bundle::LWP
use LWP::Simple;
my $x = get("http://sec4ever.com");
use LWP::Simple;
use Data::Dumper;
my @results = head("http://www.google.com");
print Dumper \@results;
$VAR1 = [
'text/html; charset=windows-1256',
undef,
undef,
undef,
'gws'
];
use LWP::Simple;
getprint("http://google.com");
use LWP::Simple;
getstore("http://google.com","1.txt");
mirror($url, $file)
use LWP::Simple;
my $file = "sec.php";
my $x = get("http://site.com/".$file);
if ($x->is_sucess) {
print "the sec.php file exist\n";
}
elsif ($x->is_error) {
print "There is no sec.php file\n";
}
#!/usr/bin/perl -w
use LWP::UserAgent;
#browser = instance of the UserAgent class
my $browser = LWP::UserAgent->new;
$browser->timeout(10);# time out of request is 10 (s)
$browser->agent("msnbot/1.0 (+http://search.msn.com/msnbot.htm)");# user agent is msnbot/1.0 (+http://search.msn.com/msnbot.htm)
# if you wanna user $roxy
$browser->proxy( 'http', 'http://myproxy.com' );
my $url = "http://sec4ever.com"; # The url to test
my $response = $browser->get($url); die "Can’t get $url \n", $response->status_line
unless $response->is_success;
# check if the content is html
die $!, $response->content_type unless $response->content_type eq 'text/html';
#print content to console
print $response->decoded_content;
# print headers as strings
print $response->headers()->as_strings;
# if you wanna user $roxy
$browser->proxy( 'http', 'http://myproxy.com' );
| أدوات الموضوع | |
| انواع عرض الموضوع | |
العرض العادي
