Sponsored Content
Top Forums Shell Programming and Scripting Grep for the most negative number Post 302615443 by birei on Thursday 29th of March 2012 01:10:00 PM
Old 03-29-2012
Hi sdl27789,

One way using perl:
Code:
$ cat infile
 Ce         3.7729752124       -4.9505731588       -4.1061257680
 Ce        -6.9156611391       -0.5991784762        7.3051893138
 Ce         7.6489739875        0.3513020731       -4.1428887409
  O        -2.0367674927        6.4059113030        4.2342869120
  O         1.8496529300        6.8212696160        0.4577675608
$ cat script.pl
use warnings;
use strict;
use List::Util qw[ min ];

die qq[Usage: perl $0 <input-file>\n] unless @ARGV == 1;

push @ARGV, $ARGV[0];

my ($negative_num, $positive_num);

while ( <> ) {
        chomp;
        my @f = split;
        shift @f;
        my $min = min @f;
        $negative_num = !defined $negative_num || $min < $negative_num ? $min : $negative_num;
}
continue {
        last if eof;
}

$positive_num = abs $negative_num;

while ( <> ) {
        chomp;
        my @f = split;
        for my $pos ( 1 .. $#f ) {
                $f[ $pos ] += $positive_num;
        }

        printf qq[%s\n], join qq[\t], @f;
}
$ perl script.pl infile
Ce      10.6886363515   1.9650879803    2.8095353711
Ce      0       6.3164826629    14.2208504529
Ce      14.5646351266   7.2669632122    2.7727723982
O       4.8788936464    13.3215724421   11.1499480511
O       8.7653140691    13.7369307551   7.3734286999

 

10 More Discussions You Might Find Interesting

1. Programming

C++ how to isdigit() a negative number?

hi people, I have a function which I am passing a stream which is basically postfix notation if(isdigit(in.peek())) { in >> number; nums.push(number); } else if (strchr("+-*/", in.peek( )) != NULL) { in >> symbol; do_operation(symbol, nums, okay); } ... (1 Reply)
Discussion started by: Darklight
1 Replies

2. Shell Programming and Scripting

Grep for a negative number

Hi, I want to search for a return code of -3. Using grep "-3" *.* is giving a syntax error. Please suggest as to how can we search for this pattern using grep. Thanks, Krishna (2 Replies)
Discussion started by: kzmatam
2 Replies

3. Shell Programming and Scripting

ignore negative number in script

Hi, does anyone know how to ignore whether a number is negative in a script. E.g. if I have a variable that contains -1200, how do I ignore the minus sign? (1 Reply)
Discussion started by: borderblaster
1 Replies

4. HP-UX

Division returning a negative number

Hi All, Just faced an interesting thing in HP-UX. I was dividing 2955334616 / 2 by using echo `expr 2955334616 / 2` , and this ofcourse which expects 1477667308 to be returned. But I am getting -669816340 and I am :wall: how exactly this is possible. It is not one of the compliments (Ones or... (4 Replies)
Discussion started by: mail2sanand
4 Replies

5. Shell Programming and Scripting

Taking largest (negative) number from column of coordinates and adding positive form to every other

Hello all, I'm new to the forums and hope to be able to contribute something useful in the future; however I must admit that what has prompted me to join is the fact that currently I need help with something that has me at the end of my tether. I have a PDB (Protein Data Bank) file which I... (13 Replies)
Discussion started by: crunchgargoyle
13 Replies

6. Shell Programming and Scripting

Print smallest negative number with corresponding index from a column

considering the following table: ID col1 col2 col3 col4 1 -16.06801249 13.49785832 -56.57087607 -27.00500526 2 -1.53315720 0.71731735 -42.03602078 -39.78554623 3 -1.53315190 0.71731587 -42.03601548 ... (3 Replies)
Discussion started by: Birda
3 Replies

7. Shell Programming and Scripting

Is it possible to Divide a negative number in bash script

I am using a small script to divide some numbers in a given file and display the output in another file. I am getting the following error basename: invalid option -- '5' Try `basename --help' for more information. (standard_in) 1: syntax error The script is : #!/bin/bash for i in `cat... (4 Replies)
Discussion started by: kmnr877
4 Replies

8. Shell Programming and Scripting

Grep negative matching

is it possible to reverse the output of grep -o (9 Replies)
Discussion started by: squrcles
9 Replies

9. Shell Programming and Scripting

Negative number comparison using nawk on Linux

Hi All, I am trying to compare two negative numbers using awk on linux.But it is giving me wrong result.Same code is working perfectly on solaris. print ((0+new_price) < MIN_PRICE) e.g If I try to compare -1.32(new_price) and -500(min_price) using "<" operator, output is 1 i.e true. ... (5 Replies)
Discussion started by: Rashmee
5 Replies

10. UNIX for Beginners Questions & Answers

Converting negative number to positive in a file

Hi ALL, I am having semi column separated file as below. I am having negative values for the records starting with 11095. How can I convert that positive number I tried this below seems not working sed 's/ \(*\)$/ -\1/;t;s/\(.*\)-/\1/ myfile myfile... (6 Replies)
Discussion started by: arunkumar_mca
6 Replies
Text::Password::Pronounceable(3pm)			User Contributed Perl Documentation			Text::Password::Pronounceable(3pm)

NAME
Text::Password::Pronounceable - Generate pronounceable passwords SYNOPSIS
# Generate a pronounceable password that is between 6 and 10 characters. Text::Password::Pronounceable->generate(6, 10); # Ditto my $pp = Text::Password::Pronounceable->new(6, 10); $pp->generate; DESCRIPTION
This module generates pronuceable passwords, based the the English digraphs by D Edwards. METHODS new $pp = Text::Password::Pronounceable->new($min, $max); $pp = Text::Password::Pronounceable->new($len); Construct a password factory with length limits of $min and $max. Or create a password factory with fixed length if only one argument is provided. generate $pp->generate; $pp->generate($len); $pp->generate($min, $max); Text::Password::Pronounceable->generate($len); Text::Password::Pronounceable->generate($min, $max); Generate password. If used as an instance method, arguments override the factory settings. HISTORY
This code derived from mpw.pl, a bit of code with a sordid history. o CPAN module by Chia-liang Kao 9/11/2006. o Perl cleaned up a bit by Jesse Vincent 1/14/2001. o Converted to perl from C by Marc Horowitz, 1/20/2000. o Converted to C from Multics PL/I by Bill Sommerfeld, 4/21/86. o Original PL/I version provided by Jerry Saltzer. LICENSE
Copyright 2006 by Best Practical Solutions, LLC. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See <http://www.perl.com/perl/misc/Artistic.html> perl v5.10.1 2010-08-16 Text::Password::Pronounceable(3pm)
All times are GMT -4. The time now is 12:34 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy