unlink
От Michael Dukelsky (2:5020/1042) к All
В ответ на Заголовок предыдущего сообщения в треде (Имя Автора)
Привет, All!
Почему-то у меня unlink удаляет всё, даже файл, принадлежащий руту.
$ cat test1
#!/usr/bin/perl
sub createFile
{
my $file = shift;
open(FH, ">", $file) or die("Cannot create $file: $!");
close(FH);
}
createFile("./qqq.txt");
system("ls -l");
chmod(0000, "./qqq.txt");
system("ls -l");
system("sudo chown root:root ./qqq.txt");
system("ls -l");
unlink "./qqq.txt";
system("ls -l");
Результат выполнения:
$ ./test1
total 4
-rw-rw-r--. 1 mike mike 0 июн 20 19:09 qqq.txt
-rwxr-xr-x. 1 mike mike 314 июн 20 19:08 test1
total 4
----------. 1 mike mike 0 июн 20 19:09 qqq.txt
-rwxr-xr-x. 1 mike mike 314 июн 20 19:08 test1
total 4
----------. 1 root root 0 июн 20 19:09 qqq.txt
-rwxr-xr-x. 1 mike mike 314 июн 20 19:08 test1
total 4
-rwxr-xr-x. 1 mike mike 314 июн 20 19:08 test1
Что я делаю не так?
Желаю успехов, All!
За сим откланиваюсь, Michael.
... node (at) f1042 (dot) ru
--- GoldED+/LNX 1.1.5-b20170303
* Origin: ==<<.f1042.ru.>>== (2:5020/1042)
Ответы на это письмо:
From: Username
Заголовок следующего сообщения в треде может быть длинным и его придется перенести на новую строку
From: Username
Или коротким