Thread mit Perl Festplatte nullen (4 answers)
Opened by Froschpopo at 2005-04-15 10:53

Crian
 2005-04-15 12:50
#53825 #53825
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Um (den Rest) einer Platte mit Zufallsdaten zu füllen (das ist besser als Nullen, insbesondere wenn man es mehrfach nacheinander macht), hab ich mal (mehr aus Spaß) dieses Programm geschireben:

mach_voll.pl

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#!/usr/bin/perl
use strict;
use warnings;


seek DATA, 0, 0;

chomp (my @array = <DATA>);
my @data = grep {length} map {s~;$~~;$_} map {split /\s+/} @array;

print "'$_'\n" for @data;

open O, '>g:/muell.pl' or die $!;
WHILE: while (1) {
    print O ' ' x (3 + 4 * int rand 3) or last WHILE;
    for (0 .. random()) {
        unless (print O ' ', $data[rand @data]) {
            last WHILE;
        }
    }
    print O ";\n" or last WHILE;
}
close O or warn $!;
        

sub random {
    return 3 + int rand 5;
}

_#_DATA_#_


(die '#' aus der DATA-Zeile muss man natürlich entfernen)

Du kannst ja mal einen Blick in die Datei werfen, die es erzeugt...
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View full thread mit Perl Festplatte nullen