Bonjour, Je suis un chercheur en biologie et j'aimerais savoir comment faire pour mettre un fichier de nombres exemple: plusieurs lignes de chiffres sur une seul colonne, dans un tableau et ensuite récupérer le dernier chiffre pour le soustraire a l'avant dernier ainsi de suite. Merci pour votre aide précieuse.
Bonjour,
pour mon stage je dois créer un programme perl pour superviser le réseau. J'ai déjà codé les scripts perl qui effectuent des requêtes SNMP sur les switchs et routeurs. J'ai donc les infos nécessaires pour m'attaquer à la présentation de ces données, cependant je dois les rendre visibles dans un navigateur. Je me suis un peu renseigné et j'ai trouvé Perl/CGI, mais je cherche plus UI que simplement prendre des arguments et retourner du HTML.
Je voudrais réaliser quelquechose (…)
perl -e 'use POSIX; my $now_string = localtime; print "$now_string \n";'
Wed Sep 15 15:06:21 2010
perl -e 'use POSIX; my $time_string= strftime("%a",localtime); print "$time_string \n";'
mer.
#! /bin/bash
while IFS=: read CeldaActiva Numcelda Lat Lon binfilt Ds
do
echo -e "CeldaActiva :\t $CeldaActiva\n\
Numcelda :\t Numcelda\n\
Lat :\t $Lat\n\
Lon :\t $Lon\n\
binfilt :\t $binfilt\n\
Ds :\t $Ds\n\
done
1 1 14.9375 -91.4375 0.01 0.0545455
1 2 14.9375 -91.5625 0.01 (…)
public static long longHashCode(String str) {
long h = 0;
byte val[] = str.getBytes();
int len = str.length();
for (int i = 0; i
h = 31 * h + val[i];
return h;
}
$pwd = $_[2].$_[0].$_[1];
$prenom = $_[0];
$nom = $_[1];
$groupe = $_[2];
#!/usr/bin/perl -w
open (LISTE, "while (my $ligne = ) {
next unless my ($nom, $prenom, $group) =
$ligne =~ /"([^"]+[^"])",\s*"([^"]+)",\s*"([^"]+)"/g;
print "$group$prenom$nom\n";
}
#!/usr/bin/perl -w
$who = `who | grep -v \(:`;
print "$who";
for ( $u = 1 ; $u
# Average with the upper number
$userCheckOutaverage[$u] = $userCheckOutElapsed[$u] / $maxFeat ;
WriteToScreenAndFile( \*REPORTFILE, sprintf( '%-30s %5d %15ss ',
$userName[$u], $userCheckOutTotal[$u], $userCheckOutaverage[$u] ) ) ;
}
a#TOTO=ok
b#JOJO
c#TITI=machin
...
a=ok
b
c=machin
...
s/#.*=/=/;
s/#.*//;