Dotaz: Perl,restart

[TAPSOFT]

Ještě jednu radu prosím.Chodím robotem na chat pomocí brány lidegw.py.Robot je v pl.Chtěl bych ale bota vždy odhlásit z místnosti.To znamená ukončit uplně robot.pl a znova nastartovat.V případě dalších přesných informací hned odpovím.děkuji

Odpovědi

[pht]

restart by spíš potřeboval ten dotaz :)

[TAPSOFT]

Tak sputím bráni lidegw

Spustím robot.pl

Robot se přihlásí do místnosti a dělá svojí funkci

Aby ale odešel musím v roboti použít příkaz $self->quit("ukonceno");

Potřebuji ale udělat aby se znova vrátil, tzn. znova pustil robot.pl

děkuji

[pht]

spouštějte to ve smyčce

while :; do robot.pl; sleep 10; done

[TAPSOFT]

Je to trochu obtížné vysvětlit.Musel bych vám vypsat zdroják.Prostě potřebuji robot.pl natvrdo ukončit a za pár sekund znova spustit aby se vše načetlo od znova.Lidegw je jakási brána na lidé.cz a ta může být puštěná furt.

[ph0enix]

Tak zkus ten kod nekde vystavit. Nebo to alespon popsat krapet obsirneji. Treba ti nekdo navrhne jine pouzitelne reseni.

[TAPSOFT]

Dobře tedy,robot má přes 4500 řádku,vypisovat celej ho nemá cenu,ale..

mám složku ROBOT a v ní robot.pl a dalších asi 38 txt souboru k tomu duležitých

Je potřeba aby se robot.pl ukončil,což dělám tím příkazem quit ale tím se pouze ukončí a opustí místnost,ale znova se už program nespustí.Je potřeba ho samočinně znova pustit.Toto potřebuji využít,protože program neběží a chci ho ovládat na dálku

[Ruža Becelin]

Nevim, proc by nemelo fungovat reseni od pht. Jinak opetovny start lze zaridit i CRONen, pokud to staci reknem jednou za minutu. Dalsi alternativa je uprava kody robot.pl, aby pri ukonceni spustil dalsi instanci sama sebe...

[TAPSOFT]

if ($arg =~ /!vypni/i) { if ($spravci{$nick} ne "spravci") { $self->privmsg($nick, ":Odvolat mě může jen :55437: Vyšší správce"); }else{ $self->privmsg($kanal, '----Byl jsem odvolán :37893: ---- '); open(DATA, "robot.pl"); $self->quit("ukonceno"); }}

ted ukončuji takto,po příkazu do šeptu !vypni se robot ukončí

[TAPSOFT]

if ($arg =~ /!vypni/i) {
if ($spravci{$nick} ne "spravci") {
$self->privmsg($nick, ":Odvolat mě může jen  :55437: Vyšší správce");
}else{
$self->privmsg($kanal, '----Byl jsem odvolán :37893: ---- ');
open(DATA, "robot.pl");
$self->quit("ukonceno");
}}

[pht]

Nevim, proc by nemelo fungovat reseni od pht.

Já to taky nechápu, a zdá se že tazatel pro změnu nechápe to řešení...

Prostě když ten váš skript skončí z jakého koliv důvodu tak ta smyčka ho za 10 sekund pustí znova. Je to to co chcete?

[TAPSOFT]

ano přesně to potřebuji,jen mě to stále nejde spustit.Někde tam mám chybu.Nevíte jak to přesně do programu napsat?

[happy barney]

možné chyby: - má robot.pl spustiteľné práva? - máte aktuálny adresár v ceste?

riešenie: spustite to cez interpreter: /usr/bin/perl robot.pl

[sdsdsd]

robot.pl začíná

use locale;
use strict;
use Net::FTP;
use Net::IRC;
use Socket;
use LWP::UserAgent;
use Sys::Hostname;
use LWP;
use LWP::Simple;
use Net::POP3;

pak proměnné,příkazy,časovač na udržení na chatu a td

 

složka robota

na disku c:/robot/

robot.pl - samostný robo

lidegw.py - brána na servr

...textové soubory

---------------------------------

Na to aby se robot z chatu odhlásil,je opravdu potřeba robot.pl uzavřít.To mě funguje příkazem který jsem už psal nahoře.

Ale aby se vrátil,tzn znova se spustil robot.pl neudělám příkazem sleep

[myšák]

No jak tak vidím to C:\robot v odpovědi níže, tak bych řekl, že problém je v rozdílech mezi BASHem a příkazovým interpreterem v onom M$ systému neboli v tom, že odpověď od pht tak nějak vcelku logicky počítá s tím, že ten PERLový skript běží na Linuxu...

[sdsdsd]

běží na windows XP,mám Python 2.5-to je pro lidegw které je v pythonu

[moira]

A proč nepoužiješ jednoduchou smyčku v nějakém .cmd skriptu?

:opakuj
c:\robot\robot.pl
goto opakuj

samozřejmě za předpokladu, že přípona .pl je asiociovaná na interpret perlu.