# Test1.pm
package Test1;
hello{
print "HELLO\n";
}
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/bash | |
# | |
# Initialize new virtual server using LXC and set up networking and HTTP proxy | |
# | |
# Written by: Deni Bertovic <[email protected]> | |
# | |
# Released into Public Domain. You may use, modify and distribute it as you | |
# see fit. | |
# | |
# This script will: |
리스트에 기호들이 들어 있을 때, 연속된 기호가 일정한 거리를 두고 다시 나타나는 것을 반복이라고 하기로 하구요. 그 연속되는 기호의 단위 묶음을 반복셋이라고 하겠습니다. 같은 위치에서 시작하는 반복셋은 여러개가 있을 수 있습니다.
A B C A B C 의 경우에는
A _ _ A _ _ : offset 2
A B _ A B _ : offset 1
A B C A B C : offset 0
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package KorMailSend; | |
use strict; | |
use warnings; | |
use MIME::Lite; | |
use MIME::Base64; | |
use Encode qw(encode); | |
sub sendmail{ | |
my ($from,$to,$subj,$cont) = @_; | |
my $subj2 = '=?UTF8?B?' . encode_base64($subj) .'?='; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/bash | |
# | |
# Initialize new virtual server using LXC and set up networking and HTTP proxy | |
# | |
# Written by: Deni Bertovic <[email protected]> | |
# | |
# Released into Public Domain. You may use, modify and distribute it as you | |
# see fit. | |
# | |
# This script will: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use re 'regexp_pattern'; | |
my $reg = qr/(?i)abc/s; | |
my ($pat,$flag) = regexp_pattern $reg; | |
print "pat :$pat\n" | |
print "flag:$flag\n"; | |
# pat :(?i)abc | |
# flag:is |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use HTTP::Proxy; | |
my $proxy = HTTP::Proxy->new( | |
host => '', | |
port => 8080, | |
maxchild=>10, | |
); | |
$proxy->start; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use 5.010; | |
my $path = '.'; | |
my @types=qw( mov mp4 avi mkv m4v xvid divx wmv mpg mpeg ); | |
my @files = `find $path`; | |
chomp(@files); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import os | |
import getpass | |
from pyasn1.codec.der import decoder as der_decoder | |
from cryptography.hazmat.backends import default_backend | |
from cryptography.hazmat.primitives import padding, hashes | |
from cryptography.hazmat.primitives.ciphers import Cipher, algorithms, modes | |
from cryptography.hazmat.primitives.asymmetric import padding as asympad | |
from cryptography.hazmat.primitives.serialization import load_der_private_key |
OlderNewer