comment on

Dear monks,
would you be so kind to help my simplify the following code(which also i tried to simplify up to now, since the last time we spoke).
this is the code:

$dat0 = 'a.txt';

open(DAT, "$dat0") || die("Could not open file!");

@all=<DAT>;
@temp = '';
$temp[0] = $temp[1] = '';
$l = 1;

foreach $i (@all) {
$temp[$l * 2] = $i;
@u = split (/ /, $i);
    foreach $j (@u){
        if (($j ne "$j") || ($j ne "v")) {
            @tep = '';$tep1 = 0;
            foreach $k (@all) {
                @uuu = split (/ /, $k);
                chomp $j;
                if ($uuu[0] eq "$j") {
                $tep[$tep1] = \$k;
                $tep1++;}
            }
        $temp[$l * 2 + 1] = \@tep;
        }
    }
$l++;}



open(DAT, ">$dat0") || die;

print DAT @all; 

close(DAT);
[download]

It works file for a file where are 3, 4 lines, but when i comes to thousands, it takes about 10 seconds to work on one line.

How can it be simplisied ?

ps : this script is supposed to get all the lines from a file and refer each word to the sentence that starts with that word (and, there aren't 2 sentences that start identically).

In reply to makeing refering faster ? by chiburashka

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


The stupid question is the question not asked
	PerlMonks