初心者IT本部

mysqlでauto_incrementの解除

mysqlでauto_incrementを解除するには下記のようにする模様。
auto_incrementを外すというより、auto_incrementはcolumnの付帯的な属性ではないので、
columnそのものを変更するイメージ。だからchange。

＞ALTER TABLE `dtb_send_customer` CHANGE `send_id` `send_id` INT( 11 ) NOT NULL

参考：
http://xoops.ec-cube.net/modules/newbb/viewtopic.php?viewmode=flat&order=DESC&topic_id=530&forum=9

mysqlimport

csvでmysqlにデータを入れる。

mysqlimport -u ユーザー名 -p --fields-terminated-by="," -d データベース名 -L CSVファイル名.csv -h
ＤＢサーバアドレス

-p・・・パスワード指定
-fields-terminated=","・・・デリミタ指定
-d・・・import前にDBの中身をDELETE
-L・・・CSVファイルがローカル側にある場合
CSVファイル名・・・相対の場合は拡張子を除く部分がテーブル名

phpmyadminからmysqlでtext型にuniqueを設定

さくらインターネットではmysqlの管理にphpmyadminが用意されているが、phpmyadminからtext型のcolomunを主キーにする、あるいはuniqueに指定することはできないみたい。

uniqueに指定しようとした場合下記のようなエラーが。
＞ BLOB column 'site_introduce' used in key specification without a key length

text型は長さを設定しないとキーとかuniqueに指定できないらしい。
しかしphpmyadminからcolumnに長さを設定してもだめみたい。ターミナルからアクセスして下記のコマンドに
より指定できた。

＞　mysql> alter table direc_site_info add unique (site_url(100));

show create tab le構文で確認するとuniqueが付いている。

mysql> show create table direc_site_info
-> ;
+-----------------+----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+
| Table | Create Table |
+-----------------+----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+
| direc_site_info | CREATE TABLE `direc_site_info` (
`site_id` int(11) NOT NULL auto_increment,
`site_name` text NOT NULL,
`site_url` text NOT NULL,
PRIMARY KEY (`site_id`),
UNIQUE KEY `site_url` (`site_url`(100))
) TYPE=MyISAM |
+-----------------+----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------+
1 row in set (0.01 sec)

しかしphpmyadmin上は特に変化ないようだ。

cygwinからperl5.8.8でperlcc

Cygwin上のperl5.8.8のperlccを使ってperlスクリプトを
exe化しようと思う。

普通に実行すると下記のようにエラーが。

