Comment puis-je remplacer le caractère particulier dans une chaîne avec des caractères de soulignement à l'aide d'un script Perl?

J'ai un script de prise de tv replay spectacles enregistrés et de les encoder en h264 à l'aide du frein à main. le script est écrit en Perl.

Ma questions est de savoir comment dois-je remplacer les espaces et les caractères spéciaux avec des et le trait de soulignement à l'aide de perl?

Les chaînes de ressembler à quelque chose comme ça lors de la sortie "Parks and Recreation - S05E01 - Ms. Knope Goes to Washington"

Je voudrais qu'elle ressemble à ceci

Parcs_et_Loisirs_S05E01_Ms__Knope_Va_à_à Washington

Merci à l'avance. J'ai fait quelques recherches sur google mais ayant trouvé quelque chose d'utile que je puisse les mettre en œuvre.

OriginalL'auteur nkuebelbeck | 2012-09-23

  1. 8

    Quelque chose comme cela pourrait faire de l'avis de ce que vous pourriez présenter les doublons si vous transformer des chaînes de caractères comme cela.

    my $input ="Parks and Recreation - S05E01 - Ms. Knope Goes to Washington";

$input =~ s/ - /_/g; # Replace all " - " with "_"
$input =~ s/[^A-Za-z0-9]/_/g; # Replace all non-alphanumericals with "_"

print $input;

    Ce sorties:

    Parcs_et_Loisirs_S05E01_Ms__Knope_Va_à_à Washington

    Modifier

    Érics commentaire ci-dessous est très pertinent, ici, est un peu meilleure approche qui remplace les caractères accentués avec atones, avant de faire des substitutions:

    use utf8;
use Unicode::Normalize;

my $input="La femme d'à côté";
my $result = NFD($input); # Unicode normalization Form D (NFD), canonical decomposition.
$result !~ s/[^[:ascii:]]//g; # Remove all non-ascii.
$result =~ s/ - /_/g; # Replace all " - " with "_"
$result =~ s/[^A-Za-z0-9]/_/g; # Replace all non-alphanumericals with _
print $result;

    Cette variante sorties:

    La_femme_d_a_cote

    Et si il aime François Truffaut ? "La femme d'à côté" donne "La_femme_d___c_t_". Pas très beau ^_^
    Bon point, j'ai ajouté une meilleure solution qui gère les caractères accentués.

    OriginalL'auteur Anders Lindahl

  2. 2
    my $input = "Parks and Recreation - S05E01 - Ms. Knope Goes to Washington";
$input =~ s/\W/_/g; # Replace anything other than letters, numbers and underscore

    Ce sorties:

    Parks_and_Recreation___S05E01___Ms__Knope_Goes_to_Washington

    OriginalL'auteur RobEarl

  3. 0

    u peut utiliser le ci-dessous:

    perl -pe 's/[^A-Za-z0-9]/_/g'

    testé:

    > echo "Parks and Recreation - S05E01 - Ms. Knope Goes to Washington"|perl -pe 's/[^A-Za-z0-9]/_/g'
Parks_and_Recreation___S05E01___Ms__Knope_Goes_to_Washington

    OriginalL'auteur Vijay