シェルスクリプトをPerlに変換するにはどうしたらいいですか？

Question

私は、シェルスクリプトを持っている：

#!usr/bin/bash 
branch_name=$1 
task_name=$2 
createviewset ccm -b $branch_name -t $task_name 
source setenv $task_name 
rest of the code 

今、私はPerlスクリプトにこのスクリプトを変換したいです。どうやってやるの？これまでのところ私はコードに書かれているが、このコードは動作していないようだ。

!/usr/bin/perl 
use warnings; 
use strict; 
my branch_name; 
my task_name; 
createviewset ccm -b $branch_name -t $task_name 
source setenv $task_name 

ここではcreateviewsetは私がここで呼び出す既存のスクリプトです。

Answer 1

Perlを最初に学ぶには、http://perlmaven.com/（多くの言語で利用可能）またはhttp://learn.perl.org/をご覧ください。

シェルスクリプトでコマンドライン値をコピーする必要はありません。

#!/bin/bash 
createviewset ccm -b $1 -t $2 
source setenv $2 
rest of the code 

Perlはにすべてのコマンドライン引数を割り当てます！あなたはまた、パスに/ usr/binに/ bashや（より一般的な）/ binに/ bashのいずれかであるため、動作しません＃USR/binに/ bashのを使用しますthe array @ARGV。このサンプルでは、​​あなたの二つの引数を出力します。番号は、あなたのbashスクリプトで$ 1のように0ではなく1から始まる

#!/usr/bin/perl 
print $ARGV[0]; 
print $ARGV[1]; 

ていることに注意してください。

次の部分はPerlで外部（シェル）コマンドを実行しています。the system commandを使用してください。

#!/usr/bin/perl 
use strict; 
use warnings; 

system 'createviewset','ccm','-b',$ARGV[0],'-t',$ARGV[1]; 
system 'source','setenv',$ARGV[1]; 

Perlスクリプトは、シェルスクリプトではなく、bashスクリプト「を含める」ことができないためソースコマンドが動作しないことに注意してください。私はあなたの問題にPerlを使用しようとしていることに感謝しますが、これはBashがもっと良いツールだと思われます。