I am sorry, but this is not what I have meant.
Somebody (not me, I immediatly fell on my knees and sweared that
that I will look at my fingers while I am root) removed a big portion
of the entire filesystem by entering
rm -r /some_path/ *
The white space causes rm to remove all files recursivly under the current
directory tree. If there were only one or two files I could do it
from the command line by modifying the inodes. This would be a
a better (forgive me, gods of perl!) way, because the files would be
undeleted as they are (I am not to good in reading binary files).
Unfortunatly we are talking about 4000 files. Finding borders
takes more time than removing the deletion time of inodes.
So the question was:
Is there any way to manipulate inode-information with perl?
I am looking for something like
use CodeFromTheGodsofExt2fs;
my %inode = getInode($InodeNumber);
$inode{"DeletionTime"}=0;
$inode{"Link"}=1;
writeInode(%Inode);
This could be done several (4000) times to recover all
files that were deleted until that guy (not me I swear it)
realized that Control-C would be a good idea.
The harddisk stayed untouched, so the last command which accessed
the hdd was the rm -r - command.
Regards ...
P.S.: I wrote my previous posting anonymous NOT because I am that guy
(nope, it was not me - I have aliased rm to rm -i on my machines) but because
the enemy-machine did not accept cookies at all.
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.