File: urls.pl

package info (click to toggle)
libdata-fake-perl 0.006-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 324 kB
  • sloc: perl: 987; makefile: 7
file content (16 lines) | stat: -rw-r--r-- 279 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/env perl
use 5.008001;
use strict;
use warnings;

use Data::Fake qw/Core Internet/;

my $fake_url = fake_template(
    "%s://%s%s/",
    fake_pick(qw(http https)),
    fake_pick( "", "www.", fake_digits("www##.") ),
    fake_domain(),
);

print $fake_url->() . "\n";