reformating input file

I have an input csv file which data looks like the following:


csno,svgrp,antfc,cdmanbr_list1.ncs_c,cdmanbr_list1.nghbrantf ,cdmanbr_list1.pgn_c
,cdmanbr_list1.bandclass,cdmanbr_list1.anbeaplt,cdmanbr_list 1.nghb_conf,cdmanbr_
list1.hdhandoff
871,0,1,871,2,0,1900,n,0,n
871,0,1,871,3,1,1900,n,0,n
871,0,1,872,1,0,1900,n,0,n
871,0,1,872,3,1,1900,n,0,n
871,0,1,876,1,3,1900,n,0,n
871,0,1,877,1,3,1900,n,0,n
871,0,1,877,3,2,1900,n,0,n
871,0,1,882,1,1,1900,n,0,n
871,0,1,882,3,0,1900,n,0,n
871,0,1,885,3,3,1900,n,0,n
871,0,1,895,2,0,1900,n,0,n


The field names are in the first three lines and unique values for the
field names begin at line four. Each new line indicates a new record.

For the first two records below is the output I am trying to get. I
need to print out the record it belongs to in brackets. Like the
following:

u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[1]=871
cdmanbr_list1.nghbrantf[1]=2
cdmanbr_list1.pgn_c[1]=0
cdmanbr_list1.bandclass[1]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT


u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[1]=873
cdmanbr_list1.nghbrantf[1]=3
cdmanbr_list1.pgn_c[1]=1
cdmanbr_list1.bandclass[1]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT

The script so far is:

#!/usr/bin/perl
use Getopt::Std;

getopts('f:d:m: h');

sub usage()
{
print "USAGE: make_fci.pl -f -d service list>\n";
print " -m [-h help]\n";
}

if($opt_h)
{
usage();
exit(0);
}

$dialplan=$opt_d;
$mode = "";

if($opt_m =~ /^[idur]$/)
{
$mode=$opt_m;
} else {
usage();
exit(1);
}


if($opt_f ne "")
{
open(FIN,"$opt_f") || "Can't open file: $opt_f.\n Error: $!";
} else {
usage();
exit(1);
}

@DB_FIELDS = ("csno=","svgrp=","antfc=","cdmanbr_list1.ncs_c[1]=","cdmanb r_list1.nghbrantf[1]=","cdmanbr_list1.pgn_c[1]=","cdmanbr_li st1.bandclass[1]=","cdmanbr_list1.anbeaplt=","cdmanbr_list1. nghb_conf=","cdmanbr_list1.hdhandoff=");

print "fci\n";
print "$mode\n";
while()
{
$_ =~ s/ //g;
chomp();
@data = split(",",$_);
print $DB_FIELDS[0],"$data[0]\n";
print $DB_FIELDS[1],"$data[1]\n";
print $DB_FIELDS[2],"$data[2]\n";
print $DB_FIELDS[3],"$data[3]\n";
print $DB_FIELDS[4],"$data[4]\n";
print $DB_FIELDS[5],"$data[5]\n";
print $DB_FIELDS[6],"$data[6]\n";
print $DB_FIELDS[7],"n\n";
print $DB_FIELDS[8],"0\n";
print $DB_FIELDS[9],"n\n";
print "$mode\n";
print "EXIT\n";
print "$mode\n";
}
print "<\n";
print "<\n";
print "<\n";
close(FIN);

--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
http://learn.perl.org/

Re: reformating input file

Correction

> u
> csno=871
> svgrp=0
> antfc=1
> cdmanbr_list1.ncs_c[1]=871
> cdmanbr_list1.nghbrantf[1]=2
> cdmanbr_list1.pgn_c[1]=0
> cdmanbr_list1.bandclass[1]=1900
> cdmanbr_list1.anbeaplt=n
> cdmanbr_list1.nghb_conf=0
> cdmanbr_list1.hdhandoff=n
> u
> EXIT
>
>
> u
> csno=871
> svgrp=0
> antfc=1
> cdmanbr_list1.ncs_c[1]=873
> cdmanbr_list1.nghbrantf[1]=3
> cdmanbr_list1.pgn_c[1]=1
> cdmanbr_list1.bandclass[1]=1900
> cdmanbr_list1.anbeaplt=n
> cdmanbr_list1.nghb_conf=0
> cdmanbr_list1.hdhandoff=n
> u
> EXIT

