[Linux]CentOS6.3にMysqlを導入する
・インストール # yum install mysql-server
|
1 2 3 4 5 6 7 8 9 |
Dependencies Resolved ======================================================= Package Arch Version Repository Size ======================================================= Installing: mysql-server x86_64 5.1.67-1.el6_3 updates 8.6 M Installing for dependencies: mysql x86_64 5.1.67-1.el6_3 updates 886 k perl-DBD-MySQL x86_64 4.013-3.el6 base 134 k |
# cd /etc # cp my.cnf my.cnf.org # vi my.c […]
[メモ]Perlのハッシュの例
Perlではハッシュを使う時が、多々あるのですが、使い方が？？になる時があります。 いくつかのハッシュを引数とした時の例です。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
#!/usr/bin/perl # use strict; use warnings; use Data::Dumper; sub fncTest1{ my( %yy ) = @_; print Dumper %yy; my ( $test1, $test2 ) = @yy{'Test1', 'Test2'}; print ("Test1:$test1 / Test2:$test2\n"); foreach my $key( sort keys %yy ) { print "$key,$yy{$key}\n"; } } fncTest1( Test1 => '1', Test2 => '2' ); my $test01 = 'Test1'; my $test02 = 'Test2'; fncTest1( $test01 => '11', $test02 => '12' ); my %dd = ( $test01 => '21', $test02 => '22' ); fncTest1( %dd ); my %yy; $yy{'Test1'} = '31'; $yy{'Test2'} = '32'; fncTest1( %yy ); my %xx; $xx{$test01} = '41'; $xx{$test02} = '42'; fncTest1( %xx ); |
$ ./test.pl $ […]