Posts Tagged ‘set’

Automation: Création automatique d’un graphique dans MS Excel

 set, stack
{filelink=13529}

#!/usr/bin/perl -w
 
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
use strict;
 
# création d'un objet OLE sur MS Excel
my $xls_app = Win32::OLE->new( 'Excel.Application' )
	or die "Impossible de se connecter à MS Excel, $!";
 
# Lancer Excel.
$xls_app->{'Visible'} = 1;
 
my $workbook= $xls_app->Workbooks->Add();
 
# Graphique
my $feuil   = $workbook->Worksheets(1);
 
my $chart_range = $feuil->Range("B3:C3");
 
my $chart = $xls_app->Charts->Add();
 
# Type de graphique
$chart->{'ChartType'} = xlAreaStacked;
 
$chart->SetSourceData(
    {
    Source => $chart_range,
    PlotBy => xlColumns
    } );
 
$chart->{'HasTitle'} = 1;
$chart->ChartTitle->{'Text'} = "Rapport 2010";

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]

Copier des informations dans le presse-papiers

 set
{filelink=13524}

#!/usr/bin/perl ?Cw
 
use Win32::Clipboard;
 
my $presse_p = Win32::Clipboard->new();
 
# Enregistrer le texte dans le presse-papier
$presse_p->Set( "Bienvenu sur perl.mesexemples.com" );

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]

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)

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]

Manipuler les attributs d’une classe à l’aide des méthodes ‘set’ et ‘get’

classe, méthode, set
{filelink=14326}

#!/usr/local/bin/perl -w
 
package personne;
use strict;
 
sub Personne {
    my $self = { };
    bless($self);
 
    # Initialisation de deux attributs  de la classe
    $self->{Nom} = "";
    $self->{AGE}   = 0;
    return $self;
 
# Retourner le nom
sub get_Nom
{
    my $self = shift;
    return $self->{nom};
}
# Modifier le nom
sub set_Nom
{
    my $self      = shift;
    $self->{nom} = shift;
}
# Retourner l'âge
sub get_Age
{
    my $self = shift;
    return $self->{age};
}
# Modifier l'âge
sub set_Age
{
    my $self      = shift;
    $self->{age} = shift;
}
		}

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]

Vérifier si les données Scalaires sont des lettres seulement(accent inclut)

 set
{filelink=13215}

#!/usr/bin/perl
 
# Démander à l'utilisateur de taper un mot ou une phrase
# Vérifier si l'entrée est purement alphabétique
 
use locale;
use POSIX 'locale_h';
 
unless (setlocale(LC_CTYPE, "fr_FR.ISO8859-1")) {
    die "Impossible de changer la localisationn";
}
 
print "Tapez un mot ou une phrase: ";
$ligne=<STDIN> ;   # Lire l'entrée clavier
 
if ($ligne=~ /^[^Wd_]+$/)
{
    print "La phrase est composée des lettres"
} else
{
     print "La phrase ne contient pas que des lettres"
}

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 complet d’utilisation d’une classe en Perl

classe, set, email
{filelink=14327}

#!/usr/local/bin/perl -w
package Personne ;
################# Classe ##############
# En perl, une classe est un package
# contenant des fonctions et des variable
#
 
sub new{                    # Constructeur de la classe personne
    my $class = shift;
    my $personne = {
        "Nom"  => undef,
        "Profession" => undef,
        "Email"  => undef,
    };
    bless($personne, $class);    # Création de l'objet
 
    # Fonction qui permet de modifier les membres de la classe Personne
    sub set_Personne{
        my $self = shift;
        my ($nom, $profession, $email)= @_;  # Les paramètres de la fonction
 
        #Modifier les les attributs de la classe
        $self->{'Nom'} = $nom;
        $self->{'Profession'}= $profession;
        $self->{'Email'}= $email;
    }
 
    # Fonction qui permet d'afficher les valeurs des attributs
    sub get_Personne{
    my $self = shift;
    while(($key,$value)=each(%self))
    {
        print "$key: $valuen";
    }
}
 
# Création d'une instance de la classe Personne
$client = Personne->new();
 
# Initialisation de la classe
$client->set_Personne("Bill", "Gate", "bill@test.com");
 
# Accéder aux objets de la classe
$client->get_Personne;
 
# Modifier les valeurs des attributs
 $client->set_Personne("sako","adam","demo@gmail.com");
 
 #Afficher les nouvelles valeurs
 $client->get_Personne;

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]