YouTube videos chosen by 2014 UBC PHYS 210 class

#!/usr/bin/perl $P=`basename $0`; chomp $P; $in="you-tubes"; $out="you-tubes-ubc-phas-210-2014.html"; $webdir="/d/bh0/home/Public/Members/matt/Teaching/14Fall/2014-W-PHYS210"; die "$P: $in does not exist.\n" unless -f $in; open(IN,"<$in") || die "$P: Could not open $in for reading.\n"; open(OUT,">$out") || die "$P: Could not open $out for writing.\n"; print OUT< YouTube videos chosen by 2014 UBC PHYS 210 class

YouTube videos chosen by 2014 UBC PHYS 210 class

) { $tline=`wget -q '$_' -O - | grep ''`; if ( $tline =~ /<meta.*content=\"(.*)\"/ ) { $title=$1; if ( $tline =~ /shortlink\" href=\"([^\"]*)/ ) { $slink=$1; if ( ! defined($slink{$slink}) ) { $slink{$1}="yes"; print OUT <<END; <li><a href=\"$slink\">$title</a></li> END $count++; print "$P: $count\n"; } } } } print OUT<<END; </body> </ul> </html> END `cp $out $webdir`; print `full $out`; print `full $webdir/$out`;