OVH Cloud OVH Cloud

ouverture de fenetre dos

4 réponses
Avatar
Srand
Salut,

j'ai un script perl/tk qui lance certaines commandes et attend le code
retour.
Ainsi je fais par exemple un ssh cyril@dev date et je recupere la date
( c'est qu'un exemple )
Mais cela m'ouvre une fenetre dos alors que je ne voudrais avoir que
mon interface tk !!!
Je precise que j'utilise cygwin pour avoir pas mal de commandes unix.

J'ai deja essaye la commande run ( de cygwin ) mais elle ne fonctionne
pas correctement dans certaines conditions.

J'ai trouve l'utilitaire nircmdc mais il n'attend pas la fin de la
commande et cela genere pas mal de soucis car je dois mixer les chemins
windows et les chemins unix.

Merci d'avance.

4 réponses

Avatar
Dave
"Srand" wrote in message
news:
Salut,

j'ai un script perl/tk qui lance certaines commandes et attend le code
retour.
Ainsi je fais par exemple un ssh date et je recupere la date
( c'est qu'un exemple )
Mais cela m'ouvre une fenetre dos alors que je ne voudrais avoir que
mon interface tk !!!
Je precise que j'utilise cygwin pour avoir pas mal de commandes unix.

J'ai deja essaye la commande run ( de cygwin ) mais elle ne fonctionne
pas correctement dans certaines conditions.

J'ai trouve l'utilitaire nircmdc mais il n'attend pas la fin de la
commande et cela genere pas mal de soucis car je dois mixer les chemins
windows et les chemins unix.

Merci d'avance.



use Win32::Console;
Win32::Console::Free();

Avatar
Srand
use Win32::Console;
Win32::Console::Free();
use Tk;
sub do_ssh;
$mw=MainWindow->new;
$mw->Button(-text=>'ssh',-command=>&do_ssh)->pack;
MainLoop;

sub do_ssh
{
$host='';
my $output=`ssh $host date`;
print $output,$/;
}

ne fonctionne pas mieux
Avatar
Dave
"Srand" wrote in message
news:
use Win32::Console;
Win32::Console::Free();
use Tk;
sub do_ssh;
$mw=MainWindow->new;
$mw->Button(-text=>'ssh',-command=>&do_ssh)->pack;
MainLoop;

sub do_ssh
{
$host='';
my $output=`ssh $host date`;
print $output,$/;
}

ne fonctionne pas mieux



Tu lance le script comment?

Avatar
Srand
perlw script.plw ou perl script.tk mais pas a partir d'une fenetre dos,
en double cliquant dessus.