Search and replace

[Arun Kalasapudi]

How can I use awk/perl/sed to convert all string of the following format in a text file.

Current:
3/19/2004-7:10:11

Convert to:
2004-3-19 7:10:11

Thanks.

[Steven E. Protter]

var1="3/19/2004-7:10:11"
var2="2004-3-19 7:10:11"

sed s/${var1}/${var2}/g $filename

Should work, make sure the file is backed up.

SEP

[Arun Kalasapudi]

Thanks Steven, I should have been more specific. I need to reformat the string while preserving the text rather than replacing the occurrences.

[curt larson_1]

here is one that doesn't use any of those

cat yourFile |
while read Line
do
end=${Line#*\>}
start=${Line%$end}
last=${end#*\<}
arg=${end%$last}
hms=${arg#-*}
Date=${arg%*-}
print $Date | tr "/" " " | read Mon Day Year
print "${start}${Year}-${Mon}-${Day} ${hms}${last}"
done

[curt larson_1]

using sed

sed 's/\(.*>\)\(.*\)\/\(.*\)\/\(.*\)-\(.*\)/\1\4-\3-\2 \5/'

[curt larson_1]

using awk

cat yourFile |
awk '{
split($0,a,">");
start=sprintf("%s>,a[1])'
split($0,a,"<");
last=sprintf("<%s,a[3])'
sub(start,"");
sub(last,"");
split($0,a,"-");
hms=a[2];
split(a[1],b,"/");
printf("%s%s-%s-%s %s%s\n",start,b[3],b[2],b[1],hms,last);
}'

[curt larson_1]

using perl

perl -ne '
s|(<.*>)(\d*)/(\d*)/(\d*)-(.*)(<.*)|$1$4-$3-$2 $5$6|;
print;
' yourFile