Have a look at Text::CSV, and then once you've read through its documentation feel free to follow up with questions that remain unanswered.

If you would look at your two files as tables in a database, then it becomes a matter of a simple SQL query to extract the info and export it to a new table with all info combined.

I suspect that you will do well to learn about Perl regular expressions (RE) (perlfaq6), as well, if you don't already.

--Chris

#!/usr/bin/perl -Tw
use Perl::Always or die;
my $perl_version = (5.12.5);
print $perl_version;

You would read the names and phone numbers from file 1 into a hash with the names as keys and then do a lookup on the hash while reading file 2.

open FILEHANDLE, "/root/Desktop/file1.txt";

open FILEHANDLE2,">>", "/root/Desktop/file2.txt";




    while (my $line = <FILEHANDLE>) {

    $line =~ /RegEx/i;

    my $telefonnummer = $1;

    my $name = $2;



        foreach (my $line2 = <FILEHANDLE2>) {
    
        $line2 =~ /RegExp/i;
        my $name2 = "$1,$2";


        if ($name =~ /$name2/i) {
    
        $line2 = "$line2;+49$telefonnummer"; } 
}
}
[download]

The usual way to do this, is to first read the first file into a hash, basically creating a phone directory:

open my $fh, "<", "/root/Desktop/file1.txt";
my %verzeichnis;
while (my $line = <$fh>) {
    $line =~ /RegEx/i;
    my $telefonnummer = $1;
    my $name = $2;
    $verzeichnis{lc $name} = $telefonnummer;
}
close $fh;
[download]

In a second loop (rather than a nested loop) afterwards, you would extract the name from each line, do a lookup in the hash and then write the result to a new file. At the end you can then replace your second file with the new file.

open my $fh2, "<", "/root/Desktop/file2.txt";
open my $new, ">", "/root/Desktop/file2.new";
while (my $line2 = <$fh2>) {
    chomp $line2;
    $line2 =~ /RegEx/i;
    my $name2 = "$1,$2";
    print $new $line2;
    if( defined $verzeichnis{lc $name2} ) {
        print $new ";+49".$verzeichnis{lc $name2}; 
    }
    print $new "\n";
}
close $fh2;
close $new;
[download]

Updated a few of typos.

I have a few questions to your code. what exactly does the code  $verzeichnis{lc $name} = $telefonnummer; and

 
    if( defined $verzeichnis{lc $name2} ) {
        print $new ";+49".$verzeichnis{lc $name2}; 
    }
[download]

does?
I haven't worked with  defined and  lc yet...
Thanks for your efforts!

One problem you will have, if you try to update files 2, is that you can not write a new, longer line, into the middle of file 2, without overwriting the following data:

# Original file 2:
Bloggs,Fred\n
Conner,Sarah\n
Bloggs,Joe\n

# file 2 after adding Fred's phone Number
Bloggs,Fred,0234687821\n
h\n
Bloggs,Joe\n
[download]

As you can see, poor old Sarah Conner, has been terminated. Follow the advice to build a new file, and if required remove (or rename) the old file 2, and rename the new one, to the original name, when done.

Cheers,
R.

Pereant, qui ante nos nostra dixerunt!

how would the code be for editing the original file?
just because i want to know how that would work :)

You can use reverse to reverse a hash: keys become values, values become keys. One has to be careful though, if there are duplicate values (two persons sharing a phone number) only one entry will survive. In addition, if the values are not strings, Perl will stringify them, which can have funny effects.

You can also use grep like this:

my @keys = grep { $hash{$_} eq $some_value } keys %hash;
[download]

which can return multiple values keys.

Update: some example

my %verzeichnis = (
    peter => 12345,
    paul  => 34567,
    mary  => 12345
);

my @names = grep { $verzeichnis{$_} eq '12345' } keys %verzeichnis;
print "@names\n";

my %rueckwaertssuche = reverse %verzeichnis;
print $rueckwaertssuche{'12345'}, "\n"; # lost mary
[download]