8 lines
144 B
Raku
8 lines
144 B
Raku
#!/usr/local/bin/perl
|
|
|
|
printf("<pre>\n");
|
|
while (<>) {
|
|
s/([\w\.\-]+)\.html/<a href=\"$1.html\">$1<\/a>/g;
|
|
print;
|
|
}
|
|
printf("</pre>\n");
|