作成していたECサイトが表示されなくなってしまい、何が原因なのか調べており、.htaccessの記述がおかしかったのか等を調べたが、テストで同階層に設置したhtmlは正常に表示されていました。 表示されなかったのはデータベースから情報を取得してきているphp…

乱数を生成し、それをユーザーに当ててもらうプログラムです。exit、quit、空白の入力があった際と、数字が当たった際にプログラムを終了させています。 #!/usr/bin/perl use strict; use warnings; use 5.010; #ランダムな数値を生成。 my $random = int(1 …

今までに作成したプログラムファイルにコピーライトを表示させるプログラムです。ファイルの#!行の直後に挿入されます。 #!/usr/bin/perl use warnings; use strict; use 5.010; $^I = ".bak"; while(<>){ if ($_ =~ m/^#!/) { $_ .= "##Copyright (C) 2014 …

受け取ったファイル内のFredをWilmaに変更し、WilmaをFredに変更するプログラムを書きなさい。 #!/usr/bin/perl use strict; use warnings; use 5.010; $^I = ".copy"; while(<>){ #swapを利用する際は、###や$$$など使わない（本文中で出てこない）ものを選…

テキストファイルを元に修正を加えたコピーを作成してください。コピーされたファイルではfred（大文字小文字区別なし）をすべてLarryに書き換えてください。出力ファイルの名前は、入力ファイル名に適応した.outで終わる名前にしてください。 #!/usr/bin/pe…

変数$whatに格納されている内容が三回連続して現れるものにマッチするパターンを書いてください。 #!/usr/bin/perl use strict; use warnings; use 5.010; my $what = 'fred'; =pod #入力値に対し$whatの内容を3回繰り返したものをマッチさせたい。 #もしwha…

入力した行のうち、空白文字がある行を全て表示する新しいプログラムを作成してください。出力する業の末尾には、わかりやすいように目印になる文字を表示してください。（空白行が存在する行の末尾には*をつけて表示しています。） #!/usr/bin/perl use str…

練習問題4を元にaで終わるワードの直後に続く最大5文字を別のキャプチャ変数にキャプチャしてください。コードを書き換え療法のキャプチャを表示するようにしてください。 #!/usr/bin/perl use strict; use warnings; use 5.010; while (<>) { chomp; my $na…

練習問題3のコードを元に、$1の代わりに名前付きキャプチャを使うようにしてください。コードを書き終えてそのラベル名を表示するようにしてください。 #!/usr/bin/perl use strict; use warnings; use 5.010; while (<>) { chomp; my $names = "test"; if (…

練習問題2を応用し、aで終わるワードを$1にキャプチャしてください。コードを書き終えて変数$1の内容をシングルクウォートで囲んで表示します。 #!/usr/bin/perl use strict; use warnings; use 5.010; while (<>) { chomp; if ($_ =~/(\b\w*a\b)/) { print …

パターンテストプログラムを使い、ワードのどれかがaで終わっていたらマッチするようなパターンを作ってください。wilma&fredなどにもマッチするように実装してください。 #!/usr/bin/perl use strict; use warnings; use 5.010; #末尾がaで終わるものにマッ…

パターンテストプログラムを利用して、文字列matchにマッチするパターンを記述してください。文字列beforematchafterを入力値として与えてください。 #!/usr/bin/perl use strict; use warnings; use 5.010; while (<>) { # take one input line at a time c…