Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Langage Perl Comment enlever les 2 prmières lignes...

Comment enlever les 2 prmières lignes...

3 réponses
Avatar
Régine
Bonjour =E0 tous,
Je bute sur un petit probleme...

Je lis un directory:
while ($file=3Dreaddir(DIRECTORY))

et les deux premi=E8re lignes sont:
.
.=2E

Enlever les points c'est facile avec:
$file =3D~s /\.//g;

Mais les lignes vides restent

Comment enlever les 2 premi=E8re lignes de la var $file ?

Merci
Bien =E0 vous
R=E9gine
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
espie
In article ,
Régine wrote:
Bonjour à tous,
Je bute sur un petit probleme...

Je lis un directory:
while ($file=readdir(DIRECTORY))

et les deux première lignes sont:
.
..

Enlever les points c'est facile avec:
$file =~s /.//g;

Mais les lignes vides restent

Comment enlever les 2 première lignes de la var $file ?


next if $file eq '.' or $file eq '..';

Avatar
Régine
On 19 mar, 11:14, (Marc Espie) wrote:
In article ,





Régine wrote:
Bonjour à tous,
Je bute sur un petit probleme...

Je lis un directory:
while ($file=readdir(DIRECTORY))


Houla, cela s'appelle enlever une épine du pied !

Un immense merci
Cordialement
Régine

et les deux première lignes sont:
..

Enlever les points c'est facile avec:
$file =~s /.//g;

Mais les lignes vides restent

Comment enlever les 2 première lignes de la var $file ?


next if $file eq '.' or $file eq '..';- Masquer le texte des messages pr écédents -

- Afficher le texte des messages précédents -



Avatar
Stéphane Müller
"Régine" a écrit dans le message de news:


Bonjour à tous,
Je bute sur un petit probleme...
Je lis un directory:
while ($file=readdir(DIRECTORY))
et les deux première lignes sont:
.
..
Enlever les points c'est facile avec:
$file =~s /.//g;
Mais les lignes vides restent
Comment enlever les 2 première lignes de la var $file ?


foreach $file ( grep { ! /^.{1,2}$/ } readdir(DIRECTORY) ) {
...
}