User:Wywin/WikiLinkClean

<nowiki>

!/usr/bin/perl
Wywin
usage:
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;