(no subject)

[ocehb]

имеется два файла, вытащить из них совпадающие слова.


проблема в определении "слова". пойдем по легкому пути: "\w+", и тогда:

# perl -e 'open A1,$ARGV[0]; open A2,$ARGV[1];
 while () { $hash{$&} = 1 while (m|\w+|g); }
 while () { $hash{$&}++ while (m|\w+|g); }
 foreach (grep { $hash{$_} > 1 && m|\D| } keys %hash) { printf "$_ "; }' /etc/passwd /etc/group
nobody rpm nscd nfsnobody postgres haldaemon games svn squid sshd bin mailnull postfix apache dbus xfs named mailman uucp rpc mysql news netdump gdm ldap smmsp rpcuser pcap gopher root ntp adm vcsa lp x ftp mail dovecot daemon exim webalizer
# 

или, если покрасивше:

#! perl
#

use strict;

open A1,$ARGV[0] or
        die sprintf "%s error: can't open '%s': %s\n",$0,$ARGV[0],$!;

open A2,$ARGV[1] or
        die sprintf "%s error: can't open '%s': %s\n",$0,$ARGV[1],$!;

my %hash;

while (<A1>) {
        $hash{$&} = 1 while (m|\w+|g);
}

while (<A2>) {
        $hash{$&}++ while (m|\w+|g);
}

close (A1); close (A2);

foreach (grep { $hash{$_} > 1 && m|\D| } keys %hash) {
        print "$_ ";
}

exit;

Comments

[ocehb]

ну добавить тогда &&= 0 во втором while и добавить проверки на 0 в grep.

[ocehb]

а вывести как? :)