Opened by gkm at 2011-03-10 16:00
User since
2011-03-10
2 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2011-03-10
2 Artikel
BenutzerIn
Hallo,
Danke für die Antwort. Hier ein paar infos. ich habe mehrere gedcom Dateien die sehr wenig überlappen. Diese möchte ich eine eine Datei kombinieren. Das einfachste wäre, einfach alle Daten der zweiten Datei in die erste mit neuen keys für individuals, notes, sources, usw zu kopieren. Mögliche Doppel kann ich per Hand aus dem neuen File entfernen. Ganz naiv habe ich folgendes probiert, aber wie gesagt ich kenne mich mit Perl oo nicht aus.
Ausserdem habe ich auch $indi = $_->copy; und $indi->$_->clone mit use Clone::Fast qw(clone); probiert.
Aber das ist wohl alles Unsinn. Wahrscheinlich muss man jeden tag einzeln kopieren.
Der folgende ged file kann zum testen als file1 und file2 benutzt werden.
Das Resultat sollte dann die Personen und Familien doppelt enthalten.
Danke für die Antwort. Hier ein paar infos. ich habe mehrere gedcom Dateien die sehr wenig überlappen. Diese möchte ich eine eine Datei kombinieren. Das einfachste wäre, einfach alle Daten der zweiten Datei in die erste mit neuen keys für individuals, notes, sources, usw zu kopieren. Mögliche Doppel kann ich per Hand aus dem neuen File entfernen. Ganz naiv habe ich folgendes probiert, aber wie gesagt ich kenne mich mit Perl oo nicht aus.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $ged = Gedcom->new(grammar_file => "gedcom-5.5.grammar",
gedcom_file => "file1.ged");
my $ge2 = Gedcom->new(grammar_file => "gedcom-5.5.grammar",
gedcom_file => "file2.ged");
#
# copy individuals
#
for ($ge2->get_individual) {
$indi = $ged->add_individual();
$indi = $_;
}
$ged->write("new.ged");
exit;
Ausserdem habe ich auch $indi = $_->copy; und $indi->$_->clone mit use Clone::Fast qw(clone); probiert.
Aber das ist wohl alles Unsinn. Wahrscheinlich muss man jeden tag einzeln kopieren.
Der folgende ged file kann zum testen als file1 und file2 benutzt werden.
Das Resultat sollte dann die Personen und Familien doppelt enthalten.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
1 HEAD
1 SOUR PAF 2.2
2 VERS 2.2
1 DEST PAF
1 DATE Friday, 20th November 1992
1 FILE ROYALS.GED
1 CHAR ANSEL
1 GEDC
2 VERS 5.5
2 FORM LINEAGE-LINKED
1 SUBM @SUBM1@
0 @SUBM1@ SUBM
1 NAME Denis R. Reid
1 RIN 1
0 @I1@ INDI
1 NAME Edward_VII /Wettin/
1 TITL King of England
1 SEX M
1 BIRT
2 DATE Tuesday, 9th November 1841
2 PLAC Buckingham,Palace,London,England
1 DEAT
2 DATE Friday, 6th May 1910
2 PLAC Buckingham,Palace,London,England
1 BURI
2 DATE Friday, 20th May 1910
2 PLAC Windsor,Berkshire,England
1 FAMS @F2@
1 FAMC @F1@
1 RIN 2
0 @I2@ INDI
1 NAME Alexandra of_Denmark "Alix"//
1 TITL Princess
1 SEX F
1 BIRT
2 DATE Sunday, 1st December 1844
2 PLAC Yellow Palace,Copenhagen,Denmark
1 DEAT
2 DATE Friday, 20th November 1925
2 PLAC Sandringham,,Norfolk,England
1 BURI
2 PLAC St. George Chap.,Windsor,Berkshire,England
1 FAMS @F2@
1 FAMC @F24@
1 RIN 3
0 @F1@ FAM
1 CHIL @I1@
1 DIV N
1 MARR
2 DATE Monday, 10th February 1840
2 PLAC Chapel Royal,St. James Palace,England
1 RIN 93
0 @F2@ FAM
1 HUSB @I1@
1 WIFE @I2@
1 MARR
2 DATE Tuesday, 10th March 1863
2 PLAC St. George Chap.,Windsor,,England
1 RIN 94
0 TRLR