Shell Programming and Scripting

-rw-r--r--. 1 user1   domain users           619 2017-04-13 16:16:50.284598383 +0000  aa
drwxr-xr-x. 2 root    root             6 2017-05-08 12:40:33.182976407  +0000 aaa
-rw-r--r--. 1 root    root         13883 2017-03-31 17:07:35.821185258  +0000 aa.sh
-rw-r--r--. 1 root    root             0 2017-05-08 12:40:36.310976557  +0000 ab

-rw-r--r--. 1 user1 domain users           619 2017-04-13 16:16:50  aa
drwxr-xr-x. 2 root    root             6 2017-05-08 12:40:33  aaa
-rw-r--r--. 1 root    root         13883 2017-03-31 17:07:35  aa.sh
-rw-r--r--. 1 root    root             0 2017-05-08 12:40:36  ab

#!/usr/bin/env bash

# @(#) s1       Demonstrate string manipulation, based on context.

# Utility functions: print-as-echo, print-line-with-visual-space, debug.
# export PATH="/usr/local/bin:/usr/bin:/bin"
LC_ALL=C ; LANG=C ; export LC_ALL LANG
pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
em() { pe "$*" >&2 ; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && $C perl

FILE=${1-data1}
E=expected-output.txt

pl " Input data file $FILE:"
cat $FILE

pl " Expected output:"
cat $E

pl " Results:"
perl -wpe 's/(:\d\d)([.]\d+\s\s?[+]\d+)/$1/' $FILE |
tee f1

pl " Verify results if possible:"
C=$HOME/bin/pass-fail
[ -f $C ] && $C || ( pe; pe " Results cannot be verified." ) >&2

exit 0

$ ./s1

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 3.16.0-4-amd64, x86_64
Distribution        : Debian 8.7 (jessie) 
bash GNU bash 4.3.30
perl 5.20.2

-----
 Input data file data1:
-rw-r--r--. 1 user1   domain users           619 2017-04-13 16:16:50.284598383 +0000  aa
drwxr-xr-x. 2 root    root             6 2017-05-08 12:40:33.182976407  +0000 aaa
-rw-r--r--. 1 root    root         13883 2017-03-31 17:07:35.821185258  +0000 aa.sh
-rw-r--r--. 1 root    root             0 2017-05-08 12:40:36.310976557  +0000 ab

-----
 Expected output:
-rw-r--r--. 1 user1 domain users           619 2017-04-13 16:16:50  aa
drwxr-xr-x. 2 root    root             6 2017-05-08 12:40:33  aaa
-rw-r--r--. 1 root    root         13883 2017-03-31 17:07:35  aa.sh
-rw-r--r--. 1 root    root             0 2017-05-08 12:40:36  ab

-----
 Results:
-rw-r--r--. 1 user1   domain users           619 2017-04-13 16:16:50  aa
drwxr-xr-x. 2 root    root             6 2017-05-08 12:40:33 aaa
-rw-r--r--. 1 root    root         13883 2017-03-31 17:07:35 aa.sh
-rw-r--r--. 1 root    root             0 2017-05-08 12:40:36 ab

-----
 Verify results if possible:

-----
 Comparison of 4 created lines with 4 lines of desired results:
f1 expected-output.txt differ: char 21, line 1
 Failed -- files f1 and expected-output.txt not identical -- detailed comparison follows.
 Succeeded by ignoring whitespace differences.

To get the best advice on transforming, extracting, manipulating data,
please supply the environment and context:

1. Os and shell, preferably with versions
2. Representative input
3. Output desired that corresponds to the input
4. Logic to obtain output from input
5. Attempts at a solution that you have tried

If you need to use or to avoid certain tools, you may need
to explain why, especially if your post count is low. Once the
problem is identified, responders often can choose the most
appropriate tool, not necessarily the one you might want.

These guidelines allow responders to create solutions without
ambiguity and to avoid creating sample data sets.

perl -wpe 's/(:\d\d)([.]\d+\s\s?[+]\d+)/$1/' $FILE

sed 's/\(.*\)\(\..*\+.*\)  *\(.*\)$/\1 \3/g' myFile

\d   a numeric character
\s   a space (actually any whitespace)
[p]  a literal "p", in this case period, fullstop (usually "." is a meta-character matching anything), [+] matches a plus sign, 
      (usually + is one or more of the previous)
?    a quantifier, either 0 or 1 of the previous item
()   capturing parens, to variable $1

NAME
    perlre - Perl regular expressions

DESCRIPTION
    This page describes the syntax of regular expressions in Perl.

    If you haven't used regular expressions before, a quick-start introduction
    is available in perlrequick, and a longer tutorial introduction is
    available in perlretut.

...