File Manager

X7ROOT File Manager

Current Path: /usr/share/perl5/vendor_perl

ðŸ“ ..
ðŸ“ Algorithm
ðŸ“ App
ðŸ“ Archive
ðŸ“ Authen
ðŸ“ B
ðŸ“ CPAN
ðŸ“„ CPAN.pm(138.01 KB)
ðŸ“ Carp
ðŸ“„ Carp.pm(30.32 KB)
ðŸ“ Config
ðŸ“ Data
ðŸ“ Date
ðŸ“ Digest
ðŸ“„ Digest.pm(10.46 KB)
ðŸ“ Encode
ðŸ“„ Env.pm(5.39 KB)
ðŸ“ Error
ðŸ“„ Error.pm(24.29 KB)
ðŸ“„ Expect.pm(98.09 KB)
ðŸ“ Exporter
ðŸ“„ Exporter.pm(18.31 KB)
ðŸ“ ExtUtils
ðŸ“„ Fatal.pm(56.81 KB)
ðŸ“ File
ðŸ“ Filter
ðŸ“ Getopt
ðŸ“ Git
ðŸ“„ Git.pm(46.95 KB)
ðŸ“ HTML
ðŸ“ HTTP
ðŸ“ IO
ðŸ“ IPC
ðŸ“ JSON
ðŸ“ LWP
ðŸ“„ LWP.pm(21.17 KB)
ðŸ“ Locale
ðŸ“ MRO
ðŸ“ Math
ðŸ“ Module
ðŸ“ Mozilla
ðŸ“ Net
ðŸ“ POD2
ðŸ“ Package
ðŸ“ Params
ðŸ“ Parse
ðŸ“ Perl
ðŸ“ PerlIO
ðŸ“ Pod
ðŸ“ Software
ðŸ“ Sub
ðŸ“ TAP
ðŸ“ Term
ðŸ“ Test
ðŸ“ Test2
ðŸ“„ Test2.pm(6.24 KB)
ðŸ“ Text
ðŸ“ Thread
ðŸ“ Time
ðŸ“ Try
ðŸ“ Types
ðŸ“ WWW
ðŸ“ autodie
ðŸ“„ autodie.pm(12.58 KB)
ðŸ“„ bigint.pm(22.85 KB)
ðŸ“„ bignum.pm(20.64 KB)
ðŸ“„ bigrat.pm(15.78 KB)
ðŸ“„ constant.pm(14.38 KB)
ðŸ“„ experimental.pm(6.83 KB)
ðŸ“ inc
ðŸ“ lib
ðŸ“ libwww
ðŸ“ local
ðŸ“„ newgetopt.pl(2.15 KB)
ðŸ“„ ok.pm(967 B)
ðŸ“„ parent.pm(2.51 KB)
ðŸ“„ perldoc.pod(9.16 KB)
ðŸ“„ perlfaq.pm(77 B)
ðŸ“„ perlfaq.pod(22.22 KB)
ðŸ“„ perlfaq1.pod(14.12 KB)
ðŸ“„ perlfaq2.pod(9.24 KB)
ðŸ“„ perlfaq3.pod(36.66 KB)
ðŸ“„ perlfaq4.pod(87.3 KB)
ðŸ“„ perlfaq5.pod(54.21 KB)
ðŸ“„ perlfaq6.pod(38.69 KB)
ðŸ“„ perlfaq7.pod(36.93 KB)
ðŸ“„ perlfaq8.pod(48.93 KB)
ðŸ“„ perlfaq9.pod(14.5 KB)
ðŸ“„ perlglossary.pod(134.02 KB)

Editing: newgetopt.pl

# Id: newgetopt.pl,v 1.18 2001/09/21 13:34:59 jv

# This library is no longer being maintained, and is included for backward
# compatibility with Perl 4 programs which may require it.
# It is now just a wrapper around the Getopt::Long module.
#
# In particular, this should not be used as an example of modern Perl
# programming techniques.
#
# Suggested alternative: Getopt::Long

{   package newgetopt;

# Values for $order. See GNU getopt.c for details.
    $REQUIRE_ORDER = 0;
    $PERMUTE = 1;
    $RETURN_IN_ORDER = 2;

# Handle POSIX compliancy.
    if ( defined $ENV{"POSIXLY_CORRECT"} ) {
	$autoabbrev = 0;	# no automatic abbrev of options (???)
	$getopt_compat = 0;	# disallow '+' to start options
	$option_start = "(--|-)";
	$order = $REQUIRE_ORDER;
	$bundling = 0;
	$passthrough = 0;
    }
    else {
	$autoabbrev = 1;	# automatic abbrev of options
	$getopt_compat = 1;	# allow '+' to start options
	$option_start = "(--|-|\\+)";
	$order = $PERMUTE;
	$bundling = 0;
	$passthrough = 0;
    }

# Other configurable settings.
    $debug = 0;			# for debugging
    $ignorecase = 1;		# ignore case when matching options
    $argv_end = "--";		# don't change this!
}

use Getopt::Long;

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

sub NGetOpt {

$Getopt::Long::debug = $newgetopt::debug 
	if defined $newgetopt::debug;
    $Getopt::Long::autoabbrev = $newgetopt::autoabbrev 
	if defined $newgetopt::autoabbrev;
    $Getopt::Long::getopt_compat = $newgetopt::getopt_compat 
	if defined $newgetopt::getopt_compat;
    $Getopt::Long::option_start = $newgetopt::option_start 
	if defined $newgetopt::option_start;
    $Getopt::Long::order = $newgetopt::order 
	if defined $newgetopt::order;
    $Getopt::Long::bundling = $newgetopt::bundling 
	if defined $newgetopt::bundling;
    $Getopt::Long::ignorecase = $newgetopt::ignorecase 
	if defined $newgetopt::ignorecase;
    $Getopt::Long::ignorecase = $newgetopt::ignorecase 
	if defined $newgetopt::ignorecase;
    $Getopt::Long::passthrough = $newgetopt::passthrough 
	if defined $newgetopt::passthrough;

&GetOptions;
}

################ Package return ################

################ End of newgetopt.pl ################

X7ROOT File Manager

Editing: newgetopt.pl

Upload File

Create Folder