Im trying to create a script that should get a list of numbers from the user (using STDIN or a list of arguments), and call my library function.
Im my library it should contain a function that takes in an array of numbers, then the function will calculate the average of the numbers, the total of the numbers and a new array of numbers which is divided by 2. The new list will contain all this information.
My library:
But it doesnt return anything to help me. No errors, nothing. It appears to hang?
Any help with this will be greatly appreciated!
Bigben
Last edited by Franklin52; 04-26-2010 at 04:00 AM..
Reason: Please use code tags!
Dear All,
I am looking for an option in perl using which i could delete empty lines in a file.
Or
the alternative of sed '/^$/d' <filename> in perl. Sed is not working in my perl script :(
Pls help me out .
Thanks,
VG (4 Replies)
I write a script with register and login user.
So, i encrypt password with
encryptedpass=`perl -e "print crypt("${mypass}",salt)"`
if password do not contain blank space, it work
but if password have blank space, it cause error in that line
the error is:
syntax error at -e .....
Anyone... (3 Replies)
Hi friends, I am working on a perl script to count the commented lines, blank lines and source lines separately. Let me know if you have one. For example i have a file containing the lines:
/**
* SOURCE CODE
*/
public class SessionConstants {
/**
* Code for Session created
*/... (4 Replies)
Good morning!!
Im trying to create a script that should get a list of numbers from the user (using STDIN or a list of arguments), and call my library function.
My script:
#!use/bin/perl
require 'my-lib.pl';
@userArray = <STDIN>;
while()
{
chomp;
last if ! /\d/;... (1 Reply)
hi all,
i was wondering if there is an easy and smart way of greping for requestname (in bold below) from xml output from application log file on a solaris 10 system.
The requestName is the actual method name which gets called e.g it could be 'getAccount' or getId or getAddress etc etc
... (1 Reply)
I want to have a string which has n blank spaces
For example
set N = 3
create str = " "
So the length depends on the value of N. I am in tcsh. (4 Replies)
Can anyone tell me if it's possible to write a script that will repeat the same job several times but give the output a slightly different name each time (i.e. change or add a number at the end of the output file)? Here is the script I use to run a single job:
#!/bin/bash
#PBS -N job0
#PBS -l... (1 Reply)
i have a file that contains information such as this:
hostname.sky.net === 12.39.59.35
hostname.sky.net === 12.39.59.35
hostname.sky.net === 12.39.59.35
hostname-newyork.sky.net ==== 13.45.35.24
hostname-newyork.sky.net ==== 13.45.35.24... (3 Replies)
Hi,
I am creating a shell script which will check the processing of the main script if the error count is more than 2% of the record count in a feed. Part of the code is below:
err_tol=`echo $feed_cnt \* 0.02 |bc`
while read line
do
err_cnt=$(grep -i "$line" $err_log | wc -l)
... (5 Replies)
My issue is that the perl script (as I have done it so far) created empty branches when I try to check some branches on existence.
I am using multydimentional hashes: found it as the best way for information that I need to handle. Saing multidimentional I means hash of hashes ... So, I have
... (2 Replies)
Discussion started by: alex_5161
2 Replies
LEARN ABOUT DEBIAN
text::micromason::texttemplate
MicroMason::TextTemplate(3pm) User Contributed Perl Documentation MicroMason::TextTemplate(3pm)NAME
Text::MicroMason::TextTemplate - Alternate Syntax like Text::Template
SYNOPSIS
Instead of using this class directly, pass its name to be mixed in:
use Text::MicroMason;
my $mason = Text::MicroMason::Base->new( -TextTemplate );
Use the standard compile and execute methods to parse and evalute templates:
print $mason->compile( text=>$template )->( @%args );
print $mason->execute( text=>$template, @args );
Text::Template provides a syntax to mix Perl into a text template:
{ my $hour = (localtime)[2];
my $daypart = ( $hour > 11 ) ? 'afternoon' : 'morning';
'' }
Good { $daypart }, { $name }!
DESCRIPTION
This mixin class overrides several methods to allow MicroMason to emulate the template syntax and some of the other features of
Text::Template.
Compatibility with Text::Template
This is not a drop-in replacement for Text::Template, as the Perl calling interface is quite different, but it should be able to process
most existing templates without major changes.
This should allow current Text::Template users to take advantage of MicroMason's one-time compilation feature, which in theory could be
faster than Text::Template's repeated evals for each expression. (No benchmarking yet.)
Contributed patches to more closely support the syntax of Text::Template documents would be welcomed by the author.
Template Syntax
The following elements are recognized by the TextTemplate lexer:
o literal_text
Anything not specifically parsed by the below rule is interpreted as literal text.
o { perl_expr }
A Perl expression to be interpolated into the result.
Good { (localtime)[2]>11 ? 'afternoon' : 'morning' }.
The block may span multiple lines and is scoped inside a "do" block, so it may contain multiple Perl statements and it need not end
with a semicolon.
Good { my $h = (localtime)[2]; $h > 11 ? 'afternoon'
: 'morning' }.
To make a block silent, use an empty string as the final expression in the block.
{ warn "Interpreting template"; '' }
Hello there.
Although the blocks are not in the same a lexical scope, you can use local variables defined in one block in another:
{ $phase = (localtime)[2]>11 ? 'afternoon' : 'morning'; '' }
Good { $phrase }.
Argument Passing
Like Text::Template, this package clobbers a target namespace to pass in template arguments as package variables. For example, if you pass
in an argument list of "foo => 23", it will set the variable $foo in your package.
The strict pragma is disabled to facilitate these variable references.
Internally, this module inherits this functionality from the PassVariables mixin. If you are using the TextTemplate mixin, do not also
specify the PassVariables mixin or it will be included twice. For more information, see Text::MicroMason::PassVariables.
Supported Attributes
package
Target package namespace.
Private Methods
prepare()
If a package has not been specified, this method generates a new package namespace to use only for compilation of a single template.
lex()
Lexer for matched braces - produces only text and expr tokens. Uses Text::Balanced.
SEE ALSO
The interface being emulated is described in Text::Template.
For an overview of this templating framework, see Text::MicroMason.
This is a mixin class intended for use with Text::MicroMason::Base.
For distribution, installation, support, copyright and license information, see Text::MicroMason::Docs::ReadMe.
perl v5.10.1 2007-01-29 MicroMason::TextTemplate(3pm)