User:Wywin/WikiLinkClean


 * 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 = ; 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;