#!C:Perl64inperl.exe
use strict;
use warnings;
use Selenium::Chrome;

# driver instances
my $driver = Selenium::Chrome->new();

# open google top page
$driver->get(’https://www.google.com’);

print $driver->get_title() . " ";

# close chrome driver
$driver->shutdown_binary();

exit;

$ENV{’ORACLE_HOME’} = "/usr/local/oracle";
$db = DBI->connect("DBI:Oracle:SID", "USERNAME", "Password");

メイン処理
#!/usr/bin/perl
use strict;
use warnings;
use DBI;

my $config_file = qq|./config.ini|;
my $dbh = &DB_Connect($config_file);

サブルーチン
sub DB_Connect{
　　my %Config_Hash =();
　　my $return = qq||;
　　if(-f $_[0]){
　　　　open(FH,$_[0]);
　　　　while(){
　　　　　　chomp($_);
　　　　　　my ($key,$value) = split(/=/,$_);
　　　　　　$Config_Hash{’HOST’} = $value if($key eq ’HOST’);
　　　　　　$Config_Hash{’PORT’} = $value if($key eq ’PORT’);
　　　　　　$Config_Hash{’SID’} = $value if($key eq ’SID’);
　　　　　　$Config_Hash{’SERVICE_NAME’} = $value if($key eq ’SERVICE_NAME’);
　　　　　　$Config_Hash{’UserID’} = $value if($key eq ’UserID’);
　　　　　　$Config_Hash{’Password’} = $value if($key eq ’Password’);
　　　　}
　　　　close(FH);
　　　　$return = DBI->connect(qq|DBI:Oracle:HOST=$Config_Hash{’HOST’};PORT=$Config_Hash{’PORT’};SID=$Config_Hash{’SID’};SERVICE_NAME=$Config_Hash{’SERVICE_NAME’}|,qq|$Config_Hash{’UserID’}|,qq|$Config_Hash{’Password’}|);
　　　　if(!defined($return)){
　　　　　　$return = Error(qq|DB connection failed.| . qq|$DBI::errstr|);
　　　　}
　　}else{
　　　　$return = qq|File $_[0] not found.|;
　　}
　　return $return;
}

config.ini の内容
HOST=[Host]
PORT=[Port Number]
SID=[SID]
SERVICE_NAME=[service name]
UserID=[User ID]
Password=[Pssword]

設定ファイルの例
HOST=127.0.0.1
PORT=1521
SID=ORCL
SERVICE_NAME=my_service_name
UserID=user_name
Password=passwd

#!/usr/bin/perl
use strict;
use warnings;
use Crypt::CBC;

my $content = qq||;

open(FH,"[plane_file]");
while(){ $content .= $_; }
close(FH);

my $key = ’crypt key’;# key
my $cipher = new Crypt::CBC($key,’Blowfish’);

$cipher->start(’encrypting’);
$content = $cipher->crypt($content);
$cipher->finish();
open(FH,"> [crypt_file]");
print FH $content;
close(FH);
exit;

$cipher->start(’decrypting’);
$content = $cipher->crypt($content);
$cipher->finish();

$cipher->decrypt("$content");

#!/user/bin/perl
use strict;
use warnings;
use LWP::UserAgent;

my $UserAgent = LWP::UserAgent->new;
# TimeOut
$UserAgent->timeout(8);

# Proxy
=pod
my $http_proxy = "[server]:[port]";
$ENV{HTTP_PROXY} = $http_proxy;
$ENV{HTTPS_PROXY} = $http_proxy;
$UserAgent->protocols_allowed(undef);
$UserAgent->env_proxy;
=cut

# Test URL
my $response = $UserAgent->get(’[URL]’);

if($response->is_success){
　　my @array_time = localtime(time);
　　$array_time[3] = sprintf("%02d",$array_time[3]);
　　$array_time[4] = sprintf("%02d",$array_time[4] + 1);
　　$array_time[5] = sprintf("%04d",$array_time[5] + 1900);　　
　　my $content = $response->content;
　　open(FH,">> $array_time[5]$array_time[4]$array_time[3].html");
　　print FH $content;
　　close(FH);
}else{
　　die $response->status_line;
}

exit;

#/usr/bin/perl
use DBI;

my $sql = qq|select value1 , value 2, value3 |;
　　$sql .= qq|from table_name |;
　　$sql .= qq|where value1 = :1 |;
　　$sql .= qq|and value2 = :2 |;

my $sth = $dbh->prepare($sql);
　　$sth->bind_param(1,$param1);
　　$sth->bind_param(2,$param2);
　　$sth->execute;

my @array = ();
my $var = $sth->fetchall_arrayref();
foreach(@$var){
　　#push(@array,@$_);
　　$value1 = $$_[0];
　　$value2 = $$_[1];
　　$value3 = $$_[2];
　　push(@array,qq|$value1,$value2,$value3|);
}

exit;

#!C:Perlinperl.exe
use strict;
use warnings;
use LWP::Useragent;
use HTTP::Request;
use Win32::GUI();
use Win32::Clipboard;

my $Clip = Win32::Clipboard();

# Create Window
my $Window = new Win32::GUI::Window(
　-name => ’Window’,
　-title => ’Sequentialer’,
　-accel => my $acc,
　-post => [400,300],
　-size => [400,300],
);
# Add Label
my $Label_Version = $Window->AddLabel(
　-name => ’Version’,
　-text => ’ver 1.10’,
　-align => ’left’,
　-top => 5,
　-left => 5,
　-width => 50,
　-height => 18,
);
my $Label_URL = $Window->AddLabel(
　-name => ’Label_URL’,
　-text => ’URL’,
　-align => ’left’,
　-top => 25,
　-left => 5,
　-width => 50,
　-height => 18,
);
my $Label_Extension = $Window->AddLabel(
　-name => ’Label Extension’,
　-text => ’Extension’,
　-align => ’left’,
　-top => 45,
　-left => 5,
　-width => 50,
　-height => 18,
);
my $Label_Header = $Window->AddLabel(
　-name => ’Label Header’,
　-text => ’Add 00’,
　-align => ’left’,
　-top => 44,
　-left => 136,
　-whdth => 50,
　-height => 18,
);
my $Label_Fooder = $Window->AddLabel(
　-name => ’Label Fooder’,
　-text => ’Add 99’,
　-align => ’left’,
　-top => 44,
　-left => 196,
　-width => 50,
　-height => 18,
);
my $Label_Hex = $Window->AddLabel(
　-name => ’Label_Hex’,
　-text => ’Hex(16)’,
　-align => ’left’,
　-top => 44,
　-left => 256,
　-height => 18,
);
my $Label_Result = $Window->AddLabel(
　-name => ’Label_Reault’,
　-text => ’Result’,
　-align => ’left’,
　-top => 63,
　-left => 5,
　-width => 50,
　-height => 18,
);
my $Label_Proxy = $Window->AddLabel(
　-name => ’Label_Proxy’,
　-text => ’Proxy’,
　-align => ’left’,
　-top => 63,
　-left => 135,
　-width => 50,
　-height => 18,
);
# Add Button
my $Button_Paste = $Window->AddButton(
　-name => ’Button_Paste’,
　-title => ’Paste’,
　-top => 20,
　-left => 323,
　-width => 60,
　-height => 18,
);
my $Button_Create = $Window->AddButton(
　-name => ’Button_Create’,
　-title => ’Create’,
　-top => 40,
　-left => 323,
　-width => 60,
　-height => 18,
);
my $Button_Copy = $Window->AddButton(
　-name => ’Button_Copy’,
　-title => ’Copy’,
　-top => 60,
　-left => 323,
　-width => 60,
　-height => 18,
);
# Add TextField
my $Textfield_URL = $Window->AddTextfield(
　-name => ’TextfieldURL’,
　-top => 21,
　-left => 60,
　-width => 240,
　-height => 18,
　-multiline => 0,
);
my $Textfield_Extension = $Window->AddTextfield(
　-name => ’TextfieldExtension’,
　-top => 41,
　-left => 60,
　-width => 50,
　-height => 18,
　-multiline => 0,
);
my $Textfield_Result = $Window->AddTextfield(
　-name => ’Textfield_Result’,
　-top => 80,
　-left => 5,
　-width => 380,
　-height => 180,
　-multiline => 1,
　-vscroll => 1,
);
# AddCheckBox
my $CheckBox_Header = $Window->AddCheckbox(
　-name => ’CheckBox_Header’,
　-top => 42,
　-left => 120,
　-width => 15,
　-height => 15,
　-checked => 0,
);
my $CheckBox_Footer = $Window->AddCheckbox(
　-name => ’CheckBox_Footer’,
　-top => 42,
　-left => 180,
　-width => 15,
　-height => 15,
　-checked => 0,
);
my $CheckBox_Hex = $Window->AddCheckbox(
　-name => ’CheckBox_Hex’,
　-top => 42,
　-left => 240,
　-width => 15,
　-height => 15,
　-checked => 0,
);
my $CheckBox_Proxy = $Window->AddCheckbox(
　-name => ’CheckBox_Proxy’,
　-top => 62,
　-left => 120,
　-width => 15,
　-height => 15,
　-checked => 0,
);

&Message_Label(’’);

# Display Window
$Window->Show;
$Window->Dialog;

exit;

# Clipboard_Paste
sub Button_Paste_Click{
　$Textfield_URL->Text($Clip->Get());
}
# Clipboard_Create
sub Button_Create_Click{
　my $Temp_URL = $Textfield_URL->Text();
　my $Temp_Extension = $Textfield_Extension->Text();
　my $Temp_Header = $CheckBox_Header->GetCheck();
　my $Temp_Footer= $CheckBox_Footer->GetCheck();
　my $Temp_Hex = $CheckBox_Hex->GetCheck();
　my ($Result,$Base);
　if($Temp_URL){
　　my @URL = split(///,$Temp_URL);
　　if($Temp_Hex){
　　　my($Number,$Extension) = split(/./,pop(@URL));
　　　if(($Number)and($Extension)and($Number =~ m/_/)){
　　　　$Extension = $Temp_Extension if($Temp_Extension);
　　　　my($XNum,$YNum) = split(/_/,$Number);
　　　　if($XNum !~ m/[^0-9]/){
　　　　　foreach(@URL){ $Base .= "$_/"; }
　　　　　my $Cnt = 1 - $Temp_Header;
　　　　　my $Nax = hex($YNum);
　　　　　while(1){
　　　　　　my ($Num,$LNum,$HNum) = (’’,’’,’’);
　　　　　　for(my $ZCnt=0;$ZCntrequest($request);
　　if($res->is_success){
　　　my $content = $res->content;
　　　$outfile = &Replace($outfile);
　　　open(FH, "> $directory$outfile");
　　　binmode FH;
　　　print FH "$content";
　　　close(FH);
　　　$filenum_ok++;
　　}else{
　　　$filenum_ng++;
　　}
　　sleep($waittime);
　　&Message_Label(’’);
　　&Message_Label("Data acquiring ... $filenum_ok/$filenum_all");
　}
　&Message_Label(’’);
　&Message_Label("Complete ! $filenum_ok/$filenum_all") if($filenum_ng == 0);
　&Message_Label("Complete ! $filenum_ok/$filenum_all NG File $filenum_ng") if($filenum_ng != 0);
}

# Clipboard_Copy
sub Button_Copy_Click{
　$Clip->Set($Textfield_Result->Text());
}

# Word replace for windows filename
sub Replace{
　my $word = $_[0];
　$word =~ s//￥/g;
　$word =~ s///／/g;
　$word =~ s/*/＊/g;
　$word =~ s/:/：/g;
　$word =~ s/?/？/g;
　$word =~ s//＞/g;
　$word =~ s/"/”/g;
　$word =~ s/|/｜/g;
　return($word);
}

# Create Message
sub Message_Label{
　my $Message = $_[0];
　$Message = ’ ’ unless($Message);
　my $Label_Message = $Window->AddLabel(
　　-name => ’Message’,
　　-text => "$Message",
　　-align => ’left’,
　　-top => 5,
　　-left => 60,
　　-width => 200,
　　-height => 17,
　);
　$Window->Update();
}

～この前に何かの処理
my @array = (’04001’,’4001’,’03001’,’5001’);
my %hash = ();
foreach(@array){
　　$hash{"$_"}++;
}
my @error = ();
foreach(sort keys %hash){
　　push(@error,$_) if($hash{"$_"} > 1);
}
これ以降何かの処理～

#!/usr/local/bin/perl
use strict;
use warnings;

my @array = ();
# 1週間分取得
for(-6..0){
　　my $a = &GetDate($_);
　　push(@array,$a);
}
# 表示確認
foreach(@array){
　　print "$_
";
}
exit;

# 日付を引数にして YYYY/MM/DD形式で返す
sub GetDate{
　　my $date = $_[0] * 24 * 60 * 60;
　　my @time = localtime(time + $date);
　　$time[3] = sprintf("%02d",$time[3]);
　　$time[4] = sprintf("%02d",$time[4]+=1);
　　$time[5] = sprintf("%04d",$time[5]+=1900);
　　return "$time[5]/$time[4]/$time[3]";
}

#!/usr/local/bin/perl
use strict;
use warnings;

my $host_name = &GetHost($ENV{’REMOTE_ADDR’});

print "Content-type: text/html; charset=utf-8";
print qq|ip address is $ENV{’REMOTE_ADDR’}|;
print qq|host name is $host_name|;

exit;

sub GetHost{
　my($ip) = @_;
　my @addr = split(/./,$ip);
　$ip = pack("C4",$addr[0],$addr[1],$addr[2],$addr[3]);
　my($host_name) = gethostbyaddr($ip,2);
　return $host_name;
}

#!/usr/bin/perl

use strict;
use warnings;

my $base_name = ’./dummy’;

# Start Rename.
# Read base directory files.
my @file = &Function_Read_Directory($base_name);

# Rename files to file update time.
foreach(@file){
　　# File found image file.
　　my $fn = qq|$base_name/$_|;
　　if((-f qq|$fn|)and($_ =~ m/(.jpg$)|(.jpeg$)|(.png$)|(.bmp$)/gi)){
　　　　# Get file update time.
　　　　my($sec,$min,$hour,$day,$mon,$year) = localtime((stat($fn))[9]);
　　　　# Conversion random number.
　　　　my $int = sprintf("%05d",rand(int(10000)));
　　　　# Conversion update time.
　　　　my $update_time = sprintf("%04d%02d%02d%02d%02d%02d",$year+1900,$mon+1,$day,$hour,$min,$sec);
　　　　# Temp rename target file. // extension no change.
　　　　if($fn =~ m/(.*).(.*)/g){
　　　　　　rename($fn,qq|$base_name/$update_time$int.$2|);
　　　　}
　　}
}

# Read base directory files.
@file = ();
@file = &Function_Read_Directory($base_name);

my $cnt = 0;
foreach(@file){
　　# File found image file.
　　my $fn = qq|$base_name/$_|;
　　if((-f qq|$fn|)and($_ =~ m/(.jpg$)|(.jpeg$)|(.png$)|(.bmp$)/gi)){
　　　　# Conversion count.
　　　　$cnt = sprintf("%05d",$cnt);
　　　　# Commit rename target file. // extension no change.
　　　　rename($fn,qq|$base_name/$cnt.$2|) if($fn =~ m/(.*).(.*)/g);
　　　　# Add count
　　　　$cnt++;
　　}
}

# Read directory.
sub Function_Read_Directory{
　　# Read directory.
　　opendir(DIR,qq|$_[0]|) or die;
　　my @dir = readdir(DIR);
　　closedir(DIR);
　　# Sort descending order.
　　my @sort_dir = sort {$a cmp $b} @dir;
　　return @sort_dir;
}

exit;