PDA

Visualizza la versione completa : Perl e variabile


Super_Ale46
26-07-2010, 11:07
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:


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:


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:


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.

Loading