the output is:
by using perl or awk, can get the value betwee "<abc" and ">", assume 1.txt has lots of those tags, so the output can filter out all those values.
Hi friends,
I want to substitute "a ='....'," with ":" in everywhere in a string using Perl.
Details:
----------
my $str= " c1='fgfasfgasggfgff.,akhkhahha', c2='bbbn', c3='hg5 sh' ";
Required o/p: $str= " c1:c2:c3 "
I tried as below:
$str=~ s/=\'.*\',/:/g ;
print "str=... (14 Replies)
in a shell script, i hav a variable declared as "ABC-123".
i want to incriment th value ABC-123 by 1 so that the result will be
ABC-124.
Can anyone suggest a solution in shell scripting.. (4 Replies)
Hi everyone
I am new to unix . i got struck up with small issue.
i have text file something like this
abc 'xyz' '5'
pqr 'lmn' '6'
i want to replace
abc 'xyz' '5' with abc 'tyr' '9'
but i know the key 'xyz'
based on the key 'xyz' i want to replace
please help me .
its... (3 Replies)
Hi,
I'm trying to do the following and can't figure out how to achieve it.
On my computer there are a number of folders called 'program' at various levels.
I would like to search for these folders (that are below my current level) and then use egrep to search for a string within files that... (6 Replies)
In rootvg /abc file is full,I want to increase,but there is no free pps,how will u do it? (1 Reply)
Discussion started by: ramraj731
1 Replies
LEARN ABOUT DEBIAN
aspect::advice
Aspect::Advice(3pm) User Contributed Perl Documentation Aspect::Advice(3pm)NAME
Aspect::Advice - Change how Perl code is run at a pointcut
SYNOPSIS
# Trace calls to all functions in all MyAccount classes
use Aspect;
before {
print 'Called: '. $_->sub_name;
} call qw/^MyAccount::/;
# Repeat using the pure object-oriented interface
use Aspect::Advice::Before ();
use Aspect::Pointcut::Call ();
my $advice = Aspect::Advice::Before->new(
pointcut => Aspect::Pointcut::Call->new( qr/^MyAccount::/ ),
code => sub {
print 'called: '. $_->sub_name;
},
);
DESCRIPTION
An "advice" in AOP lingo is composed of a condition (known as a Aspect::Pointcut) and some code that will run when that pointcut is true.
This code is run before, after, or around the target pointcut depending on the particular advice type declaration used.
You do not normally create advice using the constructor. By "use()"ing Aspect, you get five advice declaration subroutines imported.
"before" is used to indicate code that should run prior to the function being called. See Aspect::Advice::Before for more information.
"after" is used to indicate code that should run following the function being called, regardless of whether it returns normally or throws
an exception. See Aspect::Advice::After for more information.
"around" is used to take deeper control of the call and gives you your own lexical scope between the caller and callee, with a specific
"proceed" call required in your code to execute the target function. See Aspect::Advice::Around for more information.
When the advice code is called, it is provided with an Advice::Point object which describes the context of the call to the target function,
and allows you to change it.
This parameter is provided both via the topic variable $_ (since version 0.90) and additionally as the first parameter to the advice code
(which may be deprecated at some point in the future).
If you are creating "advice" objects directly via the OO interface, you should never use this class directly but instead use the class of
the particular type of advice you want to create.
AUTHORS
Adam Kennedy <adamk@cpan.org>
Marcel Gruenauer <marcel@cpan.org>
Ran Eilam <eilara@cpan.org>
COPYRIGHT
Copyright 2001 by Marcel Gruenauer
Some parts copyright 2009 - 2012 Adam Kennedy.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2012-02-01 Aspect::Advice(3pm)