Perl and Sockets - Error handling Post: 302400386

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

file handling problem in perl......

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. Shell Programming and Scripting

Signal handling in Perl

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 :...

3. Programming

XML Handling in Perl

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.

4. Shell Programming and Scripting

special characters handling in perl

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;...

5. Shell Programming and Scripting

Handling Parameters in Perl

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...

6. Infrastructure Monitoring

Perl Error Handling Problem

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>;...

7. Programming

Perl help for file handling

$# 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 $#,$$.,...

8. Shell Programming and Scripting

PERL error handling

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...

9. UNIX for Dummies Questions & Answers

Error Handling using ISQL for oracle connection in Perl

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...

10. Shell Programming and Scripting

Perl file handling error

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...

LEARN ABOUT SUSE

template::document

Template::Document(3)					User Contributed Perl Documentation				     Template::Document(3)

NAME

       Template::Document - Compiled template document object

SYNOPSIS

	   use Template::Document;

	   $doc = Template::Document->new({
	       BLOCK => sub { # some perl code; return $some_text },
	       DEFBLOCKS => {
		   header => sub { # more perl code; return $some_text },
		   footer => sub { # blah blah blah; return $some_text },
	       },
	       METADATA => {
		   author  => 'Andy Wardley',
		   version => 3.14,
	       }
	   }) || die $Template::Document::ERROR;

	   print $doc->process($context);

DESCRIPTION

       This module defines an object class whose instances represent compiled template documents.  The Template::Parser module creates a
       "Template::Document" instance to encapsulate a template as it is compiled into Perl code.

       The constructor method, new(), expects a reference to a hash array containing the "BLOCK", "DEFBLOCKS" and "METADATA" items.

       The "BLOCK" item should contain a reference to a Perl subroutine or a textual representation of Perl code, as generated by the
       Template::Parser module.  This is then evaluated into a subroutine reference using "eval()".

       The "DEFLOCKS" item should reference a hash array containing further named "BLOCK"s which may be defined in the template. The keys
       represent "BLOCK" names and the values should be subroutine references or text strings of Perl code as per the main "BLOCK" item.

       The "METADATA" item should reference a hash array of metadata items relevant to the document.

       The process() method can then be called on the instantiated "Template::Document" object, passing a reference to a Template::Context object
       as the first parameter. This will install any locally defined blocks ("DEFBLOCKS") in the "BLOCKS" cache in the context (via a call to
       visit()) so that they may be subsequently resolved by the context. The main "BLOCK" subroutine is then executed, passing the context
       reference on as a parameter. The text returned from the template subroutine is then returned by the process() method, after calling the
       context leave() method to permit cleanup and de-registration of named "BLOCKS" previously installed.

       An "AUTOLOAD" method provides access to the "METADATA" items for the document. The Template::Service module installs a reference to the
       main "Template::Document" object in the stash as the "template" variable. This allows metadata items to be accessed from within templates,
       including "PRE_PROCESS" templates.

       header:

	   <html>
	   <head>
	   <title>[% template.title %]
	   </head>
	   ...

       "Template::Document" objects are usually created by the Template::Parser but can be manually instantiated or sub-classed to provide custom
       template components.

METHODS

   new(\%config)
       Constructor method which accept a reference to a hash array containing the structure as shown in this example:

	   $doc = Template::Document->new({
	       BLOCK => sub { # some perl code; return $some_text },
	       DEFBLOCKS => {
		   header => sub { # more perl code; return $some_text },
		   footer => sub { # blah blah blah; return $some_text },
	       },
	       METADATA => {
		   author  => 'Andy Wardley',
		   version => 3.14,
	       }
	   }) || die $Template::Document::ERROR;

       "BLOCK" and "DEFBLOCKS" items may be expressed as references to Perl subroutines or as text strings containing Perl subroutine definitions,
       as is generated by the Template::Parser module.	These are evaluated into subroutine references using "eval()".

       Returns a new "Template::Document" object or "undef" on error. The error() class method can be called, or the $ERROR package variable
       inspected to retrieve the relevant error message.

   process($context)
       Main processing routine for the compiled template document. A reference to a Template::Context object should be passed as the first
       parameter. The method installs any locally defined blocks via a call to the context visit() method, processes its own template, (passing
       the context reference as a parameter) and then calls leave() in the context to allow cleanup.

	   print $doc->process($context);

       Returns a text string representing the generated output for the template.  Errors are thrown via "die()".

   block()
       Returns a reference to the main "BLOCK" subroutine.

   blocks()
       Returns a reference to the hash array of named "DEFBLOCKS" subroutines.

   AUTOLOAD
       An autoload method returns "METADATA" items.

	   print $doc->author();

PACKAGE SUB-ROUTINES
   write_perl_file(\%config)
       This package subroutine is provided to effect persistence of compiled templates.  If the "COMPILE_EXT" option (to indicate a file extension
       for saving compiled templates) then the Template::Parser module calls this subroutine before calling the new() constructor.  At this stage,
       the parser has a representation of the template as text strings containing Perl code.  We can write that to a file, enclosed in a small
       wrapper which will allow us to susequently "require()" the file and have Perl parse and compile it into a "Template::Document".	Thus we
       have persistence of compiled templates.

AUTHOR

       Andy Wardley <abw@wardley.org> <http://wardley.org/>

COPYRIGHT

       Copyright (C) 1996-2007 Andy Wardley.  All Rights Reserved.

       This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

       Template, Template::Parser

perl v5.12.1							    2009-06-17						     Template::Document(3)

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

file handling problem in perl......

Discussion started by: vivekshankar

2. Shell Programming and Scripting

Signal handling in Perl

Discussion started by: obelix

3. Programming

XML Handling in Perl

Discussion started by: Zaxon

4. Shell Programming and Scripting

special characters handling in perl

Discussion started by: namishtiwari