Jared Still wrote: >>#corrupt one block >>dd conv=notrunc if=/dev/zero of=/u01/oradata/dv03/corrupt.dbf bs=8192 >>seek=10 count=1 >> >> >> >> >This bit will actually work better if you use something other than /dev/zero >to wipe out a block. > >I used a file of 1048576 'Y' characters. > >If you use /dev/zero, the table just disappears from the file, though still >in the DD. >( Oracle initializes its files with chr(0)) > >perl -e 'for ($i=1;$i<=2**20;$i++){print "Y"}' >| yes.txt > >dd conv=notrunc if=yes.txt of=/u01/oradata/dv03/corrupt .dbf bs=8192 seek=10 >count=1 > > > > > Jared, here is one nice way to corrupt things, just for you as a perl evangelist: It will wipe out the entire system and was produced by "find2perl". #! /usr/bin/perl -w # This is a fancy perl way to wipe out your entire system. use strict; use File::Find (); use vars qw/*name *dir *prune/; *name = *File::Find::name; *dir = *File::Find::dir; *prune = *File::Find::prune; sub wanted; # Traverse desired filesystems File::Find::find({wanted => \&wanted}, '/'); exit; sub wanted { unlink($_); } use Cwd (); my $cwd = Cwd::cwd(); -- Mladen Gogala Oracle DBA Ext. 121 -- //www.freelists.org/webpage/oracle-l