Hi Perl gurus,
I have this file to scan through. Sample lines below:
2008031A, USERNAME, 12345, give ABC, take XYZ, transaction submitted
2008031B, USERNAME, 12346, waiting for processing
2008031C, USERNAME, 12347, Retrieving response
2008031D, USERNAME, 12348, This is not a valid dealing... (3 Replies)
Hi gang,
I have a project I would like to work on as I learn perl & ruby scripting. Maybe a big bite to chew off at first, but that's how I like to learn. Attack a real world problem.
I would like to enhance our response to spam attacks here at our office where we run mail, dhcp, dns... (7 Replies)
i need to create a shell script, which will go into a directory , and scan the files in it for defined errors, there will be around 10 files in the directory. (3 Replies)
Hello,
Im new to shell scripting , and i have the following question .
The hcitool scan command returns the bluetooth address of the phone . When it is run the output is something like
Scanning....
00:A1:5D:AB:B2:E9 Nokia 6600
Can i get the output in a varaiable in a... (1 Reply)
Hi,
I am new to perl:
I need to write perl script to list all the files present in directory and mail should be come to my inbox with all the files present in that directory.
advanced thanks for valuable inputs.
Thanks
Prakash GR (1 Reply)
Hi,
I am fairly new to unix/linux scripting (about 1 week) and have written a script to scan a directory for xml files, if found call and oracle procedure passing in the file name and then move the file once processed to an archive area.
Now everything seems to be working except when there... (3 Replies)
Dear Experts,
Have been seraching this forum from this morning for my query but dint find hence posting it her... Basically i have two input files BSS and MSS which has a unique string , hence i hav tried and seperated the text to compare frm both files .. Any my present input files look like... (6 Replies)
Hello all,
I have some .html files on my hard drive and trying to figure out (if it's possible) how to scan the files in the directory for <a> anchor tags to find linked files. I know how to bring the files in with Perl, but as text. Wondering if there's a way to probe the file for... (2 Replies)
Gents,
Please can you help.
I want to create a list which contends the complete patch of the location of some directories with the size of each file.
need to select only .txt file
In this case I am try to find the subdirectories tp1 and tp2 and create the output list.
jd175-1
tp1... (3 Replies)
Discussion started by: jiam912
3 Replies
LEARN ABOUT DEBIAN
mason::manual::intro
Mason::Manual::Intro(3pm) User Contributed Perl Documentation Mason::Manual::Intro(3pm)NAME
Mason::Manual::Intro - Getting started with Mason
DESCRIPTION
A few quick examples to get your feet wet with Mason. See Mason::Manual::Setup for how to use Mason to generate web sites.
EXAMPLE 1
Hello world (from command-line)
After installing Mason, you should have a "mason" command in your installation path (e.g. "/usr/local/bin"). Try this:
% mason
Hello! The local time is <% scalar(localtime) %>.
^D
(where '^D' means ctrl-D or EOF). You should see something like
Hello! The local time is Wed Mar 2 17:11:54 2011.
The "mason" command reads in a Mason component (template), runs it, and prints the result to standard output. Notice that the tag
<% scalar(localtime) %>
was replaced with the value of its expression. This is called a substitution tag and is a central piece of Mason syntax.
EXAMPLE 2
Email generator (from script)
The command line is good for trying quick things, but eventually you're going to want to put your Mason components in files.
In a test directory, create a directory "comps" and create a file "email.mc" with the following:
<%class>
has 'amount';
has 'name';
</%class>
Dear <% $.name %>,
We are pleased to inform you that you have won $<% sprintf("%.2f", $.amount) %>!
Sincerely,
The Lottery Commission
<%init>
die "amount must be a positive value!" unless $.amount > 0;
</%init>
In addition to the substitution tag we've seen before, we declare two attributes, "amount" and "name", to be passed into the component; and
we declare a piece of initialization code to validate the amount.
In the same test directory, create a script "test.pl" with the following:
1 #!/usr/local/bin/perl
2 use Mason;
3 my $interp = Mason->new(comp_root => 'comps', data_dir => 'data');
4 print $interp->run('/email', name => 'Joe', amount => '1500')->output;
Line 3 creates a Mason interpreter, the main Mason object. It specifies two parameters: a component root, indicating the directory
hierarchy where your components will live; and a data directory, which Mason will use for internal purposes such as class generation and
caching.
Line 4 runs the template - notice that the ".mc" extension is added automatically - passing values for the "name" and "amount" attributes.
Run "test.pl", and you should see
Dear Joe,
We are pleased to inform you that you have won $1500.00!
Sincerely,
The Lottery Commission
SEE ALSO
Mason::Manual::Tutorial, Mason::Manual
AUTHOR
Jonathan Swartz <swartz@pobox.com>
COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Jonathan Swartz.
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.14.2 2012-05-02 Mason::Manual::Intro(3pm)