Форум русскоязычного сообщества Ubuntu


Следите за новостями русскоязычного сообщества Ubuntu в Twitter-ленте @ubuntu_ru_loco

Автор Тема: Запуск perl скрипта из perl скрипта с параметрами  (Прочитано 361 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн lexasub

  • Автор темы
  • Новичок
  • *
  • Сообщений: 34
    • Просмотр профиля
Помогите реализовать "Запуск perl скрипта из perl скрипта с параметрами"
#!/usr/bin/perl -w

use IO::Socket;
use threads;
use threads::shared;
use DBI;

my ($th, $ports) = @ARGV;
$db=DBI->connect("DBI:mysql:scaner:127.0.0.1","root","root");
$db=$db->prepare('SELECT `ip` FROM `ping`');
$db->execute;
my $ip="";

sub job{
@ARGV = ( " $ip $th $ports" );
do "./ports";
#do "./ports $ip $th $ports";
}

while ( my $row = $db->fetch )
{
$ip=@{$row};
threads->create(\&job)->join();

}

Оффлайн ReNzRv

  • Старожил
  • *
  • Сообщений: 2628
    • Просмотр профиля
Код: (perl) [Выделить]
system "./ports $ip $th $ports"

Оффлайн lexasub

  • Автор темы
  • Новичок
  • *
  • Сообщений: 34
    • Просмотр профиля
Спасибо огромное за ваш ответ

 

Страница сгенерирована за 0.056 секунд. Запросов: 23.