Solved How To Strip Last Word From a String In Perl

Question

computing

Asked: December 8, 20212021-12-08T23:58:27+00:00 2021-12-08T23:58:27+00:00In: Unix

I have a string like a/b/c/d/e/f/god

how do i strip off last word “god” so the o/p is a/b/c/d/e/f

-Nimika

computing · Accepted Answer · 2021-12-08T23:58:39+00:00

Best Answer

computing

A way ….

#!/usr/bin/perl

use strict;
use warnings;

my $string = ‘a/b/c/d/e/f/god’;

my @array = split /\//, $string;

pop @array; # get rid of the last array element on right

$string = join(‘/’, @array);

print “$string\n”;