かなり長い間、パールを探検することを夢見ていましたが、それでも成功しませんでした。 しかし、先日、私はすべての決意を集め、マニュアルに座った。 当然、解決策を必要とする問題が必要であり、それが見つかりました。 素晴らしいTimeOutマガジンがあり、無料の映画上映のためのチラシがそのウェブサイトで定期的に配布されています。 唯一のマイナス点は、これらの配信を購読できないことです。つまり、誰も無料で映画に招待状を送信しません。 この不便さを解決することにしました。
タイムアウトサイトにチラシが付いた写真は、
vkino.timeout.ru/pix/XXXXX.jpegのように
なります
。XXXXXはチラシの番号です。 番号は順番に並んでいます。つまり、タスクは定期的に新しい画像が表示されたかどうかを確認することです。 画像が表示される場合、その画像はサーバーにダウンロードされ、そこでプレビューが作成され、特定のアドレスに送信されます。 ダウンロードした画像の数とメールアドレスはテキストファイルに保存されます。 クラウンで実行されます。
実際には、コード：
#!/usr/bin/perl
use LWP::Simple;
use MIME::Lite;
use GD;
print "Content-type: text/html; charset=UTF-8\n\n" ;
open(FLY, "+< ../data/flyers" );
flock(FLY,2);
my @flyers = <FLY>;
@flyers=reverse(@flyers);
my $nextFlyer=$flyers[0];
my $nothing=1;
for ($n=1; $n<4; $n++){ # ,
if ($nothing){
$nextFlyer++;
while ($file= get ( "http://vkino.timeout.ru/pix/" .$nextFlyer. ".jpeg" )){
print FLY $nextFlyer. "\n" ;
open(IMG, "> ../i/" .$nextFlyer. ".jpg" );
binmode IMG;
print IMG $file;
close(IMG);
$image=GD::Image->newFromJpeg( "../i/" .$nextFlyer. ".jpg" , 1);
$thubmHeight=240;
$thubmWidth=$thubmHeight*$image->width/$image->height;
$thumb= new GD::Image($thubmWidth,$thubmHeight,1);
$thumb->copyResampled($image,0,0,0,0,$thumb->getBounds(),$image->getBounds());
open(IMG, "> ../i/" .$nextFlyer. "-thumb.jpg" );
binmode IMG;
print IMG $thumb->jpeg(80);
close(IMG);
open(MAILS, "< ../data/mails" );
flock(MAILS,2);
@mails = <MAILS>;
close(MAILS);
foreach my $mail (@mails){
$msg=MIME::Lite-> new (
From => 'merrymakers.ru <info@merrymakers.ru>' ,
To =>$mail,
Subject => ' !' ,
Data => ", ! - .. ?))"
);
$msg->attach(
Type => 'image/jpeg' ,
Path => '../i/' .$nextFlyer. '.jpg' ,
Filename => 'timeout.jpg'
);
$msg->send;
}
$nextFlyer++;
$nothing=0;
}
}
}
close(FLY);
* This source code was highlighted with Source Code Highlighter .
http://timeout.merrymakers.ru/-これはピーター向けです
http://freekino.merrymakers.ru/-これはモスクワ用です
私はもう一度繰り返します-私は2日前に最初にパールを見ました。 あなたのコメントを聞きたいです。
UPD：大切なリストにあなたのメールアドレスを入力できてうれしいです。 あなたから-vantoozz@gmail.comと都市への手紙））
UPD2： RSSを追加しました。
http://timeout.merrymakers.ru/films.xml-サンクトペテルブルクおよび
http://freekino.merrymakers.ru/films.xml-モスクワ用