Re: Data corruption

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


--
http://www.freelists.org/webpage/oracle-l