milounix a écrit 13 commentaires

Super merci j'ai tout pigé.

Ne crois tu pas que pour la deuxième ligne il faut que var1 contienne un m ou M, que var3 contienne un point et que var4 contienne un s ou S pour que la condition soit valide?

merci

J'ai trié mon fichier sur le champ qui m'intéresse et j'obtiens un nouveau fichier de ce type:
rouge
bleu
rouge
vert
Mon problème est que je ne sais pas comment balayer ce nouveau fichier et comparer les lignes pour qu'il me récupère
que les valeurs identiques?

Voilà ce que j'ai réussi à faire:
$file="c:\\table.txt";
# Ouvre le fichier, qui s'il n'existe pas
open(INFILE,$file) or die "Impossible de trouver le fichier $file\n";
while () {$string=$_;

if ($string=~ /M/){
@liste=substr($_, 6, 8);

open ("NEWFILE", ">>mont.txt") or die ("Impossible d'ouvrir le fic. mont.txt");
while (<@liste>) { print NEWFILE "$_\n" ;# Ecrit toutes les lignes dans mont.txt
}
}
}

Je souhaite faire du perl car je suis sur Windows.

Merci

Je pense résoudre mon problème en cherchant seul sans que vous soyez obligé de vous y pencher comme je l'ai compris quand on post un message dans programmation Perl et qu'on se retrouve avec des solutions en Shell.

Tout va pour le mieux dans ce monde qui tourne vraiment de mieux en mieux.

A bientôt, peut être avec la solution.....

Réfléchissez avant de vous exprimer...

Je précise :

Fichier1:

Ma maison est rouge
mon toit doit etre bleu
ma cheminée fume
mon toit doit etre rouge

Je veux obtenir le fichier2 comme suit:

mon toit doit etre bleu
mon toit doit etre rouge

En gros je veux avoir dans le fichier2 les lignes du fichier1 ayant le même 2ème mot (par exemple).

Le tout en langage Perl

Merci

Je ne dispose que du fichier fichier1 et je veux créer un fichier fichier2 qui ne contient que les lignes identiques au fichier1 et le tout en Perl.

Merci,

ça marche nickel, j'aurai du y penser

merci.

Mon script:

my $smtp = Net::SMTP->new('MAILHUB',
Debug => 1,
Timeout => 30);
$smtp->mail('pascal@free.fr');
$smtp->to('titi@tri.fr');
$smtp->cc('toto@gmail.fr');
$smtp->data();
$smtp->datasend( << "EOM" );
From: <pascal@free.fr>
To: <titi@tri.fr>
Cc: <toto@free.fr>
Subject: Test
edfkjdsfdsf
sdfdsfdsff
EOM
$smtp->dataend();
$smtp->quit();

Ma question:
Pourquoi à la rèception je vois dans "De:pascal.fr" dans "A: titi.fr@free.fr" et dans "Cc: toto.fr@free.fr"

Cela est gênant si les personnes recevant ce Courriel veulent y répondre.

Merci par avance.

bonjour,

J'ai trouvé la bonne syntaxe pour Perl 5.000

my ($seconde,$minute,$heure,$jour,$mois,$annee,$wday,$yday,$isdst) = localtime(time);
@months= ("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12");
$mmm= $months[$mois];
print $mois;

En espèrant que cela pourra servir à quelqu'un d'autre.

Merci ça fonctionne très bien.

A bientôt.

c'est du sh

le fichier contient des lignes toto=xxxxx ti=ggg ta=oo

je souhaite récupérer toto ti ta en variable pour exècuter des commandes ensuite avec.

Merci ça marche ..

A+

Merci ça fonctionne super bien

Merci ça marche bien mais je souhaite faire la chose suivante:

zipper les fichiers d'origine de format "aaaaaa.txt" en "aaaaaa.gz" et pouvoir ensuite récupérer le nom du fichier de type "aaaaaa"

Merci