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

Other related posts: