1  
   2  ### begin_: file metadata
   3      ### <region-file_info>
   4      ### main:
   5      ###   - name    : XMLPrettyPrint: simple xml pretty print in perl
   6      ###     desc    : use perl with XML::Twig library to print indented xml
   7      ###     date    : created="Thu 2005-12-01 11:08:15"
   8      ###     last    : lastmod="Thu 2005-12-01 11:22:34"
   9      ###     lang    : perl
  10      ###     tags    : perl xml indent formatted pretty string cfPrettyPrint
  11      ### </region-file_info>
  12  
  13  ### begin_: init perl
  14      use strict;
  15      use warnings;
  16      use XML::Twig;
  17  
  18  ### begin_: init vars
  19      my  $sXML  = join "", (<DATA>);
  20  
  21      ### init params
  22      my  $params = [qw(none nsgmls nice indented record record_c)];
  23      my  $sPrettyFormat  = $params->[3] || 'none';
  24  
  25  ### begin_: process
  26      my  $twig= new XML::Twig;
  27      $twig->set_indent(" "x4);
  28      $twig->parse( $sXML );
  29      $twig->set_pretty_print( $sPrettyFormat );
  30      $sXML      = $twig->sprint;
  31  
  32  ### begin_: output
  33      print $sXML;
  34  
  35  ### begin_: sample data
  36      1;
  37      __END__
  38  <table><tr age="35" >
  39  <fname>Homer</fname>
  40  <lname>Simpson</lname></tr>
  41  <tr age="33" >
  42  <fname>Barney</fname>
  43  <lname>Rubble</lname></tr>
  44  <tr age="29" >
  45  <fname>Betty</fname>
  46  <lname>Rubble</lname></tr></table>

   1  
   2  ### begin_: file metadata
   3      ### <region-file_info>
   4      ### main:
   5      ###   - name    : TryCatch: try catch block
   6      ###     desc    : a simple try-catch block example in perl
   7      ###     date    : created="Thu 2005-12-01 10:58:09"
   8      ###     last    : lastmod="Thu 2005-12-01 10:58:13"
   9      ###     tags    : try catch finally error perl cfTryCatch exception
  10      ### </region-file_info>
  11  
  12  ### begin_: init perl
  13      use strict;
  14      use warnings;
  15  
  16  ### begin_: try-catch block
  17      print "begin \n";
  18      eval{
  19          ### try block
  20          print Non_Existent_Function();
  21      };
  22      if ($@){
  23          ### catch block
  24          print "Failed \n";
  25      };
  26      print "end \n";

   1  
   2  ### begin_: file metadata
   3      ### <region-file_info>
   4      ### main:
   5      ###   - name : DateTime.pl
   6      ###     desc : DateTime: generic date and time script in perl
   7      ###     date : created="Thu 2005-12-01 10:04:52"
   8      ###     last : lastmod="Thu 2005-12-01 10:04:59"
   9      ### </region-file_info>
  10  
  11  ### begin_: initialize perl (optional)
  12      use strict;
  13      use warnings;
  14  
  15  ### begin_: initialize DateTime values
  16      my %dttime = ();
  17      my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  18  
  19  ### begin_: initialize DateTime number formats
  20      $dttime{year }  = sprintf "%04d",($year + 1900);  ## four digits to specify the year
  21      $dttime{mon  }  = sprintf "%02d",($mon + 1);      ## zeropad months
  22      $dttime{mday }  = sprintf "%02d",$mday;           ## zeropad day of the month
  23      $dttime{wday }  = sprintf "%02d",$wday + 1;       ## zeropad day of week; sunday = 1;
  24      $dttime{yday }  = sprintf "%02d",$yday;           ## zeropad nth day of the year
  25      $dttime{hour }  = sprintf "%02d",$hour;           ## zeropad hour
  26      $dttime{min  }  = sprintf "%02d",$min;            ## zeropad minutes
  27      $dttime{sec  }  = sprintf "%02d",$sec;            ## zeropad seconds
  28      $dttime{isdst}  = $isdst;
  29  
  30  ### begin_: xnpDate print iso8601 version date
  31      print "$dttime{year}-$dttime{mon}-$dttime{mday}\n";
  32  
  33  ### begin_: xnpNow show system time
  34      print "$dttime{year}-$dttime{mon}-$dttime{mday} $dttime{hour}:$dttime{min}:$dttime{sec} \n";