AICapone
Deleted
May 15, 2001, 2:32 PM
Post #3 of 3
(353 views)
|
wha wha what is this? some practical joke, right? well, for one, this program will not actually start.
>>open(MAIN, ">$index_file") || die "Can't open MAIN: $index_file\n";
why do you need ">$index_file"?? to overwrite everything in there?? smart
>>foreach $line (@main) {
say what now? can I ask silly question, what in the world is @main?? Had thought of assigning file to an array first ever crossed your mind? I mean something like @main=<MAIN>; 'coz in your version @main is undefiend
>>if ($line =~ //) {
Now this one is just killing me. "IF LINE EXIST DO THAT"...what kind of statement is that? it's like to do someting to every single line in the file.
>>print NUM "$new_num"; }
print WHERE???? pro_4 is right, you don't even have this opened
>>close(NUM);
again, close what? you never opened it...
Generally speaking, I never thought it is possible to make that many mistakes in so little program :)))
Anyway, would you please tell us why would you want anything like that
|
MAIN
SEARCH
WHO'S 
LOG 