Salve a tutti;
Avrei un piccolo problema con un programmino in perl che sto creando.
Il programma in questione, richiede che vegna inserito un link e una direcotry (per la creazione di foglio tramite http/php).
il problema sta quando memorizzo la variabile della directory
vi pasto una porzione di codice:
codice:
sub compfile { my $url=$_[0]; my $scr=$_[1]; chomp $scr; print $con "PRIVMSG $chan $eee $url cd $scr; touch $she\;ls \-la $she\n"; sleep(3); print $con "PRIVMSG $chan $eee $url cd $scr".';echo \<html\> >> '.$she."\n"; sleep(3); print $con "PRIVMSG $chan $eee $url cd ".$scr.'; echo \<head\> >> '.$she."\n";
allora il problema e' che quando viene inserito il comando per iniziare ad eseguire questa subroutine... il comando e' il seguente:
!componi http://miosito directory/dove/si/vuole/compilare/il/file
funziona egregiamente... ma quando il programma mi ritorna in stampa questo:
codice:
print $con "PRIVMSG $chan $eee $url cd $scr; touch $she\;ls \-la $she\n";
si blocca a cd $scr
il resto non lo esegue.
Ho provato assegnando alla subroutinealla var $scr l'url... ovvero:
codice:
sub compfile { my $url=$_[0]; my $scr=$_[0]; chomp $scr; print $con "PRIVMSG $chan $eee $url cd $scr; touch $she\;ls \-la $she\n"; sleep(3); print $con "PRIVMSG $chan $eee $url cd $scr".';echo \<html\> >> '.$she."\n"; sleep(3); print $con "PRIVMSG $chan $eee $url cd ".$scr.'; echo \<head\> >> '.$she."\n";
e in questo modo funziona correttamente.. mi printa la stringa fino a alla fine... solo che logicamente non lo esegue......
Qualcuno saprebbe spiegarmi dove sta l'errore? ma sopratutto qualche consiglio su come risolverlo?
Grazie anticipatamente per eventuali consigli.