Search notes:

Perl module URI::Find

use warnings;
use strict;
use URI::Find;

my $linkifyer = URI::Find->new(sub {
    my $uri       = shift;
    my $orig_uri  = shift;

#   print "$uri  $orig_uri\n";

    return "<a href='$uri'>$uri</a>";
});

open my $html, '>', 'script-out.html' or die;

print $html "<html><body>";


while (my $line = <DATA>) {

  $linkifyer -> find(\$line);
  print $html $line;

}

print $html "</body></html";
close $html;


__DATA__
Here are a few links: http://www.renenyffenegger.ch, http://www.google.com, and http://www.github.com. Note
the trailing dot after github.org.

Github repository PerlModules, path: /URI/Find/script.pl

Fatal error: Uncaught PDOException: SQLSTATE[HY000]: General error: 8 attempt to write a readonly database in /home/httpd/vhosts/renenyffenegger.ch/php/web-request-database.php:78 Stack trace: #0 /home/httpd/vhosts/renenyffenegger.ch/php/web-request-database.php(78): PDOStatement->execute(Array) #1 /home/httpd/vhosts/renenyffenegger.ch/php/web-request-database.php(30): insert_webrequest_('/notes/developm...', 1741107260, '18.116.90.150', 'Mozilla/5.0 App...', NULL) #2 /home/httpd/vhosts/renenyffenegger.ch/httpsdocs/notes/development/languages/Perl/modules/URI/Find/index(73): insert_webrequest() #3 {main} thrown in /home/httpd/vhosts/renenyffenegger.ch/php/web-request-database.php on line 78

Perl module URI::Find

See also