又乙個Perl的程式（原創）

#!/usr/bin/perl -w

use tk;

use tk::pathentry;

use tk::message;

use dirhandle;

use cwd;

my $srcpath = cwd();

my $dstpath = cwd();

$mw = mainwindow -> new(-title => "auto red eye removal");

$srcframe = $mw -> frame(-width => 600, -height => 10);

$srcframe -> label(-width => 10) -> pack(-side => 'left');

$srcframe -> label(-text => "原始檔路徑:") -> pack(-side => 'left');

$srcentry = $srcframe -> pathentry(-textvariable => /$srcpath, -width => 70);

$srcframe -> label(-width => 10) -> pack(-side => 'right');

$srcentry -> pack(-side => 'right');

$dstframe = $mw -> frame(-width => 600, -height => 10);

$dstframe -> label(-width => 10) -> pack(-side => 'left');

$dstframe -> label(-text => "目標檔案路徑:") -> pack(-side => 'left');

又乙個迷宮

有乙個迷宮，迷宮裡有乙個人，迷宮是規格為 n n 的方格，房內特定位置上有障礙物，人處於某一位置，可以選擇向上下左右方向前進，但是要保證面對的不是牆壁或是障礙物，否則無法向前行走。輸入迷宮的規格，乙個正整數 n 2 n 100 佔一行，代表矩陣大小 輸入方形矩陣 n 行 n 列，由 0 和 1 組成...

又乙個通宵

敲了一晚上的 閒下來摸魚寫了下字是孟浩然的 宿業師山房期丁大不至 宿業師山房待丁大不至 夕陽度西嶺，群壑倏已暝。松月生夜涼，風泉滿清聽。樵人歸欲盡，煙鳥棲初定。之子期宿來，孤琴候蘿徑。描寫詩人在山中等候遲遲未到的友人的場景 可以看看古詩詞網的賞析 傳送門 想起來這首詩也是我與師弟最後一起寫的呢 雖說...

又乙個驗證碼程式

乙個驗證碼程式，今天在網上無意中看到的，先收藏了 validcode using system using system.drawing using system.io using system.text using system.drawing.imaging using system.secur...