How can I generate URL slugs in perl?

Member

by arlo , in category: SEO , 8 months ago

How can I generate URL slugs in perl?

Facebook Twitter LinkedIn Telegram Whatsapp Pocket

1 answer

by jaycee_rowe , 8 months ago

@arlo 

To generate URL slugs in Perl, you can use the following code:

 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
";


This code defines a generate_slug function that takes a title as input, converts it to lowercase, replaces spaces with dashes, and removes non-alphanumeric characters. The resulting string is the URL slug.