Der Code-Schnippsel-Thread

__wdecode() { echo -e $(sed 's/_/ /g; s/%/\\x/g'); }
wikilinks() { wget -qO- [noparse]http://de.wikipedia.org/wiki/$1[/noparse] |\
grep '"/wiki/' | sed 's/.*"\/wiki\/\([^ ]*\)".*/\1/' | grep -v -e ':' -e '$1' |\
sort -u | while read l; do __wdecode <<<$l; done; }

Alle Artikel ausgeben, auf die ein Wikipedia-Artikel verlinkt ist, z. B.

wikilinks Die_Toten_Hosen

Primfaktoren einer Zahl rausfinden:

#!/usr/bin/perl -w


use strict;


my $arg = undef;


if ( defined($ARGV[0]) ) {
	$arg = $ARGV[0];
} else {
	die("Missing arg!");
}


sub check_prime
{
	my $n = shift;


	for ( my $i = 2; $i <= sqrt($n); $i++) {
		if ( ($n % $i) == 0) {
			return 0;
		}
	}


	return 1;
}


my @factors = ();


my $n = $arg;
my $i = 2;
while ( $i <= $n ) {
	if ( check_prime($i) ) {
		while ( ($n % $i) == 0 ) {
			$n = $n / $i;


			push @factors, $i;
		}
	}


	$i++;
}


print "$arg = " . join(' * ', @factors) . "\n";

PROGRAM:WUERFEL
:Lbl A   #:A
:ClrHome   #cls
:Disp randInt(1,6)   #echo <Ganzzahlige zufallszahl zwischen 1 und 6>
:Disp "Weiter: <2"
:Disp "Stop: (GrößerGleich)2"
:Prompt A   #Fragt nach dem Wert der Variable A
:If A(GrößerGleich)2
:Then
:Goto O
:Else
:Goto A
:Lbl O   #:O; angelehnt an Omega

Programmiert auf einem TI-84 Plus - TI-84 Plus – Wikipedia TI-Basic – Wikipedia
Der Kommentar ist entweder eine Erklärung oder der entsprechende DOS-Befehl in Batchdateien.

WTF ist bitteschön der Sinn dieses Programms? o_O
Echte BASIC-Oldfags schreiben im Übrigen int (6*rand+1).

Sieht man doch am Namen!
Und in Excel mach ichs auch so.

Zitat von thosch97

Sieht man doch am Namen!

Oh sry, war ein bisschen blind … ähnliche Programme haben wir immer WUERFELN genannt, dachte das soll geometrische Berechnungen ausführen.

Ein Tipp: Eine einfache Tasten-Warteschleife wie

:Repeat K≠0
:getKey→K
:End
:If K=105: Goto A

ist einiges eleganter, du musst dafür nur 105 durch den Tastencode für die Enter-Taste (oder welche Taste auch immer) beim TI-84 ersetzen.

Gut, wusst ich nicht. Wo krieg ich die KCodes her?

Zitat von thosch97

Gut, wusst ich nicht. Wo krieg ich die KCodes her?

Die Bedienungsanleitung ist dein Freund (und niemand kann einen TI-Taschenrechner zu Beginn ernsthaft ohne solche programmieren).

Ich glaub, das Schema sollte leicht verständlich sein.

Mini-Skript um meine syslog-Ausgabe einzufärben

#!/usr/bin/perl -w


use strict;


use constant BLANK    => "\e[0m";
use constant RED    => "\e[1;31m";
use constant GREEN    => "\e[1;32m";
use constant YELLOW    => "\e[1;33m";
use constant BLUE    => "\e[1;34m";
use constant MAGENTA    => "\e[1;35m";
use constant CYAN    => "\e[1;36m";
use constant WHITE    => "\e[1;37m";


my ($date, $time, $host, $process, $msg);


