#!/usr/bin/perl -w # $fn='/xyz/v001/'; open (OLD,'tb1.log'); while () { chop; @words=split(' '); $ts=$words[0]; $by=$words[1]; print "#\n"; print "create tablespace $ts\n"; print " datafile '$fn$ts"."_0.dbf' size $by"."M;\n"; } print "#\n"; close(OLD);