u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[1]=871
cdmanbr_list1.nghbrantf[1]=2
cdmanbr_list1.pgn_c[1]=0
cdmanbr_list1.bandclass[1]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT


u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[2]=873
cdmanbr_list1.nghbrantf[2]=3
cdmanbr_list1.pgn_c[2]=1
cdmanbr_list1.bandclass[2]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT

--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
http://learn.perl.org/

Re: reformating input file

Last correction

>
> csno,svgrp,antfc,cdmanbr_list1.ncs_c,cdmanbr_list1.nghbrantf ,cdmanbr_list1.pgn_c
> ,cdmanbr_list1.bandclass,cdmanbr_list1.anbeaplt,cdmanbr_list 1.nghb_conf,cdmanbr_
> list1.hdhandoff
> 871,0,1,871,2,0,1900,n,0,n
> 871,0,1,871,3,1,1900,n,0,n
> 871,0,1,872,1,0,1900,n,0,n
> 871,0,1,872,3,1,1900,n,0,n
> 871,0,1,876,1,3,1900,n,0,n
> 871,0,1,877,1,3,1900,n,0,n
> 871,0,1,877,3,2,1900,n,0,n
> 871,0,1,882,1,1,1900,n,0,n
> 871,0,1,882,3,0,1900,n,0,n
> 871,0,1,885,3,3,1900,n,0,n
> 871,0,1,895,2,0,1900,n,0,n
>

Input format is:

871,0,1,871,2,0,1900,n,0,n
871,0,1,871,3,1,1900,n,0,n
871,0,1,872,1,0,1900,n,0,n
871,0,1,872,3,1,1900,n,0,n
871,0,1,876,1,3,1900,n,0,n
871,0,1,877,1,3,1900,n,0,n
871,0,1,877,3,2,1900,n,0,n
871,0,1,882,1,1,1900,n,0,n
871,0,1,882,3,0,1900,n,0,n
871,0,1,885,3,3,1900,n,0,n
871,0,1,895,2,0,1900,n,0,n

Thank you.

--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
http://learn.perl.org/

Re: reformating input file

On 5/17/11 Tue May 17, 2011 1:31 PM, "Chris Stinemetz"
scribbled:

> I have an input csv file which data looks like the following:
>
>
> csno,svgrp,antfc,cdmanbr_list1.ncs_c,cdmanbr_list1.nghbrantf ,cdmanbr_list1.pgn
> _c
> ,cdmanbr_list1.bandclass,cdmanbr_list1.anbeaplt,cdmanbr_list 1.nghb_conf,cdmanb
> r_
> list1.hdhandoff
> 871,0,1,871,2,0,1900,n,0,n
> 871,0,1,871,3,1,1900,n,0,n
> 871,0,1,872,1,0,1900,n,0,n
> 871,0,1,872,3,1,1900,n,0,n
> 871,0,1,876,1,3,1900,n,0,n
> 871,0,1,877,1,3,1900,n,0,n
> 871,0,1,877,3,2,1900,n,0,n
> 871,0,1,882,1,1,1900,n,0,n
> 871,0,1,882,3,0,1900,n,0,n
> 871,0,1,885,3,3,1900,n,0,n
> 871,0,1,895,2,0,1900,n,0,n
>
>
> The field names are in the first three lines and unique values for the
> field names begin at line four. Each new line indicates a new record.

In the actual file, is the first record really spread out over three lines,
or is that just the result of line-wrapping in your email message?

>
> For the first two records below is the output I am trying to get. I
> need to print out the record it belongs to in brackets. Like the
> following:

You show only '[1]' below. Do you want the '[1]' replaced by '[2]' in the
second record, '[3]' in the third record, etc.?

>
> u
> csno=871
> svgrp=0
> antfc=1
> cdmanbr_list1.ncs_c[1]=871
> cdmanbr_list1.nghbrantf[1]=2
> cdmanbr_list1.pgn_c[1]=0
> cdmanbr_list1.bandclass[1]=1900
> cdmanbr_list1.anbeaplt=n
> cdmanbr_list1.nghb_conf=0
> cdmanbr_list1.hdhandoff=n
> u
> EXIT
>
>
> u
> csno=871
> svgrp=0
> antfc=1
> cdmanbr_list1.ncs_c[1]=873
> cdmanbr_list1.nghbrantf[1]=3
> cdmanbr_list1.pgn_c[1]=1
> cdmanbr_list1.bandclass[1]=1900
> cdmanbr_list1.anbeaplt=n
> cdmanbr_list1.nghb_conf=0
> cdmanbr_list1.hdhandoff=n
> u
> EXIT
>
> The script so far is:
>
> #!/usr/bin/perl

