＃！/ usr / bin / perl



open qw （ ： std ： utf8 ）を使用し ます。

LWPを使用する :: Simple ;

YAML :: Tinyを 使用し ます。

JSONを使用します。

URIを使用し ます。

DBIを使用し ます。

DBD :: MySQLを 使用し ます 。



$ DB_LOGIN = "======== DB-USER ========== ;;

$ DB_PASS = "======== DB-PASS ==========" ;

$ DATABASE = "======== DB-NAME ========== ;

$ USER = '======== YOUR-LJ-USER ===========' ;

私の $ access_token = '======== YOUR-ACCESS-TOKEN-SEE-GRAPH.FACEBOOK.COM-FOR-THE-DETAILS ==========' ;



＃ARGV [0]は、facebookが次のページURLに「まで」CGIパラメーターの値として配置する値です。

$ until = $ ARGV [ 0 ] ;



my $ dbh = DBI- > connect （ "DBI：mysql：database = mysql; host = localhost" 、 $ DB_LOGIN 、 $ DB_PASS ） || die "データベースへの接続エラー：$！n" ;



$ dbh- > do （ "use $ DATABASE;" ） ;



＃次の4行はFacebookグラフAPIリクエスト用

私の $ uri = 新しい URI （ 'https://graph.facebook.com/me/feed' ） ;

$ uri- > query_form （ { access_token => $ access_token 、 until => $ until 、 base_amount => 1 、 value => 1 } ） ;

私の $ resp = get （ "$ uri" ） ;

$ resp = defined $ resp ？ decode_json （ $ resp ） ： undef ;



$ next = $ resp- > {ページング} -> { next } ;

$ next =〜 /until =( . +) $ / ;

$ until = $ 1 ;



＃スクリプトの結果、すべての完了メッセージまたは次の反復のbashコマンドを表示することにしました。 少し奇妙に見える...



if （ $ until ！= "" ） {

"./facebook.pl"を 印刷します 。 $まで 。 "n" ;

} その他

{

「すべて完了」を 印刷し ます。

}



＃データベースの更新

私の $投稿 （ @ { $ resp- > { data } } ） {

$ ctime = $ post- > { created_time } ;

$ ctime =〜 /(dddd ) -( dd ) -( dd) .( dd):(dd):(dd) /;

（ $ y 、 $ m 、 $ d 、 $ h 、 $ i 、 $ s ） = （ $ 1 、 $ 2 、 $ 3 、 $ 4 、 $ 5 、 $ 6 ） ;

$ time = "$ h：$ i：$ s" ;

$ sqltime = $ y 。 $ m 。 $ d 。 $ h 。 $ i 。 $ s

$ message = $ post- > {メッセージ} ;

$ link = $ post- > { link } ;

$ picture = $ post- > { picture } ;



$ sql = "select * from myposts where user = '$ USER' and ctime = '$ sqltime'" ;

$ sth = $ dbh- > prepare （ $ sql ） ;

$ sth- > 実行 ;



if （ $ sth- > rows == 0 ） {



$ sql = "myposts set user = '$ USER'に挿入、link =" $ dbh- > quote （ $ link ） 。 "、picture_fb =" 。 $ dbh- > quote （ $ picture ） 。 "、message =" 。 $ dbh- > quote （ $ message ） 。 "、ctime = '$ sqltime'" ;



＃次の行は、twitterのような投稿をフィルタリングするためのものです。 それらの大半は、既存のFacebookやライブジャーナルへのリンクであるため、それらをスキップすることにしました。

if （ $ message ！〜 / t .co // ） {

$ dbh- > do （ $ sql ） ;

}

}

}

＃！/ usr / bin / perl



LJ :: シンプルを 使用し ます。

Date :: Manipを 使用し ます。

DBIを使用し ます。

DBD :: MySQLを 使用し ます 。



$ USER = '======== YOUR-LJ-USER ===========' ;

$ DB_LOGIN = "======== DB-USER ========== ;;

$ DB_PASS = "======== DB-PASS ==========" ;

$ LJ_NAME = "======== LJ-USER ===========" ;

$ LJ_PASS = "======== LJ-PASS ==========" ;



$ DATABASE = 'facebook' ;

$ DEBUG = 1 ;



＃次の定数を「1」に設定することが非常に重要です

＃このスクリプトを使用してすべての古いレコードを移行することにした場合。

$ HIDE_FROM_FRIENDS_WALLS = 0 ;



私の $ dbh = DBI- > connect （

「DBI：mysql：database = mysql; host = localhost」 、

$ DB_LOGIN 、

$ DB_PASS 、

） || die "データベースへの接続エラー：$！n" ;



my $ lj = new LJ :: シンプル （ {

ユーザー=> $ LJ_NAME 、

pass => $ LJ_PASS 、

サイト=> "livejournal.com:80" 、

} ） ;

（ 定義済み $ lj ）

|| die "$ 0：LiveJournalへのログインに失敗しました：$ LJ :: Simple :: errorn" ;



$ sql = "ctime、UNIX_TIMESTAMP（ctime）、リンク、メッセージ、picture_fb、mypostsからのid（user = '$ USER'およびlj_html_idはctime desc limit 0,1によるNULL順）を選択します。" ;

$ dbh- > do （ "use $ DATABASE;" ） ;



@row_ary = $ dbh- > selectrow_array （ $ sql ） ;

if （ $ row_ary [ 0 ] == "" ） { exit ; }



（ $ ctime 、 $ ctime_ts 、 $ link 、 $ message 、 $ picture_fb 、 $ id ） = @row_ary ;



$ message =〜s / n / <br> <br> / g ; ＃HTML用のCRの準備



if （ $ DEBUG ） { print $ message 。 "n" ; }



