On Sat, Apr 19, 2008 at 2:21 PM, Manoj <[EMAIL PROTECTED]> wrote:
> Thanks Jeff... :)
> Is this all mentioned in any Perl books?
snip
You can find information about HoH (hash of hashes) and other advanced
data structures in The Camel*, The Llama**, and the docs that come
with Perl***.
* http://w
That was really helpful...still reading...
Now I think its still very much distance to the opening door of Perl
programming.
Thanks all :)
-Original Message-
From: John W. Krahn [mailto:[EMAIL PROTECTED]
Sent: Friday, April 18, 2008 1:38 PM
To: Perl Beginners
Subject: Re: CSV duplicate
Thanks Jeff... :)
Is this all mentioned in any Perl books?
-Original Message-
From: Jeff Pang [mailto:[EMAIL PROTECTED]
Sent: Saturday, April 19, 2008 8:47 AM
To: Perl Beginners
Subject: Re:Re: CSV duplicate
=Original Message=
>From :[EMAIL PROTECTED];
>To :John W. Krahn <[EMA
[EMAIL PROTECTED] wrote:
From: "John W. Krahn" <[EMAIL PROTECTED]>
This should be close to what you want:
my %data;
while ( ) {
chomp;
for ( map [ split /=/ ], ( split /\s*,\s*/ )[ 0, -1 ] ) {
$data{ $_->[ 0 ] }{ $_->[ 1 ] }++;
}
}
for my $type (
D]>
Date: Thursday, April 17, 2008 1:50 am
Subject: Re: CSV duplicate
To: Perl Beginners
> Manoj wrote:
> > Hello List,
>
> Hello,
>
> > Scenario:
> > CSV file
> > Host=Nirus,TCPIP,inxcp011,connected,Serv=rxmcpp1
> > Host=Nirus,TCPIP,inxcp011,
Manoj wrote:
Hello List,
Hello,
Scenario:
CSV file
Host=Nirus,TCPIP,inxcp011,connected,Serv=rxmcpp1
Host=Nirus,TCPIP,inxcp011,connected, Serv=rxmcpp2
Host=Rome,TCPIP,inxcp011,connected, Serv=rxmcpp1
Host=Nirus,TCPIP,inxcp011,connected, Serv=rxmcpp1
Host=Nirus,TCPIP,inxcp011,connected, Serv=rx
#!/usr/bin/perl -w
my (%hosts, %servs);
while () {
chomp;
my ($host, $server) = (split /,\s*/)[0,4];
$hosts{$host}++ if ($host);
$servs{$server}++ if ($server);
}
my @dup_hosts = map { substr $_,0,5,''; $_ }
grep { $hosts{$_} > 1 } keys %hosts;
my @dup_servs = map { substr $_,
> -Original Message-
> From: Manoj [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, April 16, 2008 12:00
> To: 'Perl Beginners'
> Subject: CSV duplicate
>
> Hello List,
>
>
>
> Scenario:
>
> CSV file
>
> Host=Nirus,TCPIP,inxcp011,connected,Serv=rxmcpp1
>
> Host=Nirus,TCPIP,inxcp011,co
