Frank Wiegand haoess
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <?xml version="1.0" encoding="UTF-8" standalone="yes"?> | |
| <?xml-model href="http://www.w3.org/ns/prov.xsd"?> | |
| <prov:document xmlns:prov="http://www.w3.org/ns/prov#" xmlns:jp="http://www.jeanpaul-edition.de/ns"> | |
| <prov:entity prov:id="jp:e1"> | |
| <prov:label>E. Berend: 3. Abteilung der Historisch-kritischen Ausgabe (1952–1964)</prov:label> | |
| <prov:location>Berlin</prov:location> | |
| <prov:type>Druck-Edition</prov:type> | |
| </prov:entity> | |
| <prov:activity prov:id="jp:a1"> |
haoess
/ chrono2csv.xsl
Created
November 4, 2021 09:38
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <?xml version="1.0" encoding="UTF-8"?> | |
| <!-- | |
| This XSL stylesheet transforms entries from the EHD chronology | |
| to a CSV data sheet. | |
| See https://edition-humboldt.de/chronologie/index.xql | |
| "THE BEER-WARE LICENSE" (Revision 42): |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| use 5.012; | |
| use warnings; | |
| binmode STDOUT, ':utf8'; | |
| use XML::LibXML; | |
| use XML::LibXSLT; |
haoess
/ gist:4978693
Created
February 18, 2013 16:43
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| sub url5005 { | |
| my ($year, $page) = @_; | |
| ($page) = $page =~ /(\d+)/; | |
| no warnings 'uninitialized'; | |
| if ( $year !~ /\A18\d\d\z/ || $page !~ /\A\d+\z/ ) { | |
| return ''; | |
| } | |
| my $m = WWW::Mechanize->new( agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3 ( .NET CLR 3.5.30729)' ); |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| let mapleader = "," | |
| nnoremap <leader>xp :call Xpath()<cr> | |
| function! Xpath() | |
| " Needs to get the real file name for the quickfix window | |
| let realname = bufname( "%" ) | |
| " Write the buffer to a temp file | |
| let filename = tempname() |
haoess
/ formula.pl
Created
July 4, 2011 08:47
Create beautiful PNG images from TeX formulae via Perl CGI
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl | |
| use warnings; | |
| use strict; | |
| use Cwd; | |
| use CGI; | |
| use File::Path qw( rmtree ); | |
| use File::Slurp qw( read_file ); | |
| use File::Temp qw( tempdir tempfile ); |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/perl -w | |
| $buddyicons = '[http://www\.flickr\.com/photos/30482855@N04]' x 1396; | |
| $rx = qr{.*\[(.*/photos/[^\]/]*)/?\]\s*\.(.*)}; | |
| $buddyicons =~ $rx; |
haoess
/ gist:799281
Created
January 27, 2011 21:12
Häufigkeiten der vergebenen Journal-IDs (sortiert)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| perl -nE '/&journals;#(jour\d{4})/ && $j{$1}++; END { printf "%s: %d\n", $_, $j{$_} for sort { $j{$a}<=> $j{$b} } keys %j }' */*Z.xml |
haoess
/ gist:789552
Created
January 21, 2011 11:23
XML-Elemente aus dem Dingler, die *nicht* bei der Nurtext-Fassung durch Leerraum abgetrennt werden dürfen
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| bibl | |
| abbr | |
| biblFull | |
| biblScope | |
| biblStruct | |
| char | |
| charDecl | |
| charName | |
| charProp | |
| choice |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ab | |
| abbr | |
| add | |
| addName | |
| author | |
| back | |
| bibl | |
| biblScope | |
| biblStruct | |
| birth |
NewerOlder