diff options
author | lookshe <lookshe@fumuga.com> | 2012-09-09 21:02:03 +0200 |
---|---|---|
committer | lookshe <lookshe@fumuga.com> | 2012-09-09 21:02:03 +0200 |
commit | 009a87ffad8d3ea804dba65aedef7fddec7aa6d2 (patch) | |
tree | 4225ac012adf5eecca15f81756f69a16922e383e /youtube.pl | |
parent | e92f4f4425e9afab798910880c146567c22898c8 (diff) |
don't know what changed, but there's something ;-)
Diffstat (limited to 'youtube.pl')
-rw-r--r-- | youtube.pl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/youtube.pl b/youtube.pl new file mode 100644 index 0000000..1291af2 --- /dev/null +++ b/youtube.pl @@ -0,0 +1,26 @@ +#!/usr/bin/perl + +use LWP::Simple; + +if ($#ARGV != 0) +{ + exit; +} + +my ($url, $content, $title); +$url = $ARGV[0]; + +$content = get($url); + +if (!defined $content) +{ + exit; +} + +if ($content =~ m/<title>(.*?)<\/title>/s) +{ + $title = $1; + $title =~ s/^\s+//; + $title =~ s/\s+- YouTube\s+$//; + print "$title"; +} |