Ersetzen Leerzeichen mit Bindestrich in Perl

Dieser code funktioniert gut für mich:

#!/usr/bin/perl
use v5.14;
use strict;
use warnings;
my $test = "I like Apples";
$test=~s//-/g;
say $test;

Gibt es I-like-Apples.

Wenn du mehr Informationen können wir Euch helfen, mehr Informationen, warum Ihr code, der sich schlecht benimmt.

Informationen möchten Wir:

• Wie Sie sich die Ausgabe?
• Welcher Zeichensatz ist es mit ($LANG in einer shell)
• Auf welcher Plattform sind Sie?
• Welche perl-version?
• Tun Sie Durcheinander mit lokalen oder Zeichensätze überall im code?
• Bitte mehr code, dh mehr als nur die Linie, nicht die Substitution, wie kommst du auf die Zeichenfolge und wie wollen Sie es drucken?

Fand ich irgendwo ein snippet, und gezeichnet ist es aus. Nicht ganz voll, aber genug Arbeit auf ihn für jetzt.

#!/usr/bin/perl
#=====================================================================
#
# Convert all directory and file names to change spaces (and other special characters) to underscores...
#
# Initial Author: Dean Weiten
#
# Create Date: 2018-08-25
# Design Name: fix_dir_and_file_names.pl
# Tool versions: Perl version >= v5.8.5
#
# Description:
#    
#
# Dependencies:
#
# Revision:
#
#   $Log: fix_dir_and_file_names.pl,v $
#
#
# Additional Comments:
#
# "Nothing focusses the mind so well as an execution in the morning"
#
# Reminder: to add a module from CPAN, do something like this (may have to be root):
#   perl -MCPAN -e 'install Math::FFT'
#
#=====================================================================


# System modules
use File::Rename;
use Text::ParseWords;
use IO::Handle;
use Getopt::Std;
use POSIX;
use Switch;
use List::Util;
use File::Temp qw/ tempfile tempdir /;


$VERSION        = 0;
$ISSUE          = 1;
$ISSUE_DATE     = "2018-08-25";

