06-03-2008
Hi Pravani,
try this
val=`tail -1 filename`
\rm temp
val=`tail -1 filename`
echo $val >> temp
j=2; for i in `cat filename`
do
val=`tail -$j filename | head -1 `
if [ $val -ge $val2 ]
then
break
else
echo $val >> temp
val2=$val
j=`expr $j + 1`
fi
done
sort -n temp
Thanks
Penchal
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
What is the command used by sysadmin to see the disk used by the users in descending order of their disk usage? (8 Replies)
Discussion started by: asutoshch
8 Replies
2. UNIX for Dummies Questions & Answers
How can I sort a file as follows ?
cols 1 - 10 ascending
cols 11 - 18 descending
cols 19 - 20 ascending
Thanks (1 Reply)
Discussion started by: don_0110
1 Replies
3. Shell Programming and Scripting
Hi All,
I am encountered with a problem while sorting a file based on multiple columns . I need to sort like:
(field2,ascending) , (field3,ascending) ,(field8,descending) , (field7,ascending),(field13,ascending).
So far i was sorting only in ascending order but here i need to use one... (1 Reply)
Discussion started by: apjneeraj
1 Replies
4. Shell Programming and Scripting
Hi
I have a problem with sort command :
sort -nk 1.28,1.34 file | sort -nrk 1.27 file | sort -nk 1.22,1.25 file |sort -nk 1.13,1.21 file | sort -nk 1.9,1.12 file | sort -nk 1.1,1.8 file
This is the input file
0000000100010000000200004090317003
0000000100010000000230001020592002... (3 Replies)
Discussion started by: Fafa
3 Replies
5. UNIX for Dummies Questions & Answers
Hi,
I want to short descending all the files according to their size.Please help me.. (1 Reply)
Discussion started by: jyotidas
1 Replies
6. Shell Programming and Scripting
Input file
9.99331e-13
8.98451e-65
9.98418e-34
7.98319e-08
365592
111669
74942.9
0
Desired output
365592
111669
74942.9
7.98319e-08
1.99331e-13
6.98418e-34 (2 Replies)
Discussion started by: perl_beginner
2 Replies
7. Shell Programming and Scripting
hi all
i want to remove some descending order number
example :
1 100 200 135.00 Gk_wirs 1
1 100 200 136.00 Gk_wirs 50
1 110 210 138.00 Gk_wirs 60
1 100 200 136.00 Gk_wirs 57 ----> how to remove... (6 Replies)
Discussion started by: nithyanandan
6 Replies
8. UNIX for Dummies Questions & Answers
I have a text file where I want to append a column of numbers in ascending orders.
Input:
57 abc
25 def
32 ghi
54 jkl
Output:57 abc
57 abc 1
25 def 2
32 ghi 3
54 jkl 4
How do I go about doing that? Thanks! (11 Replies)
Discussion started by: evelibertine
11 Replies
9. UNIX for Dummies Questions & Answers
Hi,
I am trying to sort the following file in descending order of its fourth column.
2 1 363828 -2.423225e-03
3 1 363828 4.132763e-03
3 2 363828 8.150133e-03
4 1 363828 4.126890e-03
I use
sort -k4,4g -r input.txt > output.txt ... (1 Reply)
Discussion started by: evelibertine
1 Replies
10. Shell Programming and Scripting
Hi,
I have a problem . I have few directories like inpTDT_1, inpTDT_2, inpTDT_3 and so on inside HOME directory . In one of my perl script (which is in my HOME), the above directories like inpTDT_1, inpTDT_2, inpTDT_3 are sorting out in an order So I wanted to sort all the inpTDT_1, inpTDT_2,... (1 Reply)
Discussion started by: venkatesh
1 Replies
LEARN ABOUT SUSE
tk::x11font
X11Font(3) User Contributed Perl Documentation X11Font(3)
NAME
Tk::Font - a class for finding X Fonts
SYNOPSIS
use Tk::X11Font;
$font = $widget->X11Font(foundry => 'adobe',
family => 'times',
point => 120
);
$font = $widget->X11Font('*-courier-medium-r-normal-*-*');
DESCRIPTION
This module can be use to interrogate the X server what fonts are
avaliable.
METHODS
Foundry( [ $val ] )
Family( [ $val ] )
Weight( [ $val ] )
Slant( [ $val ] )
Swidth( [ $val ] )
Adstyle( [ $val ] )
Pixel( [ $val ] )
Point( [ $val ] )
Xres( [ $val ] )
Yres( [ $val ] )
Space( [ $val ] )
Avgwidth( [ $val ] )
Registry( [ $val ] )
Encoding( [ $val ] )
Set the given field in the font name to $val if given and return the current or previous value
Name( [ $max ] )
In a list context it returns a list of all font names that match the fields given. It will return a maximum of $max names, or 128 if $max
is not given.
In a scalar contex it returns the first matching name or undef
Clone( [ key => value, [ ...]] )
Create a duplicate of the curent font object and modify the given fields
AUTHOR
Graham Barr <Graham.Barr@tiuk.ti.com>
HISTORY
11-Jan-96 Initial version
08-Nov-98 Renamed for Tk800.012
COPYRIGHT
Copyright (c) 1995-1996 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.12.1 2007-05-05 X11Font(3)