Mil gracias otra vez.
Using perl Syntax Highlighting
open(fp, "$filein");
srand (time | $$);
while($current_line = <fp>)
{
chomp($current_line);
@seqs = split (//, $current_line);
push ( @struct, @seqs);
}
for ($j=0; $j< @struct; $j++){
for ($i=0; $i< @{$struct[$j]}; $i++)
{
$alea = int(rand($#struct));
$temp = $struct[$i][$alea];
$struct[$i][$alea] = $struct[$i][$j];
$struct [$i][$j] = $temp;
}
}
close(fp);
exit;
srand (time | $$);
while($current_line = <fp>)
{
chomp($current_line);
@seqs = split (//, $current_line);
push ( @struct, @seqs);
}
for ($j=0; $j< @struct; $j++){
for ($i=0; $i< @{$struct[$j]}; $i++)
{
$alea = int(rand($#struct));
$temp = $struct[$i][$alea];
$struct[$i][$alea] = $struct[$i][$j];
$struct [$i][$j] = $temp;
}
}
close(fp);
exit;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4