Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.
  • Now that I have a basis for your question, I think this will be sufficient...

    Typically I do this:

    use CGI qw/:all/;
    use DBI;
    use DBD::Oracle;

    I program using a state engine, and hidden tags...

    sub action()
    {
      my ( $act ) = @_;

      if ( $act eq '' )
      {
        &present_menu();
      }
      elsif ( $act =~ m/^ed/ )
      {
        # get auxillary parms for this action...
        &do_edit();
      }
      # etc, etc...
    }