There are a couple of things you should be aware of in this code. First, you try to print out all the values each time you have read a line from the file. This will of course generate warnings about the use of uninitialized values.

Second, you should probabely use a datastructure to hold your data. As it stands now, you will only get the last record of data, and it will not be correct. It will probabely contain data from earlier records.

A reasonable datastructure to use in this case might possibly be to use a hash of hashes

%data = (user1 => { "User-Service" => "Framed-User",
                    "Framed-Protocoll" => "PPP",
                    # etc...
                  },
         user2 => { ... }
        );
[download]

yes that was the idea ... This maybe solves the problem.
See I program bit by bit try to do one thing then add a next one if the first one worked.

I will pump it in a hash, but then still the problem comes up. I THINK :)

My opinions may have changed,
but not the fact that I am right

When you use a hash, you can assign values to keys,
if there is no value, there is no key, then you can just
print out all the keys

And else you just check if the values are defined before
printing/doing something with them

GreetZ!,

ChOas

I didn't know my example was THAT bad

#!/usr/bin/perl -w

use strict;

my $UserID="Unknown";
my %UserData;
while (<>)
{ 
 next unless (/\w/io);               #Skip empty lines
 if (/^(\S+)\s+(\S+)\s*=\s*(\S+)/io) # Match <NewUser> <Tag>=<Data> to
+ $1,$2,$3
 {
  $UserID=$1;                        #Set $UserID to current user
  $UserData{$UserID}{$2}=$3;         #Assign the data to the user in a
+ hash
  next;                              #Next line, this was a special ca
+se
 };
 s/\s+|\,//iog;                      #Remove spaces, and comma's (God 
+forgive me for that one)
 my ($Key,$Val)=split /=/;           #Get the Key, and Data
 $UserData{$UserID}{$Key}=$Val;      #Assign it to the current user
};

#Just some printing of the data.
foreach my $User (keys %UserData)
{
 print "User: $User\n";
 foreach my $Data (keys %{$UserData{$User}})
 { 
  print "\t\"$Data\":\t$UserData{$User}{$Data}\n";
 };
};
[download]

choas@<Censored to protect myself from my employer>$ ./lal inpt
User: test2user
        "Password":     "Testpassword"
        "Framed-Protocol":      PPP
        "Ascend-Idle-Limit":    600
User: testuser
        "User-Service": Framed-user
        "Authentication-Type":  Unix-PW
        "Framed-Address":       222.222.222.222
        "Framed-Protocol":      PPP
        "Ascend-Metric":        3
        "Ascend-Route-IP":      Route-IP-Yes
        "Framed-Netmask":       255.255.255.255
        "Ascend-Idle-Limit":    600
[download]

ChOas

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

open FILE, "users.merit" or die "can't open users.merit.";

my $fieldreg = qr/([^(?:\s=\s)]+)\s=\s([^,]+)/;
my %users;
my $user;

while(<FILE>) {
    chomp;

    # next user?
    if(/(\S+)\s+$fieldreg/) {
        $user = $1;
        $users{$user}{$2} = $3;
        next;
    }
    if(/$fieldreg/) {
        $users{$user}{$1} = $2;
    }
}
print Dumper(\%users);
[download]

#!/usr/bin/perl -w
use strict;

my $count = 0;

do
{
                print "$count ";
                $count++;
}while($count < 10)
[download]

Erm, no offence. But I know how to use strict:)
The problem was with udefined variables. I wanted to print out, but I've builded a nice hash to store the data in.

But thanx for the effort.<BT>
--
My opinions may have changed,
but not the fact that I am right

Ok, i just thought that I would try to help with a simple example. I wasn't trying to say anything was wrong, with your example. Just trying to keep is simple. Hashes were a good way to go.
curtisb