My code below is supposed to find which company had the most business and then print the appropriate fields from another file which are the companies ID number and name. I can loop through awk and display all the total amount of business for each company but I need help in only printing out the total, Id, and name for the company with the highest sales amount. Plus, I am having problems only displaying the carrier id and name of each company but my script displays every carrier ID and company name.
Code:
#!/usr/bin/csh
set num = 1
set count = 5
while ($num <= $count)
awk 'BEGIN{count ='$num'}{if($2 == count) {x+=$5}} END{print x}' ShippingOrders.
tab
awk 'BEGIN{count = '$num'}{if($1 == count}{print $1,$2,$3}' Shippers.tab
@ num = $num + 1
end
Hi All,
I want to choose the maximum value from a column values.
eg -
234
23
567
43
2456
5
678
8978
from thses values how to choose the max value ?
thanks.
roger. (3 Replies)
1> Can anyone tell me what is the maximum no of parameters that can be passed to a file
2> i have 100 files amongst which in 500 files i have a string which needs to be searched how would get the names of those files. (1 Reply)
Hi,
I have a challenging task,in which i have to find the duplicate files by its name and size,then i need to take anyone of the file.Then i need to open the file and find for more than one pattern and count of that pattern.
Note:These are the samples of two files,but i can have more... (2 Replies)
Hi,
I have this input file called ttbitnres (which is catenated and sorted):-
8 0.4444 213
10 0.5555 342
11 0.5555 321
12 0.5555 231
13 0.4444 400
My code is at :-
#!/bin/bash
echo -e Version "\t" Number of Pass "\t" Number of Fail "\t" Rank Position "\t"Min "\t" Max... (1 Reply)
Hi
I have a list of 2000 records with multiple entries and I want to get the max size for each entry
ABC 1
ABC 2
ABC 3
ABC 4
DEF 1
DEF 2
DEF 2
DEF 2
DEF 2
... (9 Replies)
Hi,
I have files named as
energy.dat.1
energy.dat.2
energy.dat.3
...
energy.dat.2342
I would like to find the file with maximum number in the filename (ex. energy.dat.2342) and open it.
Would you please share your expertize in writing the script?
Thanks in advance. (8 Replies)
Dear all,
I have 2 questions.
I have a file with many rows which has date of the format YYYYMMDD.
1. I need to change the date to that weeks friday date(Ex: 20120716(monday) to 20120720). Satuday/Sunday has to be changed to next week friday date too.
2. After converting the date to... (10 Replies)
Hi,
I have the below text:
16:00 0.50
16:00 0.30
16:00 0.00
16:00 0.00
16:00 0.30
16:01 0.00
16:01 0.30
I want to find the max of the 2nd column grouping by the values in the 1st column using awk. So
16:00 0.50
16:01 0.30
I have tried (3 Replies)
Discussion started by: satishrao
3 Replies
LEARN ABOUT DEBIAN
lwp::authen::ntlm
LWP::Authen::Ntlm(3pm) User Contributed Perl Documentation LWP::Authen::Ntlm(3pm)NAME
LWP::Authen::Ntlm - Library for enabling NTLM authentication (Microsoft) in LWP
SYNOPSIS
use LWP::UserAgent;
use HTTP::Request::Common;
my $url = 'http://www.company.com/protected_page.html';
# Set up the ntlm client and then the base64 encoded ntlm handshake message
my $ua = LWP::UserAgent->new(keep_alive=>1);
$ua->credentials('www.company.com:80', '', "MyDomain\MyUserCode", 'MyPassword');
$request = GET $url;
print "--Performing request now...-----------
";
$response = $ua->request($request);
print "--Done with request-------------------
";
if ($response->is_success) {print "It worked!->" . $response->code . "
"}
else {print "It didn't work!->" . $response->code . "
"}
DESCRIPTION
"LWP::Authen::Ntlm" allows LWP to authenticate against servers that are using the NTLM authentication scheme popularized by Microsoft.
This type of authentication is common on intranets of Microsoft-centric organizations.
The module takes advantage of the Authen::NTLM module by Mark Bush. Since there is also another Authen::NTLM module available from CPAN by
Yee Man Chan with an entirely different interface, it is necessary to ensure that you have the correct NTLM module.
In addition, there have been problems with incompatibilities between different versions of Mime::Base64, which Bush's Authen::NTLM makes
use of. Therefore, it is necessary to ensure that your Mime::Base64 module supports exporting of the encode_base64 and decode_base64
functions.
USAGE
The module is used indirectly through LWP, rather than including it directly in your code. The LWP system will invoke the NTLM
authentication when it encounters the authentication scheme while attempting to retrieve a URL from a server. In order for the NTLM
authentication to work, you must have a few things set up in your code prior to attempting to retrieve the URL:
o Enable persistent HTTP connections
To do this, pass the "keep_alive=>1" option to the LWP::UserAgent when creating it, like this:
my $ua = LWP::UserAgent->new(keep_alive=>1);
o Set the credentials on the UserAgent object
The credentials must be set like this:
$ua->credentials('www.company.com:80', '', "MyDomain\MyUserCode", 'MyPassword');
Note that you cannot use the HTTP::Request object's authorization_basic() method to set the credentials. Note, too, that the
'www.company.com:80' portion only sets credentials on the specified port AND it is case-sensitive (this is due to the way LWP is coded,
and has nothing to do with LWP::Authen::Ntlm)
AVAILABILITY
General queries regarding LWP should be made to the LWP Mailing List.
Questions specific to LWP::Authen::Ntlm can be forwarded to jtillman@bigfoot.com
COPYRIGHT
Copyright (c) 2002 James Tillman. All rights reserved. This program is free software; you can redistribute it and/or modify it under the
same terms as Perl itself.
SEE ALSO
LWP, LWP::UserAgent, lwpcook.
perl v5.14.2 2012-01-14 LWP::Authen::Ntlm(3pm)