|
ru.unix.bsd
- RU.UNIX.BSD ------------------------------------------------------------------
From : Alexey Gankov 2:5020/2450.207 07 Nov 2006 15:10:12
To : All
Subject : perl vs cron
--------------------------------------------------------------------------------
Простите начинающего за дурацкий (видимо) вопрос, но столкнулся с тем, что не
могу разобраться в следующем.
Есть тупой перловый скрипт (приложен ниже). В ручном режиме все на ура
работает. Запускаю через крон (от рута ессно) все отрабатывает, но выходной
файл в заданом месте ($file_path) не создается.
Ткните в чем засада....
#!/usr/bin/perl
use strict;
use locale;
my @rules=("10000", "10010", "10020", "10030");
my $filename = sprintf("%02d.trf", (localtime)[3]);
my $folder= sprintf("/www/docs/traffic/%02d_%d", 1+(localtime)[4],
1900+(localtime)[5]);
if( -d $folder) { print "folder exist\n";}
else { print "will make folder\n"; mkdir($folder);}
my $file_path= sprintf("%s/%02d.trf",$folder, (localtime)[3]);
print "filename- $file_path\n";
for(my $i=0; $i<$#rules+1; $i++)
{
print `ipfw show @rules[$i] >>'$file_path'`;
print "rules # @rules[$i]\n";
}
Alex G.
--- GoldED+/W32 1.1.4
* Origin: Мне надо выжить... (С) (2:5020/2450.207)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
