10-05-2008
Perl Script to Extract the Name of the Video out of a Youtube URL
First of all thanks for your help. I made this script out of the need to extract the youtube video name from a youtube address. I hope it helps.
Warmest regards,
Tony Mty
#!/usr/bin/perl
# s.u.f.y.a.
# Strip the Url From a Youtube Address
# Purpose: This small perl snippet will extract the name of the video out
# from a youtube address.
# Based on:
#
https://www.unix.com/newreply.php?do=...=1&p=302231091
# hth
# tony mty
#
print "\Script to strip the url from a youtube address";
print "\nYoutube URL: ";
$youtubesurl = <STDIN>;
$youtubesurl=~ s/^\s+//; #strips off space
$youtubesurl=~s/.*watch\?v=//; #returns everthing after "watch?="
$youtubesurl=~s/&.*//; #returns everthing before "$"
print "$youtubesurl\n";
print "Done.\n";
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I have a string as follows
IS*blahblah
TED~blahblah
etc.
I want to list down only IS and TED
Can someone help me? (24 Replies)
Discussion started by: kumariak
24 Replies
2. Shell Programming and Scripting
Hi,
I'm currently working on a project that requires parsing xml file. One of the field in the xml is shown below (don't remember exactly):
<variable="ITEM">12345678</variable>
I coded my script keeping in mind that the value denoted in bold will always be a number. After getting just the... (1 Reply)
Discussion started by: mradul_kaushik
1 Replies
3. UNIX for Dummies Questions & Answers
HI,
I have a directory structure. /abc/def/ghi/
I want to store it into array.
So that if I do a pop function on that array I can easily go to previous directory.
But how can i split and store it.
@Directory = split(/\//,$DirectoryVarialbe)
That doest works. Any other escape sequence... (5 Replies)
Discussion started by: deepakwins
5 Replies
4. Shell Programming and Scripting
Hi , I use the following simple perl script to find the yesterday time
perl -e ' use POSIX(strftime); print POSIX::strftime("%a %b %e %H:%M:%S %Y", localtime(time-86400*$ARGV))' 1
However in the perl version 4 , it gives me the following error :
Do the perl version 4 does not support... (4 Replies)
Discussion started by: youareapkman
4 Replies
5. UNIX for Advanced & Expert Users
Hi
just for regular use i m working on small module written in perl for getting date in specified format like i have to specify date format and then seperator to seperate date i am 95% done. now i m sure explanation i gave is not good enough so i am putting output here :
C:\Documents and... (2 Replies)
Discussion started by: zedex
2 Replies
6. Shell Programming and Scripting
All I'm trying to split a string at the $ into arrays
@data:=<dataFile>
a $3.33
b $4.44
dfg $0.56
The split command I have been playing with is:
split(/\$/, @data)
which results with
a .33 b .44 dfg .56
any help with this is appreciated
/r
Rick (9 Replies)
Discussion started by: schultz2146
9 Replies
7. Shell Programming and Scripting
Hello,
I have a problem when i execute the script underneath.
If i tape azerty 123 and i use the arrow touch, in the file /tmp/test i have the caracter #!/usr/bin/ksh
clear
echo "Taper l adresse IP de la partition a creer :"
tput cup 1 48
read Adress
echo $Adress
echo "${Adress}" >>... (0 Replies)
Discussion started by: khalidou13
0 Replies
8. Shell Programming and Scripting
Hello
I have string (string can have more sections)
LINE="AA;BB;CC;DD;EE"I would like to assigne each part of string separated by ";" to some new variable.
Can someone help? (4 Replies)
Discussion started by: vikus
4 Replies
9. Shell Programming and Scripting
Hello Gurus,
I have a script developed...
#!/bin/bash
#---------------------------------------------------------------------
# This pScript will remove/replace the special characters fromfiles
#---------------------------------------------------------------------
trxdate="`date... (1 Reply)
Discussion started by: nanduedi
1 Replies
10. Shell Programming and Scripting
when I execute the unix commands its works normally in the 1st part.
When I the tried the same in shell scripting the directory is not displayed in 2nd part example. please let me know what needs to be done.
Unix :
client=~zsvdbs
echo $client
/shome/zsvhome/zsvdbs
Using... (3 Replies)
Discussion started by: keerthi2016
3 Replies
LEARN ABOUT DEBIAN
tap::parser::sourcehandler::perl
TAP::Parser::SourceHandler::Perl(3pm) User Contributed Perl Documentation TAP::Parser::SourceHandler::Perl(3pm)
NAME
TAP::Parser::SourceHandler::Perl - Stream TAP from a Perl executable
VERSION
Version 3.25
SYNOPSIS
use TAP::Parser::Source;
use TAP::Parser::SourceHandler::Perl;
my $source = TAP::Parser::Source->new->raw( 'script.pl' );
$source->assemble_meta;
my $class = 'TAP::Parser::SourceHandler::Perl';
my $vote = $class->can_handle( $source );
my $iter = $class->make_iterator( $source );
DESCRIPTION
This is a Perl TAP::Parser::SourceHandler - it has 2 jobs:
1. Figure out if the TAP::Parser::Source it's given is actually a Perl script ("can_handle").
2. Creates an iterator for Perl sources ("make_iterator").
Unless you're writing a plugin or subclassing TAP::Parser, you probably won't need to use this module directly.
METHODS
Class Methods
"can_handle"
my $vote = $class->can_handle( $source );
Only votes if $source looks like a file. Casts the following votes:
0.9 if it has a shebang ala "#!...perl"
0.75 if it has any shebang
0.8 if it's a .t file
0.9 if it's a .pl file
0.75 if it's in a 't' directory
0.25 by default (backwards compat)
"make_iterator"
my $iterator = $class->make_iterator( $source );
Constructs & returns a new TAP::Parser::Iterator::Process for the source. Assumes "$source->raw" contains a reference to the perl script.
"croak"s if the file could not be found.
The command to run is built as follows:
$perl @switches $perl_script @test_args
The perl command to use is determined by "get_perl". The command generated is guaranteed to preserve:
PERL5LIB
PERL5OPT
Taint Mode, if set in the script's shebang
Note: the command generated will not respect any shebang line defined in your Perl script. This is only a problem if you have compiled a
custom version of Perl or if you want to use a specific version of Perl for one test and a different version for another, for example:
#!/path/to/a/custom_perl --some --args
#!/usr/local/perl-5.6/bin/perl -w
Currently you need to write a plugin to get around this.
"get_taint"
Decode any taint switches from a Perl shebang line.
# $taint will be 't'
my $taint = TAP::Parser::SourceHandler::Perl->get_taint( '#!/usr/bin/perl -t' );
# $untaint will be undefined
my $untaint = TAP::Parser::SourceHandler::Perl->get_taint( '#!/usr/bin/perl' );
"get_perl"
Gets the version of Perl currently running the test suite.
SUBCLASSING
Please see "SUBCLASSING" in TAP::Parser for a subclassing overview.
Example
package MyPerlSourceHandler;
use strict;
use vars '@ISA';
use TAP::Parser::SourceHandler::Perl;
@ISA = qw( TAP::Parser::SourceHandler::Perl );
# use the version of perl from the shebang line in the test file
sub get_perl {
my $self = shift;
if (my $shebang = $self->shebang( $self->{file} )) {
$shebang =~ /^#!(.*perl.*?)(?:(?:s)|(?:$))/;
return $1 if $1;
}
return $self->SUPER::get_perl(@_);
}
SEE ALSO
TAP::Object, TAP::Parser, TAP::Parser::IteratorFactory, TAP::Parser::SourceHandler, TAP::Parser::SourceHandler::Executable,
TAP::Parser::SourceHandler::File, TAP::Parser::SourceHandler::Handle, TAP::Parser::SourceHandler::RawTAP
perl v5.14.2 2012-06-05 TAP::Parser::SourceHandler::Perl(3pm)