Programming Forums > Script Programming > Perl

ProjectX · Feb 21st, 2006, 8:54 PM

I was gonna try something but I wanted to ask you guys if you could tell me if there is a way to insert a string into a shell command.
Ex: Lets say i have the script

(Toggle Plain Text)

#!usr/bin/perl

$su = "su";      # 'su' is a unix command
system($su);

and when you run it you get

(Toggle Plain Text)

$perl test.pl
Password:

so what i am asking is if there is a way to put the password into the Password field and then execute it.

Kaja Fumei · Feb 21st, 2006, 11:01 PM

You need to open a pipe to the other program and write to it.

(Toggle Plain Text)

#!usr/bin/perl

$pid = open(WRITEME, "| su") or die "Couldn't open $!\n";
print WRITEME "the_password\n";
close(WRITEME)                              or die "Couldn't close: $!\n";

For more info: http://www.unix.org.ua/orelly/perl/cookbook/ch16_05.htm

ProjectX · Feb 22nd, 2006, 8:31 AM

thanks alot

Feb 21st, 2006, 8:54 PM	#1
ProjectX Programmer Join Date: Feb 2005 Posts: 37 Rep Power: 0	Input help I was gonna try something but I wanted to ask you guys if you could tell me if there is a way to insert a string into a shell command. Ex: Lets say i have the script (Toggle Plain Text) #!usr/bin/perl $su = "su"; # 'su' is a unix command system($su); #!usr/bin/perl $su = "su"; # 'su' is a unix command system($su); and when you run it you get (Toggle Plain Text) $perl test.pl Password: $perl test.pl Password: so what i am asking is if there is a way to put the password into the Password field and then execute it.

Feb 21st, 2006, 11:01 PM	#2
Kaja Fumei Hobbyist Programmer Join Date: Oct 2005 Posts: 134 Rep Power: 3	You need to open a pipe to the other program and write to it. (Toggle Plain Text) #!usr/bin/perl $pid = open(WRITEME, "\| su") or die "Couldn't open $!\n"; print WRITEME "the_password\n"; close(WRITEME) or die "Couldn't close: $!\n"; #!usr/bin/perl $pid = open(WRITEME, "\| su") or die "Couldn't open $!\n"; print WRITEME "the_password\n"; close(WRITEME) or die "Couldn't close: $!\n"; For more info: http://www.unix.org.ua/orelly/perl/cookbook/ch16_05.htm

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Feb 22nd, 2006, 8:31 AM	#3
ProjectX Programmer Join Date: Feb 2005 Posts: 37 Rep Power: 0	thanks alot

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Script Programming > Perl

Input help