You should have here:

use strict;
use warnings;

> use Getopt::Std;
>
> getopts('f:d:m: h');
>
> sub usage()
> {
> print "USAGE: make_fci.pl -f -d > service list>\n";
> print " -m [-h help]\n";
> }
>
> if($opt_h)
> {
> usage();
> exit(0);
> }
>
> $dialplan=$opt_d;
> $mode = "";
>
> if($opt_m =~ /^[idur]$/)
> {
> $mode=$opt_m;
> } else {
> usage();
> exit(1);
> }
>
>
> if($opt_f ne "")
> {
> open(FIN,"$opt_f") || "Can't open file: $opt_f.\n Error: $!";
> } else {
> usage();
> exit(1);
> }
>
> @DB_FIELDS =
> ("csno=","svgrp=","antfc=","cdmanbr_list1.ncs_c[1]=","cdmanb r_list1.nghbrantf[
> 1]=","cdmanbr_list1.pgn_c[1]=","cdmanbr_list1.bandclass[1]=" ,"cdmanbr_list1.an
> beaplt=","cdmanbr_list1.nghb_conf=","cdmanbr_list1.hdhandoff =");

With a little more work, you can read these headers from the first record!

>
> print "fci\n";
> print "$mode\n";
> while()
> {
> $_ =~ s/ //g;
> chomp();
> @data = split(",",$_);
> print $DB_FIELDS[0],"$data[0]\n";
> print $DB_FIELDS[1],"$data[1]\n";
> print $DB_FIELDS[2],"$data[2]\n";
> print $DB_FIELDS[3],"$data[3]\n";
> print $DB_FIELDS[4],"$data[4]\n";
> print $DB_FIELDS[5],"$data[5]\n";
> print $DB_FIELDS[6],"$data[6]\n";
> print $DB_FIELDS[7],"n\n";
> print $DB_FIELDS[8],"0\n";
> print $DB_FIELDS[9],"n\n";

All of those similar-looking lines are crying out for a loop.

> print "$mode\n";
> print "EXIT\n";
> print "$mode\n";
> }
> print "<\n";
> print "<\n";
> print "<\n";
> close(FIN);

You will want to keep a record counter that you increment for each record
read. What else you need to do depends upon your answers to the above
questions.



--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
http://learn.perl.org/

RE: reformating input file

> In the actual file, is the first record really spread out over three line=
s,
> or is that just the result of line-wrapping in your email message?

The first three lines can be omitted they will not be included in the input=
file.
And yes it was wrapped by my email. Sorry about that.

>=20
> For the first two records below is the output I am trying to get. I
> need to print out the record it belongs to in brackets. Like the
> following:

> You show only '[1]' below. Do you want the '[1]' replaced by '[2]' in the
> second record, '[3]' in the third record, etc.?

Yes this was a mistake on my part. How you explain it in the previous state=
ment is what I am trying to obtain.

>=20
> u
> csno=3D871
> svgrp=3D0
> antfc=3D1
> cdmanbr_list1.ncs_c[1]=3D871
> cdmanbr_list1.nghbrantf[1]=3D2
> cdmanbr_list1.pgn_c[1]=3D0
> cdmanbr_list1.bandclass[1]=3D1900
> cdmanbr_list1.anbeaplt=3Dn
> cdmanbr_list1.nghb_conf=3D0
> cdmanbr_list1.hdhandoff=3Dn
> u
> EXIT
>=20
>=20
> u
> csno=3D871
> svgrp=3D0
> antfc=3D1
> cdmanbr_list1.ncs_c[1]=3D873
> cdmanbr_list1.nghbrantf[1]=3D3
> cdmanbr_list1.pgn_c[1]=3D1
> cdmanbr_list1.bandclass[1]=3D1900
> cdmanbr_list1.anbeaplt=3Dn
> cdmanbr_list1.nghb_conf=3D0
> cdmanbr_list1.hdhandoff=3Dn
> u
> EXIT
>=20
> The script so far is:
>=20
> #!/usr/bin/perl

