Сообщения

1

Perl / Help with (umask and system)

« : 23 Июня 2004, 17:11:43 »

понятно!
спасибо!

2

Perl / Help with (umask and system)

« : 23 Июня 2004, 13:48:17 »

зачем тада создавать маску если уже указали пермишн для файла? маска для того и служит чтоб если ничего не указывать то создается файл с пермишинами по умолчанию - как в маске!

проблема решилась немного другим образом!
я использовал системный umask а есть еще перловый который корректно отработал!
всем спасибо!

3

Perl / Help with (umask and system)

« : 23 Июня 2004, 12:07:59 »

kod:

$command="my_proga";
umask 022;
system "$command";

4

Perl / Help with (umask and system)

« : 23 Июня 2004, 11:37:06 »

не... мне не нужно указывать для каждого файла необходимый пермишн или менять его (это слишком долго для моей задачи) для этого и используется маска которая по умолчанию выставляет те пермишины которые нужно давать файлы при создании их какой либо сторонней программой!
если из шелла задать маску и потом из этого же шелла создавfть файлы то все нормально - так как маска указывает какие пермишины по умолчанию нужно ставить!
если же запускать из перл скрипта программу которая занимается созданием файла то из шелла не переходит значение маски и соответственно файлы создаются с маской по умолчанию которая меня не устраивает!
вот вопрос в этом и заключается как заставить скрипт видет ту маску которую я задаю а не игнорировать ее?

5

Perl / Help with (umask and system)

« : 23 Июня 2004, 11:10:03 »

есть программа которая создает файлы с заведомо неправильными для меня permissions. Для исправления этого я использую комманду umask 022 в шелле и все становится ок!
Но если я в скрипте напишу umask 022 и через комманду system  из скрипта запущу свою прогу то она все равно не верно задает пермишинсы.... помогите плз! как из скрипта задавать маску по умолчанию???

6

Perl / warning in perl

« : 14 Апреля 2004, 13:12:07 »

закрывайте конфу - всем спасибо!

7

Perl / warning in perl

« : 14 Апреля 2004, 13:07:42 »

NeoNox если би ти сидел за SUN без возмойности меняти что либо я би посмотрел как би ти писал на русском! Я йе писал - нет возмойности писати -не виноват я что на работе стоят SunOS которие не понимаиют русскии язик!

Esli takoi translit ustraivaet - togda pojaluista, prosto odin moder skazal mojno, ti govorish - nelzya, opredelitesi - da ili net!

Izvinite za offtop!

8

Perl / warning in perl

« : 14 Апреля 2004, 12:20:43 »

За решение проблеми - спасибо!

П.С. Мне разрешили так писати тут (не по русски) (смотри топиц "регулярние вирайения").

На меня ругалиси что не по русски пишу а ето транслит погано так работает!

9

Perl / warning in perl

« : 14 Апреля 2004, 10:38:33 »

Podskajite pojaluista pocemu vidaetsya warning?

privoju kusok koda gde vizivaetsya oshibka:

#1) determ @path;
while ($path_s =~ m/([^\\/]+)/g) { push(@path, $1); }

#2) determ @linking
@linking=split(/\\//, $link_s);


for ($q=$#path, $j=0; $q>=$#path-$#linking, $j<=$#linking; $q--, $j++)
  {
     print "$q\\n";
     print "$j\\n";
  }



Posle vipolneniya vilaziet vot chto: "Useless use of numeric ge (>=) in void context at ..."

Podskajite pojaluista chto delati chtobi warning ne vilazil? Vrode oshibki v kode net...

10

Perl / работа с регулярними вирайениями

« : 12 Апреля 2004, 16:51:05 »

eto programma tak konvertit russkii!
a na kompe net vozmojnosti pisati po russki voobshe!

Togda luchshe budu tak pisati!

11

Perl / работа с регулярними вирайениями

« : 12 Апреля 2004, 15:36:23 »

там под етот случаи ницего нету

Мне нуйно витаскивати слово мейду двумя слешами а как строчку рассматривати как подстричку -хз... Обрашаиуси за помошиу!

12

Perl / работа с регулярними вирайениями

« : 12 Апреля 2004, 14:51:02 »

подскайите поялуиста как из строки /home/user1/folder сделати массив
/home
/user1
/folder ?

Какои алгоритм работи с регулярними вирайениями в данном слуцае?