Posts Tagged ‘list’

Télécharger la bibliothèque eastwood-patched-1.2.0.jar

Télécharger
Download here
org.jfree.eastwood.GLineAndShapeRenderer(Ci-dessous la liste des Méthodes de la classe)

public void <init>()
public void <init>(boolean lines, boolean shapes)
public void setBarRenderer(org.jfree.chart.renderer.category.BarRenderer categoryItemRenderer)
public void drawItem(java.awt.Graphics2D g2, org.jfree.chart.renderer.category.CategoryItemRendererState state, java.awt.geom.Rectangle2D dataArea, org.jfree.chart.plot.CategoryPlot plot, org.jfree.chart.axis.CategoryAxis domainAxis, org.jfree.chart.axis.ValueAxis rangeAxis, org.jfree.data.category.CategoryDataset dataset, int row, int column, int pass)

org.jfree.eastwood.GLabelledAxis(Ci-dessous la liste des Méthodes de la classe)

public abstract void setTickLabels(java.util.List arg1)
public abstract void setTickLabelPositions(java.util.List arg1)

org.jfree.eastwood.Parameters(Ci-dessous la liste des Méthodes de la classe)

public void <init>()
public static java.util.Map parseQueryString(String qs)
		throws java.io.UnsupportedEncodingException
public static String urlDecode(String s)
		throws java.io.UnsupportedEncodingException

org.jfree.eastwood.GValueAxis(Ci-dessous la liste des Méthodes de la classe)

public void <init>()
public double getLabelAxisStart()
public void setLabelAxisStart(double start)
public double getLabelAxisEnd()
public void setLabelAxisEnd(double end)
public void setTickLabels(java.util.List labels)
public void setTickLabelPositions(java.util.List values)
public java.util.List refreshTicks(java.awt.Graphics2D g2, org.jfree.chart.axis.AxisState state, java.awt.geom.Rectangle2D dataArea, org.jfree.ui.RectangleEdge edge)

org.jfree.eastwood.GSeriesLabelGenerator(Ci-dessous la liste des Méthodes de la classe)

public void <init>(java.util.List labels)
public String generateLabel(org.jfree.data.xy.XYDataset dataset, int series)
public String generateLabel(org.jfree.data.category.CategoryDataset dataset, int series)

org.jfree.eastwood.ExtendedSpiderWebPlot(Ci-dessous la liste des Méthodes de la classe)

public void <init>()
public org.jfree.chart.axis.CategoryAxis getDomainAxis()
public boolean hasDomainAxis()
public org.jfree.chart.axis.Axis getRangeAxis()
public boolean hasRangeAxis()
public void setAngle(double angle)
public void setF0(double f0)
public void setRadiusStartAngle(double f)
public void setF1(double f1)
public void setTicks(java.util.List ticks)
public void addTick(org.jfree.chart.axis.NumberTick tick)
public void setSerieFillPaint(int serie, java.awt.Paint color)
public java.awt.Stroke getRadiusGridlineStroke()
public void setRadiusGridlineStroke(java.awt.Stroke stroke)
public java.awt.Paint getRadiusGridlinePaint()
public void setRadiusGridlinePaint(java.awt.Paint paint)
public void draw(java.awt.Graphics2D g2, java.awt.geom.Rectangle2D area, java.awt.geom.Point2D anchor, org.jfree.chart.plot.PlotState parentState, org.jfree.chart.plot.PlotRenderingInfo info)
public void drawBackground(java.awt.Graphics2D g2, java.awt.geom.Rectangle2D area)
public void drawRadialGridLines(java.awt.Graphics2D g2, org.jfree.chart.axis.ValueAxis radialAxis, java.util.List ticks, java.awt.geom.Rectangle2D dataArea)
public java.awt.Point translateValueThetaRadiusToJava2D(double angleDegrees, double radius, java.awt.geom.Rectangle2D dataArea)

Perl: Lire les fichiers d’un répertoire

 fichier, list, list
{filelink=14342}