You should have here:

use strict;
use warnings;



> use Getopt::Std;
>=20
> getopts('f:d:m: h');
>=20
> sub usage()
> {
> print "USAGE: make_fci.pl -f -d > service list>\n";
> print " -m [-h help]\n";
> }
>=20
> if($opt_h)
> {
> usage();
> exit(0);
> }
>=20
> $dialplan=3D$opt_d;
> $mode =3D "";
>=20
> if($opt_m =3D~ /^[idur]$/)
> {
> $mode=3D$opt_m;
> } else {
> usage();
> exit(1);
> }
>=20
>=20
> if($opt_f ne "")
> {
> open(FIN,"$opt_f") || "Can't open file: $opt_f.\n Error: $!";
> } else {
> usage();
> exit(1);
> }
>=20
> @DB_FIELDS =
> ("csno=3D","svgrp=3D","antfc=3D","cdmanbr_list1.ncs_c[1]=3D" ,"cdmanbr_lis=
t1.nghbrantf[
> 1]=3D","cdmanbr_list1.pgn_c[1]=3D","cdmanbr_list1.bandclass[ 1]=3D","cdman=
br_list1.an
> beaplt=3D","cdmanbr_list1.nghb_conf=3D","cdmanbr_list1.hdhan doff=3D");

> With a little more work, you can read these headers from the first record=
!

How may I do this?

>=20
> print "fci\n";
> print "$mode\n";
> while()
> {
> $_ =3D~ s/ //g;
> chomp();
> @data =3D split(",",$_);
> print $DB_FIELDS[0],"$data[0]\n";
> print $DB_FIELDS[1],"$data[1]\n";
> print $DB_FIELDS[2],"$data[2]\n";
> print $DB_FIELDS[3],"$data[3]\n";
> print $DB_FIELDS[4],"$data[4]\n";
> print $DB_FIELDS[5],"$data[5]\n";
> print $DB_FIELDS[6],"$data[6]\n";
> print $DB_FIELDS[7],"n\n";
> print $DB_FIELDS[8],"0\n";
> print $DB_FIELDS[9],"n\n";

> All of those similar-looking lines are crying out for a loop.

Do you mind showing me how?

> print "$mode\n";
> print "EXIT\n";
> print "$mode\n";
> }
> print "<\n";
> print "<\n";
> print "<\n";
> close(FIN);

> You will want to keep a record counter that you increment for each record
> read. What else you need to do depends upon your answers to the above
> questions.

Do you mind showing me how to keep record counter?

Thank you





--=20
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
http://learn.perl.org/



--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
http://learn.perl.org/

Re: reformating input file

On 5/17/11 Tue May 17, 2011 2:01 PM, "Chris Stinemetz"
scribbled:

>> You show only '[1]' below. Do you want the '[1]' replaced by '[2]' in the
>> second record, '[3]' in the third record, etc.?
>
> Yes this was a mistake on my part. How you explain it in the previous
> statement is what I am trying to obtain.

>
>> With a little more work, you can read these headers from the first record!
>
> How may I do this?

Well you can't if the headers are not present in the file.


>> All of those similar-looking lines are crying out for a loop.
>
> Do you mind showing me how?

Something like this (untested):

my $record = 0;

while() {
chomp;
s/ //g;
my @print_data = ( @data[0..6], qw( n 0 n ) );
$record++;
for my $i ( 0 .. $#DB_FIELDS ) {
if( $i < 7 ) {
printf "%s[%d],%s\n", $DB_FIELDS[$i], $record, $print_data[$i];
}else{
printf "%s,%s\n", $DB_FIELDS[$i], $print_data[$i];
}
}
}

Change @DB_FIELDS elements so they do not contain [1] any more.

>
>> print "$mode\n";
>> print "EXIT\n";
>> print "$mode\n";
>> }
>> print "<\n";
>> print "<\n";
>> print "<\n";
>> close(FIN);
>
>> You will want to keep a record counter that you increment for each record
>> read. What else you need to do depends upon your answers to the above
>> questions.
>
> Do you mind showing me how to keep record counter?

As above





--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
http://learn.perl.org/

Re: reformating input file

