سورس نمایش اطلاعات وبسایت به زبان پرل
#1
Note 
کد php:
=**************************************
NameGet Server Header
Description:This code will get the header of the server and print it out
ByDamian myerscough
=
Inputs:Host
=
Returns:Server header
=
=
This code is copyrighted and haslimited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=578&lngWId=6=for details.=**************************************

#!/usr/bin/perl
#
#
use IO::Socket;
@
Header;
print
"Enter The Host: ";
$Host = <STDIN>;
chop($Host);
$Socket = new IO::Socket::INET(PeerAddr => $Host,
PeerPort => 80,
Proto=> 'tcp') || die "Could not Connect $!\n";
print
"Connected.\n";
print
"Getting Header\n";
print 
$Socket "GET / HTTP/1.0\n\n";
$i 0;
while(<
$Socket>)
{
@
Header[$i] = $_;
$i++;
}
system("clear");
$i 0;
print
"+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+\n";
while(
$i <= 8)
{
print
" @Header[$i++]\n";
}
print
"+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+\n\n";
print
$Host Finished\n"

پاسخ
ایجاد موضوع جدید   پاسخ به موضوع  

موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Note سورس Site crawler به زبان پرل SOFTAFZAR 1 700 17-07-2014 ساعت 14:31
آخرین ارسال: imanpajand
Note سورس تبدیل string به hexadecimal SOFTAFZAR 0 581 01-11-2012 ساعت 12:56
آخرین ارسال: SOFTAFZAR
Note سورس خواندن فایل متنی به زبان Perl SOFTAFZAR 0 592 15-07-2012 ساعت 18:07
آخرین ارسال: SOFTAFZAR

کاربرانِ درحال بازدید از این موضوع:   1 مهمان