Please Check my Code...

your splice syntax is wrong

$start = 2;
$lines = 1;
splice(@array,$start,$lines);

$start is the number of the line it will start deleting, and $lines is the number of lines it will delete

so this example would delete line 2.

I changed that line to:

splice(@array,$line,1);

Which is what I had it at before, but, it still won't work.

--Edge

Try this, i havn't tested it yet though

$file = '$data_path/categories.txt';
$line = $FORM{'category'};

open(IN,"<$file");
@array = ;
close(IN);

$num = 0;

for (@array) {
if($_ =~ /$line/) {
splice(@array,$line,0);
}
$num++;
}

open(IN,">$file");
print IN @array;
close(IN);

for some reason I cant edit that post above... so here is the code that will work

$file = '$data_path/categories.txt';
$line = $FORM{'category'};

open(IN,"<$file");
@array = ;
close(IN);

$num = 0;

for (@array) {
if($_ =~ /$line/) {
splice(@array,$num,1);
}
$num++;
}

open(IN,">$file");
print IN @array;
close(IN);

Nope, that didn't work either. Any other ideas?

--Edge

try locating the error like this....

this will print all the information to the screen. maybe one of the variables being passed to the CGI is wrong. maybe you have to chomp($line).

Orpheus-
why are you incrementing $num?

because splice requires a line to start with. or it wont work.

Max, your idea didn't show me anything new.

Orpheus, when I tell it to print "$num"; it always tells me $num is 0. So, I don't think that's doing any good.

--Edge

Orpheus-
I didn't see 'splice(@array,$num,1);' before..
sorry.

Edge-
did my thingy print the value for $line?
I just thought that the value from $FORM{'category'} might be formated wrong or non-numeric or something.

question...
would it make a difference if you changed it to:
@array = splice(@array,$line,0);

Max-
I take that back, it did printing something:

$data_path/categories.txt3

And, nope, changing it to @array = splice(@array,$line,0); didn't make a difference.

Would it help you guys if I posted the other subroutines related to this one? Or maybe if I showed you my entire script?

--Edge

Just post the code that intereacts with that block you posted above. The stuff I pasted SHOULD work because i've used it in a guestbook before.

Okay, here are the subs that interact with it:

--Edge

one thing that was wrong... In your original code you had:
$file = '$data_path/categories.txt';
it should be:
$file = "$data_path/categories.txt";

question... What does this do:
if ($catnum eq $FORM{'category'}) { last }

As far as I know, it does the same thing as doing it this way:

Maybe someone else can offer a better explanation.

--Edge

Great! Now we're making some progress. I did what you told me and changed it to:
$file = "$data_path/categories.txt";

Then, it deleted every file EXCEPT the one I was trying to delete. Then I changed it from:
@array = splice(@array,$line,1);
to:
@array = splice(@array,$line,0);

Then it deleted all the lines. Before, it wouldn't do anything.

--Edge

Use the code I posted earlier in the thread.

splice DOES NOT use pattern matching when it deletes.

try something other than splice...

I copied and pasted from the first post, and forgot to change ' to "

also, this is kinda sloppy with the memory, if you can get the splice to work, that would be better.

Your code worked, Orpheus! Thanks!!!!!! Sorry it took so long to figure out such a simple problem, guys. Thanks to both of your for your help!

--Edge

*bows*