thanx a lot for your help rob!!
the idea with the hash.....so simple!
christophe folschette
Rob wrote:
> Christophe
>
> I think using Tie::File is overkill here. Try this:
>
> # Merge the two files into a single hash
> #
> for $file ( 'file2.dat', 'file1.dat' )
> {
> open FILE, "< $file";
>
> while ( <FILE> )
> {
> chomp;
> ($key, $val) = split /:\s+/;
> $data{$key} = $val;
> }
>
> close FILE;
> }
>
> # and splat it out again
> #
> open FILE, "> file3.dat";
> printf FILE "%s: %s\n", $_, $data{$_}
> for (sort keys %data);
> close FILE;
>
> I'm not sure about your 'some text'. If you're allowing comment lines
> starting with a hash then
>
> next if /^#/;
>
> at the start of the inner loop will do. Now if you want the comments
> retaining, that's another matter :))
>
> I never like posting just a solution on the beginners' group, but I don't
> think I'm doing anything obscure here that needs explaining. Tell me if
> I'm wrong.
>
> HTH.
>
> Cheers,
>
> Rob
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
