How can I generate URL slugs in perl?

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

use strict;
use warnings;

sub generate_slug {
  my $title = shift;

  # Convert the title to lowercase
  $title = lc $title;

  # Replace spaces with dashes
  $title =~ s/s+/-/g;

  # Remove non-alphanumeric characters
  $title =~ s/[^a-z0-9-]+//g;

  return $title;
}

my $title = "My Great Article";
my $slug = generate_slug($title);

print "$slug
";