UrlConverter.pl
4.85 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
#!/usr/bin/perl
while(<STDIN>){
print url($_);
}
sub url {
my $entree = shift;
my @sortie;
my @tab_lignes = split(/\n/,$entree);
foreach my $text (@tab_lignes) {
my @nv_ligne = ();
# trime les blancs
$text =~ s/\s+/ /g;
if (($text =~ /http/) || ($text =~ /www/) || ($text =~ /ftp:/) || ($text =~ /\.html/) || ($text =~ /\.htm/) || ($text =~ /\@/)|| ($text =~ /\.org/) || ($text =~ /\.net/) || ($text =~ /\.com/) || ($text =~ /\.fr/) || ($text =~ /\.uk/) || ($text =~ /\.be/)) {
$text =~ s/http\s*:\s*\/\/\s*/ http:\/\//g;
$text =~ s/http\s*:\/\/\s*/ http:\/\//g;
$text =~ s/htt\s*:\s*\/\/\s*/ http:\/\//g;
$text =~ s/http:\/\s+/http:\/\//g;
$text =~ s/\.www\./\. www\./g;
$text =~ s/www\.\s+/www\./g;
$text =~ s/www\s+\./www\./g;
$text =~ s/ftp\.\s+/ftp\./g;
$text =~ s/WWW\.\s+/www\./g;
$text =~ s/\s+\//\//g;
$text =~ s/\s*~\s*/~/g;
$text =~ s/\/\s+/\//g;
$text =~ s/\.\s+com/\.com/g;
$text =~ s/\.\s+fr/\.fr/g;
$text =~ s/\.\s+org/\.org/g;
$text =~ s/\.\s+doc/\.doc/g;
$text =~ s/\.\s+ppt/\.ppt/g;
$text =~ s/\.\s+jpg/\.jpg/g;
$text =~ s/\.\s+pdf/\.pdf/g;
$text =~ s/\s+\.org/\.org/g;
$text =~ s/\.\s+gov/\.gov/g;
$text =~ s/\.\s+gouv\.\s+fr/\.gouv\.fr/g;
$text =~ s/\s+\.gouv\.\s+fr/\.gouv\.fr/g;
$text =~ s/\.\s+co\./\.co \./g;
$text =~ s/\.\s+uk/\.uk/g;
$text =~ s/\.\s+asso\.\s+fr/\.asso\.fr/g;
$text =~ s/\.\s+qc/\.qc/g;
$text =~ s/\.\s+de/\.de/g;
$text =~ s/\.\s+uk/\.uk/g;
$text =~ s/\.\s+ca/\.ca/g;
$text =~ s/\.\s+ch/\.ch/g;
$text =~ s/\.\s+net/\.net/g;
$text =~ s/\.\s+th/\.th/g;
$text =~ s/\.\s+nasa/\.nasa/g;
$text =~ s/\.\s+ibm\.com/\.ibm\.com/g;
$text =~ s/\.\s+club\-internet/\.club\-internet/g;
$text =~ s/\.\s+yahoo/\.yahoo/g;
$text =~ s/\.\s+oleane/\.oleane/g;
$text =~ s/\.\s+html/\.html/g;
$text =~ s/\.\s+asp/\.asp/g;
$text =~ s/\.\s+php/\.php/g;
$text =~ s/\.\s+htm/\.htm /g;
$text =~ s/\s+\.html/\.html/g;
$text =~ s/\s+\.htm/\.htm /g;
$text =~ s/\.\s+HTM/\.htm /g;
$text =~ s/\s+\[at\]\s+/\@/g;
$text =~ s/http:\/\/([0-9]*[0-9]) ([0-9]*[0-9]) ([0-9]*[0-9]) ([0-9]*[0-9])/http:\/\/\1\.\2\.\3\.\4/g;
$text =~ s/www\.([a-zA-Z]+)\- ([a-zA-Z]+)/www\.\1\-\2/g;
$text =~ s/\.\s+com\./\.com \./g;
$text =~ s/\.\s+fr\./\.fr \./g;
$text =~ s/\.\s+org\./\.org \./g;
$text =~ s/\.\s+pdf\./\.pdf \./g;
$text =~ s/\.\s+de/\.de/g;
$text =~ s/\s+\.org\./\.org \./g;
$text =~ s/\.\s+gov\./\.gov \./g;
$text =~ s/\.\s+uk\./\.uk \./g;
$text =~ s/\.\s+qc\./\.qc \./g;
$text =~ s/\.\s+ca\./\.ca \./g;
$text =~ s/\.\s+ch\./\.ch \./g;
$text =~ s/\.\s+net\./\.net \./g;
$text =~ s/\.\s+th\./\.th \./g;
$text =~ s/\.\s+asp\./\.asp \./g;
$text =~ s/\.\s+php\./\.php \./g;
$text =~ s/\.\s+htm\./\.htm \./g;
$text =~ s/\s+\.html\./\.html \./g;
$text =~ s/\s+\.htm\./\.htm \./g;
$text =~ s/\.\s+HTM\./\.htm \./g;
$text =~ s/\s+/ /g;
my @line = split(/\s+/, $text);
for(my $i = 0; $i < scalar(@line); $i++) {
if (($line[$i] =~ /http/) || ($line[$i] =~ /www/)|| ($line[$i] =~ /ftp/)|| ($line[$i] =~ /@/) || ($line[$i] =~ /\.org/) || ($line[$i] =~ /\.net/) || ($line[$i] =~ /\.com/) || ($line[$i] =~ /\.fr/) || ($line[$i] =~ /\.uk/) || ($line[$i] =~ /\.gov/) || ($line[$i] =~ /\.pdf/) || ($line[$i] =~ /\.php3/) || ($line[$i] =~ /\.co/)
|| ($line[$i] =~ /\.be/)|| ($line[$i] =~ /\.de/)|| ($line[$i] =~ /\.doc/) || ($line[$i] =~ /\.ppt/)) {
$line[$i] =~ s/wwww/ www /g;
$line[$i] =~ s/\./ point /g;
$line[$i] =~ s/\// slash /g;
$line[$i] =~ s/:/ deux points /g;
$line[$i] =~ s/-/ tiret /g;
$line[$i] =~ s/_/ tiret bas /g;
$line[$i] =~ s/~/ tilde /g;
$line[$i] =~ s/@/ arobase /g;
$line[$i] =~ s/#/ die2se /g;
$line[$i] =~ s/\?/ point d' interrogation /g;
$line[$i] =~ s/=/ e1gale /g;
$line[$i] =~ s/([0-9]+)/ \1 /g;
push(@nv_ligne, $line[$i]);
} else {
push(@nv_ligne, $line[$i]);
}
}
push(@sortie, join(" ", @nv_ligne));
}
else {
push(@sortie, "$text");
}
}
return (join("\n", @sortie))."\n";
}