Dmp2bot.pl

#!/bin/perl

##

## Converts Universe .dmp file to .bot format

##

use URI::URL;

while (<>) {

if (s/url\t(http.*)/$eurl = $1/e) {

my $url = url $eurl;

$epath = $url->as_string;

$epath =~ s/\//&slash\;/g;

$epath =~ s/~/\&tilde\;/g;

print "$url\t$epath\n";

}

}

Previous slide

Next slide

Back to first slide

View graphic version