diff options
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"; +} |