Skip to content

Instantly share code, notes, and snippets.

View luelista's full-sized avatar

Mira luelista

52 followers · 71 following
View GitHub Profile
@luelista
luelista / view_hexfile.pl
Created December 28, 2010 17:10
prints IBM hex files in a formatted way
#!/bin/perl
# view_hexfile.pl
# prints IBM hex files in a formatted way
# Max Weller, http://max-weller.de
while(<>) {
if($_=~/^\s*:([A-F0-9]+)\s*$/) {
my @data = unpack("(A2)*", $1);
print $_," " for (@data);
print " | ";
@luelista
luelista / mag_quad03.pl
Created December 28, 2010 17:14
mag_quad03.pl
#!/bin/perl
# mag_quad03.pl
# Max Weller, http://max-weller.de
my $count = $ARGV[0];
if(!$count || $count < 1 || $count % 2 == 0) {
print "Usage: perl $0 count\n\n";
print "Please specify a positive odd integer for count\n\n";
exit(1);
}
@luelista
luelista / jpeg2kml.pl
Last active May 5, 2019 01:16
Extracts GPS location data from JPEG EXIF and creates a KMZ file with thumbnails. Info and Howto here: http://home.max-weller.de/perl/jpeg2kml/
#!/usr/bin/perl
# jpeg2kml.pl
# Extracts GPS location data from JPEG EXIF and creates a KMZ file with thumbnails
# http://home.max-weller.de/perl/jpeg2kml/
use strict;
use Image::ExifTool qw(:Public);
use File::Basename;
use File::Copy;
use Data::Dumper;
@luelista
luelista / durchschnitt.pl
Created December 28, 2010 23:03
Punkte-Durchschnittsberechner
#!/bin/perl
# durchschnitt.pl
use strict;
print "Punkte-Durchschnittsberechner\n";
print '(c) Max Weller <test@max-weller.de>',"\n\n";
die "Bitte gib den Punktespiegel absteigend ein\n" unless ($#ARGV>0);
@luelista
luelista / gist:757874
Created December 28, 2010 23:04
2010-12-10-TDEV-Perls.txt
# Aufgabe 1) Summieren
$ perl -e "my ($a,$b)=(201,0);$b+=$a while($a-->0);print $b;"
20100
# Aufgabe 2) Brüche addieren
$ perl -e "my ($a,$b)=(1,0);$b+=(1/$a) while($a++>0 && $b<3);print \"$a - $b\";"
$ perl -e "my ($a,$b)=(1,0); while($a++>0 && $b<3){$b+=(1/$a) ;print \"$a - $b\";}"
32 - 3.02724519543652
# Aufgabe 3)a) Preise berechnen
@luelista
luelista / countdown_silvester.html
Created December 31, 2010 11:52
<div id="countdown_silvester"
style="background:black; font-size:40pt; text-align:center;
padding: 50px 0; color: white; line-height: 1em;">
00:00:00
</div>
<script type="text/javascript">
var cdEl = document.getElementById("countdown_silvester");
var curDate = new Date();
var trgDate = new Date(curDate.getFullYear()+1, 0, 1, 0, 0, 0);
window.setInterval(function(){
@luelista
luelista / f2c-tab.pl
Created January 2, 2011 13:08
Gibt eine Umrechnungstabelle Fahrenheit->Celsius als Text auf der Standardausgabe oder als PDF-Dokument aus
#!/usr/bin/perl
# f2c-tab.pl
# Gibt eine Umrechnungstabelle Fahrenheit->Celsius als Text auf der Standard-
# ausgabe oder als PDF-Dokument aus
use strict;
use PDF::API2;
if (!(($#ARGV == 0 && $ARGV[0] == "--txt") || ($#ARGV == 1 && $ARGV[0] == "--pdf"))) {
@luelista
luelista / gist:770127
Created January 7, 2011 21:24
<html><body>
<div id="header">
<h1>Überschrift</h1>
<h2>Hier könnte Ihre Werbung stehen ...<h2>
</div>
<div id="main">
<div id="navigation">
<h4>Inhaltsverzeichnis</h4>
@luelista
luelista / beispiel2.css
Created January 7, 2011 22:28
/* Entfernen aller Abstände zwischen den Elementen, die der Browser von sich aus einfügt */
* { margin: 0; padding: 0; }
/* Einheitliche Schriftart einstellen (sans serif), Abstand zwischen Inhalt und Rand des
* Browserfensters ausschalten */
body { font-family: "Segoe UI", Arial, sans-serif; margin: 0; }
/* Kopfzeile formatieren: dunkelgrauer Hintergrund, weiße Schrift, Abstand der Schrift zum Rand */
#header { background: #333; color: #fff; padding: 20px 100px; }
@luelista
luelista / Vector-UML-Klassen.vb
Created January 24, 2011 19:39
Public Enum VUMLVisibility
[Public]
[Protected]
[Private]
End Enum
Public Class VUMLMethod
Public Name As String
Public IsVoid As Boolean
Public ReturnValue As String
Public Parameters As New List(Of String())