04-21-2010
Could you please explain a little bit about the code you wrote.
I am not able to understand ... Please
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi,
I have an entry file for a perl script from which I need to remove duplicate entry.
For example:
one:two:three
one:four:five
two:one:three
must become :
one:two:three
two:one:three
The duplicate entry is only the first field. I try many options of sort system command but don't... (4 Replies)
Discussion started by: annececile
4 Replies
2. Shell Programming and Scripting
Does anyone have a quick and dirty way of performing a sort and uniq in perl?
How an array with data like:
this is bkupArr BOLADVICE_VN
this is bkupArr MLT6800PROD2A
this is bkupArr MLT6800PROD2A
this is bkupArr BOLADVICE_VN_7YR
this is bkupArr MLT6800PROD2A
I want to sort it... (4 Replies)
Discussion started by: reggiej
4 Replies
3. Shell Programming and Scripting
Hi,
here is my perl script.This script creates an array and is sorting it using the in-built sort function in perl.
#!/usr/local/bin/perl
my number=6;
my @num_arr=(1,2,3,4,5);
my @array=(23,"$number","Hello",2.345,@num_arr);
#printing the array
print... (2 Replies)
Discussion started by: DILEEP410
2 Replies
4. Shell Programming and Scripting
Hi,
May I know, if a pipe separated File is large, what is the best method to calculate the unique row count of 3rd column and get a list of unique value of the 3rdcolum?
Thanks in advance! (20 Replies)
Discussion started by: deepakwins
20 Replies
5. Shell Programming and Scripting
Hi all,
Say i have a array
@array=("abc,"a",ab");
I would like to sort them according to the length.
Any idea? thanks in advanced.
i tried below code, but not work.
sub sort_fun{
if (length shift(@_) >= length shift(@_) ){
return 1;
}
else{
return 0;
}
} (1 Reply)
Discussion started by: summer_cherry
1 Replies
6. Shell Programming and Scripting
Hi,
Can anyone advise how to correct my script pls?
I'm not getting the correct output =(
Details below:
Logfile
========
Player Num : 14
Player Name : Jacee Thirkins
MVP winner : 1998
End of details....
Player Num : 35
Player Name : Lander Diaz
MVP winner : 2002... (1 Reply)
Discussion started by: gholdbhurg
1 Replies
7. Shell Programming and Scripting
Hi
Is there any way I could reproduce the following code in perl 5.8:
sort -u FILE | sort -t: -k1,1 -k2n
which sorts by unicity first, then by first key, then by second key in numeric format.
What I have now is
@sort_array=uniq sort @sort_array;
after the contents of my... (5 Replies)
Discussion started by: Indalecio
5 Replies
8. Shell Programming and Scripting
Hi,
can I sort the fields on the basis of dates in the following format?
from this
Dec 17 2007 2:18:18:000PM
Dec 17 2007 5:18:18:000AM
Jan 19 2009 4:30:02:000AM
Mar 21 2010 9:13:55:000AM
Dec 16 2007 4:29:21:000PM
Dec 24 2009 12:29:23:000PM
to
Dec 16 2007 4:29:21:000PM... (2 Replies)
Discussion started by: shellwell
2 Replies
9. Shell Programming and Scripting
I have a hash as below
'C1' => { 'x' => 41.9 , 'y' => 5.79999999999995}
'c2 288' => { 'x' => 428.05 , 'y' => 5.79999999999995}
'turn' => { 'x' => 493.25 , 'y' => 209.85}
'0001' => { 'x' => 530.1 , 'y' => 195.7}
'000001' => { 'x' => 235.25 , 'y' => 728.15}
'XYZ' => { 'x' => 56.65 , 'y' =>... (6 Replies)
Discussion started by: chakrapani
6 Replies
10. Shell Programming and Scripting
Hi,
I need help in sorting variables in perl
i have two variables and if those two variables are equal then its good. I have a problem here
example:
variable1= number2 number1
variable2=number1 number2
in my case above both the variables are also equal but the condition is not... (5 Replies)
Discussion started by: rocky1954
5 Replies
LEARN ABOUT CENTOS
net::ldap::control::sortresult
Net::LDAP::Control::SortResult(3) User Contributed Perl Documentation Net::LDAP::Control::SortResult(3)
NAME
Net::LDAP::Control::SortResult - Server Side Sort (SSS) result control object
SYNOPSIS
use Net::LDAP::Control::Sort;
use Net::LDAP::Constant qw(LDAP_CONTROL_SORTRESULT);
use Net::LDAP::Util qw(ldap_error_name);
$sort = Net::LDAP::Control::Sort->new(
order => "cn -age"
);
$mesg = $ldap->search( @args, control => [ $sort ]);
($resp) = $mesg->control( LDAP_CONTROL_SORTRESULT );
if ($resp) {
if ($resp->result) {
my $attr = $resp->attr;
print "Problem sorting, ",ldap_error_name($resp->result);
print " ($attr)" if $attr;
print "
";
}
else {
print "Results are sorted
";
}
}
else {
print "Server does not support sorting
";
}
DESCRIPTION
"Net::LDAP::Control::SortResult" is a sub-class of Net::LDAP::Control. It provides a class for manipulating the LDAP sort request control
1.2.840.113556.1.4.474 as defined in RFC-2891
A sort result control will be returned by the server in response to a search with a Server Side Sort control. If a sort result control is
not returned then the user may assume that the server does not support sorting and the results are not sorted.
CONSTRUCTOR ARGUMENTS
attr
If "result" indicates that there was a problem with sorting and that problem was due to one of the attributes specified in the sort
control. "attr" is set to the name of the attribute causing the problem.
result
This is the result code that describes if the sort operation was sucessful. If will be one of the result codes describes below.
METHODS
As with Net::LDAP::Control each constructor argument described above is also available as a method on the object which will return the
current value for the attribute if called without an argument, and set a new value for the attribute if called with an argument.
RESULT CODES
Possible results from a sort request are listed below. See Net::LDAP::Constant for a definition of each.
LDAP_SUCCESS
LDAP_OPERATIONS_ERROR
LDAP_TIMELIMIT_EXCEEDED
LDAP_STRONG_AUTH_REQUIRED
LDAP_ADMIN_LIMIT_EXCEEDED
LDAP_NO_SUCH_ATTRIBUTE
LDAP_INAPPROPRIATE_MATCHING
LDAP_INSUFFICIENT_ACCESS
LDAP_BUSY
LDAP_UNWILLING_TO_PERFORM
LDAP_OTHER
SEE ALSO
Net::LDAP, Net::LDAP::Control::Sort, Net::LDAP::Control, http://ww.ietf.org/rfc/rfc2891.txt
AUTHOR
Graham Barr <gbarr@pobox.com>
Please report any bugs, or post any suggestions, to the perl-ldap mailing list <perl-ldap@perl.org>
COPYRIGHT
Copyright (c) 1999-2004 Graham Barr. All rights reserved. This program is free software; you can redistribute it and/or modify it under the
same terms as Perl itself.
perl v5.16.3 2013-06-07 Net::LDAP::Control::SortResult(3)