On 17/05/2011 21:31, Chris Stinemetz wrote:
> I have an input csv file which data looks like the following:
>
>
> csno,svgrp,antfc,cdmanbr_list1.ncs_c,cdmanbr_list1.nghbrantf ,cdmanbr_list1.pgn_c
> ,cdmanbr_list1.bandclass,cdmanbr_list1.anbeaplt,cdmanbr_list 1.nghb_conf,cdmanbr_
> list1.hdhandoff
> 871,0,1,871,2,0,1900,n,0,n
> 871,0,1,871,3,1,1900,n,0,n
> 871,0,1,872,1,0,1900,n,0,n
> 871,0,1,872,3,1,1900,n,0,n
> 871,0,1,876,1,3,1900,n,0,n
> 871,0,1,877,1,3,1900,n,0,n
> 871,0,1,877,3,2,1900,n,0,n
> 871,0,1,882,1,1,1900,n,0,n
> 871,0,1,882,3,0,1900,n,0,n
> 871,0,1,885,3,3,1900,n,0,n
> 871,0,1,895,2,0,1900,n,0,n
>
>
> The field names are in the first three lines and unique values for the
> field names begin at line four. Each new line indicates a new record.
>
> For the first two records below is the output I am trying to get. I
> need to print out the record it belongs to in brackets. Like the
> following:
>
> u
> csno=871
> svgrp=0
> antfc=1
> cdmanbr_list1.ncs_c[1]=871
> cdmanbr_list1.nghbrantf[1]=2
> cdmanbr_list1.pgn_c[1]=0
> cdmanbr_list1.bandclass[1]=1900
> cdmanbr_list1.anbeaplt=n
> cdmanbr_list1.nghb_conf=0
> cdmanbr_list1.hdhandoff=n
> u
> EXIT
>
>
> u
> csno=871
> svgrp=0
> antfc=1
> cdmanbr_list1.ncs_c[1]=873
> cdmanbr_list1.nghbrantf[1]=3
> cdmanbr_list1.pgn_c[1]=1
> cdmanbr_list1.bandclass[1]=1900
> cdmanbr_list1.anbeaplt=n
> cdmanbr_list1.nghb_conf=0
> cdmanbr_list1.hdhandoff=n
> u
> EXIT
>
> The script so far is:
>
> #!/usr/bin/perl
> use Getopt::Std;
>
> getopts('f:d:m: h');
>
> sub usage()
> {
> print "USAGE: make_fci.pl -f -d > service list>\n";
> print " -m [-h help]\n";
> }
>
> if($opt_h)
> {
> usage();
> exit(0);
> }
>
> $dialplan=$opt_d;
> $mode = "";
>
> if($opt_m =~ /^[idur]$/)
> {
> $mode=$opt_m;
> } else {
> usage();
> exit(1);
> }
>
>
> if($opt_f ne "")
> {
> open(FIN,"$opt_f") || "Can't open file: $opt_f.\n Error: $!";
> } else {
> usage();
> exit(1);
> }
>
> @DB_FIELDS = ("csno=","svgrp=","antfc=","cdmanbr_list1.ncs_c[1]=","cdmanb r_list1.nghbrantf[1]=","cdmanbr_list1.pgn_c[1]=","cdmanbr_li st1.bandclass[1]=","cdmanbr_list1.anbeaplt=","cdmanbr_list1. nghb_conf=","cdmanbr_list1.hdhandoff=");
>
> print "fci\n";
> print "$mode\n";
> while()
> {
> $_ =~ s/ //g;
> chomp();
> @data = split(",",$_);
> print $DB_FIELDS[0],"$data[0]\n";
> print $DB_FIELDS[1],"$data[1]\n";
> print $DB_FIELDS[2],"$data[2]\n";
> print $DB_FIELDS[3],"$data[3]\n";
> print $DB_FIELDS[4],"$data[4]\n";
> print $DB_FIELDS[5],"$data[5]\n";
> print $DB_FIELDS[6],"$data[6]\n";
> print $DB_FIELDS[7],"n\n";
> print $DB_FIELDS[8],"0\n";
> print $DB_FIELDS[9],"n\n";
> print "$mode\n";
> print "EXIT\n";
> print "$mode\n";
> }
> print "<\n";
> print "<\n";
> print "<\n";
> close(FIN);

Hi Chris

