swap( by ref x , by ref y )

Vissa dagar för jag mänskligheten frammåt, något enormt!

swap ( by ref x , by ref y ) {
  x = x xor y;
  y = x xor y;
  x = x xor y;
}

Creative Commons-licens Detta verk är licensierat under en Creative Commons Attribution-ShareAlike 3.0 Unported Licens.

Exempel: x = 5, y = 8, x = 5 xor 8 = 13, y = 13 xor 8 = 5, x = 13 xor 5 = 8

Ekvationen härledde jag så här:

  • a1 = a0 xor b0
  • b1 = b0 xor a1 = b0 xor a0 xor b0 = a0
  • a2 = a1 xor b1 = a0 xor b0 xor a0 = b0

Hur man hittar Geocaching event

Geocaching event är ett trevligt sätt att träffa likasinnade och utbyta erfarenheter!

Därav är Hur hittar jag Eventen? tråden på GCSE-forumet intressant.

Hej! Hur hittar jag enklast eventen på GC.com? När det var ett i närheten så hamnade det högt upp på min lista över icke loggade cachar, men finns det nåt annat sätt att söka efter bara eventen?

Jag lämnade två ganska solida förslag på hur man hanterar det:

Hej! Säg att din ”närmast mig” sökning är:

http://www.geocaching.com/seek/nearest.aspx?lat=57.701667&lng=11.943333

Din ”närmaste event” sökning blir då:

http://www.geocaching.com/seek/nearest.aspx?lat=57.701667&lng=11.943333&tx=69eb8534-b718-4b35-ae3c-a856a55b0874

&tx=69eb8534-b718-4b35-ae3c-a856a55b0874 är alltså någon mystiskt tx=(skum guid) parameter som betyder ”ge mig eventen, och inget annat krafs!” (Geocaching.com använder GUIDar ungefär som vi andra använder smör och bröd)

För premium members finns också möjligheten att skapa en Pocket Query över event. Gör man en sådan PQ så är det bara att gå till /pocket sidan och trycka på Google Maps preview knappen för ens PQ. Man kan också spara en länk till Google Maps previewn om man tycker det är enklare, men länken kommer bara fungera när man är inloggad på Geocaching.com.

Blaufish’s Image Copy/Rename Script

Jag lever loppan som vanligt!

# Blaufish’s Image Copy/Rename Script
# https://blaufish.wordpress.com/
#
# Some rights reserved;
# http://creativecommons.org/licenses/by-nc-sa/3.0/
#
use Image::ExifTool qw(:Public);
use File::Copy;
if ($#ARGV != 0) {
  print "usage: bfImageCopy.pl destinationDir\n";
  exit;
}
my $destination = $ARGV[0];
my $exifTool = new Image::ExifTool;
$exifTool->Options(DateFormat=>"%Y-%m-%d %H%M%S");
opendir(DIR, ".");
my @files = grep(/[0-9]+\.(jpg|JPG)$/,readdir(DIR));
closedir(DIR);
foreach my $file (@files) {
  my $info = $exifTool->ImageInfo($file);
  my $date = $info->{'DateTimeOriginal'};
  my $camera = $info->{'Model'};
  my $serial = $info->{'InternalSerialNumber'};
  my $fileno = $info->{'FileNumber'};
  my $newfile = $date . " " . $camera . " " .
                $serial . " " . $fileno . ".jpg";
  print $newfile . "\n";
  copy($file, $destination . "/" . $newfile)
     or die "File cannot be copied to $newfile.";
}

Vad kan man säga som inte är överflödigt när man ser sådan skönhet?

perl C:\tools\bfImageCopy.pl G:\tyskland

2010-07-15 173322 Canon EOS 450D K0201562 101-1104.jpg

2010-07-15 173332 Canon EOS 450D K0201562 101-1105.jpg

2010-07-15 173342 Canon EOS 450D K0201562 101-1106.jpg

2010-07-15 173343 Canon EOS 450D K0201562 101-1107.jpg

Ni får försöka föreställa er ytterligare ett antal tusen sådanna rader.

Bloggen – mitt minne, ute på nätet

Undrar om det fortfarande finns några kufar som undrar varför man bloggar? Självförverkligande och självförhäligande är naturligtvis två sidor av det, men en av de bästa sakerna är faktiskt att man får ett otroligt bra minne. Vill man veta hur man gör något man gjort tidigare, så googlear man efter sina egna mästerverk. Mycket smidigare än förr när man fick googla efter hur andra puckon gjort och sen spendera 10 minuter med att ändra deras förslag på hur man gör nästan det man vill till att göra det man faktiskt ville göra.

Dagens googla mig själv resultat: jordgubbe, Slå ihop arkiv med bilder från två olika kameror