Here is my snippet of code...
getDescription()
{
DESCRIPTION=$(dbaccess dncsdb - << ! 2>/dev/null|sed -e 's/hctt_description//' -e '/^$/ d'|tr -d '\r'
select hct_type.hctt_description
from hct_type,hct_profile
where hct_type.hctt_id=hct_profile.hctt_id
and... (5 Replies)
I hope this makes sense, but I need help with what is indicated with %%, below :
A.) ####List active servers and send to file####
# ps -ef | grep jboss | grep sh | awk '{if ($14) {print $12;}else {print $11}}' | sort > /export/home/kthatch/script_results
client302
client306
client309... (1 Reply)
Hi,
I got some log files which print the whole xml message in separate lines:
e.g.
2008-10-01 14:21:44,561 INFO do something
2008-10-01 14:21:44,561 INFO print xml : <?xml version="1.0" encoding="UTF-8"?>
<a>
<b>my data</b>
</a>
2008-10-01 14:21:44,563 INFO do something again
I want... (3 Replies)
I need to remove all line breaks in a document after a match, until there is a blank line.
Example below, after the match "THE GREEN TABLE" remove line breaks until a blank line. Then, after the match "THE BLUE TABLE" do the same.
Before:
THE GREEN TABLE
Lorem ipsum dolor sit amet,... (14 Replies)
Hello,
I want to keep line spaces in comments but clean more then 2 after each.
Example:
$sentence="This is my first sentence
This will be in a new row
This will be too in a new row but not separated with 3line breaks just with
one
";
And i want to... (1 Reply)
Hi All,
Need an urgent solution to an issue . We have created a ksh file or shell script which generates 1 DAT file. the DAT file contains extract of a select statement .
Now the issue is , when we are executing the ksh file , the output is coimng with page breaks and line breaks .
We have... (4 Replies)
Dear Concern,
When we using @ sign, line breaks for a particular user in shell. Please advise how to resolve from the problem in HP UX.
tabs@tabsdb02:/ccbs/users/tabs$ cat /etc/passwd|grep tabs
tabs:RdCgOsmKee7Ps:221:201::/ccbs/users/tabs:/usr/bin/ksh... (3 Replies)
Heyas
I'm trying to read/display a file its content and put borders around it (tui-cat / tui-cat -t(ypwriter).
The typewriter-part is a 'bonus' but still has its own flaws, but thats for later.
So in some way, i'm trying to rewrite cat using bash and other commands.
But sadly it fails on... (2 Replies)
Hi,
I have an issue with the line breaks in the mail spool- /var/mail/user1. I have set up a script to go through the mail spool on one of the users and parse some parts of the mail, however there doesn't seem to exist the regular line endings CR, LF or both in the lines and this is breaking my... (4 Replies)
Hi,
I want to remove all extra spaces, line breaks .
Need a new line entry only for term starting"array"
For eg: my input is
array(),
array(),
array(),
and my expected output is
array(),
array(),
array(),
Is it possible using awk? (5 Replies)
Discussion started by: rsi.245
5 Replies
LEARN ABOUT DEBIAN
template::alloy::compile
Template::Alloy::Compile(3pm) User Contributed Perl Documentation Template::Alloy::Compile(3pm)NAME
Template::Alloy::Compile - Compile role - allows for compiling the AST to perl code
DESCRIPTION
The Template::Alloy::Compile role allows for taking the AST returned by the Parse role, and translating it into a perl code document. This
is in contrast Template::Alloy::Play which executes the AST directly.
TODO
o Translate compile_RAWPERL to actually output rather than calling play_RAWPERL.
ROLE METHODS
"compile_tree"
Takes an AST returned by parse_tree and translates it into perl code using functions stored in the $DIRECTIVES hashref.
A template that looked like the following:
Foo
[% GET foo %]
[% GET bar %]
Bar
would parse to the following perl code:
# Generated by Template::Alloy::Compile v1.001 on Thu Jun 7 12:58:33 2007
# From file /home/paul/bar.tt
my $blocks = {};
my $meta = {};
my $code = sub {
my ($self, $out_ref, $var) = @_;
$$out_ref .= 'Foo';
# "GET" Line 2 char 2 (chars 6 to 15)
$var = $self->play_expr(['foo', 0]);
$$out_ref .= defined($var) ? $var : $self->undefined_get(['foo', 0]);
# "GET" Line 3 char 2 (chars 22 to 31)
$var = $self->play_expr(['bar', 0]);
$$out_ref .= defined($var) ? $var : $self->undefined_get(['bar', 0]);
$$out_ref .= 'Bar';
return 1;
};
{
blocks => $blocks,
meta => $meta,
code => $code,
};
As you can see the output is quite a bit more complex than the AST, but under mod_perl conditions, the perl will run faster than
playing the AST each time.
"compile_expr"
Takes an AST variable or expression and returns perl code that can lookup the variable.
AUTHOR
Paul Seamons <paul at seamons dot com>
LICENSE
This module may be distributed under the same terms as Perl itself.
perl v5.10.1 2008-09-17 Template::Alloy::Compile(3pm)