Need help in sort variable in perl


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Need help in sort variable in perl
# 1  
Old 03-05-2012
Need help in sort variable in perl

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 satisfying so its failing

how can i sort variable 1 to change it from number2 number1 to number1 number2

Thanks in advance!!!
# 2  
Old 03-05-2012
Quote:
Originally Posted by rocky1954
...
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 satisfying so its failing

how can i sort variable 1 to change it from number2 number1 to number1 number2
...
Code:
$
$ perl -le '$x = "426153"; print "Before sort: \$x = $x"; $x = join "",sort split//,$x; print "After  sort: \$x = $x"'
Before sort: $x = 426153
After  sort: $x = 123456
$
$

tyler_durden
# 3  
Old 03-06-2012
Hi,

Thanks for the reply

but the code you have given is not working for my condition

here is my requirement

variable1 = david3 david1

variable2 = david1 david3

i need to change variable1 like david1 david3

i need to use this as dynamic thing

please help me on this....
# 4  
Old 03-06-2012
It's a very simple change of the above script.

Right now, it splits on // i.e. nothing, so splits apart every charatcter. And joins together on "" i.e. nothing, so puts them back together with nothing inbetween.

/ / and " " would split/sort on spaces and put them back together with spaces inbetween.
# 5  
Old 03-06-2012
Of course, using split / /, $x would hold 'david3' and 'david1' as two elements of a list. But that alone would not be sufficient. Upon sorting this list, the output would be a simple alphabetic sort meaning if the list were to contain 'david3' and 'david10' (in this order), the simply sorted list would contain 'david10' and 'david3' (in this order).

Either write your own sub-routine to sort alpha-numeric strings or use the Sort::Naturally module of perl.

An example:
Code:
#! /usr/bin/perl -w
use strict;
use Sort::Naturally 'nsort';

my $var = 'david10 david3';
my @x = split / /, $var;

print join (' ', (nsort @x));

# 6  
Old 03-07-2012
HI Corona688,

the code is working fine but i need some more help

i have one more entry in variable name i want name to be like that and need to sort number thing

for example

variable1= name number2 number1
variable2= name number1 number2

i need to have name to be not sorted but i need number2 and number1 sorted

Please help me on this
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Including variable in sort command

I have the following awk statement that computes rank of a column and sorts it based on rank. sort -k6 -n file | awk '$6 != prev { rank = NR }{ print $1, $6, rank ; prev = $6 }' I need the above code to accept variables for the column in the sort statement ("-k6"). Is there a better... (6 Replies)
Discussion started by: ncwxpanther
6 Replies

2. Shell Programming and Scripting

Variable increment (of some sort)

i have a variable that has more than one value. i am declaring another variable, which will have the old variable data one by one. i want to use the second variable to hold the track of all the variable it has parsed from the first one. can somebody help me how do i declare and use the second... (7 Replies)
Discussion started by: gopajitmalakar
7 Replies

3. Shell Programming and Scripting

sort - perl

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

4. UNIX for Advanced & Expert Users

Perl Sort

I am getting the problem to sort these input in perl. INPUT ------ Eddie-3 Michael-1 Nica-4 Montoya-6 Then the program should print the output as follows: OUTPUT ------- Michael-1 Eddie-3 Nica-4 Montoya-6 I am only able to sort to the words but I want to sort to numbers.. My... (5 Replies)
Discussion started by: mr_harish80
5 Replies

5. Shell Programming and Scripting

sort in perl

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

6. Shell Programming and Scripting

how to do sort in perl?

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

perl sort

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

8. Shell Programming and Scripting

unique sort contents of a variable

Hi , I have #echo $var1 #hdisk2 hdisk3 hdisk0 hdisk2 Now I need to remove duplicate entries from this . ie. after sorting it should only have hdisk2 hdisk3 hdisk0 . I can have these values in a array as well . I understand we can use sort -u to remove the duplicates in a... (2 Replies)
Discussion started by: praveenbvarrier
2 Replies

9. Shell Programming and Scripting

Sort and Unique in Perl

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

10. Shell Programming and Scripting

sort function in perl

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
Login or Register to Ask a Question