hi,
Is it possible to call a perl function from a perl module from within a shell script. I have a similar requirement.
Thanks in advance,
Kavitha (1 Reply)
Hello friends ,
I need a help how to call the variable which has define in the shell script in the perl command line.
example of the shell scrip :
str="hell0"
i want print the value of this variable in the perl command line.
perl -e 'print $str'
but this is not working .
can... (2 Replies)
Hi,
Am new to scripting. :)
Am trying to figure out whether can i use bash scripting to parse an xml file.
Parsing is not just pulling out information according to the pattern but its more of a generic parsing. I should identify the xml hierarchy and pull out information accordingly. It's not a... (2 Replies)
Hi All,
I am using the following command to invoke the shell script from a perl command.
perl -i.bak -pe'BEGIN { $cmd = "/opt/coreservices/tomcat-5.5.9/bin/digest.sh -a sha"; }
s/(password=")(*)/
$1.`$cmd $2|cut -d: -f2|tr -d "\n"`
/e
' $CATALINA_HOME/conf/tomcat-users.xml
I need... (1 Reply)
Hi Guys,
I wish to execute some shell commands through PERL.
Here is what I desire to do
1) I wish to find list of directories in current working location
2) Then go in each directory and execute few commands like
a) rm -rf *.log (Shell command)
b) coreBuilder -f cb_tests.tcl (Some... (6 Replies)
perl script i am using for search and replace is not working as expected...
I am using it for in-place search/replace.
I am new to perl, can someone please help me solving the issue here.
########SCRIPT
#!/bin/sh
var="abc"
var2="def"
perl -pi -e 's/${var}/def/g' testfile
exit 0
... (0 Replies)
Hi ,
I have a ps command inside perl script :
ps -ef | egrep tail_file.pl | egrep -v egrep | awk '{print $2}' | egrep $pid
through shell it's working fine . The same coammnd when executed through PERL , it'd displaying all the results
oracle 10141 1 0 2010 ? ... (5 Replies)
Hi,
I would like to use a shell variable $amp in my perl command line.
for fa in $WORKSPACE/*.fa; do
amp=`grep ">.*" $fa | sed -e's#>\(.*\)#\1#g'`
ampsam="$WORKSPACE/$base/$base.$amp.sam"
sqheader=`grep "^@SQ.*SN:$amp.*" $sam`
printf "$sqheader\n" >> $ampsam
... (3 Replies)
Hi,
I have a shell script, In which i have variable "var1" and some perl command inside shell script.
export var1='coep -n rst-a2p-hinje.vci.all.com -c'
perl -pi -e 's/^/coep -n rst-a2p-hinje.vci.all.com -c /' command.txt
currently I am adding value of var1 in command.txt file by... (2 Replies)
Discussion started by: rakeshtomar82
2 Replies
LEARN ABOUT DEBIAN
devel::repl::profile
Devel::REPL::Profile(3pm) User Contributed Perl Documentation Devel::REPL::Profile(3pm)NAME
Devel::REPL::Profile - code to execute when re.pl starts
SYNOPSIS
package Devel::REPL::Profile::MyProject;
use Moose;
use namespace::clean -except => [ 'meta' ];
with 'Devel::REPL::Profile';
sub apply_profile {
my ($self, $repl) = @_;
# do something here
}
1;
DESCRIPTION
For particular projects you might well end up running the same commands each time the REPL shell starts up - loading Perl modules, setting
configuration, and so on.
A mechanism called profiles exists to let you package and distribute these start-up scripts, as Perl modules.
USAGE
Quite simply, follow the "SYNOPSIS" section above to create a boilerplate profile module. Within the "apply_profile" method, the $repl
variable can be used to run any commands as the user would, within the context of their running "Devel::REPL" shell instance.
For example, to load a module, you might have something like this:
sub apply_profile {
my ($self, $repl) = @_;
$repl->eval('use Carp');
}
As you can see, the "eval" method is used to run any code. The user won't see any output from that, and the code can "safely" die without
destroying the REPL shell. The return value of "eval" will be the return value of the code you gave, or else if it died then a
"Devel::REPL::Error" object is returned.
If you want to load a "Devel::REPL" plugin, then use the following method:
$repl->load_plugin('Timing');
The "load_plugin" and "eval" methods should cover most of what you would want to do before the user has access to the shell. Remember that
plugin features are immediately available, so you can load for example the "LexEnv" plugin, and then declare "my" variables which the user
will have access to.
Selecting a Profile
To run the shell with a particular profile, use the following command:
system$ re.pl --profile MyProject
Alternatively, you can set the environment variable "DEVEL_REPL_PROFILE" to MyProject.
When the profile name is unqualified, as in the above example, the profile is assumed to be in the "Devel::REPL::Profile::" namespace.
Otherwise if you pass something which contains the "::" character sequence, it will be loaded as-is.
AUTHOR
Matt S Trout - mst (at) shadowcatsystems.co.uk (<http://www.shadowcatsystems.co.uk/>)
LICENSE
This library is free software under the same terms as perl itself
perl v5.14.2 2012-06-02 Devel::REPL::Profile(3pm)