Simple Sand Samples

プログラミング言語サンプル集

---

TOPへ

Hello World!(各言語のTOP)

(テキスト)タブ区切り各データに関数適用

(テキスト)CSVファイル読み込み

(テキスト)ファイル先頭部分抽出

(バイナリ)ファイル読み込み

(バイナリ)ファイル書き込み

(バイナリ)バイナリファイル複写

(バイナリ)16進ダンプ

(バイナリ)8進ダンプ

(バイナリ)部分的に16進ダンプ

(ジェネレータ)数列を生成

(ジェネレータ)数列を生成(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 > ZIP圧縮

    zip.pl

1
2
3
4
5
6
7
8
9
use Archive::Zip;
my $zip = Archive::Zip->new();
$zip->addFile('sample1.txt');
$zip->addFile('sample2.txt');
if ($zip->writeToFileNamed('sample.zip') == AZ_OK) {
    print "OK\n";
}else{
    print "NG\n";
}

$ cat sample1.txt
1
2
3
4
5
$ cat sample2.txt
 1  2  3  4  5  6  7  8  9 
 2  4  6  8 10 12 14 16 18 
 3  6  9 12 15 18 21 24 27 
 4  8 12 16 20 24 28 32 36 
 5 10 15 20 25 30 35 40 45 
$ perl zip.pl
OK
$ unzip -l sample.zip
Archive:  sample.zip
  Length      Date    Time    Name
---------  ---------- -----   ----
       10  2013-03-27 11:14   sample1.txt
      140  2013-03-27 11:14   sample2.txt
---------                     -------
      150                     2 files
$ 

  * 確認環境 Debian Linux(Wheezy)