ホームページ・ブログ作成＆ネットでお得に！

ハロウィン特集

10月31日はハロウィン！

日本人にあまり馴染みのなかったハロウィンも最近ではお菓子のパッケージのデザインに使われたり、いろんなグッズが出てきたりと親しみやすくなってきました。

せっかくのイベントなのだからおもいっきり楽しまなきゃソン！

ハロウィンのイベントを楽しむために役立つグッズを特集してみました！！

　

【ハロウィンの仮装グッズ】

リアルな魔女衣装からミッキーマウスやミニーマウスのハロウィン衣装、他にも魔法使いコスプレ、ゾンビコスプレなどいろいろあります。

ハロウィンコスプレはこちらからどうぞ！

【子供用仮装グッズ】

子供用だって負けていません！リトル魔女からこんなにかわいいミニーマウスのハロウィン衣装、パンプキン衣装、そしてパイレーツ衣装など他にもいろいろあります。

ハロウィンコスプレはこちらからどうぞ！

【ハロウィンのデコレーション】

コスプレはしたくないけどハロウィンの雰囲気は味わいたいという方におすすめなのが、お部屋のデコレーション！ちょっと飾るだけで、ハロウィンパーティーの気分に・・・！！

ハロウィンデコレーションはこちらからどうぞ！

その他にもマスクやバッグ、ランタンなどハロウィングッズはまだまだあるので、ぜひ好みのグッズを手に入れて下さいね！

レンタルサーバー

無料レンタルサーバー

名称	容量	Perl	PHP	FTP	商用	独自ドメイン	URL例	備考
usamimi.info	700MB	○	○	○	○	○	－
FC2ホームページ	1GB	×	×	○	○	－	http://XXXX.web.fc2.com/	1ファイル1MBまで

※仕様が変更されている可能性があるのでご自身での確認をお願いします。

[Perl] ひらがな→カタカナ変換

use Encode;

my $kana = "あいうえおカキクケコ";
Encode::from_to($kana, "sjis", "euc-jp");
$kana=&hiragana2katakana($kana);
Encode::from_to($kana, "euc-jp", "sjis");
print $kana;

sub hiragana2katakana{
  my $ascii = '[\x00-\x7F]';
  my $twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
  my $threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';
  my @chars = $_[0] =~ /$ascii|$twoBytes|$threeBytes/og;
  my $ret;
  foreach (@chars) {
    if (/^\xA4([\xA1-\xF3])$/) {
      $ret .= "\xA5".$1;
    } else {
      $ret .= $_;
    }
  }
  return $ret;
}

※ホームページ制作に役立つ！ブレイン・エイチシーより引用

［Perl目次］へ戻る

[Perl] 繰り返し

【for】

例：配列@fileの全要素の処理を行う場合

for ($i=0; $i<=$#file; $i++) {
処理ブロック
}

［Perl目次］へ戻る

[Perl] ファイル・フォルダの有無確認

【ファイルの有無確認】

my $file = "D:/testfile.html";
if (-e $file) {
print "$fileはあります\n";
} else {
print "$fileはありません\n";
}

【フォルダの有無確認】

my $folder = "D:/testfolder/";
if (-e $folder) {
print "$folderはあります\n";
} else {
print "$folderはありません\n";
}

［Perl目次］へ戻る

[Perl] 置換

【特定の文字の間の文字列を削除する】

例：<と>の中の文字を削除
$a = "テスト<abcd>デー<efg>タ";
$a =~ s/<([\s\S]*?)>//g;

結果：テストデータ

［Perl目次］へ戻る

[Perl] 文字列の分割

【split】

split(/区切り文字/, 変数);

［使い方］
my $str = "aaa,bbb,ccc,ddd";
my @word = split(/,/, $str);

  foreach (@word) {
    print "$_\n";
  }

＊区切り文字が/（スラッシュ）の場合は、\/と記入する。

［Perl目次］へ戻る

[Perl] カタカナ変換

【半角カタカナに変換（Perl5.8以降）】

use Encode;
use Encode::JP::H2Z;

Encode::from_to($str, "sjis", "euc-jp");
Encode::JP::H2Z::z2h(\$str);
Encode::from_to($str, "euc-jp", "sjis");

### 全角へはEncode::JP::H2Z::h2z(\$str); ###

【半角カタカナに変換（旧Perl）】

require "jcode.pl";

jcode::convert(\$str, "sjis", "", "h");

### jcode.pl → 漢字等の処理を行う ###
### 全角へは jcode::convert(\$str, "sjis", "", "z"); で、できるはずだけど、使えなかった ###

【全角カタカナに変換（旧Perl）】

require "jcode.pl";

&jcode::h2z_sjis(\$str);

［Perl目次］へ戻る

[Perl] 条件分岐

【if elsif else】

if ( ) {
} elsif { ←注）elseif ではない
} else {
}

【switch case】

use Switch;

switch ($flg) {
    case 1   {
     }
    case "a" {
      }
    else    {
      }
}

［Perl目次］へ戻る

[Perl] 文字化けする文字の対処方法

文字化けする文字を含む場合前後を\Q\Eで囲む
$name =~ /\Qネーム\E/

［Perl目次］へ戻る