01-16-2007
Quote:
Originally Posted by Shivdatta
I dont want the last hifen to appear
A-B-C-D
not
A-B-C-D-
I have edited my post, have a look at it.
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
why i can't use this command:
echo $arg | cut -c 1,2 | read remainArg or
echo $arg | cut -c 1,2 | read $remainArg
so that the result will be assign to remainArg.
Anyway to do this? :) (1 Reply)
Discussion started by: AkumaTay
1 Replies
2. Shell Programming and Scripting
I have to assign a result of a query to a vairable like this
how can i do this
Query = select count(*) from table
x=`db2 ${Query}| sed -n '4p'`
but this doesn't work, is there any other way to assign the result without redirecting the result to temp file. .
Thanks
Mark. (3 Replies)
Discussion started by: markjason
3 Replies
3. Shell Programming and Scripting
Hi Experts,
I am facing some problem while developing the script.My input config.csv file contains the three columns namely pathname,filename,filetype.Based on the file type i have to use ftp command that is if filetype=csv then do ftp.
The input file is
cat config.csv... (13 Replies)
Discussion started by: Amey Joshi
13 Replies
4. Shell Programming and Scripting
bash-3.00$ /usr/bin/netstat -an -f inet | awk -F' ' '{if ($1$4 == "tcp*.21")print $5}'
*.*
bash-3.00$ A=` /usr/bin/netstat -an -f inet | awk -F' ' '{if ($1$4 == "tcp*.21")print $5}'`
bash-3.00$ echo $A
db2_lastdone.bkp
As you can see ,after running command i get *.* in return but the same... (5 Replies)
Discussion started by: ak835
5 Replies
5. Shell Programming and Scripting
Dear All,
we have a command output which looks like :
Total 200 queues in 30000 Kbytes
and we're going to get "200" and "30000" for further process. currently, i'm using :
numA=echo $OUTPUT | awk '{print $2}'
numB=echo $OUTPUT | awk '{print $5}'
my question is : can I use just one... (4 Replies)
Discussion started by: tiger2000
4 Replies
6. Shell Programming and Scripting
How can I assign a variable to an variable. IE $car=honda
One way I can do it is export $car=honda
or
let $car=2323
Is there any other ways to preform this task (3 Replies)
Discussion started by: 3junior
3 Replies
7. Shell Programming and Scripting
I launch 'netstat -a', if string 'ESTABLISHED' found, then VAR=1
#!/bin/bash
VAR=0;
netstat -a | awk '$6 ~ /ESTABLISHED/ {VAR=1}'
I cannot find the right syntax.
thanx guys! (3 Replies)
Discussion started by: arpagon
3 Replies
8. UNIX for Beginners Questions & Answers
Hello All,
Hope you're doing well !
I am trying below command to be passed in a shell script, header_date_14 is a variable and $1 is the name of a file I intend to pass as a command line argument, however command line argument is not being accepted.
header_date_14=$(m_dump... (8 Replies)
Discussion started by: ektubbe
8 Replies
9. UNIX for Beginners Questions & Answers
I have the following script, and I want to assign the output ($10 and $5) from awk to N and L:
grdinfo data.grd | awk '{print $10,$5}'| read N L
output from gridinfo data.grd is: data.grd 50 100 41 82 -2796 6944 0.016 0.016 3001 2461. where N and L is suppose to be 3001 and 100. I use... (8 Replies)
Discussion started by: geomarine
8 Replies
10. UNIX for Beginners Questions & Answers
Hi Guys,
I need to assign the value of which has rows to a variable, Can you advise how to do that
hive --orcfiledump /hdfs_path/ | grep "Rows"
Rows: 131554
I need to assign this row count itself to a unix variable
count=$(hive --orcfiledump /hdfs_path/ | grep "Rows")
Expected ... (6 Replies)
Discussion started by: Master_Mind
6 Replies
LEARN ABOUT OSX
moose::cookbook::roles::recipe3
Moose::Cookbook::Roles::Recipe3(3) User Contributed Perl Documentation Moose::Cookbook::Roles::Recipe3(3)
NAME
Moose::Cookbook::Roles::Recipe3 - Applying a role to an object instance
VERSION
version 2.0205
SYNOPSIS
package MyApp::Role::Job::Manager;
use List::Util qw( first );
use Moose::Role;
has 'employees' => (
is => 'rw',
isa => 'ArrayRef[Employee]',
);
sub assign_work {
my $self = shift;
my $work = shift;
my $employee = first { !$_->has_work } @{ $self->employees };
die 'All my employees have work to do!' unless $employee;
$employee->work($work);
}
package main;
my $lisa = Employee->new( name => 'Lisa' );
MyApp::Role::Job::Manager->meta->apply($lisa);
my $homer = Employee->new( name => 'Homer' );
my $bart = Employee->new( name => 'Bart' );
my $marge = Employee->new( name => 'Marge' );
$lisa->employees( [ $homer, $bart, $marge ] );
$lisa->assign_work('mow the lawn');
DESCRIPTION
In this recipe, we show how a role can be applied to an object. In this specific case, we are giving an employee managerial
responsibilities.
Applying a role to an object is simple. The Moose::Meta::Role object provides an "apply" method. This method will do the right thing when
given an object instance.
MyApp::Role::Job::Manager->meta->apply($lisa);
We could also use the "apply_all_roles" function from Moose::Util.
apply_all_roles( $person, MyApp::Role::Job::Manager->meta );
The main advantage of using "apply_all_roles" is that it can be used to apply more than one role at a time.
We could also pass parameters to the role we're applying:
MyApp::Role::Job::Manager->meta->apply(
$lisa,
-alias => { assign_work => 'get_off_your_lazy_behind' },
);
We saw examples of how method exclusion and alias working in roles recipe 2.
CONCLUSION
Applying a role to an object instance is a useful tool for adding behavior to existing objects. In our example, it is effective used to
model a promotion.
It can also be useful as a sort of controlled monkey-patching for existing code, particularly non-Moose code. For example, you could create
a debugging role and apply it to an object at runtime.
AUTHOR
Stevan Little <stevan@iinteractive.com>
COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Infinity Interactive, Inc..
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
perl v5.12.5 2011-09-06 Moose::Cookbook::Roles::Recipe3(3)