Hi, I'm a newbie to perl. Can anyone give me a clue why the following
script fails to execute the "system" call at the end correctly.
#!/usr/local/bin/perl
$port = `tty`;
$port = `basename $port`;
print("Port = $port\n");
$term= $ENV{"TERM"};
if ($port eq "Console") {
print("Logging in from Console.\n");
Quote:
} else {
print("\nTerminal($term) ");
$userselect=<STDIN>;
chop($userselect);
if ($userselect) {
$command = "set term=".$userselect;
} else {
$command = "set term=".$term;
}
system($command);
print("\nTerminal = $term\n");
Quote:
}
Thanks in advance.
-John.
--
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=
_/_/_/_/_/ _/_/_/_/ _/_/_/_/ "I'm not waving
_/ _/ _/ I'm drowning"
_/ _/_/_/ _/_/_/_/ vvv
_/ _/ _/ (. .)
_/_/_/ _/_/_/_/ _/_/_/_/ ooo0 (_) 0ooo
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=