JP : Zen, my Nuggets ! ;-)
fortune: file not found !
#!/usr/bin/perl
### Perl program to strip the extension of a file name
$filename=$ARGV[0];
@nn=split(/\./,$filename);
$filetype=pop(@nn);
$name=$nn[0];
for($i=1;$i<=$#nn;$i++){
$name=join('.',$name,$nn[$i]);
};
print $name;
strip_ext.pl fichier.blabla.dat
nom_court=`strip_ext.pl $nom_long` echo $nom_court
johand@horus:~/src/bash$ brol=un.deux.trois
johand@horus:~/src/bash$ echo ${brol%.*}
un.deux
johand@horus:~/src/bash$ echo ${brol%%.*}
un
${parameter%word}
${parameter%%word}
The word is expanded to produce a pattern just as in pathname
expansion. If the pattern matches a trailing portion of the
expanded value of parameter, then the result of the expansion is
the expanded value of parameter with the shortest matching pat-
tern (the ``%'' case) or the longest matching pattern (the
``%%'' case) deleted. If parameter is @ or *, the pattern
removal operation is applied to each positional parameter in
turn, and the expansion is the resultant list. If parameter is
an array variable subscripted with @ or *, the pattern removal
operation is applied to each member of the array in turn, and
the expansion is the resultant list.
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.
Le fait d'être membre vous permet d'avoir des options supplémentaires.
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.