DZone Snippets: Drefty's Code Snippets

FileMetaData: simple generic file_info metadata comment

drefty (drefty) — Fri, 02 Dec 2005 07:27:41 GMT

This is a general-purpose default text snippet that
you can use to add metadata to any file. It is based
on YAML.



### begin_: file metadata

    ### 

    ### main:

    ###   - name : ___filename___

    ###     desc : |

    ###         ___description___

    ###     date : created="___date___"

    ###     last : lastmod="___last___"

    ###     lang : ___lang___

    ###     tags : ___tags___

    ###

DateTime: Simple date operations in javascript

drefty (drefty) — Fri, 02 Dec 2005 07:17:12 GMT



/*

### begin_: file metadata

    ### 

    ### main:

    ###   - name : cfDateTime.js

    ###     desc : |

    ###         Simple date operations in jscript.

    ###         This file is for use with windows scripting host.

    ###     date : created="Thu 2005-12-01 11:57:38"

    ###     last : lastmod="Thu 2005-12-01 12:18:57"

    ###     lang : jscript

    ###     tags : jscript javascript date time now month hour year cfDateTime

    ### 

    */



/// begin_: declare and init variables

    var today       = new Date();

    var strYear     = today.getFullYear();

    var iMonth      = today.getMonth() + 1; // +1, we do NOT want zero-based month index

    var iQuarter    = Math.ceil((iMonth / 12) * 4);

    var iDay        = today.getDate();

    var strDateOut  = "";



/// begin_: leading zeropad single-digit numbers

    iMonth = (iMonth < 10)? "0" + iMonth : iMonth;

    iDay = (iDay < 10)? "0" + iDay : iDay;



/// begin_: display output

    strDateOut = strYear+"-"+ iMonth +"-"+iDay + " ";

    WScript.Echo (strDateOut);

MathOps: simple math operations in xslt

drefty (drefty) — Fri, 02 Dec 2005 06:58:07 GMT

cfMathOps.xml:

cfMathOps.xsl



    xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">











math operations from xslt

    
  A. 4 + 3.2        = 

    
  B. 3.2 - 4        = 

    
  C. 4 * 3.2        = 

    
  D. 11/3.2         = 

    
  E. 4 + 3.2 * 11   = 

    
  F. (4 + 3.2) * 11 = 

    
  G. 11 mod 4       = 

    
  H. 4 + 3.2 + 11   = 

    
  I. floor(3.2)     = 

    
  J. ceiling(3.2)   = 

    
  K. round(3.2)     = 

    
  L. 11 + count(*)  = 

    
  M. 11 + "hello"                 = 

    
  N. 3.2 + string-length("3.2")   =

ForLoop: a simple for loop in xslt

drefty (drefty) — Fri, 02 Dec 2005 06:33:23 GMT







    xmlns:xsl="http://www.w3.org/1999/XSL/Transform">

    









Say Hello Ten Times!



    I am going to say hello Ten Times!



    

     1

     10

    















  



   

   



   

   

      
 .Hello world!

XMLPrettyPrint: simple xml pretty print in perl

drefty (drefty) — Fri, 02 Dec 2005 06:23:55 GMT



### begin_: file metadata

    ### 

    ### main:

    ###   - name    : XMLPrettyPrint: simple xml pretty print in perl

    ###     desc    : use perl with XML::Twig library to print indented xml

    ###     date    : created="Thu 2005-12-01 11:08:15"

    ###     last    : lastmod="Thu 2005-12-01 11:22:34"

    ###     lang    : perl

    ###     tags    : perl xml indent formatted pretty string cfPrettyPrint

    ### 



### begin_: init perl

    use strict;

    use warnings;

    use XML::Twig;



### begin_: init vars

    my  $sXML  = join "", ();



    ### init params

    my  $params = [qw(none nsgmls nice indented record record_c)];

    my  $sPrettyFormat  = $params->[3] || 'none';



### begin_: process

    my  $twig= new XML::Twig;

    $twig->set_indent(" "x4);

    $twig->parse( $sXML );

    $twig->set_pretty_print( $sPrettyFormat );

    $sXML      = $twig->sprint;



### begin_: output

    print $sXML;



### begin_: sample data

    1;

    __END__


Homer
Simpson

Barney
Rubble

Betty
Rubble

TryCatch: simple try catch block in perl

drefty (drefty) — Fri, 02 Dec 2005 06:00:58 GMT



### begin_: file metadata

    ### 

    ### main:

    ###   - name    : TryCatch: try catch block

    ###     desc    : a simple try-catch block example in perl

    ###     date    : created="Thu 2005-12-01 10:58:09"

    ###     last    : lastmod="Thu 2005-12-01 10:58:13"

    ###     tags    : try catch finally error perl cfTryCatch exception

    ### 



### begin_: init perl

    use strict;

    use warnings;



### begin_: try-catch block

    print "begin \n";

    eval{

        ### try block

        print Non_Existent_Function();

    };

    if ($@){

        ### catch block

        print "Failed \n";

    };

    print "end \n";

DateTime: generic date and time script in perl

drefty (drefty) — Fri, 02 Dec 2005 05:27:40 GMT



### begin_: file metadata

    ### 

    ### main:

    ###   - name : DateTime.pl

    ###     desc : DateTime: generic date and time script in perl

    ###     date : created="Thu 2005-12-01 10:04:52"

    ###     last : lastmod="Thu 2005-12-01 10:04:59"

    ### 



### begin_: initialize perl (optional)

    use strict;

    use warnings;



### begin_: initialize DateTime values

    my %dttime = ();

    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);



### begin_: initialize DateTime number formats

    $dttime{year }  = sprintf "%04d",($year + 1900);  ## four digits to specify the year

    $dttime{mon  }  = sprintf "%02d",($mon + 1);      ## zeropad months

    $dttime{mday }  = sprintf "%02d",$mday;           ## zeropad day of the month

    $dttime{wday }  = sprintf "%02d",$wday + 1;       ## zeropad day of week; sunday = 1;

    $dttime{yday }  = sprintf "%02d",$yday;           ## zeropad nth day of the year

    $dttime{hour }  = sprintf "%02d",$hour;           ## zeropad hour

    $dttime{min  }  = sprintf "%02d",$min;            ## zeropad minutes

    $dttime{sec  }  = sprintf "%02d",$sec;            ## zeropad seconds

    $dttime{isdst}  = $isdst;



### begin_: xnpDate print iso8601 version date

    print "$dttime{year}-$dttime{mon}-$dttime{mday}\n";



### begin_: xnpNow show system time

    print "$dttime{year}-$dttime{mon}-$dttime{mday} $dttime{hour}:$dttime{min}:$dttime{sec} \n";