acotie

#!/usr/bin/perl
use strict;
use warnings;
use Config::Pit;
use AnyEvent::Twitter;
use AnyEvent::Twitter::Stream;
use Mac::Growl ':all';
use Encode;

# Setting

acotie

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)");
$mech->add_header( 'Referer', "http://bijint.com/jp/" );

my $base_url = 'http://www.bijint.com/binan/img/clk/';

acotie

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)");
$mech->add_header( 'Referer', "http://bijint.com/jp/" );

my $base_url = 'http://www.bijint.com/binan/img/clk/';

acotie

my $username = 'username';
my $password = 'pass';

# uranai_data
my $filename = './mezaura.yaml';
my $data     =  YAML::LoadFile($filename);

my $twit = Net::Twitter->new(username => $username, password => $password);

my $count = 1;

acotie

#!/us/bin/perl                                                                                 
        
use strict;
use Web::Scraper;
use URI;
use Net::Twitter;
use YAML;

my $uri = URI->new("http://www.fujitv.co.jp/meza/uranai/");
my $scraper = scraper {

acotie

<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute">
	<mx:Label x="10" y="10" text="バインディングを確認するサンプル" fontWeight="bold" fontSize="12" />
	<mx:TextInput x="126" y="50" id="input_text" width="254" />

	<mx:Label x="10" y="52" text="文字を入力して下さい:" />
	<mx:Label x="10" y="104" text="バインディングによる表示:" />
	<mx:Label x="137" y="196" width="275" text="{input_text.text}" />
	<mx:Label x="126" y="196" width="275" id="output_lbl" />
	<mx:Button x="10" y="194" label="値をコピー" width="100" click="output_lbl.text = input_text.text;" />

acotie

<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute">
	<mx:Button click="mx.controls.Alert.show('ボタンが押されました')"  x="176.5" y="177" label="hello"/>
</mx:Application>

acotie

<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" styleName="plain" pageTitle="Flex Basicサンプル: ドロップインアイテムレンダラー/アイテムエディタ" creationComplete="getPersonData.send()">
<mx:Script>
	<![CDATA[
		import mx.rpc.events.ResultEvent;
		import mx.collections.ArrayCollection;
		import mx.containers.*;
		[Bindable]
		private var personList:ArrayCollection;
	]]>

acotie

<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" styleName="plain" layout="absolute" xmlns:components="components.*" 
	width="829" height="529" pageTitle="Flex Basicサンプル：カスタムMXMLコンポーネント(MXML Components)">

	<components:comp1 id="comp1" y="51" dispString="{comp2.textinput1.text}" />
	<components:comp2 id="comp2" x="408" y="51" />
	
	<mx:ApplicationControlBar x="10" y="0" width="100%">
		<mx:Label text="メインアプリケーション" fontSize="16" />
	</mx:ApplicationControlBar> 

acotie

if has('gui_macvim')
    set showtabline=2	" タブを常に表示
    set imdisable	" IMを無効化
    set transparency=10	" 透明度を指定
    set antialias
    set guifont=Monaco:h14
    colorscheme macvim
endif