Posteet: perl

Perl package install with CPAN: Writing Makefile for -- NOT OK

spirit — Tue, 10 Jun 2008 13:54:16 +0000

# Synopisis: following error while installing any perl package with CPAN

# Looks good
# Writing Makefile for Package
#     -- NOT OK
# Running make test
#   Can't test without successful make
# Running make install
#   make had returned bad status, install seems impossible

# Solution: set make to /usr/bin/make in CPAN configuration
$ cpan
cpan> o conf make /usr/bin/make

[cpan] [error] [make] [perl]

Requete SQL sur la base d'OCS Inventory en Perl

toff — Thu, 22 Nov 2007 22:39:59 +0000

#!/usr/bin/perl -w
use strict;
use warnings;
use DBI;

#Connection à la base de donnes OCS
my $dns = 'dbi:mysql:ocsweb:localhost';
my $login = 'root';
my $passwd = 'secret';
my $dbh = DBI->connect($dns, $login, $passwd) or die "Connection impossible: $DBI::errstr\n";

# Recuperation des IP et des MAC  des postes SANS "Anti-virus"
my $query = "SELECT DISTINCT hard.NAME, net.IPADDRESS, net.MACADDR ".
		"FROM softwares AS soft, hardware AS hard, networks AS net ".
		"WHERE hard.ID = soft.HARDWARE_ID ".
		  "AND hard.ID = net.HARDWARE_ID ".
		  "AND net.STATUS = 'up' ".
		  "AND soft.name NOT LIKE '%anti-virus%' ".
		"ORDER BY INET_ATON(net.IPADDRESS) ";

my $result = $dbh->prepare($query) or die "Preparation impossible: $DBI::errstr\n";

$result->execute() or die "Execution impossible: $DBI::errstr\n";

#$result->dump_results();

printf ("Il y a %d correspondances:\n",$result->rows);

while ( my ($name, $ip, $mac) = $result->fetchrow_array()){
	print "$name, \t$ip, \t$mac\n";
}
$result->finish();
$dbh->disconnect();

[DBI] [INET_ATON] [MySQL] [OCS] [OCS inventory] [perl]

Indenter automatiquement du code source avec vim

sebclick — Fri, 16 Nov 2007 11:23:57 +0000

Vim peut indenter automatiquement du code source (c, java, ...)

Sélectionner la partie du code source à traiter en mode visuel (v)
Appuyer sur la touche =

[c] [c++] [java] [perl] [vim]

installation de modules PERL via le CPAN

griffith — Thu, 08 Nov 2007 15:18:27 +0000

# mode interactif
perl -MCPAN -e shell

# installation directe
perl -MCPAN -e 'install MODULE'

[CPAN] [PERL]

Perl - Expression régulière pour tester la validité d'une adresse IP

henri — Mon, 05 Nov 2007 08:23:28 +0000

while($addr !~ /^([O1]?\d\d?|2[0-4]\d|25[0-5])\.([O1]?\d\d?|2[0-4]\d|25[0-5])\.([O1]?\d\d?|2[0-4]\d|25[0-5])\.([O1]?\d\d?|2[0-4]\d|25[0-5])$/){
		print "Please give the IP address of the remote server:\n";
		$addr = get_answer();
	}

[adresse ip] [expression régulière] [ip] [ip address] [perl] [regex] [regular expression]

Rename subtitles script

celos — Sat, 03 Nov 2007 13:25:32 +0000

