Search Results

Try this also,


#!/usr/local/bin/perl
my @source = ("aaa", "aaa", "bbb", "ccc", "ddd");
foreach my $var (@source)
{
push @uniq,$var if(!grep /$var/,@uniq);
}
print "My uniq array::...

Try this,

nawk '{gsub(/\[../,"|");gsub(/\{../,"\n")}1' txt

Regards,
Indu

Try This,
nawk '{if($0!~/###/){$3="madd " $3}}1' txt

Regards,
Indu.

Try this,
awk -F"," '{for(i=1;i<=NF;i++){print $i/1024;}}' txt > txt1

Regards,
Indu

Try this,

nawk -F"," 'gsub(/"|"/,"",$0){print $2 ",http://"$3"/"}' txt

Regards,
Indu

Kindly Try with this for replacing ".",

sed 's/\(\.\)\([a-zA-Z]\)/\1 \2/g' txt

Regards,
Indu

Try this,

sed 's/\(\.\)/\1 /g; s/\"/\V/g' txt

Try this,

nawk '{if(a[$2] !~ 1){a[$2] = 1}else{$4=-$4}}1' txt

Regards,
Indu

Try this,
awk '/string/{print}' test.txt

Regards,
Indu

Try this,
sed 's/\%//g; s/G//g' text

Regards,
Indu

Hopes it helps you.

sed 's/\(..\):\(..\):\(..\..\).. \(..\) \(..\) \(....\)/\1:\2:\3 \4\5\6/' txt1 > txt2

Regards,
Indu

Thank u.I mistook that "." have to be deleted.

Regards,
Indu

Hi,

You can better use this.
sed 's/^\.\(.*\)//g' filename

Regards,
Indu