<nowiki>
  1. !/usr/bin/perl
  2. Wywin
  3. usage:
  4. wikilinkclean.pl input-file-name.txt output-file-name.txt


open INPUT, "<", $ARGV[0]; my @input = <INPUT>; close INPUT; my @output; foreach my $line (@input) { $line =~ s/http(s)?\://; push(@output, $line); } open OUTPUT, ">", $ARGV[1]; foreach my $line (@output) { print OUTPUT $line; } close OUTPUT;