初心者にわかりやすく「プログラミングとはなにか？」を5分で解説！

function add_ad_before_h2($content) {

	$h2ad = '
'; // ブログパーツ H2すべて
	$h2ad_ymm4 = '
'; // ブログパーツ H2ymm4
	$h2ad_gaming = '
'; // ブログパーツ H2ゲーミングPC
	
	$h3ad = ''; // Advanced Ads 期間限定
	
	/* $h2 = '/<h2>.+<\/h2>/u'; // H2見出しのパターン */
	$h2 = '/^<h2.*?>.*?<\/h2>$/im'; //H2見出しのパターン
	$h3 = '/^<h3.*?>.*?<\/h3>$/im'; //H3見出しのパターン

	// 投稿ページ
	if ( ( is_single() && !has_tag( array('no-ads') ) ) ||  ( is_page() && !is_page( array(55968) ) ) ) {
		if ( preg_match_all($h2,$content,$h2s) ) { // H2見出しが本文中にあるかどうか	
			for ( $i=1; $i<count($h2s[0]); $i++ ){ // SWELLの目次にバグが出るので2つ目のh2タグから表示
				if( has_tag( array('ymm4') ) ){
					$content = str_replace($h2s[0][$i], $h2ad_ymm4.$h2s[0][$i], $content);
				} elseif ( has_tag( array('gaming') ) ){
					$content = str_replace($h2s[0][$i], $h2ad_gaming.$h2s[0][$i], $content);
				} else {
					$content = str_replace($h2s[0][$i], $h2ad.$h2s[0][$i], $content);
				}	
			}
		}
		if ( preg_match_all($h3,$content,$h3s) ) { // H3見出しが本文中にあるかどうか	
			for ( $i=0; ($i*3)<count($h3s[0]); $i++ ){ 
				$content = str_replace($h3s[0][($i*3)], $h3ad.$h3s[0][($i*3)], $content);
			}
		}
		
		if ( get_post_type() === 'post' ) {
			// preg_replace：指定回数で
			$content = preg_replace('/^<p/im', $figures[0][0].'
'.'<p', $content, 1); // ブログパーツ Word Balloon（プロフィール） 
		}
		
	}
	return $content;
}
add_filter('the_content','add_ad_before_h2');

#! /usr/bin/perl -w

use strict;
use warnings;

use Time::Local;
use File::Basename;
use File::Copy qw/copy move/;

# 引数が無ければ終了する
print "error: copy.pl \$1 ... \$n \n" and exit unless($#ARGV == 0);

our @COPY_DIRS = ();
open IN, "<copy.conf" or die "$!";

my $i = 0;
while (<IN>){
        $_ =~ s/\x0D?\x0A?$//;
        $COPY_DIRS[$i++] = $_;
}

#Perlでは、グローバルを大文字、レキシカル変数を小文字にする。
our $FROM_MOV_DIR = $COPY_DIRS[0];
our $TO_MOV_DIR = $COPY_DIRS[1];
our $FROM_THUMB_DIR = $COPY_DIRS[2];
our $TO_THUMB_DIR = $COPY_DIRS[3];

#コピー先ディレクトリが無ければ作成する。
unless( -d "$TO_MOV_DIR"){
        mkdir "$TO_MOV_DIR";
}

unless( -d "$TO_THUMB_DIR"){
        mkdir "$TO_THUMB_DIR";
}

our $TO_TARGET_DIR = 1;
our $TO_TARGET_FILE = 1;

# 警告を捕捉して、処理を実行する。
#local $SIG{__WARN__} = sub {
#    print $_[0];
#};

LP: while (<>) {
        $_ =~ s/\x0D?\x0A?$//; #改行文字を削除
        my $target = $_;
        print "target=$target\n";

        my $dir = $TO_TARGET_DIR;
        print "36dir=$TO_TARGET_DIR\n";
        print "$TO_TARGET_FILE\n";

        while(){
                if( -d "$TO_MOV_DIR/$dir"){
                        #ディレクトリがあったらファイル走査
                        for($TO_TARGET_FILE..10){
                                if( -f "$TO_MOV_DIR/$dir/$dir$_.mp4"){
                                        #ファイルがあったらコピーしない。
                                        print "$dir$_.mp4\n";

                                }else{
                                        #ファイルが無かったらコピーする。
                                        #copy "$FROM_MOV_DIR/$target.mp4", "$TO_MOV_DIR/$dir/$dir$_.mp4" or die "Can't copy $target to $TO_MOV_DIR/$dir/$_.mp4 : $!"; #ここのout.txtを変数にする
                                        copy "$FROM_MOV_DIR/$target.mp4", "$TO_MOV_DIR/$dir/$dir$_.mp4" or warn "Can't copy $target to $TO_MOV_DIR/$dir/$dir$_.mp4 : $!" and print"hoge\n"; #ここのout.txtを変数にする

                                        $TO_TARGET_FILE = $_;

                                        $TO_TARGET_FILE++;
                                        if($TO_TARGET_FILE > 10){
                                                $TO_TARGET_FILE = 1; 
                                                $TO_TARGET_DIR++;
                                                print "dir=$TO_TARGET_DIR\n";
                                        }

                                        next LP;
                                }
                        }
                }else{
                        #ディレクトリがなかったらディレクトリを作成してから、$targetをコピー
                        mkdir "$TO_MOV_DIR/$dir";
                        #copy "$FROM_MOV_DIR/$target.mp4", "$TO_MOV_DIR/$dir/$dir"."1.mp4" or die "Can't copy $target to $TO_MOV_DIR/$dir/1.mp4 : $!"; #ここのout.txtを変数にする
                        copy "$FROM_MOV_DIR/$target.mp4", "$TO_MOV_DIR/$dir/$dir"."1.mp4" or warn "Can't copy $target to $TO_MOV_DIR/$dir/$dir"."1.mp4 : $!" and print"hoge\n"; #ここのout.txtを変数にする
                        $TO_TARGET_FILE=2;
                        next LP;
                }

                $dir++; # $TO_TARGET_DIR の値とズレるので注意する。
                $TO_TARGET_DIR++;
        }
}

/* プレイヤー */
#define IAM 0 
#define CPU 1

/* 出し手 */
#define PA 0 
#define CHOKI 1
#define GU 2

/* 勝敗 */
#define LOSE 0 
#define TIE 1 /* 単語はDRAWでも何でも良い */
#define WIN 2

/* プレイヤー情報(自分or相手、手)を格納する構造体 */
typedef struct Player {
 int player;
 int te;
} Player;

/* 引数にプレイヤー情報を与えたらじゃんけんの勝敗が判定される。 */
int judge(Player p, Player cpu);

/* プレイヤー */
#define IAM 0 
#define CPU 1

/* 出し手 */
#define MARU 0 
#define BATSU 1

/* 勝敗 */
#define LOSE 0 
#define TIE 1 /* 単語はDRAWでも何でも良い */
#define WIN 2

/* 盤面 */
#define TATE 3
#define YOKO 3

typedef struct Game {
 int turn;
 int board[TATE][YOKO];
} Game;

int judge(Game game);

typedef struct Body {
 char name[256]; /* 名前は初回だけ入力 */
 struct tm *today; /* 測定日付の取得 */
 double height;
 double weight;
} Body;