#!/usr/bin/perl -w use IO::Socket; $sock = new IO::Socket::INET (PeerAddr => "xx.xx.xx.xx", PeerPort => "http(80)"); die "Couldnt create socket: $@" unless $sock; $sock->autoflush(1); $sock->print("GET /xx.xx.xx.xx/pbsvss.htm HTTP/1.1\n Host:xx.xx.xx.xx: +80\n\n"); @document = $sock->getlines(); @lastlines = @document[-20 .. -1]; print "last lines: \n\n"; print @lastlines;
In reply to retrieve html code in reverse from remote server by Peetie
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |