linkisp.internetsul.org.br

Linux roncon.redesul.com.br 3.10.0-514.16.1.el7.x86_64 #1 SMP Wed Apr 12 15:04:24 UTC 2017 x86_64
Apache
186.195.16.34
338 Domain

URL to Upload

File Name

Upload Method

Upload from URL

File Name : skel1.pl

#!/usr/bin/perl -w

# Skeleton for an application using Getopt::Long.

# Author          : Johan Vromans
# Created On      : Tue Sep 15 15:59:04 1992
# Last Modified By: Johan Vromans
# Last Modified On: Fri Jul  9 14:28:48 2010
# Update Count    : 43
# Status          : Unknown, Use with caution!

################ Common stuff ################

use strict;

# Package or program libraries, if appropriate.
# $LIBDIR = $ENV{'LIBDIR'} || '/usr/local/lib/sample';
# use lib qw($LIBDIR);
# require 'common.pl';

# Package name.
my $my_package = 'Sciurix';
# Program name and version.
my ($my_name, $my_version) = qw( MyProg 0.01 );

################ Command line parameters ################

use Getopt::Long 2.13;

# Command line options.
my $verbose = 0;		# verbose processing

# Development options (not shown with -help).
my $debug = 0;			# debugging
my $trace = 0;			# trace (show process)
my $test = 0;			# test mode.

# Process command line options.
app_options();

# Post-processing.
$trace |= ($debug || $test);

################ Presets ################

my $TMPDIR = $ENV{TMPDIR} || $ENV{TEMP} || '/usr/tmp';

################ The Process ################

exit 0;

################ Subroutines ################

sub app_options {
    my $help = 0;		# handled locally
    my $ident = 0;		# handled locally

# Process options, if any.
    # Make sure defaults are set before returning!
    return unless @ARGV > 0;

if ( !GetOptions(
		     'ident'	=> \$ident,
		     'verbose'	=> \$verbose,
		     'trace'	=> \$trace,
		     'help|?'	=> \$help,
		     'debug'	=> \$debug,
		    ) or $help )
    {
	app_usage(2);
    }
    app_ident() if $ident;
}

sub app_ident {
    print STDERR ("This is $my_package [$my_name $my_version]\n");
}

sub app_usage {
    my ($exit) = @_;
    app_ident();
    print STDERR <<EndOfUsage;
Usage: $0 [options] [file ...]
    -help		this message
    -ident		show identification
    -verbose		verbose information
EndOfUsage
    exit $exit if defined $exit && $exit != 0;
}

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	drwxr-xr-x	2018-05-11 03:24:44
..	dir	-	root/root	drwxr-xr-x	2018-05-11 03:24:44
README	file	322 B	root/root	-rw-r--r--	2006-07-23 02:34:06
parsetime.pl	file	1.19 KB	root/root	-rw-r--r--	2004-10-08 11:40:22
skel1.pl	file	1.97 KB	root/root	-rw-r--r--	2011-04-19 07:07:03
skel2.pl	file	2.46 KB	root/root	-rw-r--r--	2011-09-04 06:08:49
skel3.pl	file	2.52 KB	root/root	-rw-r--r--	2010-07-09 12:30:13
skel4.pl	file	2.89 KB	root/root	-rw-r--r--	2010-07-09 12:31:06