find files with same content

Solaris

FreeBSD

older stuff

one-liner

pano2mpeg (p2m), pano2mpg (p2m), panorama to mpeg converter, panorama to mpg converter, panorama image to mpeg video encoder, suite of tools, suite of shell scripts, generate mpeg movies from panorama images, generate mpg movies from panorama images, p2m_pano, p2m_logo, p2m_zoom, p2m_reverse, p2m_credits, p2m_flip, p2m_transition, panorama to mpeg, panorama to mpg, panorama 2 mpeg, panorama 2 mpg, panoramatompeg, panoramatompg, panorama2mpeg, panorama2mpg, pano to mpeg, panompg, pano 2 mpeg, pano 2 mpg, panotompeg, panotompg, pano2mpeg, pano2mpg,

weltzeit

#!/usr/bin/perl -w
use strict;
my $gmt_dif = -2; ## !edit! ##
my %wzu=(
        -4 => '-4  EDT Linda',
        -6 => '-6  MDT Michael',
        -7 => '-7  PDT Santhosh Gyan',
        0 =>  '+0  GMT',
        1 =>  '+1  BST Michael Dhiru Stuart Chris',
        2 =>  '+2  CET Sylvia',
        8 =>  '+8  SIN Chee-Siong Prabhu',
        10 => '+10 SYD Awais',
);
my ($key, @wzu);
foreach $key (keys(%wzu)){
    my $gmttime;
    $gmttime = time + (($gmt_dif + $key) * 3600);
    #$gmttime = time + (( -2 + $key) * 3600);
    #printf " %02d:%02d:%02d $wzu{$key} \n", (localtime($gmttime))[2,1,0];
    my $string = sprintf " %02d:%02d:%02d $wzu{$key} \n", (localtime($gmttime))[2,1,0];
    push(@wzu,$string);
}
my @sorted = sort{$a cmp $b} @wzu;
print @sorted;




SAMPLE:



./weltzeit_neu.pl
 01:37:48 +8  SIN Chee-Siong Prabhu
 03:37:48 +10 SYD Awais
 10:37:48 -7  PDT Santhosh Gyan
 11:37:48 -6  MDT Michael
 13:37:48 -4  EDT Linda
 17:37:48 +0  GMT 
 18:37:48 +1  BST Michael Dhiru Stuart Chris
 19:37:48 +2  CET Sylvia