#!/usr/bin/perl -w
use jcode;
use Time::Local;
# 必要なら適当に python 用 proxy の設定．
$ENV{ 'http_proxy' } = 'http://hoge.hoge:8080';
$ENV{ 'https_proxy' } = 'https://hoge.hoge:8080';
# stdin を全部読み込んでいったん EUC に変換
$_ = join( '', <> );
Jcode::convert( \$_, 'euc' );
@_ = split( /\x0D*\x0A/, $_ );
# メールのパース
$Summery =
$Location =
$Description = '';
$DateStart = $DateEnd = ':';
while( $#_ >= 0 ){
$_ = shift( @_ );
if( $_ eq '[予定]' ){
$Summery = shift( @_ );
}elsif( $_ eq '[日時]' ){
$_ = shift( @_ );
if( m#(\d+)/(\d+)/(\d+)\s+(\d+):(\d+)～(\d+):(\d+)# ){
# 時間指定あり
$DateStart = timelocal(
0, $5, $4,
$3, $2 - 1, $1
);
( $Sec, $Min, $Hour, $Day, $Mon, $Year ) =
localtime( $DateStart - 9 * 3600 );
$DateStart = sprintf(
":%4d%02d%02dT%02d%02d%02dZ",
$Year + 1900, $Mon + 1, $Day, $Hour, $Min, $Sec
);
$DateEnd = timelocal(
0, $7, $6,
$3, $2 - 1, $1
);
( $Sec, $Min, $Hour, $Day, $Mon, $Year ) =
localtime( $DateEnd - 9 * 3600 );
$DateEnd = sprintf(
":%4d%02d%02dT%02d%02d%02dZ",
$Year + 1900, $Mon + 1, $Day, $Hour, $Min, $Sec
);
}elsif( m#(\d+)/(\d+)/(\d+)# ){
# 時間指定なし
$DateStart = sprintf( ";VALUE=DATE:%04d%02d%02d", $1, $2, $3 );
$DateEnd = timelocal(
0, 0, 0,
$3, $2 - 1, $1
);
( undef, undef, undef, $Day, $Mon, $Year ) =
localtime( $DateEnd + 24 * 3600 );
$DateEnd = sprintf(
";VALUE=DATE:%04d%02d%02d",
$Year + 1900, $Mon + 1, $Day
);
}else{
# よくわからない時間指定，とりあえず無視
}
}elsif( $_ eq '[場所]' ){
$Location = shift( @_ );
}elsif( $_ eq '[内容]' ){
while( $#_ >= 0 ){
$_ = shift( @_ );
last if( $_ =~ /^\[/ );
$Description .= '\n' if( $Description ne '' );
$Description .= $_;
}
}
}
# iCalender 本文
$_ = << "EOF";
BEGIN:VCALENDAR
VERSION:2.0
BEGIN:VEVENT
DTSTART$DateStart
DTEND$DateEnd
DESCRIPTION:$Description
LOCATION:$Location
SEQUENCE:0
STATUS:CONFIRMED
SUMMARY:$Summery
TRANSP:OPAQUE
END:VEVENT
END:VCALENDAR
EOF
Jcode::convert( \$_, 'utf8' );
s/\x0A/\x0D\x0A/g;
$TmpFile = "/tmp/aipo2gcal$$.ics";
open( fpOut, "> $TmpFile" );
print fpOut $_;
close( fpOut );
system( "/home/hoge/bin/gcalcli import $TmpFile" );
unlink( $TmpFile );
 ◆在庫処分の為に大特価★早い者勝ち在庫限り★超特価★REVEX【リーベックス】 節電 エコタイ... |
#!/usr/bin/perl -w
use strict 'vars';
use strict 'refs';
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
my $TimeoutCnt;
while( 1 ){
$_ = `ping -n 1 www.yahoo.co.jp -w 1000`;
if( !/Reply from/ ){
++$TimeoutCnt;
}else{
$TimeoutCnt = 0;
}
print( "Timeout = $TimeoutCnt\n" );
if( $TimeoutCnt >= 15 ){
RebootWM3500R();
print( "restarting WR3500...\n" );
sleep( 10 );
while( 1 ){
$_ = `ping -n 1 192.168.0.1 -w 1000`; # WM3500R が再起動するまで待つ
last if( /Reply from/ );
}
print( "done\n" );
$TimeoutCnt = 0;
}
sleep( 1 );
}
sub RebootWM3500R {
# リクエストの生成
my $url = 'http://web.setup/index.cgi/reboot_main_set';
my %formdata = (
'UPDATE_BUTTON' => '%BA%C6%B5%AF%C6%B0',
'DUMMY' => '',
'DISABLED_CHECKBOX' => '',
'CHECK_ACTION_MODE' => '1',
);
my $request = POST( $url, [%formdata] );
# UserAgentを生成して処理
my $ua = LWP::UserAgent->new;
my $res = $ua->request( $request );
#print $res->as_string;
}
# WR3500 の admin 認証
package LWP::UserAgent;
sub get_basic_credentials {
return ( 'admin', 'hogehoge' );
}
Scale1 = 3
Scale2 = 2
DirectShowSource( "hoge.ts", pixel_type="YUY2", convertfps=true )
AssumeScaledFPS( Scale1, Scale2 )
TimeStretch( tempo = Scale1 * 100.0 / Scale2 )
Scale1 = 3
Scale2 = 2
FFmpegSource2( "hoge.ts", atrack=-1, cachefile="hoge.ts.ffindex", fpsnum=30000, fpsden=1001 ).ConvertToYUY2
AssumeScaledFPS( Scale1, Scale2 )
TimeStretch( tempo = Scale1 * 100.0 / Scale2 )
: 変数セット
set TmpDir=%temp%\mpc_playlist
set Player="C:\Program Files\MediaPlayerClassic\mplayerc.exe" /fixedsize 860,550
set FileName=%1
: tmp ファイルフォルダ作成
if Exist %TmpDir%\ del /y %TmpDir%\*
mkdir %TmpDir%
: .avs 作成
set FileNameOrg=%FileName%
StrTokFile=STF_NAME FileName "%FileName%"
set FileName=%TmpDir%\%FileName%.avs
echo Scale1 = 3> "%FileName%"
echo Scale2 = 2>> "%FileName%"
echo FFmpegSource2( "%FileNameOrg%", atrack=-1, cachefile="%FileName%.ffindex", fpsnum=30000, fpsden=1001 ).ConvertToYUY2>> "%FileName%"
echo AssumeScaledFPS( Scale1, Scale2 )>> "%FileName%"
echo TimeStretch( tempo = Scale1 * 100.0 / Scale2 )>> "%FileName%"
: とりあえず普通再生の画面を起動
start %Player% "%FileNameOrg%"
: index を作成，1個出来たら mpc 起動
exec=SW_HIDE "C:\Program Files\AviSynth 2.5\plugins\ffmsindex.exe" -p "%%a" "%FileName%.ffindex"
start %Player% "%FileName%"
