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

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

［Perl目次］へ戻る

[Perl] 条件分岐

【if elsif else】

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


【switch case】

  use Switch;

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

［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] 文字列の分割

【split】

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

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

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

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

［Perl目次］へ戻る

[Perl] 置換

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

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

結果：テストデータ

［Perl目次］へ戻る