#!/bin/perl

use strict;

# armo arbol de procesos
my @ProcessOS = qx(ps -ef);
my @estructura; #Array multidimensional, en este caso seria de 3d

foreach (@ProcessOS) {
        $_ =~ /[d*w*]s+(d*)s+(d*)s+d{1,5}s+[d*:*w*s+d{1,2}]*W{2}s+[d*:*]*s+([-*:*[*]*/*w*d*]*)s*/;
        push (@estructura, [$1, $2, $3]) if ($1);
}

my ($x,$y);
print '<table border="1">';

foreach $x (0..@estructura-1){
        print "<tr>n";
        foreach $y (0..@{$estructura[$x]}-1){
                print "<td> $estructura[$x][$y] </td>n";
        }
        print "</tr>nn";
}

print "</table>";