mirror of
https://github.com/noplacenoaddress/RNMnetwork.git
synced 2025-01-03 19:40:53 -05:00
12 lines
238 B
Perl
12 lines
238 B
Perl
|
#!perl
|
||
|
|
|
||
|
|
# slurp the entire file
|
||
|
|
local $/ = undef;
|
||
|
|
open INFILE, $ARGV[0] or die "Could not open file. $!";
|
||
|
|
$string = <INFILE>;
|
||
|
|
close INFILE;
|
||
|
|
|
||
|
|
while ($string =~ s/\*\*(.*)\*\* \[\[\d+\]\]\((.*)\)/<a href="$2">$1<\/a>/) {}
|
||
|
|
|
||
|
|
print "$string";
|