忍者ブログ
このブログは管理者がホームページやブログを作成する途上で知り得た便利情報をメモしたものです。ホームページやブログ作成にお役立て下さい。また同時にポイントサイトやアフィリエイトなどネット利用でお得になる情報も満載中です!
当ブログに掲載されているツール等へのリンクはデジタル・ネットワーク社会と著作権「Q12無断でリンクを張ることは著作権侵害となるでしょうか。」(公益社団法人著作権情報センター CRIC)の考え方に基づき、掲載させていただきました。リンクを解除して欲しいサイトの担当者様はご面倒ですが、コメント欄にてご一報頂けると幸いです。(コメント欄は直接表示されないように設定しています。)
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

【ファイルの有無確認】

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目次]へ戻る
PR

【for】

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

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


[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目次]へ戻る
<< 前のページ HOME [1]  [2]  [3


ランキングに参加しています
にほんブログ村 IT技術ブログ Webサイト構築へ
PR

Copyight© ホームページ・ブログ作成&ネットでお得に! All Rights Reserved.
忍者ブログ [PR]