This is a command line Perl script I made a while back to simply show details about a specified video. It is tested on Ubuntu.
You can modify it for your specific requirements or grab some code for another use.
#!/usr/bin/perl -w
use strict;
use warnings;
use IPC::Open3;
# example
my $filename = $ARGV[0];
my %videoInfo = videoInfo($filename);
print "duration: " . $videoInfo{'duration'} . [...]
You can create your own daemon in Perl to do whatever is needed. [...]
This is the script I use to SSH remotely dump Subversion repositories on various servers for which I am responsible.
Before you can use this script, you need to set up SSH so your local cron can access the remote servers without a password.
One thing to note about this script is that it automatically rotates the archived [...]
The following is the same on recent Ubuntu releases, including Karmic Koala.
What will not work
There seems to be a problem if you install Net::Amazon::S3 from CPAN. This will not work:
sudo cpan Net::Amazon::S3
Just about every dependency in the world installs, but fails in the home stretch when XML::LibXML::XPathContext and XML::LibXML fail to install.
What will work
sudo aptitude install [...]
This program contains a Perl function I wrote to extract data about a given video.
It also shows how to parse information from program output and organize it usefully.
This has been used a few times in production systems.
If you use this, please drop a comment! It would be fun to know.
Share and enjoy!
#!/usr/bin/perl -w
# get_video_info.pl
# by Andrew [...]
I wanted a test pattern video to test a transcoding daemon I wrote for an iPhone application. I wanted to use the classic RCA test pattern image and a tone.
Simply edit the program header with the path to an image you want to use and the name of the output file you’d like to create.
You’ll need [...]
As is typical of my posts, this is another reference for my own use. When I can’t immediately remember something, I look here or on my private wiki. I hope you find this list useful.
perl.org
http://www.perl.org/
The mothership. Includes: Planet Perl : Perl History : Learn Perl : Online Perl Documentation
Home of the baddest Swiss Army Chainsaw there [...]
This is a quick Perl script that I wrote to solve a particular problem; I needed to check two directories, one of original files and one of transcoded files, to see which files were missing from the second directory. The files in the second directory have different filename extensions, so the utility needs to take this [...]
This is a script to be run from a daily cron that created a series of sanely named SQL dump files: weekly, monthly, etc.
Always have that backup ready!
#!/usr/bin/perl -w
#
# No arguments. The program is to be modified to include each database to be archived.
#
#
use strict;
use warnings;
use DateTime;
my $numRotations = 6; # base 0, [...]
This is a quick little script I wrote to warn me when disk space is getting low on a server I’m responsible for.
i just stuck this into a daily cron and now I know when to act!
#!/usr/bin/perl
#
# lowdiskspacewarning.pl
#
use strict;
use Filesys::DiskFree;
# init
my $sendmail = "/usr/lib/sendmail -t";
# file system to monitor
my $dirFilesystem = "/";
my $systemName = "putYourSystemNameHere";
# low [...]