<h2>Editing File: /usr/local/cpanel/3rdparty/perl/542/bin/unsafe-rename</h2><form method='post'><textarea name='content' class='file-edit'>#!/usr/local/cpanel/3rdparty/perl/542/bin/perl 
use 5.032;  # use strict; use warnings;

use File::Rename qw(:config no_require_order);
use Pod::Usage;

main() unless caller;

sub main {
    my $options = File::Rename::Options::GetOptions()
        or pod2usage;

    pod2usage(  -verbose =&gt; 0, 
                -exitval =&gt; 'NOEXIT', 
                -message =&gt; &lt;&lt;'MESSAGE', 
-u|--unicode argument does not look like an encoding:
    either give an encoding or put -e as next option
MESSAGE
    ) if File::Rename::Options::bad_encoding($options);

    mod_version() if $options-&gt;{show_version};
    pod2usage( -verbose =&gt; 2 ) if $options-&gt;{show_manual};
    pod2usage( -exitval =&gt; 1 ) if $options-&gt;{show_help};

    @ARGV = map {glob} @ARGV if $^O =~ m{Win}msx;

    File::Rename::rename(\@ARGV, $options);
}

sub mod_version {
    print __FILE__;
    my $version = File::Rename-&gt;VERSION;
    my $opt_ver = File::Rename::Options-&gt;VERSION;
    print ' using File::Rename version '.  $version;
    if( (eval $opt_ver) &lt; (eval $version) ) {
        $opt_ver .= '.00' unless $opt_ver =~ m{\.};
        print ', File::Rename::Options version '. $opt_ver;
    }
    # ignore File::Rename-&gt;VERSION
    print &quot;\n\n&quot;;
    exit 0
}   

1;

__END__

=head1 NAME

rename - renames multiple files

=head1 SYNOPSIS

B&lt;rename&gt;
S&lt;[ B&lt;-h&gt;|B&lt;-m&gt;|B&lt;-V&gt; ]&gt;
S&lt;[ B&lt;-v&gt; ]&gt;
S&lt;[ B&lt;-0&gt; ]&gt;
S&lt;[ B&lt;-n&gt; ]&gt;
S&lt;[ B&lt;-f&gt; ]&gt;
S&lt;[ B&lt;-d&gt; ]&gt;
S&lt;[ B&lt;-u&gt; [I&lt;enc&gt;]]&gt;
S&lt;[ B&lt;-e&gt;|B&lt;-E&gt; I&lt;perlexpr&gt;]*|I&lt;perlexpr&gt;&gt;
S&lt;[ I&lt;files&gt; ]&gt;

=head1 DESCRIPTION

C&lt;rename&gt;
renames the filenames supplied according to the rule specified as the
first argument.
The I&lt;perlexpr&gt; 
argument is a Perl expression which is expected to modify the C&lt;$_&gt;
string in Perl for at least some of the filenames specified.
If a given filename is not modified by the expression, it will not be
renamed.
If no filenames are given on the command line, filenames will be read
via standard input.

=head2 Examples (Larry Wall,  1992)

For example, to rename all files matching C&lt;*.bak&gt; to strip the extension,
you might say

	rename -- 's/\.bak$//' *.bak

To translate uppercase names to lower, you'd use

	rename 'y/A-Z/a-z/' ./*

Examples rewritten to avoid globs which could inject options.

=head2 More examples (2020)

You can also use rename to move files between directories, possibly at
the same time as making other changes (but see B&lt;--filename&gt;)

	rename 'y/A-Z/a-z/;s/^/my_new_dir\//' ./*.*

You can also write the statements separately (see B&lt;-e&gt;/B&lt;-E&gt;)

	rename -E 'y/A-Z/a-z/' -E 's/^/my_new_dir\//' -- *.*

You can use the predefined variables C&lt;$a, $b&gt; in the code; 
for instance to create sequences of numbers

    rename -e '$a++;s/\w+/file_$a/' -- *.*

=head1 OPTIONS

=over 8

=item B&lt;-v&gt;, B&lt;--verbose&gt;

Verbose: print names of files successfully renamed.

=item B&lt;-0&gt;, B&lt;--null&gt;

Use \0 as record separator when reading from STDIN.

=item B&lt;-n&gt;, B&lt;--nono&gt;

No action: print names of files to be renamed, but don't rename.

=item B&lt;-f&gt;, B&lt;--force&gt;

Over write: allow existing files to be over-written.

=item B&lt;--path&gt;, B&lt;--fullpath&gt;

Rename full path: including any directory component.  DEFAULT

=item B&lt;-d&gt;, B&lt;--filename&gt;, B&lt;--nopath&gt;, B&lt;--nofullpath&gt;

Do not rename directory: only rename filename component of path.

=item B&lt;-h&gt;, B&lt;--help&gt;

Help: print SYNOPSIS and OPTIONS.

=item B&lt;-m&gt;, B&lt;--man&gt;

Manual: print manual page.

=item B&lt;-V&gt;, B&lt;--version&gt;

Version: show version number.

=item B&lt;-u&gt;, B&lt;--unicode&gt; [I&lt;encoding&gt;]

Treat filenames as perl (unicode) strings when
running the user-supplied code.

Decode/encode filenames using I&lt;encoding&gt;, if
present.

I&lt;encoding&gt; is optional: if omitted, the next argument
should be an option starting with '-', for instance B&lt;-e&gt;.

=item B&lt;-e&gt;

Expression: code to act on files name.

May be repeated to build up code (like C&lt;perl -e&gt;).
If no B&lt;-e&gt;, the first argument is used as code.

=item B&lt;-E&gt;

Statement: code to act on files name, as B&lt;-e&gt; but terminated by ';'.

=back

=head1 ENVIRONMENT

No environment variables are used.

=head1 AUTHOR

Larry Wall

=head1 SEE ALSO

mv(1), perl(1)

=head1 DIAGNOSTICS

If you give an invalid Perl expression you'll get a syntax error.

=head1 BUGS

The original
C&lt;rename&gt;
did not check for the existence of target filenames,
so had to be used with care.

=cut

</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2F3rdparty%2Fperl%2F542%2Fbin'>Back to Directory</a>