Re: Data corruption
- From: Jared Still <jkstill@xxxxxxxxx>
- To: Mladen Gogala <mgogala@xxxxxxxxxxxxxxxxxxxx>
- Date: Tue, 19 Apr 2005 01:45:04 +0100
Yeah, that would probably wipe it out.
Makes it kind of hard to play with dbms_repair however.
On 4/18/05, Mladen Gogala <mgogala@xxxxxxxxxxxxxxxxxxxx> wrote:
>
> Jared Still wrote:
> #! /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();
>
--
Jared Still
Certifiable Oracle DBA and Part Time Perl Evangelist
--
//www.freelists.org/webpage/oracle-l
Other related posts:
