Comment faire pour supprimer le dernier n nombre de caractères numériques à partir d'une chaîne en perl

J'ai une situation où je dois enlever la dernière n caractères numériques après une / caractère.

Pour exemple:

/iwmout/sourcelayer/iwm_service/iwm_ear_layer/pomoeron.xml@@/main/lsr_int_vnl46a/61

Après la dernière /, j'ai besoin du numéro 61 supprimés de la ligne de sorte que la sortie est,

/iwmout/sourcelayer/iwm_service/iwm_ear_layer/pomoeron.xml@@/main/lsr_int_vnl46a/

J'ai essayé d'utiliser hacher, mais il ne supprime que le dernier caractère, c'est à dire. 1, dans l'exemple ci-dessus.

La dernière partie, c'est à dire 61 ci-dessus peut être n'importe quoi, comme 221 ou 2 ou 100 quoi que ce soit. J'ai besoin de dépouiller le dernier nombre de caractères après la /. Est-il possible en Perl?

OriginalL'auteur Pradeesh | 2011-05-23