＃投稿のテキストから主題を構築

$ messagelength = length （ $ message ） ;

if （ $ messagelength > 50 ） {

$ i = index （ $ message 。 "" 、 "" ） ;

{

$ j = $ i ;

$ i = index （ $ message 。 "" 、 "" 、 $ i + 1 ） ;

} while （ $ i < 50 ） ;

$ subject = （ length （ $ message ） > 50 ） ？ substr （ $ message 、 0 、 $ j ） 。 "..." ： $メッセージ ;



if （ $ DEBUG ） { print "posting $ subject ... n" ; }



my ％Entry = （ ） ; $ lj- > NewEntry （ ％Entry ） || die "$ 0：新しいエントリの作成に失敗しました：$ LJ :: Simple :: errorn" ;



＃croppedlink

$ croppedlink = （ length （ $ link ） > 50 ？

（ substr （ $ link 、 0、50 ） 。 "..." ）

：

$リンク ） ;

＃小さな画像を大きな画像に置き換える

if （ $ picture_fb =〜 / https ：// fbcdn / ） {

$ largepicture = $ picture_fb ;

$ largepicture = 〜s / _s / _n / g ;

$ entry = "<a href='$link'>" 。 $ croppedlink 。 "</a> <br>" 。

$メッセージ 。

"<br> <img src = '$ largepicture'>" ;

} else {

if （ $ link ne "" ）

{

$ entry = "<table> <tr> <td> <img src =" "。$ picture_fb。" "align = left> </ td> <td> <a href = '" 。 $リンク 。 "'>" 。

$ croppedlink 。

"</a> <br> $ message <br clear=all> </ td> </ tr> </ table>" ;

} その他

{

$ entry = "$ messagenn <a href='$link'> $ link </a> <br> <img src =" $ picture_fb ">" ;

}

}

$ lj- > SetEntry （ ％Entry 、 $ entry ） || die "$ 0：新しい投稿の準備に失敗しました-$ LJ :: Simple :: errorn" ;

$ lj- > SetSubject （ ％Entry 、 $ subject ） ;

$ lj- > SetDate （ ％Entry 、 $ ctime_ts ） ;

if （ $ HIDE_FROM_FRIENDS_WALLS ） { $ lj- > Setprop_backdate （ ％Entry 、 1 ） ; }

my （ $ item_id 、 $ anum 、 $ html_id ） = $ lj- > PostEntry （ ％Entry ） ;

（ $ item_idを 定義 ）

|| die "$ 0：仕訳入力の投稿に失敗しました：$ LJ :: Simple :: errorn" ;



if （ $ DEBUG ） { print "created item_id：" 。 $ item_id 。 "、anum：" 。 $ anum 。 "、html_id：" 。 $ html_id 。 "n" ; }



$ sql = "myposts set user = '$ USER'を更新、lj_ts = now（）、lj_item_id = '$ item_id'、lj_anum = '$ anum'、lj_html_id = '" $ html_id 。 "'where id =" 。 $ id ;



$ dbh- > do （ $ sql ） ;

！ / usr / bin / perl



Data :: Dumperを使用します。

POSIXを使用します。

LJ :: シンプルを使用します。

Time :: Localを使用します。

DBIを使用します。

DBD :: MySQLを使用します 。



$ LJ_LOGIN = "=========== LJ-LOGIN ============" ;

$ LJ_PASS = "=========== LJ-PASS ============" ;

$ DB_LOGIN = "=========== DB-LOGIN ============" ;

$ DB_PASS = "=========== DB-PASS =============" ;

$ DATABASE = "=========== DATABASE ============" ;

$ operation = "..." ; #setbackdate、purge ...



私の$ dbh = DBI- >接続（

「DBI：mysql：database = mysql; host = localhost」 、

$ DB_LOGIN、

$ DB_PASS、

） || die "データベースへの接続エラー：$！n" ;



$ dbh- > do （ "use $ DATABASE ;;" ） ;

$ sql = "mypostsからlj_item_idを選択します。ここで、lj_html_idはctime descのNULL順ではありません。" ;



$ results = $ dbh- > selectall_hashref （ $ sql、 'lj_item_id' ） ;

foreach my $ id （ keys ％ $ results ） {

＃$ id2 = $ results-> {lj_item_id};

push @ids、$ id ;

}

my $ lj = new LJ :: シンプル （ {

ユーザー=> $ LJ_LOGIN、

pass => $ LJ_PASS、

サイト=> undef、

プロキシ=> undef、

} ） ;



（定義済み$ lj ）

|| die "$ 0：LiveJournalへのログインに失敗しました：$ LJ :: Simple :: errorn" ;



print "logged on ... n" ;



私の％エントリ= （ ） ;



for （ @ids ） {

print "リクエストエントリ$ _... n" ;



（ $ lj- > GetEntries （ ％ Entries、undef、 "one" 、$ _ ）を定義）または"$ 0：エントリの取得に失敗しました-$ LJ :: Simple :: errorn" ;

私の$アイテム= $エントリ{ $ _ } ;



if （ $ operation == 'setbackdate' ） {

$ lj- > Setprop_backdate （ $ item、 1 ）またはprint "$ 0：日付プロパティの設定に失敗しました-$ LJ :: Simple :: errorn" ;

$ lj- > EditEntry （ $ item ）またはprint "$ 0：エントリの編集に失敗しました-$ LJ :: Simple :: errorn" ;

}

if （ $ operation == 'purge' ） {

$ lj- > EditEntry （ $ item、undef ） ;

}

$ sql = "mypostsセットを更新..." ;

$ dbh- > do （ $ sql ） ;

}

print "done.n" ;

exit （ 0 ） ;