while (<STDIN>) {
    if ( m/(\w{3}\s+\d{1,2})\s+(\d{2}:\d{2}:\d{2})\s+([\w\-\.]+)\s+([\w\d\s\-\.\[\]]+):\s+(.+)/ ) {
        $date     = $1;
        $time     = $2;
        $host     = $3;
        $process = $4;
        $msg     = $5;


        if ( m/warning|error|critical|corrupt|bad|exiting|alert/i ) {
            printf("%s%s %s%s %s%s %s%s: %s%s%s\n", WHITE, $date, CYAN, $time, BLUE, $host, YELLOW, $process, RED, $msg, BLANK);
        } else {
            printf("%s%s %s%s %s%s %s%s: %s%s%s\n", WHITE, $date, CYAN, $time, BLUE, $host, YELLOW, $process, WHITE, $msg, BLANK);
        }
    }
}

Zitat von DosAmp

Die Bedienungsanleitung ist dein Freund (und niemand kann einen TI-Taschenrechner zu Beginn ernsthaft ohne solche programmieren).
[img]
Ich glaub, das Schema sollte leicht verständlich sein.

lol nice, das funktioniert ziemlich genau so, wie das bei meinem Casio GTR ist

Zitat von DosAmp

Die Bedienungsanleitung ist dein Freund (und niemand kann einen TI-Taschenrechner zu Beginn ernsthaft ohne solche programmieren).
[IMaGe]http://www.img-share.net/uploads/218getKey.jpg[/IMaGe]
Ich glaub, das Schema sollte leicht verständlich sein.

Kurzanleitung
Trotzdem Danke!
EDIT: Gut, jetzt hab ich auch die richtige Bedienungsanleitung als PDF. Aber 715 Seiten sind schon heftig...

So, WUERFEL v2.1

PROGRAM:WUERFEL
:Lbl A
:ClrHome
:Disp randInt(1,6)
:Disp "Weiter: ENTER"
:Disp "Stop: CLEAR"
:Repeat K≠0
:getKey→K
:End
:If K=105:Goto A

Jeder, der auch nur ein bisschen programmieren kann, wird wahrsceinlich sagen: "Hey, Moment mal! Man kann das doch auc h mit etwas anderem als CLEAR beenden!" Richtig. Sowas nennt sich Code einsparen.

Ist zwar ein wenig mehr, als ein Code-Schnipsel, aber egal.

Hab mal für mich ein Config-Deploy-and-Check Script geschrieben.

Aus dem ganz einfachen Grund, dass ich oft z.B. Testsysteme einrichte und ich da aber nicht auf meine Configfiles verzichten will. Ich hab ja meine Configfiles alle in einem Git-Repo, aber das ganze ist trotzden ziemlich lästig, weil ich jedes mal die ganzen Files an die richtige Stelle legen muss.

Man legt sich für das Skript eine Profil-Datei an (Beispiel anbei) wo man definiert, wo die Source-File liegt und wo die hinkommen soll. Das Skript liest das aus und kopiert die Dateien eben an die Stelle. Außerdem kann man damit eben Checken, ob noch alle Files up-to-date sind.

Die Profil-Dateien sind einfach ne Perl-Datenstruktur, weil ich mir damit dämliches parsen erspare und die auch nicht so wirklich umständlich sind zu editieren, sollte selbsterklärend sein.

Sehr sehr gut möglich, dass das Skript irgendwo Quirks und Bugs hat weil mir diese ganze Filepath-Friemelei schon wieder ziemlich auf den Senkel ging. Habs ein paar mal getestet, da gings soweit, aber ich bin mir ziemlich sicher, dass ich irgendwas irgendwo vergeigt hab :>

Es ist aber immerhin so klever, dass wenn man im Profil nur ein Verzeichnis angibt (wie in der Beispiel-Datei, z.B. '.vim' oder '.mutt') dass es das Verzeichnis nach Dateien durchsucht, diese kopiert und auch für jede einzelne nen Integritätscheck macht.

HF.

