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

Question

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

例：

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

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

Comments

[KojiDoi]

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

[KojiDoi]

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

Answer 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";

Comments

[shigoto]

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

Answer 2

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

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

Comments

[shigoto]

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

[otn]

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

Answer 3

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

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

Comments

[shigoto]

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

[KojiDoi]

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

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

[shigoto]

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

Answer 4

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

#!/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'");

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

Comments

[shigoto]

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

[shigoto]

rootで実行です。

[shigoto]

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