|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vladimir Podgorny 2:5020/400 25 Feb 2002 12:27:55
To : Andrew Sagulin
Subject : Re: Как удалить файл?
--------------------------------------------------------------------------------
Andrew Sagulin <Andrew.Sagulin@p28.f1.n6037.z2.fidonet.org> wrote:
> Привет, Denis!
>
> 21 Feb 02 21:26, Denis Lebedev wrote to All:
>
> DL> Вот тут случайно натолкнулся на такую вот пpоблему. Есть файл с
> DL> именем temp.txt. Этот файл лежит в том же каталоге, что и скpипт. Его
> DL> необходимо пеpиодически удалять. Как удалить temp.txt?
>
> DL> Если можно, пожалуйста, напишите сюда пpимеp кода на Perl.
>
> my ($workpath) = $0 =~ /^(.+[\\\/])[^\\\/]+$/;
> $workpath = "" unless $workpath;
> unlink $workpath . "temp.txt";
>
> Это одновременно и ответ, и вопрос к All-у: я делаю так, но нет ли тут
> подводных камней?
#!/usr/bin/perl -wT
use strict;
use warnings;
umask 002;
open(OUT, ">/tmp/test2unlink") or die "Create $!";
print OUT "test";
close OUT;
print "Unlink",(unlink "/tmp/test2unlink" ? "OK" : "failed"),"\n";
> Всего Вам...
> Андpей.
>
--
VP992-RIPE
--- ifmail v.2.15dev5
* Origin: Adamant ISP news server (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