//EDIT: Hab mal ein Repo dafür angelegt.
http://github.com/lukasg/configDeploy

Langeweile-Ultra-Thin-cat mit diet libc und libowfat.

/opt/diet/bin/diet gcc -Wall -Os -o mycat mycat.c -static -lowfat

lukas@q9400-arch:~ $ du -bh mycat
5.3K mycat

#include <stdlib.h>
#include <stdio.h>
#include <fcntl.h>


#include <buffer.h>
#include <open.h>


#define PROGRAM "mycat"
#define VERSION "0.1"


#define FD_STDIN  0
#define FD_STDOUT 1


void cat( const char *filename )
{
	int fd, len;
	char buf[BUFSIZ];


	if ( *filename == '-' )
		fd = FD_STDIN;
	else
		fd = open_read( filename );


	while ( ( len = read( fd, buf, sizeof( buf ) ) ) > 0 ) {
		if ( write( FD_STDOUT, buf, len ) != len ) {
			buffer_puts( buffer_2, "Fatal: short write" );
			buffer_putnlflush( buffer_2 );
			exit( EXIT_FAILURE );
		}
	}


	close( fd );
}


int main( int argc, char *argv[] )
{
	int i;
	for ( i = 1; i < argc; i++ ) {
		if ( argv[i][0] == '-' && argv[i][1] != 0 ) {
			switch ( argv[i][1] ) {
				case 'h':
					buffer_puts( buffer_1, PROGRAM " [-hv] filename ..." );
					buffer_putnlflush( buffer_1 );
					return EXIT_SUCCESS;
				case 'v':
					buffer_puts( buffer_1, PROGRAM " version " VERSION );
					buffer_putnlflush( buffer_1 );
					return EXIT_SUCCESS;
				default:
					return EXIT_FAILURE;
			}
		}
	}


	for ( i = 1; i < argc; i++ ) {
		if ( argv[i][0] == '-' && argv[i][1] != 0 )
			cat( "-" );
		else
			cat( argv[i] );
	}


	return EXIT_SUCCESS;
}

Zitat von thosch97

So, WUERFEL v2.1

Code

PROGRAM:WUERFEL
:Lbl A
:ClrHome
:Disp randInt(1,6)
:Disp "Weiter: ENTER"
:Disp "Stop: CLEAR"
:Repeat K≠0
:getKey→K
:End
:If K=105:Goto A

Jeder, der auch nur ein bisschen programmieren kann, wird wahrsceinlich sagen: "Hey, Moment mal! Man kann das doch auc h mit etwas anderem als CLEAR beenden!" Richtig. Sowas nennt sich Code einsparen.

TI 84 oder 83?

TI-84 Plus

Hab nen Voyage 200, Buchse tot, löten hilft nicht------>Muss alles selbst schreiben und keine Games

Kleiner PHP-Codefetzen, um zum Beispiel auf einem Freehoster ein großes hochgeladenes Zip-Archiv zu entpacken, anstatt hunderte winzige Dateien hochzuladen. Benötigt das zip-Modul.

<?php
$zip = new ZipArchive();
if ($zip->open('/home/dosamp/public_html/www/blog.zip') == TRUE) {
    $zip->extractTo('/home/dosamp/public_html/www/');
    $zip->close ();
    echo "OK";
}
else {
    echo "Error";
}
?>

Zitat von DosAmp

Kleiner PHP-Codefetzen, um zum Beispiel auf einem Freehoster ein großes hochgeladenes Zip-Archiv zu entpacken, anstatt hunderte winzige Dateien hochzuladen. Benötigt das zip-Modul.

PHP

<?php
$zip = new ZipArchive();
if ($zip->open('/home/dosamp/public_html/www/blog.zip') == TRUE) {
    $zip->extractTo('/home/dosamp/public_html/www/');
    $zip->close ();
    echo "OK";
}
else {
    echo "Error";
}
?>

Alles anzeigen

rockt

kaum jemand hatn zipmodul