Ссылки в тему:
Немного об именах дисковых устройств в Solaris
man iostat
man sd

C:\ pp -o filename.exe filename.pl

Не помню, входит ли утилитка в состав ActivePerl. Если что — запускаете ppm из командной строки и устанавливаете PAR. Для любителей рисовать окошки из perl — есть логичное продолжение — tkpp. Недостаток конечно есть — размер exe-шника, да и скорость выполнения — будет точно такой же, как и у perl-скрипта.

Что еще можно использовать?

1. Когда-то, для этого же я использовал perl2exe от IndigoStar. Но так как это коммерческий продукт, то по окончании программа выплевывала строчку о том, что это «незарегистрированная версия». К тому же, как отмечают продвинутые камрады — достаточно просто раскомпилировать обратно и получить исходники.

2. Есть такая утилитка — perlcc. Генерирует исходник на C, который можно потом собрать с помощью компилятора. К сожалению, существует не для всех версий perl — последняя версия 5.8.9 (я когда-то пробовал этот путь, но что-то там получалось не очень весело, типа компилировалось только с VisualStudio , плюс еще какой-то геморой с либами, может быть сейчас что-то и изменилось). Но с точки зрения размера выполняемого файла — без вариантов ;)
ЗЫ — только что попробовал скомпилить скриптик в 2 строки под Solaris — компилится, но при выполнении падает в корку ;(, так что ситуация далека от идеала.

Считать целиком файл в переменную:

open (MOCK, $filename) or die "$!";
local $/;
# переопределяем встроенную переменную "разделитель строк" ($/ или $INPUT_RECORD_SEPARATOR или $RS)
$_ =<MOCK> ;    # захавать моск файл целиком
close (MOCK);

Напечатать содержимое массива:
@a=qw( 1 2fewf wf g ag f);
local $,="\n";
# переопределяем встроенную переменную "разделитель полей" ($, или $OUTPUT_FIELD_SEPARATOR или $OFS)
print @a;

Печатать все строки после строки 25
perl -n -e 'print if $.>25' file.txt # используем встроенную переменную "номер текущей строки" ($. или $INPUT_LINE_NUMBER или $NR)

Напечатать переменные среды:
perl -e ‘while ( ($a,$b)=each(%ENV) ) { print «$a=$b\n»; }’; # Используем встроенный хэш %ENV, который содержит переменные среды окружения

Использовать имя программы:
print "Usage: $0 [-k|--kill-all-humans]\n";
# используем встроенную переменную "имя исполняемой программы" ($0 или $PROGRAM_NAME)

Посмотреть версию perl:
print $];
print $^V;

Посмотреть операционную систему:
print $^O;
print POSIX::uname();

Посмотреть, когда была запущена программа:
print $^T;
# в секундах с 1970 года, смотри time(). Встроенная переменная $^T или $BASETIME

Напечатать переменные среды:
perl -e 'while ( ($a,$b)=each(%ENV) ) { print "$a=$b\n"; }';
# Используем встроенный хэш %ENV


$ perl -e ‘use Date::Calc qw(:all); print Delta_Days(2007,8,17, 2009,3,20)’
581
или, если неустановлен модуль Date::Calc, то

$ perl -e ‘use POSIX; $y0=2007; $m0=8; $d0=17; $y1=2009; $m1=3; $d1=20; printf( «%i\n», POSIX::difftime( POSIX::mktime(0,0,0,$d1,$m1-1,$y1-1900), POSIX::mktime(0,0,0,$d0,$m0-1,$y0-1900) ) / 86400 );’
581

находит файлы, отсутствующие во втором каталоге
находит файлы, отличающиеся по дате модификации и размеру
находит файлы, отличающиеся по содержанию

Так как написан на perl, то под Windows требует установленного perl (ActivePerl, например) или можно скачать скомпилированный бинарник.

В STDERR выводит сообщения о наличии и отсутствии файлов.

В STDOUT выводит список различий в контенте файлов.

Пример использования:
C:> comparedirs.pl -content
-d1=c:/explorer.8eeeeee.e25k-2008.05.28.17.56
-d2=c:/explorer.8eeeeee.e25k-2009.01.20.11.24 > c:/tmp/diff.log 2> c:/tmp/messages.log

C:\TEMP>perl comparedirs.pl -d1=c:/temp/2 -d2=c:\temp\1
File C:\temp\1\ndd\udp\aaa do not exist!

C:\TEMP>perl comparedirs.pl -content -d1=c:/temp/2/ndd/ce.6 -d2=c:\temp\1\ndd\ce.6
Files C:\temp\2\ndd\ce.6\accept_jumbo.out and C:\temp\1\ndd\ce.6\accept_jumbo.out have different con
tent
*** C:\temp\2\ndd\ce.6\accept_jumbo.out Wed Feb 18 03:51:32 2009
— C:\temp\1\ndd\ce.6\accept_jumbo.out Wed May 28 21:06:31 2008
***************
*** 1 ****
! 0
— 1 —-
! 1

Загрузить скрипт (исходный код)/Download source comparedirs

Загрузить исполняемый файл под Win32/ Download binary for Win32

PS аналог на shell примерно такой:
cd /dir1;
for p in `find . -print`; do
if -f /dir1/$p && -f /dir2/$p; then
diff /dir1/$p /dir2/$p
fi
done

PSPS 02.03.2009 — Добавил бинарник под windows