$ perlcc work/make_hash_list2.pl
Note (probably harmless): No library found for -lgdbm_compat
pccf0gsH.c:10477: warning: this decimal constant is unsigned only in ISO C90
pccf0gsH.c:10484: warning: this decimal constant is unsigned only in ISO C90
pccf0gsH.c:10505: warning: this decimal constant is unsigned only in ISO C90
pccf0gsH.c:10637: warning: this decimal constant is unsigned only in ISO C90
pccf0gsH.c:10638: warning: this decimal constant is unsigned only in ISO C90
pccf0gsH.c:10640: warning: this decimal constant is unsigned only in ISO C90
pccf0gsH.c:10641: warning: this decimal constant is unsigned only in ISO C90
pccf0gsH.c:10647: warning: this decimal constant is unsigned only in ISO C90
pccf0gsH.c:10666: warning: this decimal constant is unsigned only in ISO C90
pccf0gsH.c:10667: warning: this decimal constant is unsigned only in ISO C90
pccf0gsH.c: In function `perl_init_aaab':
pccf0gsH.c:25097: warning: this decimal constant is unsigned only in ISO C90
/usr/lib/gcc/i686-pc-cygwin/3.4.4/../../../../i686-pc-cygwin/bin/ld: warning: au
to-importing has been activated without --enable-auto-import specified on the co
mmand line.
This should work unless it involves constant data structures referencing symbols
from auto-imported DLLs.Info: resolving _PL_ppaddr by linking to __imp__PL_ppad
dr (auto-import)
Info: resolving _PL_memory_wrap by linking to __imp__PL_memory_wrap (auto-import
)

-Bオプションをつけると、コンパイルできた。
$ perlcc -B -o work/kkk.exe test.pl
⇒cygwinでは実行できるが、windowsからは実行できなかった。
この実行形式はcygwinの上に載ったものだからだ。

http://www.sixnine.net/cygwin/translation/devel/mno-cygwin-howto.html#s1-2
の情報を元に、perlccでソースファイルを作成し、gccで--mno-cygwinオプションを
つけてコンパイルすることを試したが、山ほどworningがでるのでやめた。

work/make_hash_list2.c:342: error: parse error before ')' token
work/make_hash_list2.c:342: warning: excess elements in scalar initializer
work/make_hash_list2.c:342: warning: (near initialization for `op_list[58]')
work/make_hash_list2.c:342: warning: excess elements in scalar initializer
work/make_hash_list2.c:342: warning: (near initialization for `op_list[58]')
work/make_hash_list2.c:342: warning: excess elements in scalar initializer
work/make_hash_list2.c:342: warning: (near initialization for `op_list[58]')
work/make_hash_list2.c:342: warning: excess elements in scalar initializer
work/make_hash_list2.c:342: warning: (near initialization for `op_list[58]')
work/make_hash_list2.c:342: warning: excess elements in scalar initializer
work/make_hash_list2.c:342: warning: (near initialization for `op_list[58]')
work/make_hash_list2.c:342: warning: excess elements in scalar initializer
work/make_hash_list2.c:342: warning: (near initialization for `op_list[58]')
work/make_hash_list2.c:342: warning: excess elements in scalar initializer
work/make_hash_list2.c:342: warning: (near initialization for `op_list[58]')

perlcc自体信頼性は高くない模様。Cygwin環境で実現したかったが一旦あきらめることにする。

cygwinからperl5.8.8でCPAN

　cygwinにperlをインストールする際デフォルトでは5.8.8が入る。
5.8.8でCPANを使おうとすると、「select your continents」の
ところで、選択肢のリストが表示されない。CPAN設定の手順は
多のサイトで解説されているが、それらの例では問題なくリスト
も表示されている模様。(Cygwinだからか。プロキシなどの影響か）
何を入力しても、空欄でEnterを押しても先に進めず設定は成功しない。

　「select your continents」の前に、手動でcpan　siteのURLを
選択する箇所が一瞬入力待ちになるが、なぜか自動的に「select your continents」
に以降しているのを発見。cpan site入力の際に即効Enterを押し、入力モードに。
cpan siteを入力すると、一応設定を終了できるが、installをしようとすると、
CPAN.pmがエラーを出し完了できない。

　インストールの際に5.10を選択すると、CPANの設定・使用とも
問題なくできたので（私はperlccを使いたかったので5.8.8でCPAN環境
が必要だった。）、CPANを入れ替えてみることにした、。

　
　CPANサイトhttp://ftp.nara.wide.ad.jp/から"CPAN-1.9205.tar.gz"をダウンロード。
　解凍後、lib以下を、Cygwinのフォルダ（私の場合はC:\cygwin\lib\perl5\5.8）の
ものと置き換える。"perl -MCPAN -e shell"で実行してみると、設定が始まる。
設定を見ているとperl5.10のものと同じようだ。
　設定でデフォルトから変更した箇所はftp_proxy,http_proxyと、urllistで、httpの
ホストを追加したのみ。（これまでの悪戦苦闘で、ftpでのダウンロードは私の環境では
うまくいかなそうだった。今回も「select your continents」はあるが、ちゃんとリスト
は表示された。その後、ホストを選択する箇所があるが、ftpのサイトばかりなので、
http://www.perl.com/CPAN/SITES.htmlから近場のfttpホストを選択し追加した。）

　"install Digest::SHA1"を実行するとダウンロード・インストールが成功。当該モジュール
を使用するスクリプトも動いた。

以下作業ログ

cpan[5]> install Digest::SHA1
CPAN: Storable loaded ok (v2.15)
Fetching with LWP:
ftp://ftp.jaist.ac.jp/pub/CPAN/authors/01mailrc.txt.gz
Going to read /cygdrive/c/home/go-yamamoto/.cpan/sources/authors/01mailrc.txt.gz

............................................................................DONE

Fetching with LWP:
ftp://ftp.jaist.ac.jp/pub/CPAN/modules/02packages.details.txt.gz
Going to read /cygdrive/c/home/go-yamamoto/.cpan/sources/modules/02packages.deta
ils.txt.gz
Database was generated on Sun, 08 Jun 2008 22:06:51 GMT
............................................................................DONE

Fetching with LWP:
ftp://ftp.jaist.ac.jp/pub/CPAN/modules/03modlist.data.gz
Going to read /cygdrive/c/home/go-yamamoto/.cpan/sources/modules/03modlist.data.
gz
............................................................................DONE

Going to write /cygdrive/c/home/go-yamamoto/.cpan/Metadata
Running install for module 'Digest::SHA1'
Running make for G/GA/GAAS/Digest-SHA1-2.11.tar.gz
Fetching with LWP:
ftp://ftp.jaist.ac.jp/pub/CPAN/authors/id/G/GA/GAAS/Digest-SHA1-2.11.tar.gz
CPAN: Digest::SHA loaded ok (v5.45)
Fetching with LWP:
ftp://ftp.jaist.ac.jp/pub/CPAN/authors/id/G/GA/GAAS/CHECKSUMS
Checksum for /cygdrive/c/home/go-yamamoto/.cpan/sources/authors/id/G/GA/GAAS/Dig
est-SHA1-2.11.tar.gz ok
Scanning cache /cygdrive/c/home/go-yamamoto/.cpan/build for sizes
DONE
CPAN: Archive::Tar loaded ok (v1.32)
Digest-SHA1-2.11/
Digest-SHA1-2.11/README
Digest-SHA1-2.11/t/
Digest-SHA1-2.11/t/bits.t
Digest-SHA1-2.11/t/badfile.t
Digest-SHA1-2.11/t/sha1.t
Digest-SHA1-2.11/MANIFEST
Digest-SHA1-2.11/fip180-1.html
Digest-SHA1-2.11/SHA1.pm
Digest-SHA1-2.11/typemap
Digest-SHA1-2.11/fip180-1.gif
Digest-SHA1-2.11/Changes
Digest-SHA1-2.11/Makefile.PL
Digest-SHA1-2.11/SHA1.xs
CPAN: File::Temp loaded ok (v0.16)

CPAN.pm: Going to build G/GA/GAAS/Digest-SHA1-2.11.tar.gz

Checking if your kit is complete...
Looks good
Writing Makefile for Digest::SHA1
cp SHA1.pm blib/lib/Digest/SHA1.pm
/usr/bin/perl.exe /usr/lib/perl5/5.8/ExtUtils/xsubpp -typemap /usr/lib/perl5/5.
8/ExtUtils/typemap -typemap typemap SHA1.xs > SHA1.xsc && mv SHA1.xsc SHA1.c
gcc -c   -DPERL_USE_SAFE_PUTENV -fno-strict-aliasing -pipe -Wdeclaration-after-s
tatement -DUSEIMPORTLIB -O3   -DVERSION=\"2.11\" -DXS_VERSION=\"2.11\" "-I/usr/
lib/perl5/5.8/cygwin/CORE"   SHA1.c
Running Mkbootstrap for Digest::SHA1 ()
chmod 644 SHA1.bs
rm -f blib/arch/auto/Digest/SHA1/SHA1.dll
ld2 -s -L/usr/local/lib SHA1.o -o blib/arch/auto/Digest/SHA1/SHA1.dll \
          /usr/lib/perl5/5.8/cygwin/CORE/libperl.dll.a          \

gcc -shared -o SHA1.dll -Wl,--out-implib=libSHA1.dll.a -Wl,--export-all-symbols
-Wl,--enable-auto-import -Wl,--stack,8388608 -Wl,--enable-auto-image-base \
-s -L/usr/local/lib SHA1.o /usr/lib/perl5/5.8/cygwin/CORE/libperl.dll.a
Creating library file: libSHA1.dll.a
mv SHA1.dll libSHA1.dll.a blib/arch/auto/Digest/SHA1/
chmod 755 blib/arch/auto/Digest/SHA1/SHA1.dll
cp SHA1.bs blib/arch/auto/Digest/SHA1/SHA1.bs
chmod 644 blib/arch/auto/Digest/SHA1/SHA1.bs
GAAS/Digest-SHA1-2.11.tar.gz
make -- OK
Running make test
/usr/bin/perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'b
lib/arch')" t/*.t
t/badfile....ok
t/bits.......ok
t/sha1.......ok
All tests successful.
Files=3, Tests=17, 1 wallclock secs ( 0.46 cusr + 0.40 csys = 0.86 CPU)
GAAS/Digest-SHA1-2.11.tar.gz
make test -- OK
Running make install
Prepending /cygdrive/c/home/go-yamamoto/.cpan/build/Digest-SHA1-2.11-ZLJszl/blib
/arch /cygdrive/c/home/go-yamamoto/.cpan/build/Digest-SHA1-2.11-ZLJszl/blib/lib
to PERL5LIB for 'install'
Installing /usr/lib/perl5/site_perl/5.8/cygwin/auto/Digest/SHA1/libSHA1.dll.a
Installing /usr/lib/perl5/site_perl/5.8/cygwin/auto/Digest/SHA1/SHA1.bs
Installing /usr/lib/perl5/site_perl/5.8/cygwin/auto/Digest/SHA1/SHA1.dll
Files found in blib/arch: installing files in blib/lib into architecture depende
nt library tree
Installing /usr/lib/perl5/site_perl/5.8/cygwin/Digest/SHA1.pm
Writing /usr/lib/perl5/site_perl/5.8/cygwin/auto/Digest/SHA1/.packlist
Appending installation info to /usr/lib/perl5/5.8/cygwin/perllocal.pod
GAAS/Digest-SHA1-2.11.tar.gz
make install -- OK

PAR導入

製品版のVC++を使ってのperlccが残されているが、おいておいて、
PARを試す。

http://hamachiya.com/junk/memo_PAR.html
を参考にして設定

ActivePerl 8.6.6ではppmがうまく使えなかった。
（GUI版。プロキシ設定もしたが。）

8.6.6に落とすと、ppmが使えた。

ActivePerlとVC++でperlcc

Activeperl,VisualC++(9.0 Express Edition)でperlのexe化に挑戦。
perlccを使う。

下記のように出るが、コンパイラはcygwinのgccを使っているとの
ことだろうか。VCの方のを使わないとwindows上で動かないはず。

C:\home\go-yamamoto\work>perlcc make_hash_list3.pl
Set up gcc environment - 3.4.4 (cygming special, gdc 0.12, using dmd 0.125)
Starting compile
Walking tree
File::Spec::Win32 saved (it is in File::Spec's @ISA)
File::Spec::Unix saved (it is in File::Spec::Win32's @ISA)
DynaLoader saved (it is in Digest::SHA1's @ISA)
Exporter saved (it is in ActiveState::Path's @ISA)
Prescan
Saving methods
Can't locate object method "IVX" via package "B::NV" at C:/Perl/lib/B/C.pm line
650.
CHECK failed--call queue aborted.

コンパイラにcygwinのgccが選択されているでうまくいかないのかと思いgccをuninstall
それでもSet up gcc environment - 3.4.4 (cygming special, gdc 0.12, using dmd 0.125)
の一行が抜けただけで同様のエラーがでる。

どうようのエラーがperlのバグとして報告されていたが、解決されていないもよう。
そしてperl5.10ではperlccは外されている。
http://www.nntp.perl.org/group/perl.perl5.porters/2006/05/msg113019.html

perlccはあきらめるかー。

ActivePerlで連想配列をリファレンス渡しするには

　Perlで、連想配列をリファレンス渡しするサンプルで、下記のようになっている
ものが多いがうまくいかない。

my %hash;

function(\%hash);

while( ($key,$value)=each(%hash) ){

}

sub functio(){
my($hash)=@_;

%$hash=....

}

v5.8.6 built for MSWin32-x86-multi-threadでは、function中で、
%$hashとするとsyntax errorとなる。$$hashとすると、連想配列
として使えた（key,valueの追加）。function呼出し後、呼び出し元でも参照できた。

eachに渡す際は%$hashでエラーがでなかった。不思議。。。。

VMwareにFedora8をインストール

家でもLinuxに触れれるようにVMwareを導入。Linuxをセットアップする。

　VMwareを起動してメニュー部分からFile->New->VirtualMachineを選択。OSはRed Hat Enterprise Linux4を選択した。ギコギコとディスクスペースが作られて。Inventoryの部分に11「Red Hat Enterprise Linux4」と表示された！喜んでpower onボタンを押してみると、

「No bootable CD,floppy or hard disk was detected.To install an operating system,insert a bootable CD or floppy and restart the virtual machine by clicking the Reset button」

というメッセージが。OSはディスクスペースの作成とは別にインストールしなければならないらしい。

Red Hatのウェブサイトへ行って。上部の「Fedora」からFedoraのサイトへ。
Fedora8が出ているので、これを選択。

#Fedora8はディスク容量が2.5GBないとインストールが完了できないと、最後の最後で教えてくれるので、注#意^^;

左側の「Get Fedora」をクリック後、ページ中断の「Let me look aroung...」の見出しのところから"See all mirrors"をクリック。ダウンロード先のミラーサイトを選び、（僕の場合は）"http"をクリック。

ミラーサイト内のディレクトリ構造はサイトによってことなるようだが、僕の選んだInternet Initiative Japn inc.の場合boot.isoの場所は、

（始めのディレクトリ）/pub/linux/fedora/releases/8/Fedora/i386/os/image/boot.iso

ダウンロードして、VMwareのDevices->CD-ROMのプロパティを開き、"Connection"の部分で「Use ISO image」を選択し、さっきのboot.isoを設定した後再びpower onを押す。

すると、FedoraのInstallation Methodが立ち上がるので、言語とキーボードタイプを選ぶ。

mediaはHTTPに。HTTPでFedoraをダウンロードできるサーバと、サーバ内のパスを設定する。

Web site name：　ftp.iij.ad.jp
Fedora Directory： pub/linux/fedora/releases/8/Fedora/i386/os

画面に「Retrieving image/stage2.img...」と表示される（エラーになったら上記で入力したIPやパスが間違っていことが考えられるので確かめる。）。

うまく行けばFedoraが立ち上がり後はウィザードに沿って入力すればセットアップを完了できる。

【画像をアーカイビング・管理する】Picasa2

　自分のPC内の画像をアーカイビング・管理するのにいいフリーソフトないかと思ったら、ありました。
さすがgoogle。
　スライドショーや、ウェブアルバムとか機能あります。コラージュとか作る機能もある様子。

　対象のフォルダの構造変化や画像の追加をリアルタイムにアプリケーションに
反映できるようです。

http://picasa.google.co.jp/