YAPC::Kansai 2017 - macOSネイティブアプリ作成におけるPerlの活用

macOSネイティブアプリ
作成におけるPerlの活⽤
YAPC::Kansai 2017
野⽥純⽣( junnama@alfasado.jp )

about @junnama
✴ アルファサード株式会社代表取締役
✴ W3Cメンバー
✴ ご当地/懇親会スポンサーになりました!
✴ CMS「PowerCMS」(Perl製)の開発
✴ MTのプラグインを⼀番たくさん書いている⼈
✴ macOSネイティブアプリ開発

https://xojo.grapecity.com

Xojo (ゾージョー)
✴ CrossBasic => REAL Basic => REAL Studio
✴ ⾔語はBasic!
✴ macOS/Windows/Linux/iOSアプリを作成
✴ クロスプラットフォーム
✴ Single Desktop 16,000円∼
✴ 開発は無料(ビルドしたアプリを配布する段階でラ
イセンスが必要)

本⽇のお題
macOSネイティブアプリ
作成におけるPerlの活⽤

Dim Sh As New Shell
Sh.Execute( "ls" )
MsgBox( Sh.ReadAll )

http://junnama.alfasado.net/online/2013/12/mac_os_x.html

screencapture foo.png
screencapture -R 117,226,100,100
screencapture -t pdf foo.pdf
screencapture

✴ 現在の座標の周辺のキャプチャを取得
✴ Canvas に表⺬
✴ 中央の⾊(Color)を取得
✴ ⾊名に変換して表⺬する
screencapture + Xojo

mdfind -onlyin /Applications/
'kMDItemContentTypeTree=="com.appl
e.application"
mdfind
※Spotlightのコマンドラインツール

✴ リストボックスからドラッグされた時
✴ ⼀意の名前のファイルをテンポラリに
✴ ファイルを不可視にしてドラッグ
✴ タイマーを⾛らせる
✴ mdfindでドロップされた場所を得る
mdfind + Xojo

Dim d As Date = New Date
Dim hex As String
Dim bytes As String
bytes = MD5( Str( round( rnd * 3000 ) + 1 ) )
Dim hex As String = EncodeHex( bytes )
F = F.Child( "dragitem-" + hex +"-"
F = F + Format( d.TotalSeconds, "#") + ".abcd" )
FS = BinaryStream.Create( F, true )
FS.close
F.visible = False
Dim di As DragItem
DraggingItem = F.Name
mdﬁnd

di = New DragItem
(self,System.MouseX,System.MouseY-Main.Top,64, 64)
di.FolderItem = F
di.Drag
WatchFile.Mode = Timer.ModeMultiple
Return False
mdﬁnd
Dim Command As String = "mdfind -name " +
DraggingItem
Dim Sh As New Shell
Sh.Execute( Command )
Dim Res As String = Sh.ReadAll
if Res <> "" Then
F = GetFolderItem( Res )
...

my $StorageClient = Net::Azure::StorageClient->new(
type => 'Blob',
account_name => $you_account_name,
primary_access_key => $your_primary_access_key,
protocol => 'https',
api_version => '2012-02-12' );
my $res = $StorageClient->get( $url );
print $res->content;

use strict;
use lib qw( lib );
use Getopt::Long qw/:config posix_default
no_ignore_case bundling auto_help/;
...

GetOptions(my %options, qw/
account=s
accesskey=s
path=s
action=s
acl=s
file=s
get_all=i
thread=i
metadata=s
pass=s
proc=s
/);
…

cd path/to/app; perl app.pl
--action=get --path https://foo.blob....

Dim AppName As String = CurrentBuildAppName
AppName = ReplaceAll( AppName, " ", " " )
Dim AppPath As String
AppPath = CurrentBuildLocation + "/"
+ AppName + ".app"
Dim Command As String
command = "cp /path/to/src.zip "
+ AppPath + "/Contents/MacOS/src.zip"
Call DoShellCommand( Command )
command = "cd " + AppPath
+ "/Contents/MacOS; unzip src.zip"
command = "cd " + AppPath + "/Contents/MacOS; rm src.zip"
ビルドの際にPerlスクリプトをコピーする

Dim App as new application
Dim MyApp As FolderItem
MyApp = App.ExecutableFile
Dim Name As String = MyApp.Name + ".app"
MyApp = GetFolderItem( MyApp.NativePath,3 ).Parent
Dim CMD As String = “cd ” + MyApp.ShellPath + “;”
CMD = CMD + “perl src/app.pl --account ”
CMD = CMD + EscapeShell ( Account )
CMD = CMD + “ --token ” + EscapeShell( Token )
CMS = CMD + “ --action put --path ” + EscapeShell( Path )
CMS = CMD + “ --file ” + EscapeShell( File.ShellPath )

cd path/to/MyApp/Contents/MacOS;
perl ./app.pl --action=get --path https://foo.blob....

ありがとうございました!
アルファサードではエンジニアを募集中です!

YAPC::Kansai 2017 - macOSネイティブアプリ作成におけるPerlの活用

More Related Content

What's hot (20)

Viewers also liked (20)

Similar to YAPC::Kansai 2017 - macOSネイティブアプリ作成におけるPerlの活用 (20)

More from 純生野田 (20)