Shell Programming and Scripting

Originally Posted by Smiling Dragon

That's a pretty interesting one!
perl looks like the most appropriate choice for this:

Code:

#!/usr/bin/perl -w
while (<>) {
  if (/^([^\d\.]*)(\d*)([^\d.]*)\.([^\.]+)$/) {
    if ($1) { print "$1" }
    if ($2) {
      $val=$2+1;
      print $val;
      $suffix="";
    } else {
      $suffix="2";
    }
    if ($3) { print "$3" }
    if ($suffix) { print "$suffix" }
    print ".$4";
  } else {
    print "# Could not parse the following line:\n";
    print "$_";
  }
}

$ cat in.txt
mgr1.dbf
tool.dbf
usR.dbf
wow19.dbf
wow2wow.dbf
char14between13.dbf
11num@ber12.dbf

#!/usr/bin/ksh

infile=in.txt
cat $infile | while read fname ; do
newname=$(echo "${fname}" |tr "[A-Z]" "[a-z]" |tr "[a-z]#_@-" "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" |tr -s "x")
num=$(echo $newname |cut -d"." -f1|awk -F"x" '{print $NF}')
if [ -z "${num}" ] ; then
num=1
newnum=$((num+1))
final=$(echo $fname|sed -e "s/\./$newnum\./g")
else
newnum=$((num+1))
final=$(echo $fname|sed -e "s/$num\./$newnum\./g")
fi
echo "$fname -> $final"
done

$ inc.sh
mgr1.dbf -> mgr2.dbf
tool.dbf -> tool2.dbf
usR.dbf -> usR2.dbf
wow19.dbf -> wow20.dbf
wow2wow.dbf -> wow2wow2.dbf
char14between13.dbf -> char14between14.dbf
11num@ber12.dbf -> 11num@ber13.dbf

Originally Posted by rikxik

Well, I appreciate the urge to "just do it" in ksh - so here goes:

Input:


Script:


Result:


Obviously this is quite brittle but for the kind of input provided, this should do.

Note: done using default ksh on SunOS db012a 5.8 Generic_117350-35 sun4us sparc FJSV,GPUZC-M

HTH