作成していた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…

読み込んだ行のうちwilmaとfredの両方を含む行をすべて出力しています。 #!/usr/bin/perl use strict; use warnings; use Data::Dumper; open (FILE, "<", "names.txt"); foreach my $name (<FILE>){ if ($name =~/wilma/ && $name =~/fred/){ print $name; } } 以</file>…

読み込んだ行のうち、2回連続して同じ文字が現れている行を表示する。 #!/usr/bin/perl use strict; use warnings; open (FILE, "<", "names.txt"); #大文字小文字を区別して、連続した文字が2つ出てきたときにマッチさせる。 foreach my $name (<FILE>){ if($name</file>…

#!/usr/bin/perl use strict; use warnings; foreach my $key(sort(keys %ENV)){ print "$key => $ENV{$key} \n"; } =pod while (my($key, $value)=each %ENV){ printf "%2s => %2s\n", $key, $value; } =cut BLOCKSIZE => K EDITOR => vi ENV => /home/vagr…

読み込んでいるファイルの先頭文字が大文字になっているものを表示する。 #!/usr/bin/perl use strict; use warnings; open (FILE, "<", "names.txt"); foreach my $name (<FILE>){ chomp($name); if ($name =~ /^[A-Z][a-z]+$/){ print $name . "\n"; } } 以下参</file>…

「．」がついている行を表示させる。 #!/usr/bin/perl use strict; use warnings; open (FILE, "<", "names.txt"); foreach my $name (<FILE>){ chomp($name); if ($name =~ /\./){ print $name . "\n"; } } 参照しているファイルになります。 fred flintstone fre</file>…

fred、alfred、frederickなど「fred」が含まれた行を、大文字小文字区別せず表示する。 #!/usr/bin/perl use strict; use warnings; use Data::Dumper; use 5.010; open (FILE, "<", "names.txt"); #<FILE>から1つづつ値を取り出して表示する foreach my $name (<FILE>){</file></file>…

fred、alfred、frederickなど「fred」が含まれた行を表示する。 #!/usr/bin/perl use strict; use warnings; use Data::Dumper; use 5.010; open (FILE, "<", "names.txt"); print Dumper @_; foreach my $name (<FILE>){ chomp($name); #print Dumper $name; #pri</file>…

#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use 5.010; my %names; open (FILE, "<", "names.txt"); #ファイルから取得してきた値をハッシュに格納する。 foreach my $name(<FILE>){ chomp($name); $name = lc($name); $names{$name} += 1; } #</file>…

入力した値（名）に応じて、対応した値（姓）を返します。 以下プログラムになります。 #!/usr/bin/perl use strict; use warnings; my @persons = <STDIN>; chomp(@persons); my %people = (fred => 'flintstone', barney => 'rubble', wilma => 'flintstone', ); </stdin>…

ユーザーに長い幅を指定された際に、定規を伸ばす実装はできませんでした。 最終的な出力結果に至るまでのコードをコメントアウトし、記載しています。 以下プログラムになります。 #!/usr/bin/perl use strict; use warnings; use Data::Dumper; use 5.010;…

初めてのPerl 第5章 入出力 練習問題2 今回は正解する前まで考えていたコードも記載しています。以下のプログラム内のコメントアウトしてあるコードです。 #!/usr/bin/perl use strict; use warnings; use Data::Dumper; use 5.010; #入力値を格納する。 my …

問題文 catのような振る舞いをするプログラムを書いてください。ただし、このプログラムは行を逆に表示します。 以下記述内容です。 use strict; use warnings; use Data::Dumper; #コマンドラインで受け取ったファイルの内容を末尾から表示する print rever…

初めてのperl 第4章 練習問題4 use strict; use warnings; use Data::Dumper; use 5.010; # 入力された名前に対して、挨拶の処理を実行する。 sub greet{ my $name = shift @_; state @members; #挨拶 print "Hi "; # 名前を表示させる print $name . "!"; #…

初めてのPerl 第4章 練習問題2 use strict; use warnings; use 5.010; use Data::Dumper; sub total{ my @numbers = @_; my $have; foreach my $number(@numbers){ $have += $number; } return $have; } my @fred = 1..1000; my $fred_total = total(@fred);…

初めてのPerl 第4章 練習問題1 use strict; use warnings; use 5.010; sub total{ my @numbers = @_; my $have; foreach my $number(@numbers){ $have += $number; } return $have; } my @fred = qw/1 3 5 7 9 /; my $fred_total = total(@fred); print "the…

return演算子 テスト3 use strict; use warnings; my $fred = 11; my $barney = 6; sub list_from_fred_to_barney{ if ($fred < $barney){ # $fredから$barneyまで増やして行く $fred..$barney; }else{ # $fredからbarneyまで減らして行く reverse $barney..…

return演算子 テスト２ use strict; sub shop{ my($name, @fruits) = @_; my $i = 0; # yamadaさんの名前を表示したい。 print $name . "さんが作った果物は"; # フルーツの名前を表示したい # 最後のフルーツでなければ、カンマをつける。 foreach my $frui…

return演算子について use strict; use warnings; my @names = qw/fred barney betty dino wilma pebbles bamm-bamm /; my $result = &which_element_is("betty", @names); print $result; # @fruits = qw/apple grape); # my($a, $b) = @fruits; # my($a, $…