본문 바로가기

Programming/Perl16

[Perl] SQL 스크립트에서 대상 정보 추출 SQL 스크립트에서 대상 정보 추출 SQL CREATE TABLE AT_JN ( SU_NO NUMBER(28) NULL , BL_NO NUMBER(28) NULL , CB_CD CHAR(1) NULL , RE_CD CHAR(5) NULL ); Perl 위와 같은 SQL 문에서, 테이블명, 컬럼명, 데이터 타입을 추출하기 위해 펄 코드를 작성하였습니다. use strict; use warnings; my $log_file = "F:\\erd_table_column.txt"; open LOG_FILE, $log_file or die $!; my $new_file = $log_file . "result"; open(my $result_file, '+>', $new_file) or die "Could not o.. 2014. 12. 7.
The 2008 Winter Scripting Games / Beginner Event 1: Pairing Off http://www.microsoft.com/technet/scriptcenter/funzone/games/games08/bevent1.mspx 설명중에는 숫자로 표현해 놓고, 플그램에서는 영문으로 다루라고 해 놓는 센스. 난이도 조절???음..?? Event Scenario This is one of the less-complicated events, both to explain and to perform. In this event we’ll be working with a standard deck of playing cards. A standard deck consists of four suits: Hearts, Spades, Clubs, and Diamonds. Within each suit are.. 2009. 5. 23.
pl- 시저의 암호 평 문 a b c d e f g h i j k l m n o p q r s t u v w x y z 암호문 D E F G H I J K L M N O P Q R S T U V W X Y Z A B C 다음과 같이 암호화를 하면 된다. use strict; use warnings; my @alphabet=(a..z); my $diff=3; foreach (split//,){ my $word=$_; my $i=0; foreach(@alphabet){ print $alphabet[($i+$diff)%26] if $_ eq $word; $i++; } } 암호화만,,,,,,,,,, 해독은.............음.........어떻게 하지... 2009. 5. 16.
Perl Underground 2 원문: http://www.milw0rm.com/papers/89 Perl Underground 2: Judgement Day Judgement: 재판, 심판 AKA :also known as Naïve Sorting @sorted = sort { $a $b } @numbers; # ascending order @sorted = sort { $b $a } @numbers; # descending order 정렬에 사용되는 두 가지 특수한 변수 $a , $b. 그 순간에 비교되는 것들을 대표한다. $a 가 $b 보다 앞에 있으면 -1 을 반환, 같으면 0을 반환, 뒤에 있으면 1을 반환한다. @sorted = sort { $a cmp $b } @unsorted; @sorted = sort @unsorted.. 2009. 5. 2.
perl underground 1-3 원문: http://www.milw0rm.com/papers/88 while loop. 이 루프는 if 제어문 과 비슷하다. 조건이 참이면 코드 블록의 실행을 계속한다. ----- $i = 0; while ($i 2009. 5. 2.
perl underground 1-2 원문: http://www.milw0rm.com/papers/88 # Yet no strict? Use Strict 을 사용하자~ $masterurl = @ARGV[0]; ## my $masterurl = shift; Parens : parenthesis : 둥근 괄호 close(FILE); # mmm unneeded parens $masterurl = $masterurl . "/images/default.php"; ## $masterurl .= "/images/default.php"; $cmdline="echo 'ingreslock stream tcp nowait root /bin/sh sh -i' > /tmp/bob; /usr/sbin/inetd -s /tmp/bob"; $cmdline=$ARGV[0.. 2009. 5. 1.

티스토리툴바