Hi!
I am new to perl. I have written a script to automatically subscribe to
the mailing list. The part of the script is here:
---------------------------------------------
open (FILE,"/var/www/mlusers.tab");
@linesaddr=<FILE>;
$countaddr=@linesaddr;
if ($countaddr!=0) {
foreach $lineaddr (@linesaddr) {
@itemaddr=split(/\t/,$lineaddr);
my $testn = @itemaddr[0];
$testn1 = "\"".$Config{'email'}."\"";
if ($testn eq $testn1){
$alrd = 1;
}
}
}
close (FILE);
if ($alrd == 1) {&already_subscribed}
else {
open(STAT,">> /var/www/mlusers.tab");
print STAT "\"".$Config{'email'}."\""."\t"."\"RW\""."\n";
close(STAT);
&return_html;
}
-------------------------------------------------------
Now I would like to also write to automatically unsubscribe from the
mailing list but I am stuck. I don't know and I didn't find how to
remove one complete line from the text file.
Here the text file is mlusers.tab. So each line has to have <NEWLINE>
mark and in between the filled lines there should not be empty lines.
Can somebody help me with this ?
Thanks,
Sasa
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
