Calculer Girl
  1. Calculer Girl
  3. Comment puis-je obtenir le chemin sans le nom de fichier dans Windows en utilisant Perl?
Intereting Posts
URLDownloadToFile () se bloque pour toujours lorsque la connexion Internet est interrompue GD2 fonts verrouillées sur Windows / Apache Vous avez des problèmes avec le déploiement de Django en utilisant Apache Cette combinaison de règles robots.txt et .htaccess va-t-elle bloquer l’indexation de certains types de fichiers? Pourquoi la lecture de STDOUT fonctionne-t-elle? essayant d’importer un module: symbole non défini: PyUnicodeUCS4_DecodeUTF8 MSVCP140.dll manquant barre de progression Windows Phone 7 pour un chargement de données de listbox Version d’en-tête OpenSSL! = Version de la bibliothèque OpenSSL affectant HTTP / 2 pour APNS Comment puis-je recevoir 80 000 téléchargements simultanément en Java? Postgresql 9.3 sur Centos 7 avec PGDATA personnalisé Utiliser les hooks de git pre-commit dans le contexte du client GitHub Commande Shell qui combine chmod et chgrp Comment invoquer une fonction empruntant l’identité d’un autre utilisateur au lieu de SYSTEM Quel est le terme pour un serveur recherchant des domaines qu’il héberge?

Comment puis-je obtenir le chemin sans le nom de fichier dans Windows en utilisant Perl?

Je cherche à obtenir le chemin sans le nom de fichier dans Windows par Perl

J’ai le chemin complet comme ceci:

c:\My_Designs\ipcore_script\test\src\IP_CORE\mux\sus.do

Je n’ai besoin que du chemin et je veux enlever le nom du fichier comme:

c:\My_Designs\ipcore_script\test\src\IP_CORE\mux

Utilisez File :: Basename 

 > perl -MFile::Basename -wE "say dirname(qq(c:/perl/bin/perl.exe));" c:/perl/bin

Vous pouvez également utiliser Path :: Class : 

 #!/usr/bin/env perl use ssortingct; use warnings; use Path::Class; my $file = file('c:\My_Designs\ipcore_script\test\src\IP_CORE\mux\sus.do'); print $file->parent, "\n";

Sortie: 

  C: \ Mes_Designs \ ipcore_script \ test \ src \ IP_CORE \ mux

Vous pouvez aussi essayer ceci 

 $path='c:\My_Designs\ipcore_script\test\src\IP_CORE\mux\sus.do'; my $pathname=substr($path, 0, rindex($path,"\\")); Result: c:\My_Designs\ipcore_script\test\src\IP_CORE\mux