How to execute alias commands

nanophd has asked for the wisdom of the Perl Monks concerning the following question:

Wise PerlMonks, I consider myself a novice at perl and I am in need of some assistance. I have an issue with regards to executing an alias from Perl. I have a script that that keeps track of my inputs in a file. When'-c' is inputed it should ask for a command, write the command to the file, execute command and write the output to the file as well. Then it should return back to the loop.

`$cmd` was working fine for build in commands, but would not execute alias commands. I read that I would need to use the command

`bash -c -i "$cmd"` This fixed the kinda fixed the problem, except it would exit the program and not reenter the loop.

Is there any way to run an alias command and continue with the rest of the code?

Here is the section of my code that is at fault:

if($input eq "-c"){
    print "Enter Command: ";
    my $cmd = <STDIN>;
    print $fh $cmd;
    print $fh "\n\t#### START COMMAND OUTPUT ####\n";
    print `bash -c -i "$cmd"`;
    foreach(`bash -c -i "$cmd"`){
    print $fh "#".$_;
}
    print $fh "\t#### END COMMAND OUTPUT ####\n";
    next;
}
[download]

Thank you in advance.

Comment on How to execute alias commands Select or Download Code

Replies are listed 'Best First'.
Re: How to execute alias commands by choroba (Cardinal) on Jan 13, 2014 at 23:31 UTC
Have you examined the exit code of the programme when it "exits"? It in fact just stops after recieving the SIGTTIN signal. It means the shell is not ended when the command is finished (it is an interactive shell), but it cannot get any input. You can easily test it by adding `; exit` to the entered alias, which will close the shell and prevent the signal. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re: How to execute alias commands (source your profile) by Anonymous Monk on Jan 13, 2014 at 23:13 UTC
From what I understand, shell aliases are in-memory stuff like %ENV vars -- so the reason you can't execute them is because they aren't defined So the solution is to source your profile some how, or a better idea is to turn all your aliases into shell scripts, say add ~/mybin to your path where you have "myalias" which is a shell script (and not an alias), then as long as ~/mybin is in your path you don't need to source .profile... to load your aliases bash alias suggest-ation getting a list of your bash aliases How do I set env. Variables from Perl with shell script Get default login environment Set shell environment variables from within a perl script How to change a script's environment after the script is already run, based on shell sourcing ? Perl: Source shell script to for environment variables? Reading and setting the environment from a shell script for the calling program Importing environment variables from shell script file to Perl sourcing a shell script/.profile and importing into %ENV setting perl ENV from file Changing parent process environment variable	[reply]
Re^2: How to execute alias commands (source your profile) by nanophd (Novice) on Jan 14, 2014 at 15:42 UTC
Thank you for the reply. I liked the idea of using shell scripts as aliases. I've added /mybin to my path and I am able to execute the script successfully with argument values from the command line. However, when I execute it with perl, the argv values do not get passed. if($input eq "-c"){ print "Enter Command: "; my $cmd = <STDIN>; chomp($cmd); print $fh $cmd; print $fh "\n\t#### START COMMAND OUTPUT ####\n"; print `$cmd`; foreach(`$cmd`){ print $fh "#".$_; } print $fh "\t#### END COMMAND OUTPUT ####\n"; next; } [download] Shell Script: `#!/bin/bash perl /path/to/script/script.pl $1 $2 $3 $4` [download] Any suggestions?	[reply] [d/l] [select]
Re^3: How to execute alias commands (source your profile) by nanophd (Novice) on Jan 14, 2014 at 17:15 UTC
Never mind. I fell victim of my own stupidity. I was editing the wrong version of the script. Everything seems to be working perfectly. Thank you again!	[reply]
Re: How to execute alias commands by ww (Archbishop) on Jan 13, 2014 at 22:44 UTC
Is the 'alias command' you're trying to execute not available/executable under its real name? Come, let us reason together: Spirit of the Monastery	[reply]
Re^2: How to execute alias commands by nanophd (Novice) on Jan 14, 2014 at 15:32 UTC
The alias executes a perl script.	[reply]