Chaps,
Thanks for all your comments, I am strill trying to resolve my inital
query. Any help would be much appreciated.
I have the below program. i can match the entries in actzone.txt file in
bluealias.txt and print it.
what i would like to achive is to print the alias name and the reated wwn
for each zone that matched in 2 formats in different file ex. as below.
Please could you help me achieve this.
outputfile1
------------
zone : tstdetdr_B_AARA_30767_CL45
alias: tstdetdr_B_AARA
10:00:00:00:c7:d5:cd:16:c6
alias: 30767_CL45
50:00:00:08:44:9a:fb:64:90
outputfile2
--------------
zone : tstdetdr_B_AARA_30767_CL45, alias : tstdetdr_B_AARA,
10:00:00:00:c7:d5:cd:16:c6,alias: 30767_CL45, 50:00:00:08:44:9a:fb:64:90
----
#!/usr/bin/perl
use strict;
use warnings;
my (@all, @actzone);
open (FILE, "bluealias.txt") || die "can't open alias $! \n";
while (<FILE>) {
s/\s+//g;
push @all,$_;
}
chomp @all;
open (FILE, "actzone.txt" ) || die "can't open zone: $! \n";
while (<FILE>) {
s/\s+//g;
push @actzone,$_;
}
chomp @actzone;
for my $zone (@actzone) {
chomp $zone;
for my $all (@all) {
chomp $all;
if ($zone =~ $all) {
print "$all \n";
#print "$`";
}
}
}
--
file: bluealias.txt
zone: tstdetdr_B_AARA_30767_CL45
zone: artdetdr_B_AARA_30767_CL45
zone: dbtdetdr_B_AARA_30767_CL45
zone: tstdetdr_B_AARA_30767_CL45
10:00:00:00:c7:d5:cd:16:c6
50:00:00:08:44:9a:fb:79:90
zone: artdetdr_B_AARA_30767_CL45
10:00:00:00:c7:d5:cd:16:c9
50:00:00:08:44:9a:fb:64:90
zone: dbtdetdr_B_AARA_30767_CL45
10:00:00:00:c7:d5:cd:16:ca
50:00:00:08:44:9a:fb:74:90
zone: tstdetdr_B_AARA_30767_CL45
tstdetdr_B_AARA,30767_CL45
zone: artdetdr_B_AARA_30767_CL45
artdetdr_B,AARA_30767_CL45
zone: dbtdetdr_B_AARA_30767_CL45
dbtdetdr_B,AARA_30767_CL45
alias: tstdetdr_B_AARA
10:00:00:00:c7:d5:cd:16:c6
alias 30767_CL45
50:00:00:08:44:9a:fb:64:90
alias: artdetdr_B_AARA
10:00:00:00:c7:d5:cd:16:c9
alias: AARA_30767_CL45
50:00:00:08:44:9a:fb:64:90
---
file: actzone.txt
zone: tstdetdr_B_AARA_30767_CL45
zone: artdetdr_B_AARA_30767_CL45
---
Thanks
Sj
On Fri, Aug 17, 2012 at 3:52 PM, Shawn H Corey <shawnhco...@gmail.com>wrote:
> On Fri, 17 Aug 2012 15:10:03 +0100
> jet speed <speedj...@googlemail.com> wrote:
>
> > > Your code is lacking indentation.
>
> Perhaps you should consider using Perl::Tidy to automatically format
> your code.
>
> http://search.cpan.org/~shancock/Perl-Tidy-20120714/lib/Perl/Tidy.pm
>
>
> --
> Just my 0.00000002 million dollars worth,
> Shawn
>
> Programming is as much about organization and communication
> as it is about coding.
>
> _Perl links_
> official site : http://www.perl.org/
> beginners' help : http://learn.perl.org/faq/beginners.html
> advance help : http://perlmonks.org/
> documentation : http://perldoc.perl.org/
> news : http://perlsphere.net/
> repository : http://www.cpan.org/
> blog : http://blogs.perl.org/
> regional groups : http://www.pm.org/
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
