need to check hardware error are zero
iostat -en |awk '{ if ( $2 == 0 ) { print " " } else { print " Hardware errors "} }
can someone please tell me whats wrong with this
---------- Post updated at 10:19 PM ---------- Previous update was at 10:16 PM ----------
iostat -en
----... (11 Replies)
We have a Java app that renders Localized text on user's browser session based upon browser language settings. The app reads the browser language settings and prepares the localized text. But recently we faced issues for Mozilla 5.0 version browser. Note our code works fine in IE. Taking an... (1 Reply)
Hi All,
I am in middle of one script. I want output in the form of xls file.
There are 4 fields - user name, email Id, full name, date of birth. I want these details to get in seperate columns.
But, i am getting it in the single cell and as like a paragraph.:mad:
Please suggest me some... (8 Replies)
Hi
I have written below script to get the data in table form.
#!/bin/sh
echo "File Name\tType"
for i in *;
do
echo "$i\t\c"
if ; then
echo "directory"
elif ; then
echo "symbolic link"
elif ; then
echo "file"
else
echo "unknown"
fi
donehowever i am getting output in different way... (3 Replies)
I have two files containing hundreds of different sequences with the same Identifiers (ID-001, ID-002, etc.,), something like this:
Infile1:
ID-001 ATGGGAGCGGGGGCGTCTGCCTTGAGGGGAGAGAAGCTAGATACA
ID-002 ATGGGAGCGGGGGCGTCTGTTTTGAGGGGAGAGAAGCTAGATACA
ID-003... (18 Replies)
Good Moring,
I am currently reading about awk in a manual and following the examples using the oratab file.
My system is SOLARIS 10
I think I am getting strange behavior judging by what the book says to do and what I am getting with my little program.
Here is my program:
grep -v oratab |... (4 Replies)
Hello All,
May i please know how do i ensure my split command would NOT generate incomplete output files like below, the last lines in each file is missing some columns or last line is complete.
split -b 50GB File File_
File_aa
|551|70210203|xxxxxxx|12/22/2010 20:44:58|11/01/2010... (1 Reply)
Hello,
I am practising awk and decided to compare two columns and print the result of the comparison as third column
i/p data
c1,c2,c3
1,a,b
1,b,b
i am trying to compare the last two columns and if they match I am trying to print match else mismatch(Ideally i want that as a last column... (5 Replies)
Discussion started by: mkathi
5 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)