मैंने http://www.user-agents.org/ से सभी उपयोगकर्ता एजेंटों को डाउनलोड किया और उन सभी की संख्या की गणना करने के लिए एक स्क्रिप्ट चलाई जो +
सादे लिंक के साथ शैली लिंक का उपयोग करते थे । मैंने "गैर-मानक" उपयोगकर्ता एजेंट स्ट्रिंग्स को बाहर रखा है जो RFC 2616 से मेल नहीं खाते हैं।
यहाँ परिणाम हैं:
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
673 उपयोगकर्ता एजेंटों में से एक लिंक जिसमें केवल 21% शामिल हैं, प्लस शामिल हैं। 260 उपयोगकर्ता एजेंटों में से एक टिप्पणी है जो सिर्फ एक लिंक है, केवल 33% में प्लस शामिल है।
इस विश्लेषण के आधार पर, प्लस सामान्य है, लेकिन अधिकांश उपयोगकर्ता एजेंट इसका उपयोग नहीं करना चुनते हैं। इसे छोड़ना ठीक है, लेकिन यह आम है कि इसे शामिल करना भी ठीक रहेगा।
यहाँ पर्ल स्क्रिप्ट है जो इस विश्लेषण को करती है यदि आप इसे स्वयं चलाना चाहते हैं।
#!/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
";