Simple
Sand
Samples
プログラミング言語サンプル集
TOPへ
Hello World!(各言語のTOP)
(ジェネレータ)数列を生成(16進)
(ジェネレータ)任意バイナリファイル
(ジェネレータ)オール0バイナリファイル
(ジェネレータ)連続数値バイナリファイル
(ジェネレータ)ランダムバイナリファイル
(正規表現)正規表現を使う
(正規表現)置換する
(ファイル)カレントディレクトリ取得
(ファイル)ディレクトリ存在チェック
(ファイル)ファイル存在チェック
(ファイル)ディレクトリのファイル一覧
(ファイル)ファイル一覧再帰取得
(ファイル)ディレクトリ作成
(ファイル)ファイルの更新日時取得
(ファイル)ZIP圧縮
(ファイル)ZIP解凍
(ファイル名)パスからディレクトリ名取得
(ファイル名)パスからファイル名取得
(ファイル名)拡張子を取り除く
(ESC)エスケープシーケンス
(ESC)コンソール画面クリア
(日付時刻)今日の日付を得る
(日付時刻)現在の時刻を得る
(日付時刻)日付と時刻を得る
(日付時刻)基準日からの連続日付
乱数を使う
MD5(128bit)ハッシュ値を求める
(RDBMS)SQLiteへ接続する
(RDBMS)MySQLへ接続する
指定時間sleepさせる
シグナル(SIGNAL)を使う
スレッドを使う
(Excel)ブックを保存
(Excel)シートを追加する(末尾)
(Excel)セルに値を設定する
(Excel)セルの背景色を設定する
(Tk)Tkを使う
(GUI)GUIを使う
(画像)PNGファイルを生成
説明のないとってもシンプルなサンプルプログラム集
COBOL awk C言語 D言語 GO言語 Lua Vim
bash Perl Gauche Clojure CLISP EmacsLisp VimScript
tcsh Ruby Groovy Java C# VBScript JavaScript
Io言語 Python Erlang Scala VB.NET Excel/VBA PHP
Tcl Haskell OCaml PowerShell Windows Unix/Linux

Perl > 基準日からの連続した日付を得る

    date-seq.pl 

1
2
3
4
5
6
7
8
9
use Time::Local;
@week =("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");
$base = timelocal(0, 0, 0, 30, 1 - 1, 2013 - 1900);
for($i=0;$i<10;$i++){
	my($mday,$month,$year,$wday)
	=(localtime( $base + (60*60*24) * $i))[3..6];
	printf("%04d-%02d-%02d %s\n"
		,$year+1900,$month+1,$mday, $week[$wday]);
}
$ perl date-seq.pl
2013-01-30 Wednesday
2013-01-31 Thursday
2013-02-01 Friday
2013-02-02 Saturday
2013-02-03 Sunday
2013-02-04 Monday
2013-02-05 Tuesday
2013-02-06 Wednesday
2013-02-07 Thursday
2013-02-08 Friday
$

  * 確認環境 Debian Linux(Wheezy)