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/#.*//;
my $commandes = "set timeout 5\n".
"spawn telnet 192.168.1.1\n".
"sleep 5\n".
"send \"root\r\"\n".
"sleep 1\n".
"send \"xxxxxx\r\"\n".
"sleep 1\n".
"send \"ifconfig ppp0\r\"\n".
"sleep 1\n".
"send \"exit\r\"\n";
open ( my $pipe, '-|', "echo \"$commandes\" | expect 2>&1" );
(…)