Wie kann ich mein Shell-Skript in Perl konvertieren?

Question

Ich habe ein Shell-Skript:

#!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 

Jetzt möchte ich dieses Skript in eine Perl-Skript konvertieren. Wie kann ich das machen? Soweit habe ich im Code geschrieben, aber dieser Code scheint nicht zu funktionieren.

!/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 

Hier die createviewset ist ein bestehendes Skript, das ich hier aufrufen.

Answer 1

Sie sollten http://perlmaven.com/ (verfügbar in vielen Sprachen) oder http://learn.perl.org/ besuchen, um etwas Perl zuerst zu lernen.

Ihr Shell-Skript muss die Befehlszeilenwerte nicht kopieren. Du auch # usr/bin/bash verwendet, die nicht funktionieren, weil der Pfad entweder/usr/bin/bash oder (häufiger)/bin/bash ist:

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

Perl weist alle Argumente Befehlszeile the array @ARGV. Dieses Beispiel druckt Ihre zwei Argumente:

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

Beachten Sie, dass die Nummerierung mit 0 beginnt anstelle von 1, wie in $ 1 in Ihrem Bash-Skript.

Im nächsten Teil werden externe (Shell-) Befehle in Perl ausgeführt: Verwenden Sie the system command.

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

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

Beachten Sie, dass die Quelle Befehl funktioniert nicht, da ein Perl-Skript nicht ein Shell-Skript und kann nicht „schließen“ Bash-Skript. Ich schätze, dass Sie versuchen, Perl für Ihr Problem zu verwenden, aber es sieht so aus, als ob Bash das viel bessere Werkzeug dafür ist.