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