Just noticed, line 4:
while ($line = )
should be
while ($line = [left angle bracket][right angle bracket])
- Visitors can check out the Forum FAQ by clicking this link. You have to register before you can post: click the REGISTER link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. View our Forum Privacy Policy.
- Want to receive the latest contracting news and advice straight to your inbox? Sign up to the ContractorUK newsletter here. Every sign up will also be entered into a draw to WIN £100 Amazon vouchers!
Reply to: scripting question
Collapse
You are not logged in or you do not have permission to access this page. This could be due to one of several reasons:
- You are not logged in. If you are already registered, fill in the form below to log in, or follow the "Sign Up" link to register a new account.
- You may not have sufficient privileges to access this page. Are you trying to edit someone else's post, access administrative features or some other privileged system?
- If you are trying to post, the administrator may have disabled your account, or it may be awaiting activation.
Logging in...
Previously on "scripting question"
Collapse
-
Guest replied
-
Guest repliedTa,
Just got to get the module sorted out and I'll be away..
Leave a comment:
-
Guest repliedAssuming you've got ActiveState Perl on your PC, including the LWP::UserAgent module:
Save the following in a file named ip_head.pl.
Call it using:
c:\ perl\bin\perl ip_head.pl iplist.txt
I accept no responsibility for anything which may happen.
#########################################
# START OF CODE
#########################################
use strict;
my ($line, $page);
while ($line = )
        {
        chomp($line);
        $page = p($line);
        print "$line\t$page\n";
        }
#################################################
sub p
{
my ($url) = @_;
my ($ua, $req, $res, @resarray, $head, $page);
use LWP::UserAgent;
if ($url =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/)
        {
        $url = "" . $url . "/";
        }
$ua = LWP::UserAgent->new;
$ua->timeout(10);
# INCLUDE THIS LINE IF YOU CONNECT THROUGH A PROXY SERVER
#$ua->proxy(http => 'access7:8080');
$req = new equest HEAD => $url;
# INCLUDE THIS LINE IF YOU CONNECT THROUGH A PROXY SERVER NEEDING AUTHORISATION
#$req->proxy_authorization_basic("UserID", "Password");
$res = $ua->request($req);
if ($res->is_success)
        {
        $head = $res->headers;
        $page = $$head{'server'};
        }
else
        {
        $page = "NOT AVAILABLE";
        }
return ($page);
}
__END__
#########################################
# END OF CODE
#########################################
Leave a comment:
-
Guest started a topic scripting questionscripting question
Calling Perl scripters!
I have a textfile containing a whole bunch of IP addresses. I want a perl script that will run through the file, telnet to port 80 on that particular IP address, do a HEAD then output to another text file if the webserver is running IIS.
This is for internal audit use and I don't have the scripting skills to do this.
Cheers...Tags: None
- Home
- News & Features
- First Timers
- IR35 / S660 / BN66
- Employee Benefit Trusts
- Agency Workers Regulations
- MSC Legislation
- Limited Companies
- Dividends
- Umbrella Company
- VAT / Flat Rate VAT
- Job News & Guides
- Money News & Guides
- Guide to Contracts
- Successful Contracting
- Contracting Overseas
- Contractor Calculators
- MVL
- Contractor Expenses
Advertisers
Contractor Services
CUK News
- Streamline Your Retirement with iSIPP: A Solution for Contractor Pensions Sep 1 09:13
- Making the most of pension lump sums: overview for contractors Sep 1 08:36
- Umbrella company tribunal cases are opening up; are your wages subject to unlawful deductions, too? Aug 31 08:38
- Contractors, relabelling 'labour' as 'services' to appear 'fully contracted out' won't dupe IR35 inspectors Aug 31 08:30
- How often does HMRC check tax returns? Aug 30 08:27
- Work-life balance as an IT contractor: 5 top tips from a tech recruiter Aug 30 08:20
- Autumn Statement 2023 tipped to prioritise mental health, in a boost for UK workplaces Aug 29 08:33
- Final reminder for contractors to respond to the umbrella consultation (closing today) Aug 29 08:09
- Top 5 most in demand cyber security contract roles Aug 25 08:38
- Changes to the right to request flexible working are incoming, but how will contractors be affected? Aug 24 08:25
Leave a comment: