Perl

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 : ...

PHP PostgreSQL powershell Python ruby shell sql server unix Unix Timestamp vbscript —- 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

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 : ...