Saya mengunduh semua agen pengguna dari http://www.user-agents.org/ dan menjalankan skrip untuk menghitung jumlah mereka yang menggunakan +
tautan gaya vs tautan biasa. Saya mengecualikan string agen pengguna "non-standar" yang tidak cocok dengan RFC 2616.
Inilah hasilnya:
Total: 2471
Standard: 2064
Non-standard: 407
No link: 1391
With link: 673
Plus link: 145
Plain link: 528
Plus link only: 86
Plain link only: 174
Jadi dari 673 agen pengguna yang menyertakan tautan, hanya 21% yang menyertakan plus. Dari 260 agen pengguna yang memiliki komentar yang hanya berupa tautan, hanya 33% yang menyertakan plus.
Berdasarkan analisis ini, plus adalah umum, tetapi mayoritas agen pengguna memilih untuk tidak menggunakannya. Tidak apa-apa untuk meninggalkannya, tetapi cukup umum bahwa itu juga baik-baik saja untuk memasukkannya.
Berikut adalah skrip Perl yang melakukan analisis ini jika Anda ingin menjalankannya sendiri.
#!/usr/bin/perl
use strict;
my $doc="";
while(my $line = <>){
$doc.=$line;
}
my @agents = $doc =~ /\<td class\=\"left\"\>[ \t\r\n]+(.*?)\ \;/gs;
my $total = 0;
my $standard = 0;
my $nonStandard = 0;
my $noHttp = 0;
my $http = 0;
my $plusHttp = 0;
my $noPlusHttp = 0;
my $linkOnly = 0;
my $plusLinkOnly = 0;
for my $agent (@agents){
$total++;
if ($agent =~ /^(?:[a-zA-Z0-9\.\-\_]+(?:\/[a-zA-Z0-9\.\-\_]+)?(?: \([^\)]+\))?[ ]*)+$/){
print "Standard: $agent\n";
$standard++;
if ($agent =~ /http/i){
print "With link: $agent\n";
$http++;
if ($agent =~ /\+http/i){
print "Plus link: $agent\n";
$plusHttp++;
} else {
print "Plain link: $agent\n";
$noPlusHttp++;
}
if ($agent =~ /\(http[^ ]+\)/i){
print "Plain link only: $agent\n";
$linkOnly++;
} elsif ($agent =~ /\(\+http[^ ]+\)/i){
print "Plus link only: $agent\n";
$plusLinkOnly++;
}
} else {
print "No link: $agent\n";
$noHttp++;
}
} else {
print "Non-standard: $agent\n";
$nonStandard++;
}
}
print "
Total: $total
Standard: $standard
Non-standard: $nonStandard
No link: $noHttp
With link: $http
Plus link: $plusHttp
Plain link: $noPlusHttp
Plus link only: $plusLinkOnly
Plain link only: $linkOnly
";