glebushka
Спасибо тебе за помощь, немог ли ты подсказать как удалить мне строку выберая юзверь3 вот привожу два примера твоего же скрипта:
1) Удаляет все подрят, но оставляет первую строчку
open (FILE, "<$pass")|| die "Couldn\'t open file: $pass: $! \\n";
my @line=;
close(FILE);
chomp @line;
my ($line, @temp);
open (FILE, ">$pass")|| die "Couldn\'t open file: $pass: $! \\n";
foreach $line (@line){
@temp=split(/\\|/, $line);
if($temp[0] eq юзверь3){
$temp[0]="";
$temp[1]="";
$temp[2]="";
$line="";
}
print FILE $line;
}
close(FILE);
2) Удаляет правильную строчку, но оставляет её пустой.
open (FILE, "<$pass")|| die "Couldn\'t open file: $pass: $! \\n";
my @line=;
close(FILE);
chomp @line;
my ($line, @temp);
open (FILE, ">$pass")|| die "Couldn\'t open file: $pass: $! \\n";
foreach $line (@line){
@temp=split(/\\|/, $line);
if($temp[0] eq юзверь3){
$temp[0]="";
$temp[1]="";
$temp[2]="";
$line="";
}
print FILE $line, "\\n";
}
close(FILE);
Как дописать твой пример/скрипт что бы он удалел правильную строчку и не оставлял ее пустой?
Жду ответов.
С Уважением,
Алекс.