string manipulation

02-14-2008

Registered User

2,669, 20

Join Date: Sep 2006

Last Activity: 28 January 2015, 8:30 AM EST

Posts: 2,669

Thanks Given: 0

Thanked 20 Times in 20 Posts

Quote:

Originally Posted by summer_cherry

Hi,

My solution is very awkward anc complex, but it works well in my PC.

So just try it, to be honest, i do not know how to sort a single string. Seems the split/sort/join are all working for a file but not a single string.

If you have found any good solution, do let me know. i am really curious about this thread.

Code:

echo "first string"
read str1
echo "second string"
read str2
echo $str1 | sed 's/./& /g' > temp1
echo $str2 | sed 's/./& /g' > temp2
for i in `cat temp1`
do
echo $i
done | sort > t1
for j in `cat temp2`
do
echo $j 
done | sort > t2
a=`comm -3 t1 t2 | wc -l`
if [ $a -le 0 ]
then
echo "similiar"
else
echo "different"
fi
rm temp1 temp2 t1 t2

firstly, you can try to indent your code to make it more readable for the OP. secondly

Quote:

Code:

for i in `cat temp1`
do
echo $i
done | sort > t1

could be equivalent to

Code:

 sort temp1 > t1

ghostdog74

View Public Profile for ghostdog74

Find all posts by ghostdog74

02-14-2008

Registered User

779, 112

Join Date: Feb 2006

Last Activity: 18 May 2018, 1:51 PM EDT

Location: Almer�a, Spain

Posts: 779

Thanks Given: 24

Thanked 112 Times in 106 Posts

In GNU awk , if you have the words in different files:

Code:

awk 'NR==FNR{for(i=1;i<=NF;i++)a1[$i]=$i}
{for(j=1;j<=NF;j++){a2[$j]=$j;if (!($j in a1)){f=1}}}
END {for ( o in a1 )if (!( o in a2 )){f=1}
    if (f || ( i != j )) {print "different"}else{print "similar"}
}' FS='' f1 f2

Klashxx

View Public Profile for Klashxx

Find all posts by Klashxx

02-14-2008

Registered User

729, 0

Join Date: Jan 2008

Last Activity: 11 September 2009, 3:44 PM EDT

Posts: 729

Thanks Given: 0

Thanked 0 Times in 0 Posts

Quote:

Originally Posted by Cactus Jack

Can you a give a permutation for one that can be put in a test command?

I was hoping to manipulate them so they both are identical.

E.g. sort characters in order

string1=dorw
string2=dorw

They are identical and can be put in a test command, returning true. The strings already have the same length and letters so I thought there must be some way to get them like that.

Code:

#!/usr/bin/perl
use warnings;
use strict;
unless (@ARGV == 2)  {
   die "Usage: perl scriptname.pl word1 word2";
}
my $test =  (test(@ARGV)) ? 'true' : 'false';
print $test;
sub test {
   return 1 if join('',sort (split('',shift))) eq join('',sort (split('',shift)));
   return 0;
}

KevinADC

View Public Profile for KevinADC

Find all posts by KevinADC

Shell Programming and Scripting