Bloc-note 'Perl'

2007-11-17T17:55:05+01:00

Bloc-Notes dédié à perl

UTF-8

Forcer l'UTF-8 sur un scalaire :

  if (! utf8::is_utf8($message)) {

  utf8::decode($message);

}

Créer un fichier en UTF8

  open FILE, ">:utf8", $filename;
  

Ecrire dans la console en UTF8

  binmode STDOUT, ":utf8";
  

Référence d'un scalaire

\$scalar

Type d'une variable

  ref($var)
  

Trimming

  #!/usr/bin/perl

# Declare the subroutines

sub trim($);

sub ltrim($);

sub rtrim($);

# Create a test string

my $string = "  \t  Hello world!   ";

# Here is how to output the trimmed text "Hello world!"

print trim($string)."\n";

print ltrim($string)."\n";

print rtrim($string)."\n";

# Perl trim function to remove whitespace from the start and end of the string

sub trim($)

{

  my $string = shift;

  $string =~ s/^\s+//;

  $string =~ s/\s+$//;

  return $string;

}

# Left trim function to remove leading whitespace

sub ltrim($)

{

  my $string = shift;

  $string =~ s/^\s+//;

  return $string;

}

# Right trim function to remove trailing whitespace

sub rtrim($)

{

  my $string = shift;

  $string =~ s/\s+$//;

  return $string;

}

Méthode AUTOLOAD

  {

   package Test;

   use vars qw($AUTOLOAD);

  sub new  {

    ...

  }

  sub AUTOLOAD {

    my $self = shift;

    my $name = $AUTOLOAD;

    $name =~ s/.*:://;

    if (@_) {

        $self->{$name} = shift;

    }

    return $self->{$name};

  }

}

my $test=new Test;

$test->toto(12); # Créé automatiquement par l'autload

print $test->toto;

Exportation de constantes

  package MesConstantes;

require 5.6.0;

use strict;

use warnings;

use constant C1 => 1;

use constant C2 => "coucou";

our(@ISA, @EXPORT);

@ISA    = qw(Exporter);

@EXPORT = qw(C1 C2);

1;

Et à l'extérieur, utilisation des constantes :

  use MesConstantes;

print C1."\n";

print C2."\n";

La ligne @ISA = qw(Exporter) définit un héritage (au sens objet) de la classe Exporter vers la classe constante. Donc si l'on joue à cela dans un objet qui hérite d'une autre classe on a un héritage multiple. Pour éviter les conflits avec SUPER, placer le "véritable" héritage en tête de liste qw(MonHeritage Exporter).

Chargement dynamique d'un module

  my @modules=("Module1","Module2");

my @instances={};

for (@modules) {

    eval "require $_"; 

    $instances[scalar(@instances)]=$_->new;

}

Flush stdout

   use IO::Handle qw( );

....

            print "\r\e[K";

            STDOUT->flush();

            print "message";

            STDOUT->flush();

Artisan Numérique