質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.77%

Perl言語で動作がうまくいかない

解決済

回答 1

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 1,301

Perl言語

use strict;
use warnings;
use utf8;
use open ":utf8";
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @syusei;
my $n = 0;
my $j=0;
my $m=0;
open(my $fh, "<", "input.txt") or die("error :$!");
while (my $buff = <$fh>) {
chomp($buff);
  if ($buff =~ /,,/) {       # 行内に「,,」があるか      
  } elsif ($buff =~ /^,/) {  # 先頭に「,」があるか
  } elsif ($buff =~ /,$/) {  # 行末に「,」があるか
  } else {
$syusei[$n]="$buff\n";
$n++
}
}
for($m=0;$m<$n;$m++){
for(my $i=0;$i<length($syusei[$m]);$i++){
chomp($syusei[$m]);
my $onestr= substr($syusei[$m],$i,1); 
if($onestr eq "z"){ 
substr($syusei[$m],$i,1)=chr(97); #z⇒aに
} elsif($onestr eq "Z"){ 
substr($syusei[$m],$i,1)=chr(65); #Z⇒Aに
} elsif($onestr =~ /[a-y]/) { #aからyのいずれかの文字
my $charno= ord($onestr);
substr($syusei[$m],$i,1)=chr(++$charno); #一文字ずらすa⇒b…y⇒z
} elsif($onestr =~ /[A-Y]/) { #AからYのいずれかの文字
my $charno= ord($onestr);
substr($syusei[$m],$i,1)=chr(++$charno); #一文字ずらすA⇒B…Y⇒Z
}
}
$syusei[$j]="$syusei[$m]\n";
$j++
}
open(DATAFILE,">","output.txt")or die("Error:$!");
for (my $h=0;$h<=$j;$h++){
print DATAFILE $syusei[$h];
}

インプットファイル
11/22,service,1
,base,1
11/22,pay,1
11/25,include,1
11/25,program,
11/27,drive,1
11/30,birthday,30
,,

.plのファイルをダブルクリックした際にインプットファイルを開いてアウトプットを.txt
ファイルで出力するプログラムを作成していたのですが、

.plファイルとインプットファイルを一緒のフォルダの入れて作動するようにしたいのですが、うまくいかないのですがどうしたらよいのでしょうか?

input.txtのカレントディレクトリがおかしいと言われたのですが、どう習得してインプットファイルを開いたらいいのかが分からないです・・・

やろうとしていること
1.テキストファイルの単語項目に該当する文字列の一文字ずらしができること
2.perlによって作成されたプログラムであること
3.アルファベット以外の文字は一文字ずらし対象外とする
4.日付、単語、数字の項目のいずれかが欠けている場合、その行は削除した状態で出力すること
5.用意されたテキストファイルはプログラム実行後も内容に変化があってはならない
6.作成した「.pl」拡張子ファイルからダブルクリックで実行できること
7.プログラム実行時に出力用のテキストファイルを作成すること
      8.プログラム実行時に作成されるテキストファイル名は「output.txt」とする

OS Windows

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • argius

    2015/12/19 21:53

    どのような環境でどのように実行したのかが分からないと回答するのが難しいです。
    OSの種類と、どのような操作をしたのかを具体的に書いていただけますか?

    キャンセル

  • argius

    2015/12/19 23:39

    Windowsで、plファイルがPerlの実行プログラムに関連付けられているので、plファイルをダブルクリックするとPerlのプログラムが走る、ということですね?(ふつうはあまりダブルクリックで実行することが無いのでわかりませんでした。Perlはコマンドプロンプトを使って実行することが多いです。) では追加で確認なのですが、・Perlの実行プログラムは何を使っていますか? ・「input.txtのカレントディレクトリがおかしいと言われた」とのことですが、誰がそう言っているのですか? もしそれがエラーメッセージなら、そのメッセージを出力されているまま教えてほしいです。

    キャンセル

回答 1

checkベストアンサー

0

plファイルをダブルクリックして実行した場合のカレントディレクトリーを制御するのは、
難しいかも知れませんので、別の方法として、ファイルを絶対パスで書く方法を書きます。
こうすればカレントディレクトリーの問題は考えなくても良くなります。

ファイルがいずれもC:\Users\argius\フォルダーの下に置くとしたら、

open(my $fh, "<", 'C:\Users\argius\input.txt') or die("error :$!");

# (中略)

open(DATAFILE, ">", 'C:\Users\argius\output.txt') or die("Error:$!");

のようにします。

\(バックスラッシュ)を使うので、この場合はダブルクォーテーション(")でなく、シングルクォーテーション(')を使う方が楽です。ダブルクォーテーションで書く場合は、\\のようにすべてのバックスラッシュ二重に書く必要があります。

(これで解決で良ければ、追加の質問は回答していただかなくてかまいません。)

もし上記の方法がダメなら、batファイルを作ってそれをダブルクリックという方法もあります。

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.77%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る