Perl script monitors visitor statistics for YouTube movies
Machine Learning Lite
Line 16 of Listing 5 iterates over all the movies to be monitored and runs a SQL query for each of them to retrieve the historic viewing numbers sorted in ascending order of time of measurement. It dumps these y values into the @yvalues
array and lets the matching x values start at 1 and grow by 1 for each measurement day. In $row[0]
, the first element of each row of the SQL result, you can see the view count for the movie currently processed at the point in time the measurement was taken.
Lines 34 and 35 then remove the latest (today's) measured value so that the script only applies the regression rule against the measuring points that are more than one day in the past. The coefficients()
method in line 42 finally returns the computed $intercept
value (y offset at x=0) and the gradient of the straight line in the $slope
variable. Line 44 uses this to interpolate the value for the last measurement in $y_predicted
; in other words, it determines what you would expect if the average number of viewers continued to increase as it always had.
If the difference to the actual measured value is three times the magnitude of a linear increase, the movie is obviously going viral, and the user is notified by a text message. You need to experiment with this factor; some people might want to learn about even minor successes, so you would use a smaller factor than 3
in line 48 instead.
For more convenience, instead of the print
instruction, you might want to send an HTML email by using, for example, the CPAN Mail::DWIM module, which needs just one line to do that. The recipient would then be able to run their new hit movie directly by clicking on the displayed link.
Infos
- Listings for this article: ftp://ftp.linux-magazin.com/pub/listings/magazine/171
- Lantz, Brett. Machine Learning with R. Packt Publishing, 2013
- Linear regression: http://en.wikipedia.org/wiki/Linear_Regression
« Previous 1 2
Buy this article as PDF
(incl. VAT)
Buy Linux Magazine
Subscribe to our Linux Newsletters
Find Linux and Open Source Jobs
Subscribe to our ADMIN Newsletters
Support Our Work
Linux Magazine content is made possible with support from readers like you. Please consider contributing when you’ve found an article to be beneficial.
News
-
Canonical Bumps LTS Support to 12 years
If you're worried that your Ubuntu LTS release won't be supported long enough to last, Canonical has a surprise for you in the form of 12 years of security coverage.
-
Fedora 40 Beta Released Soon
With the official release of Fedora 40 coming in April, it's almost time to download the beta and see what's new.
-
New Pentesting Distribution to Compete with Kali Linux
SnoopGod is now available for your testing needs
-
Juno Computers Launches Another Linux Laptop
If you're looking for a powerhouse laptop that runs Ubuntu, the Juno Computers Neptune 17 v6 should be on your radar.
-
ZorinOS 17.1 Released, Includes Improved Windows App Support
If you need or desire to run Windows applications on Linux, there's one distribution intent on making that easier for you and its new release further improves that feature.
-
Linux Market Share Surpasses 4% for the First Time
Look out Windows and macOS, Linux is on the rise and has even topped ChromeOS to become the fourth most widely used OS around the globe.
-
KDE’s Plasma 6 Officially Available
KDE’s Plasma 6.0 "Megarelease" has happened, and it's brimming with new features, polish, and performance.
-
Latest Version of Tails Unleashed
Tails 6.0 is based on Debian 12 and includes GNOME 43.
-
KDE Announces New Slimbook V with Plenty of Power and KDE’s Plasma 6
If you're a fan of KDE Plasma, you'll be thrilled to hear they've announced a new Slimbook with an AMD CPU and the latest version of KDE Plasma desktop.
-
Monthly Sponsorship Includes Early Access to elementary OS 8
If you want to get a glimpse of what's in the pipeline for elementary OS 8, just set up a monthly sponsorship to help fund its continued existence.