You seem very unsure of your requirement, but this is another
application for Text::CSV. The program below seems to do what you want.
It assumes the column names are in the first line, but if they are not
then you must hard-code them.

Also, the selection of which fields have an index suffixed seems very
unobvious. I have written a regex to conform with what you have written,
but I cannot be certain that that is what is required.

HTH,

Rob


use strict;
use warnings;

use Text::CSV;

my $csv = Text::CSV->new;

my $names = $csv->getline(*DATA);
$csv->column_names(@$names);

my $recno;

while (my $record = $csv->getline_hr (*DATA)) {

$recno++;

print "u\n";

foreach my $field (@$names) {
if ($field =~ /^cdmanbr_list1\.(?:ncs_c|nghbrantf|pgn_c|bandclass)$/) {
print "${field}[$recno]=$record->{$field}\n";
}
else {
print "${field}=$record->{$field}\n";
}
}

print "u\n";
print "EXIT\n";
print "\n\n";
}



__DATA__
csno,svgrp,antfc,cdmanbr_list1.ncs_c,cdmanbr_list1.nghbrantf ,cdmanbr_list1.pgn_c,cdmanbr_list1.bandclass,cdmanbr_list1.a nbeaplt,cdmanbr_list1.nghb_conf,cdmanbr_list1.hdhandoff
871,0,1,871,2,0,1900,n,0,n
871,0,1,871,3,1,1900,n,0,n
871,0,1,872,1,0,1900,n,0,n
871,0,1,872,3,1,1900,n,0,n
871,0,1,876,1,3,1900,n,0,n
871,0,1,877,1,3,1900,n,0,n
871,0,1,877,3,2,1900,n,0,n
871,0,1,882,1,1,1900,n,0,n
871,0,1,882,3,0,1900,n,0,n
871,0,1,885,3,3,1900,n,0,n
871,0,1,895,2,0,1900,n,0,n

**OUTPUT**

u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[1]=871
cdmanbr_list1.nghbrantf[1]=2
cdmanbr_list1.pgn_c[1]=0
cdmanbr_list1.bandclass[1]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT


u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[2]=871
cdmanbr_list1.nghbrantf[2]=3
cdmanbr_list1.pgn_c[2]=1
cdmanbr_list1.bandclass[2]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT


u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[3]=872
cdmanbr_list1.nghbrantf[3]=1
cdmanbr_list1.pgn_c[3]=0
cdmanbr_list1.bandclass[3]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT


u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[4]=872
cdmanbr_list1.nghbrantf[4]=3
cdmanbr_list1.pgn_c[4]=1
cdmanbr_list1.bandclass[4]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT


u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[5]=876
cdmanbr_list1.nghbrantf[5]=1
cdmanbr_list1.pgn_c[5]=3
cdmanbr_list1.bandclass[5]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT


u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[6]=877
cdmanbr_list1.nghbrantf[6]=1
cdmanbr_list1.pgn_c[6]=3
cdmanbr_list1.bandclass[6]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT


u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[7]=877
cdmanbr_list1.nghbrantf[7]=3
cdmanbr_list1.pgn_c[7]=2
cdmanbr_list1.bandclass[7]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT


u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[8]=882
cdmanbr_list1.nghbrantf[8]=1
cdmanbr_list1.pgn_c[8]=1
cdmanbr_list1.bandclass[8]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT


u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[9]=882
cdmanbr_list1.nghbrantf[9]=3
cdmanbr_list1.pgn_c[9]=0
cdmanbr_list1.bandclass[9]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT


u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[10]=885
cdmanbr_list1.nghbrantf[10]=3
cdmanbr_list1.pgn_c[10]=3
cdmanbr_list1.bandclass[10]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT


u
csno=871
svgrp=0
antfc=1
cdmanbr_list1.ncs_c[11]=895
cdmanbr_list1.nghbrantf[11]=2
cdmanbr_list1.pgn_c[11]=0
cdmanbr_list1.bandclass[11]=1900
cdmanbr_list1.anbeaplt=n
cdmanbr_list1.nghb_conf=0
cdmanbr_list1.hdhandoff=n
u
EXIT



Tool completed successfully

--
To unsubscribe, e-mail: beginners-unsubscribe@perl.org
For additional commands, e-mail: beginners-help@perl.org
http://learn.perl.org/