OpenForum RSS: �� fork

�� fork (ACCA)

Wed, 23 May 2012 18:39:40 GMT

> -MCPAN -e shell, � �� install ). �� ,
> �� , ��
> �� . �.�. ��
> �� .

� �� Perl - ��. �� package manager.
�� , �� ţ �� Perl Package Manager - PPM. ActiveState �� .

�� fork (Trewsa)

Wed, 23 May 2012 13:05:32 GMT

�� ! �� , �� ! ��. � �� . � �� , �� (�� cygwin, � �� perl -MCPAN -e shell, � �� install ). �� , �� , �� . �.�. �� .

�� fork (ACCA)

Wed, 23 May 2012 12:40:49 GMT

�� . �� @tb �� . �� , �� fork bomb. �� .

[code]
my $CLIMIT = 50; # 50 children limit

for (@tb) {
my $pid = fork() // die "fork �� : $!";
unless ( $pid ) {
my $ftp=Net::FTP->new($_) or die "Can't connect: $@\n";
$ftp->login($user,$password) or die $ftp->message;
$ftp->get($log_fl, $_);
$ftp->quit;
exit( 0 );
}

$CLIMIT--;
wait() unless $CLIMIT;
$CLIMIT++;
}

while (wait()> 0) { ; } # Wait for all children to finish
[/code]

�� fork (cryo)

Wed, 23 May 2012 08:55:27 GMT

for (@tb) {
my $pid = fork();
die "fork �� : $!"
unless defined $pid;
unless ( $pid ) {
my $ftp=Net::FTP->new($_) or die "Can't connect: $@\n";
$ftp->login($user,$password) or die $ftp->message;
$ftp->get($log_fl, $_);
$ftp->quit;
exit( 0 );
}
}

��, ��, �� - http://www.opennet.ru/openforum/vsluhforumID9/7389.html

OpenForum RSS: ������������� fork

������������� fork (ACCA)

������������� fork (Trewsa)

������������� fork (ACCA)

������������� fork (cryo)

OpenForum RSS: �� fork

�� fork (ACCA)

�� fork (Trewsa)

�� fork (ACCA)

�� fork (cryo)