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

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

ただいまの
回答率

90.33%

  • Perl

    464questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

  • grep

    36questions

    grepはコマンドライン上でテキスト検索を可能にするユーティリティーです。元はUnixのために用意されたものです。

perlで文字を英語にした時の変数

解決済

回答 4

投稿

  • 評価
  • クリップ 1
  • VIEW 360

shigoto

score 18

お世話になります。
perlで日付をとってきて英語表記に変換して、変数に入れても反映されません。

例:

$day1 = system ("export LANG=C&&date +'%h %d'");
print "$day1 \n";
grep '$day1' /root/greptest.txt;

9月27 ⇒ Sep 27
まで表示させることはできたのですが、
それを変数にいれてgrepするとなぜか空になってしまいます。。

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

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

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

    クリップを取り消します

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

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

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

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

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

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

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

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

    質問の評価を下げる

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

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

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

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

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

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

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

    詳細な説明はこちら

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

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

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

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

  • KojiDoi

    2017/09/27 15:25

    反映されない以前に、そもそもそのperlスクリプトは動作しないと思いますが。どのようなスクリプトをどのように使ったのか正確に示して下さい。

    キャンセル

  • KojiDoi

    2017/09/27 15:28

    greptest.txtの中身も示して頂かないとgrepがどう失敗したのか判断しようがありません。

    キャンセル

回答 4

+1

コマンドの処理結果を変数に入れるのは、バッククォートです。

$day1 = `LANG=C date +'%h %d'`; # LANG=C にしてdateコマンドを実行して出力を変数に入れる
chomp $day1; # date出力の最後の改行を取る
print "$day1 \n";
$out = `grep '$day1' /root/greptest.txt`; # grep してその出力を変数に入れる
print "$out \n";

投稿

  • 回答の評価を上げる

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

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

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

  • 回答の評価を下げる

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

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

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

  • 2017/09/28 09:12

    system関数を見直しchompを入れてら直りました。
    有り難うございました。

    キャンセル

checkベストアンサー

0

やりたいこと、恐らくですが、export LANG=C で環境変数LANGの値を”C”にすることによって
dateコマンドの出力内容を英語表記(正確には英語、と言うよりはでデフォルトのロケールを使用する)
にして、その出力を$day1に代入させ、更にそれをgrep にかけることでも求める結果を得たい、と
言うことだと思うのですが、合ってますでしょうか。

そうだとすると、system()の使用は前に回答いただいたように、マズイです。
system()の実行は中で子プロセスでシェルコマンドを実行するので、
export LANG=C はその子プロセス中でしか有効になりません。
system()から帰って来ても、呼び出し元の環境変数LANGに影響しません。
回答いただいたように、デバッガーで各行を追ってみてください。

投稿

  • 回答の評価を上げる

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

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

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

  • 回答の評価を下げる

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

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

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

  • 2017/09/28 09:12

    system関数を見直しchompを入れてら直りました。
    有り難うございました。

    キャンセル

  • 2017/09/28 21:31

    LANG=C は、dateにだけ効けば十分です。

    キャンセル

0

質問がいささか飛躍しているように見えます。

#!/usr/bin/perl
$day1 = system ("export LANG=C&&date +'%h %d'");
print "$day1 \n";
grep '$day1' /root/greptest.txt; 

というソースなのでしょうか?

  1. /root ディレクトリで実行していますか?
  2. root ユーザで実行していますか?
  3. 上記のソースであれば 
    The Perl5 Manual
    にあるように、grep 関数の結果が出力されます。

で、そもそも出力している Sep 27 は
print "$day1 \n"; の出力結果ではないです。

#!/usr/bin/perl
$day1 = system ("export LANG=C&&date +'%h %d'");


を実行してみてください。

投稿

編集

  • 回答の評価を上げる

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

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

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

  • 回答の評価を下げる

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

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

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

  • 2017/09/27 15:41

    実行すると
    Sep 27
    空欄
    となります。
    `grep '$day1' /root/greptest.txt; `
    `を前後に挟みました。`

    キャンセル

  • 2017/09/27 15:42

    rootで実行です。

    キャンセル

  • 2017/09/28 09:13

    system関数を見直しchompを入れてら直りました。
    有り難うございました。

    キャンセル

0

やりたかったのはこういう事ですか? 

#!/usr/bin/perl
$day1 = system ("export LANG=C&&date +'%h %d'");
print "$day1 \n";
$res = `grep '$day1' /root/greptest.txt`;
print $res; 

投稿

  • 回答の評価を上げる

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

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

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

  • 回答の評価を下げる

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

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

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

  • 2017/09/27 16:05 編集

    はい、しかし上記でもうまくgrepできないです。
    $day1="Sep 27"とするとうまくできます。
    なぜかわかりません。。

    キャンセル

  • 2017/09/27 17:49

    ああ、見落としていましたがたぶん最初のsystemの使い方がこれではマズイです。

    デバッガーを使って 各行で変数にどんな値が代入されていっているか確認してみるといいでしょう。

    キャンセル

  • 2017/09/28 09:12

    system関数を見直しchompを入れてら直りました。
    有り難うございました。

    キャンセル

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

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

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

  • Perl

    464questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

  • grep

    36questions

    grepはコマンドライン上でテキスト検索を可能にするユーティリティーです。元はUnixのために用意されたものです。