$Debug = 0;


    # MAIN

    # Logical values
    my  $TRUE           = 1;
    my  $FALSE          = 0;

    # Get present date and time by shelling out to the O/S.
    my $UTCDateAndTimeNow = `date --utc '+%Y-%m-%d %H:%M %::z %Z'`;
    # Get rid of trailing NewLine...
    $UTCDateAndTimeNow =~ s/\n//;
    $UTCDateAndTimeNow =~ s/\r//;

    # Get command line options, listed in alphabetic order...
    getopts('dhHtv');

        $Debug                  = $opt_d;
    my  $DoHelp                 = $opt_h || $opt_H;
    my  $NotVerbose             = $opt_v;
    my  $JustATest              = $opt_t;

    my  $Verbose;
    if  (!$NotVerbose)
        {
        $Verbose = $TRUE;
        }
    else
        {
        $Verbose = $FALSE;
        }

    my  $PassCount;

    print "\n\nRemove Special Characters from Directory Names";
    print   "\n----------------------------------------------";
    $Directories = $TRUE;   # For directories, we get rid of all dots in the directory name.

    $PassCount = 0;
    my  $NumberOfDirectoriesChanged = rena(`find \* -type d`);
    $PassCount++;
    print "\n\nPass ".$PassCount.", NumberOfDirectoriesChanged = ".$NumberOfDirectoriesChanged;
    my  $OldNumberOfDirectoriesChanged = 0;

    # Sometimes the find command puts subdirectories first, in which case the subdirectory name changes will fail
    # until the upper level is corrected.  Then we recurse.
    # BUT sometimes some files are just not changeable, for whatever reason... then we get 2 consecutive with the 
    # same number of files (attempted) to be changed, then we bail with a message.
    while (($NumberOfDirectoriesChanged > 0) && ($OldNumberOfDirectoriesChanged != $NumberOfDirectoriesChanged))
        {
        $OldNumberOfDirectoriesChanged = $NumberOfDirectoriesChanged;
        $NumberOfDirectoriesChanged = rena(`find \* -type d`);
        $PassCount++;
        print "\n\nPass ".$PassCount.", NumberOfDirectoriesChanged = ".$NumberOfDirectoriesChanged;
        }

    if  ($NumberOfDirectoriesChanged != 0)
        {
        print "\n\nNOTE: there are still ".$NumberOfDirectoriesChanged." directories to be changed, but they won't seem to change for us, skipping and continuing with files.";
        }


    print "\n\nRemove Special Characters from File Names";
    print   "\n-----------------------------------------";
    $Directories = $FALSE;  # For files, we will leave one dot in the file name, the last one encoutered.

    $PassCount = 0;
    my  $NumberOfFilesChanged = rena(`find \* -type f`);
    $PassCount++;
    print "\n\nPass ".$PassCount.", NumberOfFilesChanged = ".$NumberOfFilesChanged;
    my  $OldNumberOfFilesChanged = 0;

    while (($NumberOfFilesChanged > 0) && ($OldNumberOfFilesChanged != $NumberOfFilesChanged))
        {
        $OldNumberOfFilesChanged = $NumberOfFilesChanged;
        $NumberOfFilesChanged = rena(`find \* -type f`);
        $PassCount++;
        print "\n\nPass ".$PassCount.", NumberOfFilesChanged = ".$NumberOfFilesChanged;
        }

    if  ($NumberOfFilesChanged != 0)
        {
        print "\n\nNOTE: there are still ".$NumberOfFilesChanged." files to be changed, but they won't seem to change for us, skipping to completion.";
        }


    sub rena
        {
        my  $ChangeCount = 0;

        @InputList = @_;

        $ListCount = @InputList;

        if  ($Verbose)
            {
            print "\n\n--- ListCount = ", $ListCount;

            if  ($Directories)
                {
                print " directories";
                }
            else    
                {
                print " files.";
                }
            }

        for ($InputCounter = 0; $InputCounter < $ListCount; $InputCounter++)
            {
            $PresentLine = @InputList [ $InputCounter ];

            # Get rid of trailing NewLine...
            $PresentLine =~ s/\n//;
            $PresentLine =~ s/\r//;

            #$Line[ $InputCounter ] = $PresentLine;

            $_ = $PresentLine;

            # Trailing space
            s/ $//g;

            # non ascii transliterate
            tr [\200-\377][_];
            tr [\000-\40][_];

            # get rid of braces of all kinds
            #s/\{\}\[\]\(\)//g;

            # special characters we do not want in paths
            s/[ \,\;\?\+\'\"\!\[\]\(\)\@\#\{\}]/_/g;

            # underscore dash underscore
            s/_-_/-/g;

            if  ($Directories)
                {
                # get rid of all dots
                s/\./_/g
                }
            else
                {
                # files: only last dot left behind
                while (/\..*\./)
                    {
                    s/\./_/;
                    }
                }

            # only one _ consecutive
            s/_+/_/g;

            #next if ($_ eq $PresentLine ) or ("./$_" eq $PresentLine);

            if  ($_ eq $PresentLine)
                {
                #print "\n".$InputCounter." ".$PresentLine;
                #print " -> no change";
                }
            else
                {
                if  ($Verbose)
                    {
                    print "\n".$InputCounter." ".$PresentLine;
                    print " -> ".$_;
                    }

                if  ($JustATest)
                    {
                    if  ($Verbose)
                        {
                        print " --- just testing, so not performed";
                        }
                    }
                else
                    {
                    #if  ($Verbose)
                    #    {
                    #    print " --- would have been performed";
                    #    }
                    rename ($PresentLine,$_);
                    $ChangeCount++;
                    }
                }

            }

        #print "\n\nChangeCount = ".$ChangeCount;
        return $ChangeCount;
        }

    print "\n\nCompleted.";
    print   "\n----------\n\n";