Perlコマンドの引数の中で変数を使う方法

質問

教えてGooやGoogleで検索してみましたが、ピンポイントでヒットするものが見当たらなかったので、質問させていただきます。

シェル（Cシェル）の中で、以下のコマンドを記述しているのですが、置換前文字列、置換後文字列にシェル内で定義した変数を使いたいです。
---
perl -i -pe 's/置換前文字列/置換後文字列/g' ファイル名

具体的には、テキストファイルの中に
10/24　AAAAAAAAAA
10/25　AAAAAAAAAA
//10/26　AAAAAAAAAA
//10/27　AAAAAAAAAA
//10/28　AAAAAAAAAA
//10/29　AAAAAAAAAA
//10/30　AAAAAAAAAA
というように、日別のスケジュールを記載しています。

未来日については、上記のように//でコメントアウトしています。

日次でシェルを実行して、翌日分のコメントアウトを外すような処理を実施するのが目的です。

setenv DATE1 `date -v +1d +%m/%d`
で翌日日付を変数に入れており、DATE1変数を使用して実現したいと思っています。

どうしてもシェルの変数がうまく読み込めず、うまくいきません。

解決方法、ご存知の方がいらっしゃれば、ご教授ください。

よろしくお願いします。

回答No.3

osamuy · ベストアンサー

＞ 案c）だとどのようになりますでしょうか？

e.g.

回答No.2

Tacosan

「本当の c-shell」だとスクリプトを書くには不向きって話はよくありますね.

さておき, それなりに新しい Perl なら
perl -i -pe "s&^//(?=$DATE1)&&" ファイル名
でいいような気はするけど動作の保証はしない.

回答No.1

osamuy

案a) シェル変数を展開するよう二重引用符で文字列を記述する。
案b) perlの起動時引数で渡す。BEGINで@ARGVをshiftして取り込む。
案c) perl側で日付計算をする。

個人的には、案c。
シェルの文字列エスケープ法を学習するより、perlだけで書いたほうが楽かもしれないので。

補足

案a）でトライしたのですがエスケープやら何やらではまりました。できれば案a）で行きたいのですが。。。案c）だとどのようになりますでしょうか？