Re: Different size in the DATA directory - Mailing list pgsql-sql

Alexander M. Pravking wrote:
> On Fri, Nov 01, 2002 at 10:48:00PM -0500, Bruce Momjian wrote:
> > Tim, I guess your problem is dead index pages that can't be reclaimed,
> > and it isn't fixed in 7.3.  Only REINDEX fixes it, and we have a
> > /contrib/reindexdb script in 7.3.
>
> As I see, contrib/reindexdb requires perl for commandline
> procesing. I don't think it's a good idea, since
> e.g. FreeBSD 5.0-CURRENT have no perl in standard distribution.
>
> Thomas, why not to use sed?

No perl?  I am no perl guy, but I assumed everyone had that already.

I just looked at the code, and yes, it should use sed rather than perl,
especially since it is using it just for processing command line args.

Seems it is a problem/bug for you.  Patch applied to use sed rather than
perl.

--
  Bruce Momjian                        |  http://candle.pha.pa.us
  pgman@candle.pha.pa.us               |  (610) 359-1001
  +  If your life is a hard drive,     |  13 Roberts Road
  +  Christ can be your backup.        |  Newtown Square, Pennsylvania 19073
Index: contrib/reindexdb/reindexdb
===================================================================
RCS file: /cvsroot/pgsql-server/contrib/reindexdb/reindexdb,v
retrieving revision 1.2
diff -c -c -r1.2 reindexdb
*** contrib/reindexdb/reindexdb    18 Oct 2002 18:41:20 -0000    1.2
--- contrib/reindexdb/reindexdb    3 Nov 2002 01:19:21 -0000
***************
*** 111,118 ****
        dbname="$2"
        shift
        ;;
!     -d*|--dbname=*)
!       dbname=`echo $1 | perl -pn -e 's/^--?d(bname=)?//'`
        ;;

      # Reindex specific Table.  Disables index reindexing.
--- 111,121 ----
        dbname="$2"
        shift
        ;;
!     -d*)
!       dbname=`echo "$1" | sed 's/^-d/'`
!       ;;
!     --dbname=*)
!       dbname=`echo "$1" | sed 's/^--dbname=//'`
        ;;

      # Reindex specific Table.  Disables index reindexing.
***************
*** 120,127 ****
        table="$2"
        shift
        ;;
!     -t*|--table=*)
!       table=`echo $1 | perl -pn -e 's/^--?t(able=)?//'`
        ;;

      # Reindex specific index.  Disables table reindexing.
--- 123,133 ----
        table="$2"
        shift
        ;;
!     -t*)
!       table=`echo "$1" | sed 's/^-t//'`
!       ;;
!     --table=*)
!       table=`echo "$1" | sed 's/^--table=//'`
        ;;

      # Reindex specific index.  Disables table reindexing.
***************
*** 129,136 ****
        index="$2"
        shift
        ;;
!     -i*|--index=*)
!       index=`echo $1 | perl -pn -e 's/^--?i(ndex=)?//'`
        ;;

      # Yeah, no options?  Whine, and show usage.
--- 135,145 ----
        index="$2"
        shift
        ;;
!     -i*)
!       index=`echo "$1" | sed 's/^-i//'`
!       ;;
!     --index=*)
!       index=`echo "$1" | sed 's/^--index=//'`
        ;;

      # Yeah, no options?  Whine, and show usage.