Perl

[perl] est ce correct ??

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [perl] est ce correct ??

Tomate

salut,

alors je vous explique mon pb

j ai 2 fichiers, file1 et file2 qui contiennent chacun des numeros (numeros de 10 chiffres/ligne)
j aimerai connaitre les numeros qui sont dans file1 ET PAS dans files2

j ai fait ca :

Code :

#! /usr/bin/perl
open(ESU, 'list_esu') || die "impossible";
open(TRM, 'list_trm') || die "impossible";
while ($line = <ESU> )
{
$res = grep $line, <TRM>;
if ($res)
{
print $line;
}
}

mais je ne suis pas tres sur du resultat ue ca sort (en l occurence 1 seul numero sachant que les fichier font 3 et 10Mo )

voilou

---------------
:: Light is Right ::

Publicité

pospos

ton grep va lire tout le fichier la premiere fois qu'il va être appelé, et ensuite il ne sortira plus rien puisqu'il aura atteind al fin du fichier.

il te faut faire:

Code :

#! /usr/bin/perl
use strict;
open(ESU, 'list_esu') || die "impossible";
open(TRM, 'list_trm') || die "impossible";
my %existe_TRM = map {$_ => 1} <TRM>;
while ($line = <ESU> ) {
if (not exists $existe_TRM{$line}) {
# pas dans ce fichier
print $line;
}
}

ou alors:

Code :

open...
my $TRM = join("|", <TRM> );
print grep {!/$TRM/o} <ESU>;

(non testé...)

Tomate

je teste merci

---------------
:: Light is Right ::

Tomate

pospos a écrit :

ton grep va lire tout le fichier la premiere fois qu'il va être appelé, et ensuite il ne sortira plus rien puisqu'il aura atteind al fin du fichier.

il te faut faire:

Code :

#! /usr/bin/perl
use strict;
open(ESU, 'list_esu') || die "impossible";
open(TRM, 'list_trm') || die "impossible";
my %existe_TRM = map {$_ => 1} <TRM>;
while ($line = <ESU> ) {
if (not exists $existe_TRM{$line}) {
# pas dans ce fichier
print $line;
}
}

ou alors:

Code :

open...
my $TRM = join("|", <TRM> );
print grep {!/$TRM/o} <ESU>;

(non testé...)

tomate@gate:~/taf$ ./test.pl
Global symbol "$line" requires explicit package name at ./test.pl line 9.
Global symbol "$line" requires explicit package name at ./test.pl line 11.
Global symbol "$line" requires explicit package name at ./test.pl line 13.
Execution of ./test.pl aborted due to compilation errors.

---------------
:: Light is Right ::

Tomate

bon ct a cause du use strict
mais ca me sort tous les numeros

---------------
:: Light is Right ::

anapajari

s/travail/glanding on hfr/gs;

Code :

tomate@gate:~/taf$ ./test.pl
Global symbol "$line" requires explicit package name at ./test.pl line 9.
Global symbol "$line" requires explicit package name at ./test.pl line 11.
Global symbol "$line" requires explicit package name at ./test.pl line 13.
Execution of ./test.pl aborted due to compilation errors.

c'est pas a cause du "use strict" c'est à cause du "je code comme un cochon je déclare pas mes variables"
et si ça sort tout c'est peut-être que les deux fichiers ont été inversés...

Message édité par anapajari le 30-04-2004 à 15:16:24

Tomate

anapajari a écrit :

Code :

tomate@gate:~/taf$ ./test.pl
Global symbol "$line" requires explicit package name at ./test.pl line 9.
Global symbol "$line" requires explicit package name at ./test.pl line 11.
Global symbol "$line" requires explicit package name at ./test.pl line 13.
Execution of ./test.pl aborted due to compilation errors.

c'est pas a cause du "use strict" c'est à cause du "je code comme un cochon je déclare pas mes variables"
et si ça sort tout c'est peut-être que les deux fichiers ont été inversés...

nan mais c est pas grave je vais le faire a la porc en shell

c est un truc qui sera lancé une seule fois donc si ca prend 10h je m en fou

merci kan meme en tout cas

---------------
:: Light is Right ::

matafan

!/usr/bin/perl -w

use strict;

my ($f1, $f2) = @ARGV;
my %ref;

unless ($#ARGV == 1 && $f1 && $f2) {
print STDERR "Usage: pl <f1> <f2>\n";
exit 1;
}

open(FILE, $f2) or die "Cannot open file $f2: $!";
map { $ref{$_} = 1 } <FILE>;
close(FILE);

open(FILE, $f1) or die "Cannot open file $f1: $!";
map { print unless $ref{$_} } <FILE>;
close(FILE);

Tomate

ca marche pas (ca sort tous les numeros)

Message édité par Tomate le 01-05-2004 à 19:49:10

---------------
:: Light is Right ::

matafan

/home/nicolas/tmp% cat f1
1978
1976
1950
1951
/home/nicolas/tmp% cat f2
1976
1978
/home/nicolas/tmp% ./pl f1 f2
1950
1951

C'est pas ce que tu veux ?

Message édité par matafan le 01-05-2004 à 22:54:20

FORUM HardWare.fr

Programmation

Perl

[perl] est ce correct ??

Sujets relatifs
interfacer du perl en c++	[Perl] Besoin d'un ti coup de pouce pour une regexp
Pb perl	[perl] Faire une page d'attente en CGI
perl et linux	perl et df
[PERL] supprimer un caractere d'une chaine	ssh et perl
[Perl] Aide pour logique en POO	[Perl] Arrêter un programme proprement lors d'un Ctrl + C
Plus de sujets relatifs à : [perl] est ce correct ??

Page générée en 0.057 secondes