サンプルプログラム

#!/usr/local/bin/perl
#
my $word = "This is a pen.";
print "変換前：$word\n";

$word =~ s/pen/book/;
print "変換後：$word\n";

[xxxxxxxx@dddddddddd Substitution]$ perl test1-1_u.pl
変換前：This is a pen.
変換後：This is a book.
[xxxxxxxx@dddddddddd Substitution]$ 

サンプルプログラム

#!/usr/local/bin/perl
#
$_= "This is a pen.";
print "変換前：$_\n";

s/pen/book/;
print "変換後：$_\n";

[xxxxxxxx@dddddddddd Substitution]$ perl test1-2_u.pl
変換前：This is a pen.
変換後：This is a book.
[xxxxxxxx@dddddddddd Substitution]$ 

サンプルプログラム

#!/usr/local/bin/perl
#
my $url = 'http://www.kent-web.com/bbs/file/';
print "変換前：$url\n";

$url =~ s|bbs/file|chat/data|;
print "変換後：$url\n";

[xxxxxxxx@dddddddddd Substitution]$ perl test1-3_u.pl
変換前：http://www.kent-web.com/bbs/file/
変換後：http://www.kent-web.com/chat/data/
[xxxxxxxx@dddddddddd Substitution]$ 

サンプルプログラム

#!/usr/local/bin/perl
#
my $word = 'aaaa';
print "変換前：$word\n";

$word =~ s/a/A/;
print "変換後：$word\n";

[xxxxxxxx@dddddddddd Substitution]$ perl test1-4_u.pl
変換前：aaaa
変換後：Aaaa
[xxxxxxxx@dddddddddd Substitution]$ 

サンプルプログラム

#!/usr/local/bin/perl
#
my $word = 'aaaa';
print "変換前：$word\n";

$word =~ s/a/A/g;
print "変換後：$word\n";

[xxxxxxxx@dddddddddd Substitution]$ perl test1-5_u.pl
変換前：aaaa
変換後：AAAA
[xxxxxxxx@dddddddddd Substitution]$ 

サンプルプログラム

#!/usr/local/bin/perl
#
my $word = "This is 100 yen.";
print "変換前：$word\n";

$word =~ s/(\d+)/$1 * 2/e;
print "変換後：$word\n";

[xxxxxxxx@dddddddddd Substitution]$ perl test1-6_u.pl
変換前：This is 100 yen.
変換後：This is 200 yen.
[xxxxxxxx@dddddddddd Substitution]$ 

サンプルプログラム

#!/usr/local/bin/perl
#
my $word = "apple";
print "変換前：$word\n";

$word =~ tr/a-z/A-Z/;
print "変換後：$word\n";

[xxxxxxxx@dddddddddd Substitution]$ perl test2-1_u.pl
変換前：apple
変換後：APPLE
[xxxxxxxx@dddddddddd Substitution]$ 

サンプルプログラム

#!/usr/local/bin/perl
#
my $word = "apple";
print "変換前：$word\n";

my $count = $word =~ tr/a-z/A-Z/;
print "変換後：$word\n";
print "変換された文字数は、$count です。\n";

[xxxxxxxx@dddddddddd Substitution]$ perl test2-2_u.pl
変換前：apple
変換後：APPLE
変換された文字数は、5 です。
[xxxxxxxx@dddddddddd Substitution]$ 

サンプルプログラム

#!/usr/local/bin/perl
#
my $word = "American Coffee";
print "変換前：$word\n";

$word =~ tr/A-Z/_/c;    # 大文字以外を _ に変換
print "変換後：$word\n";

[xxxxxxxx@dddddddddd Substitution]$ perl test2-3_u.pl
変換前：American Coffee
変換後：A________C_____
[xxxxxxxx@dddddddddd Substitution]$ 

サンプルプログラム

#!/usr/local/bin/perl
#
my $word = "American Coffee";
print "変換前：$word\n";

$word =~ tr/a-z//d;    # 小文字を削除
print "変換後：$word\n";

[xxxxxxxx@dddddddddd Substitution]$ perl test2-4_u.pl
変換前：American Coffee
変換後：A C
[xxxxxxxx@dddddddddd Substitution]$ 

サンプルプログラム

#!/usr/local/bin/perl
#
my $word = "apple";
print "変換前：$word\n";

$word =~ tr/a-z/A-Z/s;     # 大文字に変換し、連続した同一文字を1文字に変換
print "変換後：$word\n";

[xxxxxxxx@dddddddddd Substitution]$ perl test2-5_u.pl
変換前：apple
変換後：APLE
[xxxxxxxx@dddddddddd Substitution]$ 

サンプルプログラム

#!/usr/local/bin/perl
#
my $word = "apple,banana,orange";

my @word = split(/,/ ,$word);    # , を区切り文字として「文字列」を「配列」にする
print "配列 \@word ： @word\n";

[xxxxxxxx@dddddddddd Substitution]$ perl test3-1_u.pl
配列 @word ： apple banana orange
[xxxxxxxx@dddddddddd Substitution]$ 

サンプルプログラム

#!/usr/local/bin/perl
#
my @word = ("apple" ,"banana" ,"orange");

my $word = join("," ,@word);    # , を区切り文字として「配列」を「文字列」にする
print "文字列 \$word ： $word\n";

[xxxxxxxx@dddddddddd Substitution]$ perl test3-2_u.pl
配列 @word ： apple,banana,orange
[xxxxxxxx@dddddddddd Substitution]$ 

サンプルプログラム

#!/usr/local/bin/perl

  my $method = $ENV{REQUEST_METHOD};
  my $length = $ENV{CONTENT_LENGTH};
  my $query_string;


  #▼POSTメソッドによってデータが送られてきたかどうかを確認
  if( $method eq 'POST') {
    read( STDIN, $query_string, $length );
  }
  else {
    # セキュリティからは、GET でのデータには応答しないのが望ましい。
    # $query_string = $ENV{QUERY_STRING};
    $query_string = "" ;
  }

  print "$query_string\n";

  #▼引数を連想配列に代入
  foreach (split( /&/, $query_string)) {
    my ($key, $value) = split( '=', $_);
    # 下記の２行で、送られたデータを decode する。
    $value =~ s/\+/ /g;
    $value =~ s/\%([\da-fA-F][\da-fA-F])/pack("C",hex($1))/eg;

    #▼コマンドを取得する
    if( $key eq 'db_name' ) {
      # コマンドリーク対策として、一部の文字列を漢字に変更しておく
      $value =~ s/\|/｜/g;
      $value =~ s/\;/：/g;
      $value =~ s/\</＜/g;
      $value =~ s/\>/＞/g;

      $db_name = $value ;
    }

    if( $key eq 'server_name' ) {
      # コマンドリーク対策として、一部の文字列を漢字に変更しておく
      $value =~ s/\|/｜/g;
      $value =~ s/\;/：/g;
      $value =~ s/\</＜/g;
      $value =~ s/\>/＞/g;

      $server_name = $value ;
    }

    # 省略

  }

  # 以下で処理プログラムを記述する。

  print "\$db_name : $db_name\n";
  print "\$server_name : $server_name\n";

#!/usr/bin/sh

export REQUEST_METHOD=POST
export CONTENT_LENGTH=41
echo "server_name=Free%20MyServer&db_name=My+DB" | perl cgi_sample4-1.pl

[xxxxxxxx@dddddddddd Substitution]$ sh sample.sh
server_name=Free%20MyServer&db_name=My+DB
$db_name : My DB
$server_name : Free MyServer
[xxxxxxxx@dddddddddd Substitution]$