youtube logo

鐃緒申鐃縦をさわ申鐃�YouTube plugin 4 charlow鐃祝ワ申鐃藷スパワ申鐃巡さ鐃緒申董鐃緒申鐃緒申鐃淑の削申辰討澆鐃緒申鐃�

[鐃緒申] YouTube鐃竣ラグ鐃緒申鐃緒申 
## YouTube
# usage: {{youtube('ID', 'size:1<2<3<4<5(default)<6<7<...')}}
# Ex. {{youtube("e9-L68H0AHU", 2)}}
sub youtube {
    my ($id, $size) = @_;
    $size = 5 if (not defined $size or $size < 1);
    my $url = "http://www.youtube.com/v/$id";
    my ($w, $h) = (85 * $size, 70 * $size);
    qq(<param name="movie" value="$url"></param>).
    qq(<embed src="$url" type="application/x-shockwave-flash" ).
    qq(width="$w" height="$h"></embed></object>\n);
}

鐃竣は￥申鐃緒申鐃縦をさわ申鐃�plugin鐃緒申JavaScript鐃緒申鐃緒申鐃緒申鐃緒申痢鐃緒申鐃緒申覆鐃緒申鐃緒申鐃�鐃緒申鐃緒申-鐃夙駕申鐃緒申鐃緒申鐃塾よう鐃祝￥申続鐃緒申鐃緒申里鐃銃逸申鐃薯扱わ申鐃塾に手頃鐃緒申鐃盾し鐃緒申覆鐃緒申鐃緒申覆鐃緒申鐃緒申鐃緒申鐃緒申任漏鐃�Video鐃塾ワ申鐃緒申鐃夙ワ申蓮鐃�鐃夙駕申鐃緒申鐃緒申鐃�entry鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申僂鐃緒申鐃緒申鐃�ID鐃熟わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申團擇鐃緒申笋刻申鐃緒申辰鐃緒申里如鐃�

鐃緒申鐃緒申: 鐃縮種申:

鐃淑常申鐃緒申鐃緒申鐃緒申鐃緒申里忙鐃緒申僂鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申蓮鐃�HTML鐃緒申分鐃緒申泙鐃銃以駕申鐃塾とわ申鐃所。<select>鐃緒申鐃緒申鐃緒申鐃緒申箸鐃緒申鐃緒申僂鐃緒申鐃出￥申他鐃叔わ申鐃獣縁申忙箸鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申

鐃緒申鐃藷スパワ申鐃緒申里鐃緒申鐃祝種申足鐃淑わ申鐃初元鐃夙なっわ申perl script鐃緒申添鐃緒し鐃銃みわ申鐃緒申

直鐃緒申鐃銃みわ申鐃緒申鐃春緒申楼焚鐃緒申里箸鐃緒申蝓�

  1. $size鐃塾緒申鐃緒申鐃緒申砲弔鐃緒申鐃�
  2. http://www.youtube.com/v/鐃緒申愎鐃緒申鐃緒申鐃緒申Hardcode鐃緒申鐃緒申里辰討匹鐃緒申鐃�?
  3. $w鐃緒申$h鐃熟逸申圓鼎鐃�
  4. 鐃殉鰹申perl鐃淑のわ申鐃緒申鐃初、Here Text鐃緒申

鐃殉わ申$size鐃塾緒申鐃緒申鐃緒申覆里鐃緒申鐃緒申鼻鐃�

$size = 5 if (not defined $size or $size < 1);

鐃獣てのわ申無鐃縮わ申多鐃緒申鐃緒申

$size = 5 if $size < 1;

鐃叔緒申分鐃緒申鐃淑わ申鐃緒申鐃夙わ申鐃緒申鐃夙￥申not defined鐃緒申鐃緒申立鐃緒申鐃緒申鐃緒申隋�$size鐃熟随申鐃粛でわ申0鐃祝なわ申里如鐃�$size < 1鐃緒申鐃緒申動的鐃緒申鐃緒申立鐃緒申鐃暑か鐃初。

鐃緒申鐃緒申http://www.youtube.com/v/鐃淑のわ申鐃緒申鐃宿￥申鐃緒申鐃緒申鐃緒申鐃獣わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑わ申戮鐃緒申愎鐃緒申鐃緒申鐃緒申任鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃淑わ申鐃緒申鐃殉わ申鐃緒申鐃緒申鐃�plugin鐃淑ので￥申鐃春ワ申鐃緒申鐃緒申鐃緒申鐃塾わ申鐃緒申百鐃峻もあ鐃緒申箸鐃緒申鐃緒申鐃緒申箸蝋佑鐃緒申砲鐃緒申鐃緒申里鐃緒申鐃緒申鼻鐃緒申鐃緒申鐃叔もこ鐃緒申鐃緒申鐃獣わ申鐃緒申鐃緒申呂覆鐃駿わ申鐃緒申鐃緒申鐃獣ワ申鐃緒申鐃緒申分離鐃緒申鐃銃わ申鐃緒申鐃緒申鐃緒申鐃緒申

鐃緒申鐃緒申$w鐃緒申$h鐃盾そ鐃緒申鐃緒申未鐃緒申襦�85鐃緒申70鐃夙わ申鐃緒申鐃緒申鐃緒申鐃熟￥申鐃緒申呂鐃緒申鐃緒申鐃獣ワ申鐃緒申鐃緒申分離鐃緒申鐃銃わ申鐃緒申鐃緒申鐃緒申鐃緒申里鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�scalar鐃塾常申鐃塾緒申鐃緒申鐃緒申鐃�list context鐃叔行わ申鐃塾も疑鐃巡。

鐃叔醐申鐃�Here Text鐃熟種申味鐃緒申分鐃緒申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃緒申鐃塾わ申覆鐃緒申鐃�Here Text鐃緒申箸鐃緒申函鐃緒申鐃緒申鐃叔ワ申箸鐃緒申鐃緒申鐃銃わ申鐃殉わ申鐃夙わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣て￥申鐃緒申鐃緒申鐃�Ruby鐃叔駕申鐃術み￥申Perl6鐃叔もイ鐃緒申妊鐃夙わ申鐃塾醐申鐃緒申鐃�Here Text鐃緒申導鐃緒申予鐃緒申任呂鐃緒申襪縁申鐃宿も、鐃緒申鐃盾そ鐃盾今鐃緒申鐃�HTML鐃緒申render鐃緒申鐃緒申里如鐃緒申鐃緒申鐃叔ワ申箸鐃緒申鐃緒申辰討鐃緒申討發わ申鐃緒申里鐃緒申鐃粛￥申

鐃夙わ申鐃緒申鐃緒け鐃叔￥申鐃淑常申鐃夙随申任鐃緒申鐃緒申鐃夙￥申youtube()鐃熟わ申鐃緒申粉鐃緒申鐃緒申砲覆襦�

Readonly $youtube_base     => 'http://www.youtube.com/v/';
Readonly $youtube_w_factor => 85;
Readonly $youtube_h_factor => 70;

sub youtube {
    my ($id, $scale) = @_;
    $scale = 5 if $scale < 1;
    my $uri    = $youtube_base . $id;
    my $width  = $youtube_w_factor * $scale;
    my $height = $youtube_h_factor * $scale;
return << "EOT";
<object width="$width" height="$height">
  <param name="movie" value="$uri"></param>
  <embed src="$uri" type="application/x-shockwave-flash"
   width="$width" height="$height"></embed>
</object>
EOT
}

Dan the YouTubist