# Spécifier le dossier à utilisé
chdir '..';                          #Dossier courant
 
# Ouvrir le dossier
opendir(DOSSIER, '.')
    or die "Impossible d'ouvrir le dossier.";
 
# Lister les fichiers
print join (', ', readdir(DOSSIER));
 
# Fermer le gestionnaire
closedir DOSSIER;

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Client/Serveur: Création d’un serveur pour échanger avec les connexions des clients

serveur, list, date, socket, list, set, socket
{filelink=13108}

#!/usr/local/bin/perl
   ############## Socket Serveur ################
 
use Socket;
 
my $port_serveur=80;         #Port du Serveur, utilisé par le client
 
# Création d'un Socket
socket(SERVER, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
 
# Démarrer le Serveur
setsockopt(SERVER, SOL_SOCKET, SO_REUSEADDR, 1);
 
my $addr_serveur = sockaddr_in($port_serveur, INADDR_ANY);
bind(SERVER, $addr_serveur)
    or die "Port introuvable $port_serveur : $!n";
 
# Attendre la connexion du client
listen(SERVER, SOMAXCONN)
    or die "Le serveur ne peut pas écouter sur le port $port_serveur : $!n";
 
# Accepter toutes les connexion utilisant le port 80
while(1)
{
 if (accept(CLIENT, SERVER))
{
    # Envoyer des informations aux clients connectés
    print CLIENT scalar localtime, "n";      # date du Serveur
 
    close CLIENT;                             # Terminer la connexion client
 
}
}
close(SERVER);

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Définir un nombre d’argumenet illimité pour un subroutine/Fonction

 list, list
{filelink=14604}

#!/usr/local/bin/perl
 
# trouver la valeur maximale d'une liste de valeur
sub find_max
 {
  my($peu_imprt_arg) = shift @_;  # peu importe le nombre d'argument
  foreach (@_) {
    if ($_ > $peu_imprt_arg) {
      $peu_imprt_arg = $_;
    }
  }
  return $peu_imprt_arg;
}
 
$maximum = &#038;max(3, 5, 10, 4, 6);
 
print "La plus grande valeur des arguments est: $maximumn";

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Perl: Obtenir la liste des clés d’un Hash

 list, list
{filelink=14708}

#!/usr/bin/perl -w
 
# définition d'un Hash
%mon_hash = ( "Janvier"  => 31,
          	  "Février"  => 28,
              "Mars" => 31,
              "Avril"  => 30,
              "Mai"  => undef );
 
 # Obtenir la liste des clé du Hash
@liste_cle = keys( %mon_hash );
 
# Afficher les clés du Hash
foreach $mois (@liste_cle)
{
    print "$moisn";
}
 
# Une autre manière d'afficher les clés du Hash
foreach my $mois (keys %mon_hash)
{
    print "$moisn";
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Définition et assignation d’une liste

 list, list
{filelink=14095}

# définition d'une liste de mot avec le mot clé 'qw'
@tab = qw( janvier février mars avril mai juin );
print "@tabn";
 
 #Assignation d'une liste
( $mois10 , $mois12 ) = ( "Octobre", "Décembre" );
print "mois10 = $mois10
mois12 = $mois12n";
 
# modification tableau par assignation
@tab[ 1,  4 ] = qw( January April);
print "@tab";

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Perl: Lire les emails d’un serveur POP3

serveur, list, list, adresse, email
{filelink=13118}

#!/usr/local/bin/perl
 
############## Programme de lecture d'email ##############
#   Lire les email d'un serveur Mail
#
use strict;
 
my  $mail_server="mail.serveur.com";            # Adresse du serveur mail
my  $username = "test_username";                # Nom d'utilisateur
my  $password = "test_mot_de_passe";            # Mot de passe
 
my $pop = Net::POP3->new($mail_server)
    or die "Impossible de se connecteur au serveur $mail_server : $!n";
 
# Authentification client
defined ($pop->login($username, $password))
    or die "Nom d'utilisateur ou mot de passe incorrect: $!n";
 
# Obtenir la liste des emails
my $messages = $pop->list
 or die "Impossible d'obtenir la liste des messages: $!n";
 
foreach my $msgid (keys %$messages)
{
    my $message = $pop->get($msgid);
    unless (defined $message)
     {
        warn "Impossible de lire le message avec l'ID$msgid: $!n";
        next;
    }
    # Afficher le message
    print @$message;
    $pop->delete($msgid);
}

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Tableau Associatif: Rendre immutable les clés ou les valeurs d’un Hash

 list, list
{filelink=14709}

 #!/usr/bin/perl -w
#################### Hash ##################"
# Rendre une entrée ou un élément d'entrée
# en mode lecture seule.
# Empêcher l'utilisateur de modifier les entrées du Hash
 
use Hash::Util qw{ lock_keys  unlock_keys
                   lock_value unlock_value
                   lock_hash  unlock_hash  };
 
# définition d'un Hash
%mon_hash = ( "Janvier"  =&gt; 31,
          	  "Février"  =&gt; 28,
              "Mars" =&gt; 31,
              "Avril"  =&gt; 30,
              "Mai"  =&gt; undef );
 
lock_keys(%mon_hash);                		 # Verrouiller les clés
lock_keys(%mon_hash, keys %mon_hash);        # Verrouiller les clés listés
lock_value(%mon_hash,"Janvier");             # Verrouiller la valeur associée

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Exemple de définition et d’utilisation d’un ‘Hash’

 list, list, collection
{filelink=14704}

#################### Hash ##################"
# Le Hash est un tableau associatif de type collection
# chaque entrée est composée d'une clé et d'une valeur
# associée.
# Pour référencer(déclarer) un hash on utilise l'opérateur
# de pourcentage '%' ex: %mon_hash.
# pour référencer un élément de Hash on utilise le symbole dollar '$'.
 
# définition d'un Hash
%mon_hash = ( "janvier"  => 31,
          	  "Février"  => 28,
              "Mars" => 31,
              "Avril"  => 30,
              "Mai"  => undef );
 
# Obtenir la liste des clé du Hash
@liste_cle = keys( %mon_hash );
 
# Parcourir la liste des clés et afficher toutes les valeurs associées
for ( $i = 0; $i < @liste_cle; ++$i )
{
   print "$liste_cle[ $i ] => $mon_hash{ $liste_cle[ $i ] }n";
}
 
#Supprimer un élément dans le Hash
delete( $mon_hash{ 'Mai' } );

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]

Exemple d’utilisation des opérateurs ‘shift’ et ‘unshift’ pour décaler le premier élément d’une liste

 list, list
{filelink=14100}

#!C:/perl/bin
 
#@tab = qw# dino fred barney #;
 
@tab = qw"Perl et Python même logique";
print "1:#","@tab","n";
 
$pl = shift(@tab);      # $p contient "Perl",
print "2:#",$pl,"n";;
print "2-1:#","@tab","n";       #@tab contient maintenant (et Python même logique)
 
$et = shift(@tab);      # $et contient "et",
print "3:#",$et,"n";;
print "3-1:#","@tab","n";       #@tab contient maintenant (Python même logique)
 
$py = shift @tab;       # $py contient "python"
print "4:#",$py,"n";
print "4-1:#","@tab","n";        #@tab contient maintenant (même logique)
 
#Sauter la valeur 'même
shift @tab;
print "5:#","@tab","n";       #@tab contient maintenant (logique)
 
$lg = shift @tab;       # $lg contient "logique"
print "6:#",$lg,"n";
print "6-1:#","@tab","n";        #@tab est vide
 
#Ajout des éléments dans la liste
unshift(@tab, "Java");      # @tab contient maintenant (Java)
unshift @tab, "et C#";      # @tab contient maintenant (Java et C#)
 
@lst_m = 1..9;
unshift @tab, @lst_m; # @tab contient maintenant (1 2 3 4 5 6 7 8 9 et C# Java)
print "@tab";

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]