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

my $name="toto";
print "Hello, $name\n"; #\n retour a la ligne  
print 'Hello, $name\n'; #lexico
print ("\nHello");
print 42;

while (<>) {
        ...    # votre programme ici
}

while (<>) {
     ...    # votre programme ici
} continue {
     print or die "-p destination: $!\n";
}

my $animal = "chat"; # my only if strict
my $answer = 2;
print "il y'a ", $answer * $answer, "chat\n";

my @animals = ("camel", "llama", "owl");
my @numbers = (23, 42, 69);
my @mixed = ("camel", 42, 1.23);
print animal[0];
if (@animals < 5) { print "less than 5 animals";}
print $mixed[$#mixed];  # print 1.23
print @animals[0,1]; # gives ("camel", "llama");
print @animals[0..2]; # gives ("camel", "llama", "owl");
print @animals[1..$#animals]; # gives all except the first element

for (;$epochstart<=$epochend;$epochstart+=86400){
		my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday)=gmtime($epochstart);
		push @dates, sprintf("%04d-%02d-%02d", $year + 1900, $mon + 1, $mday);		
}
for my $date (@dates){
 print "date:$date"
}

my %fruit_color = ("apple", "red", "banana", "yellow");

my %fruit_color = {
	apple => "red",
	banana => "yellow",
};

print $fruit_color{"apple"};  #give red
my @fruits = keys %fruit_colors;    # get list of fruits
my @colors = values %fruit_colors;  # get list of colors

my %fruit=("apple", "red", "banana", "yellow","raisin","blanc");
print "$fruit{\"apple\"} \n";
my @tblfruit= keys %fruit;
print ("$tblfruit[0] $tblfruit[-1]");

if(!($dbh = DBI->connect( "dbi:DB2:$mebo", $mebouser, $mebopasswd ))){
		fatalerror("Check your parameter (MEBO dtb is still up? Perl catalog ok?)",$nagiosService,"MEBO dtb connection error");
} 
$req="select  comid,cp_oid from ME.COMIDS order by cp_oid";	
msg(9,$req);
$sth = $dbh->prepare($req);
$sth->execute();
my %cpcom;
my %cpcom2;
while ( my @row = $sth->fetchrow_array ) {
	$cpcom{$row[0]}=$row[1]; #comid en clef  -> cp_oid
	$cpcom2{$row[1]}++; #compte le nbr de comid par cp_oid	
}
for (@rows) {
	my comid = $1;
	# $cpcom{$comid}:done le cp_oid pour un comid  --> $cpcom2{$cp_oid}donne le nombre de comid pour ce cp_oid 
	if ($cpcom2{$cpcom{$comid}}>1){ 
	......
	}	
}

my $variables = {
	scalar => {
		description => "single item",
		sigil => '$',
	},
   array => {
   	description => "ordered list of items",
   	sigil => '@',
   },
  	hash => {
  		description => "key/value pairs",
  		sigil => '%',
	},
};
print "Scalars begin with a $variables->{'scalar'}->{'sigil'}\n";

if (/foo/) { ... } # true if $_ contains "foo"
if ($a =~ /foo/) { ... } # true if $a contains "foo"

open(my $in, "<", "input.txt") or die "Can't open input.txt: $!";
while (<$in>) {         # assigns each line in turn to $_
	if (/shopbot/) {     # true if shopbot is in $_ 
		$shopbot +=1;
	}
}

//4MMPGL6_2022_S7_Responsabilite exclusion des grouep de type Responsabilite
if (!Groupecours.matches("\\w+_\\d{4}_\\w+_Responsabilite")) {
	mapCoursGroupecours.get(Cours).add(Groupecours);	
}	

while (<>) {
	next if /^$/;
	print;
}

if ($email =~ /([^@]+)@(.+)/) {
	print "Username is $1\n";
	print "Hostname is $2\n";
}

s/foo/bar/; # replaces foo with bar in $_
$a =~ s/foo/bar/; # replaces foo with bar in $a
$a =~ s/foo/bar/g; # replaces ALL INSTANCES of foo with bar in $a

while ( condition ) {
	...
}

while ( condition ) {
	...	
	next if ($toto);
	...
	last if ($end);
	...
}

until ( condition ) {
 ...
}

print "LA LA LA\n" while (condition);  

for ($i = 0; $i <= $max; $i++) {
 ...
}

foreach (@array) {
        print "This element is $_\n";
}
print $list[$_] foreach 0 .. $max;

# you don't have to use the default $_ either...
foreach my $key (keys %hash) {
		print "The value of $key is $hash{$key}\n";
}

open(my $in, "<", "input.txt") or die "Can't open input.txt: $!";
my $line = <$in>; #lit une ligne
my @lines = <$in>; #lit toute les ligne dans un tableaux
while (<$in>) { # assigns each line in turn to $_
	print "line: $_";
}
close $in or die "$in: $!";

open( FIN, "gzip -d -c $file |" ) or die "could not open file $file";
while(  ) {
		print "line: $_";
}

open(my $out, ">", "output.txt") or die "Can't open output.txt: $!";
open(my $log, ">>", "my.log") or die "Can't open my.log: $!";
print STDERR "This is your final warning.\n";   #stdr error
print $out "hello"; #output.txt
print $log "we write: $out"; #my.log
close $out;
close $logs;

if (!(open( FOUT, "| gzip -9 > $subworkdir/country.tsv.gz" ))){
	print FOUT "hello";
}
if (!(open( FOUT, " >  :encoding(utf8)" ,"$subworkdir/${name}.tsv" ))){
	print FOUT "éééèèè";
}

open( FIN, "gzip -d -c $file |" ) or die "could not open file $file";
while(  ) {
	if ( /(\d{4}-\d{2}-\d{2}\.+/ ){
		date=$1
	}
	if ( $dateS ne $lastDate ) 
		#if date is not in the hashtable
		$fh = new FileHandle;						
		$fh->open("| gzip -9 > $dateS.gz") or die "could not open $dateS.gz";
		$fileHandles{$dateS} = $fh;
	} else {
		#if in hastable use the correct fileHandles
		$fh = $fileHandles{$dateS};
	}
	$lastDate = $dateS;
}

sub logger {
  my $logmessage = shift;
  open my $logfile, ">>", "my.log" or die "Could not open my.log: $!";
  print $logfile $logmessage;
  return "ok";
}
$pass=logger("We have a logger subroutine!");

package Person;
use strict;

##########################################
## Constructeur                         ##
##########################################
sub new {
my $self = {};
$self->{NOM} = undef;
$self->{AGE} = undef;
$self->{PRENOMS} = [];
bless($self, $class);
return $self;
}

##############################################
## methods to access per-object data        ##
##                                          ##
## With args, they set the value. Without   ##
## any, they only retrieve it/them.         ##
##############################################

sub name {
my $self = shift;
if (@_) { $self->{NAME} = shift }
return $self->{NAME};
}

sub age {
my $self = shift;
if (@_) { $self->{AGE} = shift }
return $self->{AGE};
}

sub prenom {
my $self = shift;
if (@_) { @{ $self->{PRENOMS} } = @_ }
return @{ $self->{PRENOMS} };
}

use Mail::Sendmail;
sub sendamail{
my ($pass, $msg) = @_;
my $smtp=$config->{'GENERAL'}->{'MAIL'}->{'SMTP'};
my $to=$config->{'GENERAL'}->{'MAIL'}->{'TO'};
my $from=$config->{'GENERAL'}->{'MAIL'}->{'FROM'}; 
#.$pass
my %mail = (
		To => $to,
	    From => $from,
		subject => "kog_tar-sftp type:$type runfor:${yyyymmdd} status:".$pass,
		Smtp => $smtp,
	    body => "".$msg, 
);
$mail{'Content-type'} = 'text/html; charset=us-ascii';
sendmail(%mail);
}

my $db =DBI->connect("DBI:mysql:database=MADATABASE;host=${dtbhost}","$user","$password") or die "connection error";
my %hashTerm;
my $sql ="select * from FINANCIAL_TERM_TYPE";
my $sth = $db -> prepare($sql);
$sth->execute() or die "$sql FAILLURE";
while ( my @cols = $sth->fetchrow_array ) {
  $hashTerm{$cols[0]} =$cols[1];
}

my $sql ="select SUPPLIER_ID from SUPPLIER_CONTRACT where CONTRACT_ID=$cid";
my $sth = $db -> prepare($sql);
$sth->execute() or die "$sql FAILLURE";
my @cols1 = $sth->fetchrow_array ;
my $sid=$cols1[0];

use strict;
use threads;
use Math::Complex ':pi'; 

my @rayon =(28,32,45,78);
my @thr;
for (my $i=0;$i<@rayon;$i++){
	print "lance thread $i\n";
	$thr[$i] = threads->new(\&travaille,$rayon[$i],$i);
}
for (my $i=0;$i<@rayon;$i++){
	#join attend que le thread ce termine et recupe le return
 print "end thread num:".$thr[$i]->join."\n";
}

sub travaille {
	my ($rayon,$i)=@_;
	my $nbr;
	#just to use cpu	
	for (my $j=0;$j<10;$j++){
		for (my $i=0;$i<1000000;$i++){ #1ee6	
			$nbr = 2*pi*$rayon;	
		}
	}
	#sleep (5);
	print "Le thread $i  à fini sont boullot $rayon ==> $nbr\n";	
	return $i;
}

use strict;
use threads;
use Math::Complex ':pi'; 

my @rayon =(101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122);
#nombre maximum de thread concurrent
my $max=10;

my @thr;
my $current=0; 
my @finish;
# init finish to false (0)
for (my $i=0;$i<@rayon;$i++){
	$finish[$i]=0;
}

for (my $i=0;$i<@rayon;$i++){
	print "main -> start of thread $i\n"; 
	$thr[$i] = threads->new(\&travaille,10,$rayon[$i],$i);
	$current++;	
	while ($current==$max){		
		print "main ->  nbr of thread $current , max thread reach\n";
		sleep 5;
		for (my $j=0;$j<=$i;$j++){
			if (!$finish[$j]){ # if not finish
				if (! $thr[$j]->is_running()){ #if not running							
					#free ressource + get return
					print "main -> end thread num:".$thr[$j]->join."\n";
					$finish[$j]=1; # finish = true
					$current--;
				}
			}
		}
	}		
}  

## libére les ressource des threads de la pile en cours (et attend leur fin)
for (my $i=0;$i<@rayon;$i++){ #list des thread
	while (!$finish[$i]){ 
		sleep 5;
		print "#";
		if (! $thr[$i]->is_running()){							
			#libérer la resssource
			print "\nmain -> end thread num:$i  surface:".$thr[$i]->join."\n";
			$finish[$i]=1;
			$current--;
		}
	}			
}

sub travaille {
	my ($rayon,$i)=@_;
	my $nbr;
	#just to use cpu
	for (my $j=0;$j<10;$j++){
		for (my $i=0;$i<1000000;$i++){ #1ee6	
			$nbr = 2*pi*$rayon;	
		}
	}
	#sleep 10;#+$i*4;	
	print "travaille -->  end of thread:$i   $rayon ==> $nbr \n";	
	return "$nbr";
}