[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目次］へ戻る

[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] 繰り返し

【for】

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

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

［Perl目次］へ戻る

[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目次］へ戻る