ページ内ジャンプ:
スラッシュドット・ジャパン 全文検索

アレゲなニュースと雑談サイト

slashdotter の日記から検索

slashdotter (8213)

slashdotter
(メールアドレス非表示)
もっと読む ...

slashdotter の日記 RSS

2005 年 05 月 14 日
PM 10:01

Windows Media Playerのメディアライブラリがおかしくなった

Windows

*.wmdbを削除してメディアライブラリを初期化する。

2004 年 05 月 04 日
PM 10:58

Thinkpad i 1124 mp3再生

Debian

/dev/audioでなく/dev/dspだった。

2004 年 04 月 24 日
2003 年 02 月 09 日
PM 07:12

perl Tk上のドラッグアンドドロップ

Perl # Tk widgetへのdrag and dropがうまくいかない。
# canvas上にファイルアイコンをdrag and dropすると，
# クリップボードには当該ファイル名が
# きちんとコピーされているが，
# perlスクリプト側で取得できない。

use Tk;
use Tk::DropSite 'Win32';
use Win32::Clipboard;

my $clip = Win32::Clipboard->new;

my $mw = MainWindow->new;
$mw->Canvas(-background => 'yellow')->pack->DropSite(
    -dropcommand => sub { print $clip->Get; });

MainLoop;
2003 年 01 月 02 日
PM 06:15

DCOM98のインストールに失敗

マイクロソフト

Windows98にSymantec Norton Internet Security 2003をインストールする際に自動的にDCOM98がインストールされる。

インストールの途中で「例外06」のブルースクリーンが発生してしまう。
その後はALT+CTRL+DELのリセットもできない。

参考ページ
マイクロソフト

ハードディスクをリストアしてもだめだったらSymantecに聞いてみよう。

2002 年 12 月 23 日
PM 09:32

Data::HexDumpとTkを使った習作。

Perl @rem = '--*-Perl-*--
@echo off
if "%OS%" == "Windows_NT" goto WinNT
perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
:WinNT
perl -x -S %0 %*
if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
if %errorlevel% == 9009 echo You do not have Perl in your PATH.
if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
goto endofperl
@rem ';
# hexadecimal dump using Tk.
#!perl -w
#line 16
use strict;
use Data::HexDump ();
use Tk;
use Tk::ROText;

my $f = new Data::HexDump;
die 'give a file name to dump' unless $ARGV[0];
die "Is $ARGV[0] really exist?" unless -e $ARGV[0];
$f->file( $ARGV[0] );
$f->block_size(1024);

my $main = new MainWindow;
$main->Label(-font => 'systemfixed', -text =>
'          00 01 02 03 04 05 06 07 - 08 09 0A 0B 0C 0D 0E 0F  0123456789ABCDEF'
)->pack(-anchor => 'w');
my $ro = $main->Scrolled('ROText', -scrollbars => 'e', -font => 'systemfixed');
$ro->pack(-anchor => 'w');
$main->Button(-text => 'OK',  -command => [$main => 'destroy'])->pack;
$ro->insert('end', $_) while $_ = $f->dump;

MainLoop;
__END__
:endofperl
2002 年 09 月 25 日
PM 10:41

試しに書いてみます。

日記 本日は晴天なり。
あーあーあー。
| 一覧

このページのすべての商標と著作権はそれぞれの所有者が有します。 コメントやユーザ日記に関しては投稿者が有します。
のこりのものは、© 2001-2010 OSDN です。