Hi,
I am opening a file......then i am wrting some data into it......and i am reopening the file again but ......i get a error cannot open file.......
$::file= "\adder\testfile.txt"
open(TEST1,$::file);
some write operation
close(TEST1)
open(TEST1,$::file) 'I GET A ERROR CAN OPEN... (2 Replies)
Guys,
I'm doing signal handling in Perl. I'm trying to catch ^C signal inside the script.
There two scripts : one shell script and one perl script.
The shell script calls the perl script.
For e.g. shell script a.sh and perl scipt sig.pl.
Shell script a.sh looks something like this :... (6 Replies)
Hi there,
I'm newby in perl and XML. I can read and parse Xml with XML-Node upper XML::Parser, but how can I create XML tags and pack my individual data in it then send through socket. PLZ lead me :)
Thanks in Advance. (1 Reply)
Hi,
Here is my piece of code--
sub per_user_qna_detail
{
for($index=0;$index<@records;$index++)
{
if($records =~ m/^(.*)\s*Morocco.*Entering\s*Module::authenticate/)
{
printf "INSIDE per_user_qna_detail on LINE NO $index\n";
$Time_Stamp = $1;... (0 Replies)
Hi All,
I'm pretty new to the forum and also to UNIX. I have a requirement for which I need some help. I have a script (example.script) where I get user inputs using the read command. I would need to pass the read-fetched input to a perl command (explained below) in my script. The part which... (3 Replies)
I can get this working, but if something is down I get an error and the script does not move on. I can not get the "else" function working. What might I be doing wrong?
use SNMP::Simple
my %ios = ();
$list="list.list";
open(DAT, $list) || die("Can't Open List");
@raw_data=<DAT>;... (4 Replies)
$# some text
$$ some text
$@ some text
$$. some text
Mg1 some text
Mg2 some text
.
.
.
Mg10 some text
The above 10 lines are to be extracted except the lines starting from $#,$$.,... (4 Replies)
I have a PERL command line embedded in a UNIX script. The script doesn't handle errors coming out of this command. I'm processing large files and occassionally I run out of disk space and end up with half a file.
perl -p -e 's/\n/\r\n/g' < TR_TMP_$4 > $4
How do I handle errors coming out... (1 Reply)
Hi
Am making connection to oracle using ISQL as shown in the code.
This code is just a minor part of a big code.
I want to capture the error if the password/login is wrong or if connection is not made.
I need to capture the error code also.
Also, If such an error occurs, i need to exit out... (4 Replies)
Hi,
I am reading and file and writting each word to other file.
where I have used array to store the data.
I am getting below error as
"Use of uninitialized value in concatenation (.) or string at customize_split_raw.pl line 51, <IN_FILE> "
Where my line 51 code is
50 foreach... (8 Replies)
Discussion started by: Beginer123
8 Replies
LEARN ABOUT DEBIAN
text::micromason::catcherrors
MicroMason::CatchErrors(3pm) User Contributed Perl Documentation MicroMason::CatchErrors(3pm)NAME
Text::MicroMason::CatchErrors - Add Exception Catching for Templates
SYNOPSIS
Instead of using this class directly, pass its name to be mixed in:
use Text::MicroMason;
my $mason = Text::MicroMason->new( -CatchErrors );
Use the standard compile and execute methods to parse and evalute templates:
print scalar $mason->compile( text=>$template )->( @%args );
print scalar $mason->execute( text=>$template, @args );
Result is undef on exception, plus an error message if in list context:
($coderef, $error) = $mason->compile( text=>$template );
($result, $error) = $mason->execute( text=>$template, 'name'=>'Dave' );
DESCRIPTION
This package adds exception catching to MicroMason, allowing you to check an error variable rather than wrapping every call in an eval.
Both compilation and run-time errors in your template are handled as fatal exceptions. The base MicroMason class will croak() if you
attempt to compile or execute a template which contains a incorrect fragment of Perl syntax. Similarly, if the Perl code in your template
causes die() or croak() to be called, this will interupt your program unless caught by an eval block.
This class provides that error catching behavior for the compile and execute methods.
In a scalar context they return the result of the call, or undef if it failed; in a list context they return the results of the call (undef
if it failed) followed by the error message (undef if it succeeded).
Public Methods
compile()
$code_ref = $mason->compile( text => $template, %options );
($coderef, $error) = $mason->compile( text=>$template, %options );
Uses an eval block to provide an exception catching wrapper for the compile method.
execute()
$result = $mason->execute( text => $template, @arguments );
($result, $error) = $mason->execute( text=>$template, 'name'=>'Dave' );
Uses an eval block to provide an exception catching wrapper for the execute method.
SEE ALSO
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::CatchErrors(3pm)