Perl | Shafiq Alibhai

A Beginner's Guide to Perl Expect Bindings - A Simple Walkthrough

21 février 2012

Script Perl basique “Hello World” (hello.pl)#

Commençons par le commencement. Voici un script simple “Hello World” rédigé en Perl. Créez un nouveau fichier et nommez-le hello.pl.

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

print "-----------\n",
      "Hello World\n",
      "-----------\n";

Dans ce script, nous utilisons les modules intégrés de Perl pour la gestion des erreurs (use strict; use warnings; use diagnostics;) afin de garantir que le code est robuste.

Présentation des liaisons Expect avec Perl (test.pl)#

Passons maintenant au sujet principal : comment utiliser les liaisons Expect dans un script Perl. Créez un autre fichier, test.pl, et ajoutez le code suivant :

How To Get The Current Epoch Time (Unix Timestamp)

30 septembre 2010

Development

Bash, Perl, Java, Erlang, How-To

PHP
PostgreSQL
powershell
Python
ruby
shell
sql server
unix
Unix Timestamp
vbscript

disableHLJS: false#

Perl :

time

PHP :

time()

Ruby :

Time.now # (ou Time.new). Pour afficher l'époque : Time.now.to_i

Python :

import time # tout d'abord, puis int(time.time())

Java :

long epoch = System.currentTimeMillis()/1000;

Microsoft .NET C# :

epoch = (DateTime.Now.ToUniversalTime().Ticks - 621355968000000000) / 10000000;

VBScript/ASP :

DateDiff("s", "01/01/1970 00:00:00", Now())

Erlang :

calendar:datetime_to_gregorian_seconds(calendar:now_to_universal_time( now()))-719528*24*3600. # OU element(1, now()) * 10000 + element(2, now()).

MySQL :

SELECT unix_timestamp(now())

PostgreSQL :

SELECT extract(epoch FROM now());

Oracle PL/SQL :

SELECT (SYSDATE - TO_DATE('01-01-1970 00:00:00', 'DD-MM-YYYY HH24:MI:SS')) * 24 * 60 * 60 FROM DUAL

SQL Server :

SELECT DATEDIFF(s, '1970-01-01 00:00:00', GETUTCDATE())

JavaScript :

Math.round(new Date().getTime()/1000.0) // getTime() renvoie le temps en millisecondes.

Unix/Linux Shell :

date +%s

PowerShell :

Get-Date -UFormat "%s" # Produit : 1279152364.63599

Actionscript :

(new Date()).time

Autres lignes de commande des systèmes d’exploitation :

perl -e "print time" # (Si Perl est installé sur votre système)

ColdFusion (CFML) MX 6.1+ :

#int( getTickCount() / 1000 )#

Ligne de commande Bash :

date +%s

Perl – How to Read a Text File into a Variable – 6 ways to do it

15 mars 2010

Development

Perl, File-Handling, Tutorial, Code-Snippet

6 façons de lire un fichier texte dans une variable

Si vous travaillez avec des fichiers volumineux, vous pourriez envisager d’utiliser File::Slurp.
Il est bien plus rapide que la méthode conventionnelle :

{
  local $/=undef;
  open FILE, "myfile" or die "Couldn't open file: $!";
  binmode FILE;
  $string = <FILE>;
  close FILE;
}

{
  local $/=undef;
  open FILE, "myfile" or die "Couldn't open file: $!";
  $string = <FILE>;
  close FILE;
}

open FILE, "myfile" or die "Couldn't open file: $!";
$string = join("", <FILE>);
close FILE;
  
open FILE, "myfile" or die "Couldn't open file: $!";
while (<FILE>) {
 $string .= $_;
}
close FILE;

open( FH, "sample.txt") || die("Error: $!\n");
read(FH, $data, 2000);
close FH;

Le format de la fonction read est :