Backticks mit Inputmöglichkeit gesucht

hide all open all

• +7 replies

• guest ContraFack

  2010-01-11 19:33

  Tach ich versuche über perl mittels backticks denn output eines cmd eingabe auszuwerten. Ich will ein externes programm auf konsolenebene ansprechen und steuern. Leider werden dazu nicht nur parameter benötigt, sondern während das Script wurde, benötigt es weitere eingaben in form von einem "Y" z.B. Ich beschäftige mich nun schon einige stunden mit dem Problem und hoffe nun zuletzt hier Hilfe oder wenigstens einen Tipp zu erhalten. Kann mir jemand weiterhelfen? gruss, CF

  • +5 replies

  • 	pq	2010-01-11 19:35

    User since 2003-08-04 8330 articles	versuch es mal mit IPC::Open3 oder IPC::Run Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices" lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

    • +4 replies

    • 	guest ContraFack	2010-01-11 20:14

      	hmm ich muss sagen, nicht ganz einfach. Ich möchte eigentlich nur einen einzelnen Befehl abgeben und zwar "runas" und dafür ist eine passwort eingabe vonnöten, also ein interaktiver userinput denn ich mit perl simlulieren müsste. Gibt es vielleicht speziell dafür noch einen anderen Weg?

      • 	pq	2010-01-11 20:16

        User since 2003-08-04 8330 articles	vielleicht Expect? Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices" lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

      • +2 replies

      • 	GwenDragon	2010-01-12 11:40

        User since 2005-01-17 6207 articles	Ist das runas unter Windows? Das liest nur interaktiv ein.

        • 	guest ContraFack	2010-01-13 15:48

          eben, habe es geschafft. danke für denn tipp! Code: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 #!/bin/perl use Expect; $text = "TestShutdown"; $user = "test_admin"; $pw = "admin12345"; #--- CONFIGURATION -----------------------------------------------------------# $cmd = 'runas /user:$user "shutdown -s"'; $prompt = "[Pp]assword"; #--- START RUNAS LOGIN SEQUENCE ;;! ----------------------------------------------# $exp = new Expect(); $exp->raw_pty(1); $exp->spawn($cmd) or die "spawn failed"; #--- LOGIN AND INTERACT ! ----------------------------------------------------# $exp->expect(10000, [ $prompt => sub { $_[0]->send("$pw\n"); } ]); $exp->interact(); cheers, ContraFack

  • 	bianca	2010-01-12 11:54

    User since 2009-09-13 1810 articles	Code (perl): 1 2 3 4 5 6 #!/usr/bin/env perl use strict; use warnings; my $eingabe = <STDIN>; print "Eingegeben wurde: \'$eingabe\'\n"; 10 print "Hallo" 20 goto 10

View all threads created 2010-01-11.