Perl _ effacer ligne contenant chaine de caractère _(Clubic.com_)

5/9/2018 Perl _ effacer ligne contenant chaine de caract re _(Clubic.com_) - slidepdf.com

http://slidepdf.com/reader/full/perl-effacer-ligne-contenant-chaine-de-caractere-clubiccom

Espace membre : Je m'inscris à la newsletter

Perl : effacer ligne contenant chaine de caractère (Clubic.com) http://www.clubic.com/forum/programmation/perl-effacer-ligne-conte...

1 sur 3 10/08/2011 08:51



Forum Programmation

3 messages Message Rechercher dans ce sujet Filtrer

ti4444

le 10 Déc. 09 à 10h01

Bonjour à toutes et tous

Je possède un fichier texte que j'aimerais "écrémer".

En voici un extrait :

mac-user 00:00:00:00:00:00vlan-name = default

mac-user00:00:00:00:00:01vlan-name = default......

J'aimerais supprimé les lignes "vides" mais également celles contenant la chaine "vlan-name = default" comment faire pour le fairedans un script Perl ?

Merci beaucoup de votre aide

Edité le 06/10/2010 à 13:48

Perl

_Raynor_

le 10 Déc. 09 à 10h30

Il te faut :- Fonction d'ouverture et de lecture de fichier- Expression régulière- Fonction de remplacement de chaîne- Fonction d'écriture et de fermeture de fichier

ti4444

Perl : effacer ligne contenant chaine de caractère

Publicité

Programmation

< Précédent Suivant >inShop sur votre site ?

Ciel Comptes

22,78 €

chez Amazon

Ciel Comptes

44,65 €

chez Amazon

Adobe Illustrator CS5

839,95 €

chez Amazon

INFOS CLUBIC PRO TÉLÉCHARGER AIDE À L'ACHAT ASTUCES FORUM COMPARATEUR DE PRIX MOBILE

Test Adsl/Fibre - Degrouptest.com



2 sur 3 10/08/2011 08:51



J'ai trouvé une solution qui fonctionne mais ce n'est peut être pas la plus propre :

open(FILE, "< AAA.txt" ) or die ("prob a l'ouverture du fichier" );@save = <FILE>;close(FILE);foreach (@save){$_ = "" if ($_ =~ m/vlan-name = default/);chomp $_;}open(FILE, ">AAA.txt" )or die ("prob a l'ouverture du fichier" );foreach (@save){print FILE $_."\n" if ($_);}close(FILE);

#****************************************************# II) Supprime les lignes vides#****************************************************

sub SupLigneVide {my ($file) = @_;my $temp = "$file.bak";rename($file, $temp);

open NOUVEAU, '>', $file;open ANCIEN, '<', $temp;

while(<ANCIEN>) { # ligne stockée automatiquement dans $_next if /^\s*$/;print NOUVEAU;}

close ANCIEN;close NOUVEAU;unlink $temp;}

&SupLigneVide("AAA.txt");

3 messages Message Rechercher dans ce sujet Filtrer

Forum Programmation

Annonces Google

Avocat du Permis à PointsPermis Annulé, Alcoolémie, PV Devis Gratuit | Tél 01.47.04.25.40 www.avocat-gc.com/permis

Téléchargez Google ChromeNouvelle méthode de navigation. Téléchargez Google Chrome. www.google.com/chrome

PC Ultra PerformantDécouvrez notre Nouvelle Config ! Processeurs Intel® Core™ i7 Extreme Materiel.net/gaming

Vous devez être connecté pour écrire un message !

Programmation

Dernières astuces

Comment convertir un WMA en MP3 ...

Comment bloquer la pub sur un si...

Comment partager des photos ?

Comment sauvegarder ses mails Th...

Comment retrouver la corbeille s...

Comment lire ou monter une image...

Comment lire un fichier MKV ?

Dernières questions

Skype: pas de connexion

Comment activer l'icone de telec...

Comment créer des points de rest...

Comment insérer une signature en...

Instalation sur mon portable mo...

Page de demarrage skype

Pour une aide à faire fonctionne...

Forum Hardware

I5 2500K LGA 1155 Quelle carte m...

2 CG différentes

Mise à jour PC

Mon Syncmaster Samsung 226bw est...

Amd phenom 2 x6

Température bloc alimentation pc

Questions sur une nouvelle Confi...

Forum Logiciels

Skype: pas de connexion

Retrouvé dossier image supprimé

UDK: est-ce une réalité?

Recherche un logiciel de gestion...

Comment créer des points de rest...

Quel logiciel pour obtenir ce pr...

Logiciel de BOOT automatisable p...

Forum Windows

disque dur - pas affiché dans po...

Windows XP, Son sur TV ?

Sauvegarder drivers et windows 7

Ralentissement PC

"ne répond pas "

Wlidcli.dll manque Windows Liv...

Probleme Reutilisation d'une ver...

Accès rapide : Windows 7 - Antivirus gratuit - Firefox 3.6 - VLC Media Player - CC Cleaner - Avast Antivirus - AVG Antivirus - Open Office

Comparateur de prix Carte prépayée Jeux video Vidéos High-tech

Mon compte Infos légales Publicité CGU Nous contacter Signaler un bug Boîte à idées Crédits Photo © M6 WEB 2011

Glossaire High-Tech : # A B C D E F G H I J K L M N O P Q R S T U V W X Y Z



3 sur 3 10/08/2011 08:51

Documents

Perl _ effacer ligne contenant chaine de caractère _(Clubic.com_)