1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#!/usr/bin/perl
my @name= ('ftp', 'http', 'KK', 'gre', 'icmp', 'eigrp', 'ipinip', 'ipsec', 'ospf', 'bgp', 'cuseeme', 'dhcp',
'dns', 'finger', 'gopher', 'secure-http', 'imap', 'secure-imap', 'irc', 'secure-irc', 'kerberos',
'l2tp', 'ldap', 'secure-ldap', 'sqlserver', 'netbios', 'nfs', 'nntp', 'secure-nntp', 'notes',
'ntp', 'pop3', 'secure-pop3', 'pptp', 'rip', 'rsvp', 'smtp', 'snmp', 'socks',
'ssh', 'syslog', 'telnet', 'secure-telnet', 'secure-ftp', 'xwindows', 'printer', 'novadigm',
'tftp', 'exchange', 'vdoliv', 'sqlnet', 'rcmd', 'netshow', 'sunrpc', 'streamwork', 'citrix',
'fasttrack', 'gnutella', 'kazaa2', 'custom01', 'custom02', 'custom03', 'custom04',
'custom05', 'custom06', 'custom07', 'custom08', 'custom09', 'custom10', 'rtsp', 'rtp',
'mgcp', 'skinny', 'h323', 'sip', 'rtcp', 'edonkey', 'winmx', 'unknown');
open(FILE,"<test.txt") or die"open: $!";
my(@lines,$line,@words,$word,%total);
defined (@lines=<FILE>);
my $i=0;
foreach $line (@lines) {
@words = split( /\W+/, $line );
foreach $word (@words)
{
$word =~ tr/A-Z/a-z/;
if((lc($name[$i]) eq $word)){
print "$name[$i] \n"; #le noms que je veux afficher
}
$i++;
}
}
close(FILE); |
