스프링필드 에버그린테라스 742

#!/usr/bin/perl

MAIN:

{

    my $test  = {};

    $test->{0}=0;

    $test->{1}=0;

    $test->{2}=0;

    $test->{3}=0;

    $test->{5}=0;

    my $len = scalar(keys %{$test});

    print "$len\n";

}

5

perl Makefile.PL 

Can't exec "mysql_config": 그런 파일이나 디렉토리가 없음 at Makefile.PL line 83.

Cannot find the file 'mysql_config'! Your execution PATH doesn't seem

not contain the path to mysql_config. Resorting to guessed values!

Can't exec "mysql_config": 그런 파일이나 디렉토리가 없음 at Makefile.PL line 478.

Can't find mysql_config. Use --mysql_config option to specify where mysql_config is located

Can't exec "mysql_config": 그런 파일이나 디렉토리가 없음 at Makefile.PL line 478.

Can't find mysql_config. Use --mysql_config option to specify where mysql_config is located

Can't exec "mysql_config": 그런 파일이나 디렉토리가 없음 at Makefile.PL line 478.

Can't find mysql_config. Use --mysql_config option to specify where mysql_config is located

PLEASE NOTE:

For 'make test' to run properly, you must ensure that the

database user 'root' can connect to your MySQL server

and has the proper privileges that these tests require such

as 'drop table', 'create table', 'drop procedure', 'create procedure'

as well as others.

mysql> grant all privileges on test.* to 'root'@'localhost' identified by 's3kr1t';

You can also optionally set the user to run 'make test' with:

perl Makefile.PL --testuser=username

Can't exec "mysql_config": 그런 파일이나 디렉토리가 없음 at Makefile.PL line 478.

Can't find mysql_config. Use --mysql_config option to specify where mysql_config is located

Can't exec "mysql_config": 그런 파일이나 디렉토리가 없음 at Makefile.PL line 478.

Can't find mysql_config. Use --mysql_config option to specify where mysql_config is located

Can't exec "mysql_config": 그런 파일이나 디렉토리가 없음 at Makefile.PL line 478.

Can't find mysql_config. Use --mysql_config option to specify where mysql_config is located

Failed to determine directory of mysql.h. Use

  perl Makefile.PL --cflags=-I<dir>

to set this directory. For details see the INSTALL.html file,

section "C Compiler flags" or type

  perl Makefile.PL --help

perl Makefile.PL --mysql_config=/usr/local/mysql/bin/mysql_config

/usr/bin/ld: cannot find -lz

collect2: ld returned 1 exit status

tar xvfzp zlib-1.2.6.tar.gz
mv zlib-1.2.6 /usr/local/zlib
cd /usr/local/zlib/
./configure -s
make
./configure
make install
ls -alF libz.so* 치면
    lrwxrwxrwx 1 root root    13  2월 20 13:18 libz.so -> libz.so.1.2.6*

    lrwxrwxrwx 1 root root    13  2월 20 13:18 libz.so.1 -> libz.so.1.2.6*

    -rwxr-xr-x 1 root root 92821  2월 20 13:18 libz.so.1.2.6*
cp libz.so* /usr/local/lib
cd /usr/local/lib
rm -rf libz.so libz.so.1
ln -s libz.so.1.2.6 libz.so
ln -s libz.so.1.2.6 libz.so.1
vi /etc/ld.so.conf  ==> /usr/local/lib 추가하고
ldconfig 

use Time::Local;

sub get_yesterday($$$)

{

    my ($y, $m, $d) = @_; #년도, 월, 일을 입력받는다.(날짜지정해서쓸때만 인자받음)

    my ($sec, $min, $hour, $mday, $mon, $year) = (0,0,0,$d,$m-1,$y-1900); #날짜지정해서 쓸때

    #my ($sec, $min, $hour, $mday, $mon, $year) = localtime();  #그냥 현재날짜만 쓸때

    my $yesterday_midday=timelocal(0,0,0,$mday,$mon,$year) - 60*60*24;

    ($sec, $min, $hour, $mday, $mon, $year) = localtime($yesterday_midday);

    my $YesterdaysDate = sprintf("%4d%02d%02d", $year+1900, $mon+1, $mday);

    return $YesterdaysDate; 

}

system("clear");

sub get_dbf($)

{

    my ($old_home) = @_;

    my (%h, $k, $v);

    my $euckr_to_utf8 = Text::Iconv->new("EUC-KR","UTF-8");

    my $filename = $old_home;

    tie %h, "DB_File", $filename;

    my $h_arr = {};

    while (($k, $v) = each %h ) {

       # EUCKR -> UTF8

       $k = $euckr_to_utf8->convert($k);

       $v = $euckr_to_utf8->convert($v);

       # remove (^@ -> \x00) (^M -> \x08) (^E -> \x05)

       $k =~ s/[\t\r\n\x00\x08\x05]//g;

       $v =~ s/[\t\r\n\x00\x08]//g;

       $v =~ s/\x05/\|\^\|/g;

       #my @arr = split(/\|\^\|/, $v, 14);

       $h_arr->{$k}=$v;

    }

    untie %h;

    return $h_arr;

}

#!/usr/local/mobigen/CrediMail/perl/bin/perl -w

BEGIN {

#$ENV{{IB_PATH} = "/usr/local/mobigen/mysql/lib/mysql";

#$ENV{LD_LIBRARY_PATH} = "/usr/local/mobigen/mysql/lib/mysql";

    push @main::INC, ".";

    push @main::INC, "/usr/local/mobigen/CrediMail/modules";

};

use strict;

use mobigen;

use DBI;

MAIN:

{

    if (! @ARGV) {

        print "Usage : $0 userid \n";

        exit(0);

    }

    my $db = DBI -> connect("DBI:mysql:database=private_db:host=localhost","id","password",{'RaiseError'=> 1}); #알맞게 수정하세요

    print "DB_CONNECT SUCCESS\n";

    my $sql = "SELECT * FROM TABLE";

    my $sth = $db->prepare($sql);

    $sth->execute();

    print "DB_SELECT MAILBOX\n";

    my $mailbox ={};

    while (my @row_ref = $sth->fetchrow_array){

        $mailbox->{$row_ref[0]} = $row_ref[1]} ;

    }

    $sth->finish;

    $db->disconnect();

}

foreach my $line (@array) {
    print "$line \n";
} 

print $_. "\n" foreach(@array);

#!/usr/bin/perl

use POSIX;

MAIN:

{

    my $c_date = POSIX::strftime("%Y%m%d%H%M%S", localtime(time()));

    print "$c_date \n";

}