리눅스에서 다른 서버( Windows Server 2016 )에 구성되어 있는 SQL Server (MSSQL)로 연결하기 위해서는 관련 패키지가 필요하다. [ 구성 환경 ] - 리눅스 : RHEL 7.3 - SQL Server's OS : Windows Server 2016 / 192.168.100.62 [ 구성 ] 1. ODBC rpm 설치 [root@openfoam ~]# yum install unixODBC.x86_64 unixODBC-devel.x86_64 2. freeTDS rpm 설치 [root@openfoam ~]# rpm -ivh freetds-0.95.81-1.el7.x86_64.rpm 3. DBI / DBD-ODBC Perl Module 설치 - DBI-1.642.tar.gz - DB..

#!/usr/bin/perl @array = `./print.pl 20170101 20170228`;foreach $a ( @array ){ chomp $a; print "/root/print.pl $a\n";}

목적 : 변수로 시작일과 종료일을 받아와 그 사이의 모든 날을 출력하기.실행 예시 : ./date.pl 20160101 20160630예시 결과 : 20160101 20160102 20160103 20160104 ........ 20160628 20160629 20160630 #!/usr/bin/perluse warnings; use strict;use Time::Local; if( $#ARGV < 1 ){ print "Check Argument\n"; exit;} my $start = $ARGV[0];my $end = $ARGV[1];my $date = "";my $cnt = 0; while(1){ $date = &getDate($start, $cnt); print "$date\n"; if($date ..

#!/usr/bin/perlforeach(1..5){ $mon=$_; if($mon eq "1" || $mon eq "3" || $mon eq "5" || $mon eq "7" || $mon eq "8" || $mon eq "10" || $mon eq "12"){ foreach(1..4){ $day=$_; if(length($mon) eq 1){ $mon="0$mon" } if(length($day) eq 1){ $day="0$day" } print "2015$mon$day\n"; } }elsif($mon eq "2"){ foreach(1..4){ $day=$_; if(length($mon) eq 1){ $mon="0$mon" } if(length($day) eq 1){ $day="0$day" } pri..