#!/usr/bin/perl
# Матрица!
while (1){
my @matrixUsers = (a..z,A..Z,0..9);
my $matrix = "";
while (length($matrix) < 15){
$matrix .= $matrixUsers[int rand(@matrixUsers)];
}
$neo = "echo $matrix | hexdump -C";
system($neo);
}
#!/usr/bin/perl
# Матрица!
while (1){
my @matrixUsers = (a..z,A..Z,0..9);
my $matrix = "";
while (length($matrix) < 15){
$matrix .= $matrixUsers[int rand(@matrixUsers)];
}
$neo = "echo $matrix | hexdump -C";
system($neo);
}