Help for this page

Select Code to Download


  1. or download this
    $message =~ s#(?<=\s)(http://\S+)#<a href="$1">$1</a>#g;
  2. or download this
    $message =~ s#^(http://\S+)#<a href="$1">$1</a>#;
$message =~ s#(?<=\s)(http://\S+)#<a href="$1">$1</a>#g;
  3. or download this
    $message =~ s#^(http://\S+[a-z])#<a href="$1">$1</a>#;
$message =~ s#(?<=\s)(http://\S+[a-z])#<a href="$1">$1</a>#g;
  4. or download this
    use Regexp::Common qw( URI );
$message =~ s#^($RE{URI}{HTTP})#<a href="$1">$1</a>#;
$message =~ s#(?<=\s)($RE{URI}{HTTP})#<a href="$1">$1</a>#g;