Platinum Partner

Start Stop Script Template In Perl

// Start Stop script template in perl


#!/usr/bin/perl

use warnings;
use strict;




my $dispatch_table = {

        'start' => \&start,
        'stop' => \&stop,

};

my $options = join ' | ', sort keys %$dispatch_table;

die "Usage $0 [ $options ] " unless @ARGV;
my $argument = lc shift @ARGV;
die "Invalid option \"$argument\" \n Usage $0 [ $options ] " unless exists $dispatch_table->{ $argument };

$dispatch_table->{ $argument }->(  );

exit 0;


# Define all function which you want to put in distpatch table below this line

sub start {

}


sub stop {

}


{{ tag }}, {{tag}},

{{ parent.title || parent.header.title}}

{{ parent.tldr }}

{{ parent.urlSource.name }}
{{ parent.authors[0].realName || parent.author}}

{{ parent.authors[0].tagline || parent.tagline }}

{{ parent.views }} ViewsClicks
Tweet

{{parent.nComments}}