Re: Apache::ASP

Nice review.

For similar functionality with what I consider a cleaner interface and neater structure see HTML::Mason module review at www.masonhq.com. (I realize the author mentions it, but I wanted to make the plug more prominent and provide links).

It can intersperse code and HTML (or whatever language, it is not tied to HTML, it could spit out text, XML, ASP, gifs, jpegs, you name it...). And it has an interesting component structre where each file is considered to be a component (whether or not it can be called externally) and components can call each other so you can make widgets that take arguments in mason as well as the top-level components that get called directly. Also it has a neat object-like hierarchy where you can define a method call to generate the page framework (a top, bottom and side for instance) and then all the other pages need to do is output the appropriate content for the content area. The sub-pages can override the methods of the lower-level pages to customize the way things display.

-ben

Comment on Re: Apache::ASP

Replies are listed 'Best First'.

Re^2: Apache::ASP
by ivan (Sexton) on Sep 04, 2006 at 02:00 UTC

#!/usr/bin/perl

#foreach $file ( split(/\n/, `find . -depth -print`) ) {
#  next unless $file =~ /(cgi|html)$/;
foreach $file ( @ARGV ) {
  open(F,$file) or die "can't open $file for reading: $!";
  @file = <F>;
  #print "$file ". scalar(@file). "\n";
  close $file;
  $newline = ''; #avoid prepending extraneous newlines
  $all = join('',@file);

  $w = '';

  $mode = 'html';
  while ( length($all) ) {

    if ( $mode eq 'html' ) {

      if ( $all =~ /^(.+?)(<%=?.*)$/s && $1 !~ /<%/s ) {
        $w .= $1;
        $all = $2;
        next;
      } elsif ( $all =~ /^<%=(.*)$/s ) {
        $w .= '<%';
        $all = $1;
        $mode = 'perlv';
        #die;
        next;
      } elsif ( $all =~ /^<%(.*)$/s ) {
        $w .= $newline; $newline = "\n";
        $all = $1;
        $mode = 'perlc';

        #avoid newline prepend fix from borking indented first <%
        $w =~ s/\n\s+\z/\n/;
        $w .= "\n" if $w =~ /.+\z/;

        next;
      } elsif ( $all !~ /<%/s ) {
        $w .= $all;
        last;
      } else {
        warn length($all); die;
      }
      die;

    } elsif ( $mode eq 'perlv' ) {

      if ( $all =~ /^(.*?%>)(.*)$/s ) {
        $w .= $1;
        $all=$2;
        $mode = 'html';
        next;
      }
      die "unterminated <%= ??? (in  $file):";

    } elsif ( $mode eq 'perlc' ) {

      if ( $all =~ /^([^\n]*?)%>(.*)$/s ) {
        $w .= "%$1\n";
        $all=$2;
        $mode='html';
        next;
      }
      if ( $all =~ /^([^\n]*)\n(.*)$/s ) {
        $w .= "%$1\n";
        $all=$2;
        next;
      }

    } else { die };

  }

  system("chmod u+w $file");
  select W; $| = 1; select STDOUT;
  open(W,">$file") or die "can't open $file for writing: $!";
  print W $w;
  close W;
}
[download]

[reply]
[d/l]


P is for Practical
	PerlMonks