07-31-2009
Quote:
Originally Posted by
Niroj
$number=~ s/([^\.]*\.)(...).*/$1$2/;
---------- Post updated at 01:30 AM ---------- Previous update was at 01:14 AM ----------
You can also use:
$number=~ s/(\d*\.)(\d{0,3}).*/$1$2/;
No, that does not do any rounding off. If all you wanted to do was truncate the number of digits then substr() is better for that unless you had to search for the number in a string.
8 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Dear friends,
please help me to solve following problem.
I'm running a frontend application from which i'll be invoking the shell script with arguments as given below
-driver -w -p "ABC XYZ" -S -ds con -dn "abc xyz"
i am getting
$1=-driver
$2=-w
$3=-p
$4="ABC
$5=XYZ"
$6=-S
$7=-ds... (3 Replies)
Discussion started by: swamymns
3 Replies
2. Shell Programming and Scripting
In a shell script - How do I round a decimal number (contained in a variable) to the nearest whole number? (2 Replies)
Discussion started by: achieve
2 Replies
3. Shell Programming and Scripting
Hi Friends,
I am new to this forum as well as new to shell scripting.
I have a problem here and i need someone to solve this.
Let us consider there are two processes(abc & def).There is a script which kills these two processes(i.e killtheprocess abc). Here abc is the argument .
There... (0 Replies)
Discussion started by: Prince89
0 Replies
4. Shell Programming and Scripting
Hi All,
Can anybody help me to write the umbrella script for the following?
I have three steps to do.
STEP 1: CONVERT XML files to PS files
STEP 2: CONVERT ALL PS FILES TO PDF FILES
STEP 3: FTPING ALL PDF FILES TO THE SERVER.
I have the codes for the above three steps.
Now I... (6 Replies)
Discussion started by: sunitachoudhury
6 Replies
5. Shell Programming and Scripting
Hello All,
Can someone help me to set a user's password from the script using korn shell. The password change is a one time password after user account creation.
I tried providing the input file as the value for password field but password change requires tty so my password from an input file... (3 Replies)
Discussion started by: solaix14
3 Replies
6. Shell Programming and Scripting
Hey everyone, I was wondering if i am able to write a sed command to round a number to two decimal places. So for example:
1.58674
would be
1.58
I just want to chop off the numbers to the right of the second digit after the period. I know this is probably trivial but the closest i got was... (8 Replies)
Discussion started by: GmGeubt
8 Replies
7. Shell Programming and Scripting
From the attached file I to need pick all rows that have AVG2 column value larger than 0.050, and write those values in to a separate file. Help me on how I pick the approp value & output them onto a file.
Very Thanks in advance. :b: (5 Replies)
Discussion started by: tonystark
5 Replies
8. Shell Programming and Scripting
Hi Guys,
i am having a csv file where i need to round off numerical column to 2 decimal precision in specific columns. i need to ignore the first two line i.e the header columns and manipulate rest of the lines of the csv file. My columns are specific i.e i need to round off only 2nd,4th and... (13 Replies)
Discussion started by: rohit_shinez
13 Replies
LEARN ABOUT MOJAVE
net::ldap::control::postread
Net::LDAP::Control::PostRead(3) User Contributed Perl Documentation Net::LDAP::Control::PostRead(3)
NAME
Net::LDAP::Control::PostRead - LDAPv3 Post-Read control object
SYNOPSIS
use Net::LDAP;
use Net::LDAP::Control::PostRead;
use Net::LDAP::Constant qw( LDAP_CONTROL_POSTREAD LDAP_SUCCESS );
$ldap = Net::LDAP->new( "ldap.mydomain.eg" );
$postread = Net::LDAP::Control::PostRead->new( attrs => [ qw/givenName/ ] );
my $mesg = $ldap->modify( "cn=Barbara Jensen, o=University of Michigan, c=US",
replace => { givenName => "Babs" },
control => $postread );
if ($mesg->code eq LDAP_SUCCESS) {
my ($afterwards) = $mesg->control( LDAP_CONTROL_PREREAD );
my $entry = $afterwards ? $afterwards->entry() : undef;
if ($entry) {
print "givenName changed to '" .
join("', '", $entry->get_value(givenName") .
"' to 'Babs'
");
}
}
DESCRIPTION
"Net::LDAP::Control::PostRead" provides an interface for the creation and manipulation of objects that represent the "Post-Read Controls"
as described by RFC 4527.
In modification operations, the "Post-Read request control" indicates to the server that a copy of the modified entry after the update is
to be returned. After the successful completion of the operation, the accompanying "Post-Read response control" allows one to retrieve the
updated value from the server's response.
One use case of this control may be to obtain values of operational attributes, such as the "entryUUID" and "modifyTimestamp" attributes,
updated by the server as part of the update operation.
CONSTRUCTOR ARGUMENTS
In addition to the constructor arguments described in Net::LDAP::Control the following are provided.
attrs => [ ATTR, ... ]
A list of attributes to be returned in the entry returned in the response control.
If absent, all attributes are returned.
Operational attributes may be included in the list by explicitly asking for them or by using special "+" feature (provided the server
supports this feature).
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.
In addition to these methods, the control also supports the following method:
entry ()
Returns the entry from the response control in the response message to the LDAP request that contained the request control.
The result is either a Net::LDAP::Entry object or undefined.
SEE ALSO
Net::LDAP, Net::LDAP::Control, http://www.ietf.org/rfc/rfc4527.txt
AUTHOR
Peter Marschall <peter@adpm.de>
Please report any bugs, or post any suggestions, to the perl-ldap mailing list <perl-ldap@perl.org>
COPYRIGHT
Copyright (c) 2008,2011 Peter Marschall. 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.18.2 2013-07-21 Net::LDAP::Control::PostRead(3)