Difference between revisions of "Family Origins Export.pl"
From Organic Design wiki
| Line 1: | Line 1: | ||
| + | <perl> | ||
#!/usr/bin/perl -w | #!/usr/bin/perl -w | ||
use Cwd; | use Cwd; | ||
| Line 26: | Line 27: | ||
print "\n\n$i entries found.\n"; | print "\n\n$i entries found.\n"; | ||
| + | </perl> | ||
| + | [[Category:PERL]] | ||
Revision as of 13:09, 8 December 2011
<perl>
- !/usr/bin/perl -w
use Cwd;
open(FO, '<', cwd.'/family-tree.txt') or die "Can't open 'FO'!"; open(INDEX, '>', cwd.'/exported/index.txt') or die "Can't open 'INDEX'!"; $i = 0; while (<FO>) { if (/^(.*),\s*(.+?)\s+\(([MF ]+)\)/) { ($surname, $name, $sex) = ($1, $2, $3); $surname =~ s/[\"]/\'/g; $surname =~ s/[\(\)?\\\/:]//g; $name =~ s/[\"]/\'/g; $name =~ s/[\(\)?\\\/:]//g; print "$surname,$name\n"; close FILE; open (FILE, '>', cwd."/exported/$surname,$name.txt") or die "Couldn't open '$surname,$name.txt'!"; print FILE "sex:$sex\n"; print INDEX "$surname,$name\n"; $i++; } if (/^\t(.+)\t(.+)$/) { print FILE "$1:$2\n" } } close FO; close FILE; close INDEX;
print "\n\n$i entries found.\n"; </perl>