#!/usr/bin/perl
#
# It's my first script in Perl, so be lenient.
#
# This script works only for TV shows and their subtitles !
# When you want to see your favorite tv show, with its sub, you launch the video
# with your favorite video player, and you add the path of the subtitles.
# Many video players, like mplayer, import automatically the subtitles if they 
# have the same name. This script renames the subtitles files (.srt) of a directory
# exactly like the corresponding videos (.avi).
# You won't need to specify the path of the subtitles to your video player anymore.
# 
# Example:
# Video: my_video.s04e38.something.dot.something_else.avi
# Subtitle file: video.438.srt
# After running the script, the subtitle will be named:
# my_video.s04e38.something.dot.something_else.srt
#
# The formats supported by the script:
# - sAAeBB or SAAEBB with AA the season and BB the episode.
# - ABB with A the season and BB the episode.
# - AxBB with A the season and BB the episode.
#
# If the script is launched without any arguments, then the videos and subtitles 
# directories will be set to the current directory.
#
# Options:
#       
#       -h print command list
#
# -d (-dir)  
# Specify the directory where the videos are located.
# If this option is not set, the video directory will be the current directory.
#
# -s (-sub) 
# Specify the directory of the subtitles files.
# If this option is not set, the subtitles directory will be the same directory as
# the videos directory. Which means that if the videos directory is not set, it will be
# the current directory.
# 
# -p (--preview)  
# Preview mode. If this options is set, the subtiles new names will be display on the
# screen without being renamed.
#
# I hope this script will be as useful as it's to me.
# 
# Enjoy your tv shows ;-)
#

use Cwd;
#use Getopt::Std;
use Getopt::Long;

my $preview = 0;
my $help = 0;
GetOptions( "dir=s" => \$dir, "sub=s" => \$sub, "preview!" => \$preview, "help!" =>\$help ) or printOptions();

if ($help == 1){
  print "Command list\n";
  printOptions();
}


if ($preview == 1) {print "****** PREVIEW MODE ******\n";}
else {print "****** RENAME MODE *******\n";}

chomp ($currentDir = getcwd());
my $videoDir = $currentDir;
my $subDir = $currentDir;

if (defined $dir){
  $videoDir = $dir;
}
print "dir: $videoDir\n";

if (defined $sub) {
        $subDir = $sub;
}
else {
        $subDir = $videoDir;
}

opendir(DIR, $videoDir) || die "can't opendir $videoDir: $!";
while (my $path = readdir(DIR)) { 
        push(@videosList, $path) if $path =~ m/\.avi$/;
} 
closedir(DIR);

if (!@videosList){
        print"\n No videos found ! check your path !\n";
        exit();
}

$temp = getcwd();
opendir(DIR, $subDir) || die "can't opendir $subDir: $!";
while (my $path = readdir(DIR)) {
        push(@subsList, $path) if $path =~ m/\.srt$/;
}
closedir(DIR);

if (!@subsList){
        print "\n No subtitles found ! check your path !\n";
        exit();
}

if ($videoDir ne $currentDir){
        chdir ($videoDir) || die "Can't cd to spool: $!\n";
}

foreach $f (@videosList) {
                
        ################
        # VIDEOS FILES #
        ################
        
        my @result = getSeasonEpisod($f);
        $season = @result[0];
        $episod = @result[1];

        foreach $s (@subsList) {
                
                if ($videoDir ne $subDir) {
                        chdir ($currentDir) || die "Can't cd to spool: $!\n";
                        chdir ($subDir) || die "Can't cd to spool: $!\n";
                }

                ####################
                # SUBTITLES FILES  #
                ####################
        
                my @result = getSeasonEpisod($s);
                $seasonSub = @result[0];
                $episodSub = @result[1];        

                if ($season == $seasonSub and $episod == $episodSub){
                        my ($vidName) = $f =~ m/(.*)\.avi$/;
                        print "Rename: $s --> $vidName.srt";
                        print "\n";
                        if ($preview != 1){
                                rename($s,"$vidName.srt") || die "Cannot rename $s: $!";
                        }
                }
        }
}

# get season and episode
sub getSeasonEpisod {
        my $season = 0;
        my $episod = 0;

        # format ABB
        if(@_[0] =~ /(\d)(\d\d)/){
                $season = $1;
                $episod = $2;
        }

        # format sAAeBB
        elsif (@_[0] =~ /[sS](\d\d)[eE](\d\d)/){
                $season = $1;
                $episod = $2;
        }

        # format AxBB
        elsif (@_[0] =~ /(\d)[xX](\d\d)/){
                $season = $1;
                $episod = $2;
        }
        
        else {  
                print "Video format Not Match ! \n";
        }
        
        return ($season,$episod);
}

# print options
sub printOptions(){
  print "-h print command list\n";
  print "-d (-dir) \n";
  print "-s (-sub) \n";
  print "-p (--preview)  \n";
  exit();
}

[perl] [rename] [subtitle] [videos]