Fonctions Perl utiles

chomp
length substr
printf sprintf
split join

$s = "azerty\n" ;
chomp($s) ; print $s ;           # "azerty"
 
$s = "azerty" ;
chomp($s) ; print $s ;           # "azerty"

$s = "azerty" ;
print length($s) ;            # 6
print substr($s,1,2) ;        # ze

$s = "l'histoire l'a amusée" ;|
@l = split(/ +/,$s) ;
print join(" | ",@l) ;           # @l = (l'histoire | l'a | amusée)
@l = split(/[ ']+/,$s) ;
print join(" | ",@l) ;           # @l = (l | histoire | l | a | amusée)
@l = split(//,$s) ;            #
print join("|",@l) ;           # @l = (l|'|h|i|s|t|o|i|r|e| |l|'|a| |a|m|u|s|é|e)

push pop unshift shift
sort reverse

@l = (1,9,4,6,2) ;
print sort @l  ;                    # (1 2 4 6 9)
print sort { $a%3 <=> $b%3 } @l ;   # (6 9 1 4 2)

keys values each
delete
exists

%h = ( un=>1, deux=>2, trois=>3 ) ;
sort keys %h ;                                            # (deux trois un)
sort { substr($a,1,1) cmp substr($b,1,1)} keys %h ;       # (deux un trois)
 
print exists $h{deux} ;                                   # vrai
delete $h{deux} ;                                         # %h = ( un=>1, trois=>3 ) ;
print exists $h{deux} ;                                   # faux
 
while (($k,$v)=each(%h)) { print "$k→$v " ; }             # trois→3 un→1

$Id: memoperlfunction.txt 551 2012-05-20 07:17:51Z jaclin $