Подскажите, почему в следуюшем примере $data{$i} не изменяется? А если поменять $thr{$i} = threads->new(\&sub1, $i); на $thr{$i} = threads->new(\&sub1($i));

то $data{$i} изменяется но perl начинает ругаться:

thread failed to start: Not a CODE reference at thr.pl line 15.

>> thr.pl

#!/usr/bin/perl -w

use strict; use threads;

sub sub1;

my %thr; my %data;

foreach my $i (0..1) { $data{$i} = ""; $thr{$i} = threads->new(\&sub1, $i); $thr{$i}->join; }

foreach my $i (0..1) { print "$data{$i}\n"; }

exit;

sub sub1 { my $a = $_[0]; $data{$a} = "a $a";

async{ $data{$a} = "a $a"; sleep 3-$a; }; return 0; }

Я хочу создать модуль который создавл бы логи для моих perl скриптов. Подскажите как правильно сказать это сделать log_message о дескрипторе в log_create?

>> file LOG.pm package LOG;

sub log_create { open OUT, ">> ". shift; }

sub log_message { print OUT shift; }

sub log_close { close OUT if $LOG_CREATED; }

sub gdie { print $_[0]; log_message $_[0]; exit; }

1 __END__

>> file test.pl.

#!/usr/bin/perl -w

use "LOG";

LOG::log_open "1.log"; LOG::log_message "test\n"; LOG::log_close;

Сегодня цифры времени и даты образовали занятную последовательность. После 4 мая очередной похожий числовой феномен придется ждать 72 года. Он произойдет в 12 часов 34 минуты 5-го июня 78 года нынешнего века. Тогда числовой ряд будет также отличаться необычайной гармонией: 12345678. http://newsru.com/world/03may2006/010203.html

PS:

Можете ругать XMMS и Mozillu.

Найдутся ли знатоки которые угадают что за дистриб?

>>> Просмотр (1024x768, 118 Kb)

Подскажите как называется команда в SunOS аналогичная free в Linux? Мне надо написать скрипт для 10 соляры, а под рукой тока 5.9 в которой к тому же man не работает.

Было бы клево, если бы скинули результат ее исполнения.

Я пытаюсь создать динамическую структуру внутри которой есть другая динамическая структура. Я ловлю SIGSEGV в realloc();

Вот мой код. Что я делаю не так?

#include "string.h"
#include "stdlib.h"

typedef struct VAR
{
char *Key;
char *Type;
char *Value;
} VAR_T;

typedef struct ARR
{
VAR_T *v;
int Count;
} ARR_T;

int AddVar (ARR_T *V, char *type, char *key, char *value)
{
if (!strcmp(type,"int") ||
!strcmp(type,"char") ||
!strcmp(type,"float"))
{
V->v[V->Count].Value = (char*)realloc(V->v[V->Count].Value,sizeof(char));
strcpy(V->v[V->Count].Value,value);
V->Count++;
}
}


int main ()
{
ARR_T v;

v.Count = 0;

AddVar(&v,"int","a","1");
}

Народ, подскажите есть ли порт CVS(like) под венду? По работе надо... Скоро надо будет создавать репозиторий, а вендовозячим примочкам я не хочу доверять свои сорцы. Подскажите лучший вариант, PLS.

Подскажите что за грабли? Загружается linux, стартуется kdm. Если Х-ы перезапустить - они перезапускаются, но рисуется только черный экран. Чтоб опять зайти в систему помогает только перезагрузка. Что подскажете?

Подскажите где можно почитать про то как С/С++ работает с памятью, т.е. как и когда ее выделяет/освобождает, как передаются параметры в функцию, как пакует структуры, so on... И вообще про всякие тонкие штучки... Желательно на русском. Заранее спасибо.